RtmHistFile Module

Uses

- RtmTimeManager
- shr_log_mod
- RtmVar
- RtmSpmd
- RtmDateTime
- RtmIO
- shr_kind_mod
- RunoffMod
- shr_sys_mod
- RtmFileUtils

Variables

Type	Visibility	Attributes		Name		Initial
integer,	public,	parameter	::	max_tapes	=	3
integer,	public,	parameter	::	max_flds	=	1500
integer,	public,	parameter	::	max_namlen	=	32
integer,	public		::	ntapes	=	0
integer,	public		::	rtmhist_ndens(max_tapes)	=	1
integer,	public		::	rtmhist_mfilt(max_tapes)	=	30
integer,	public		::	rtmhist_nhtfrq(max_tapes)	=	(/0, -24, -24/)
character(len=1),	public		::	rtmhist_avgflag_pertape(max_tapes)	=	(/(' ', ni=1, max_tapes)/)
character(len=max_namlen),	public		::	rtmhist_fincl1(max_flds)	=	' '
character(len=max_namlen),	public		::	rtmhist_fincl2(max_flds)	=	' '
character(len=max_namlen),	public		::	rtmhist_fincl3(max_flds)	=	' '
character(len=max_namlen),	public		::	time_period_freq	=	' '
character(len=max_namlen),	public		::	rtmhist_fexcl1(max_flds)	=	' '
character(len=max_namlen),	public		::	rtmhist_fexcl2(max_flds)	=	' '
character(len=max_namlen),	public		::	rtmhist_fexcl3(max_flds)	=	' '
character(len=max_namlen),	public		::	fexcl(max_flds,max_tapes)
character(len=max_namlen),	public		::	fincl(max_flds,max_tapes)			Restart

Subroutines

public subroutine RtmHistPrintflds()

Arguments

None

public subroutine RtmHistHtapesBuild()

Arguments

None

public subroutine RtmHistUpdateHbuf()

Arguments

None

public subroutine RtmHistHtapesWrapup(rstwr, nlend)

Arguments

Type	Intent	Optional	Attributes		Name
logical,	intent(in)			::	rstwr
logical,	intent(in)			::	nlend

public subroutine RtmHistRestart(ncid, flag, rdate)

Arguments

Type	Intent	Optional	Attributes		Name
type(File_desc_t),	intent(inout)			::	ncid
character(len=*),	intent(in)			::	flag
character(len=*),	intent(in),	optional		::	rdate

public subroutine RtmHistAddfld(fname, units, avgflag, long_name, ptr_rof, default)

Arguments

Type	Intent	Optional	Attributes		Name
character(len=*),	intent(in)			::	fname
character(len=*),	intent(in)			::	units
character(len=1),	intent(in)			::	avgflag
character(len=*),	intent(in)			::	long_name
real(kind=r8),			pointer	::	ptr_rof(:)
character(len=*),	intent(in),	optional		::	default