datm_shr_mod Module

Uses

Variables

Type	Visibility	Attributes		Name		Initial
character(len=CL),	public		::	decomp
character(len=CL),	public		::	restfilm
character(len=CL),	public		::	restfils
character(len=CL),	public		::	bias_correct
character(len=CL),	public		::	anomaly_forcing(8)
logical,	public		::	force_prognostic_true
logical,	public		::	wiso_datm	=	.false.
integer(kind=IN),	public		::	iradsw
character(len=CL),	public		::	factorFn
logical,	public		::	presaero
character(len=CL),	public		::	rest_file
character(len=CL),	public		::	rest_file_strm
character(len=CL),	public		::	datamode
character(len=*),	public,	parameter	::	nullstr	=	'undefined'

Functions

public function datm_shr_getNextRadCDay(ymd, tod, stepno, dtime, iradsw, calendar)

Arguments

Type	Intent	Optional	Attributes		Name
integer(kind=IN),	intent(in)			::	ymd
integer(kind=IN),	intent(in)			::	tod
integer(kind=IN),	intent(in)			::	stepno
integer(kind=IN),	intent(in)			::	dtime
integer(kind=IN),	intent(in)			::	iradsw
character(len=*),	intent(in)			::	calendar

Return Value real(kind=r8)

public function datm_shr_eSat(tK, tKbot)

Arguments

Type	Intent	Optional	Attributes		Name
real(kind=R8),	intent(in)			::	tK
real(kind=R8),	intent(in)			::	tKbot

Return Value real(kind=r8)

Subroutines

public subroutine datm_shr_read_namelists(mpicom, my_task, master_task, inst_index, inst_suffix, inst_name, logunit, shrlogunit, SDATM, atm_present, atm_prognostic)

Arguments

Type	Intent	Optional	Attributes		Name
integer(kind=IN),	intent(in)			::	mpicom
integer(kind=IN),	intent(in)			::	my_task
integer(kind=IN),	intent(in)			::	master_task
integer,	intent(in)			::	inst_index
character(len=16),	intent(in)			::	inst_suffix
character(len=16),	intent(in)			::	inst_name
integer(kind=IN),	intent(in)			::	logunit
integer(kind=IN),	intent(in)			::	shrlogunit
type(shr_strdata_type),	intent(inout)			::	SDATM
logical,	intent(out)			::	atm_present
logical,	intent(out)			::	atm_prognostic

public subroutine datm_shr_CORE2getFactors(fileName, windF, winddF, qsatF, mpicom, compid, gsmap, ggrid, nxg, nyg)

Arguments

Type	Intent	Optional	Attributes		Name
character(len=*),	intent(in)			::	fileName
real(kind=R8),	intent(inout)			::	windF(:)
real(kind=R8),	intent(inout)			::	winddF(:)
real(kind=R8),	intent(inout)			::	qsatF(:)
integer(kind=IN),	intent(in)			::	mpicom
integer(kind=IN),	intent(in)			::	compid
type(GlobalSegMap),	intent(in)			::	gsmap
type(GeneralGrid),	intent(in)			::	ggrid
integer(kind=IN),	intent(in)			::	nxg
integer(kind=IN),	intent(in)			::	nyg

public subroutine datm_shr_TN460getFactors(fileName, windF, qsatF, mpicom, compid, gsmap, ggrid, nxg, nyg)

Arguments

Type	Intent	Optional	Attributes		Name
character(len=*),	intent(in)			::	fileName
real(kind=R8),	intent(inout)			::	windF(:)
real(kind=R8),	intent(inout)			::	qsatF(:)
integer(kind=IN),	intent(in)			::	mpicom
integer(kind=IN),	intent(in)			::	compid
type(GlobalSegMap),	intent(in)			::	gsmap
type(GeneralGrid),	intent(in)			::	ggrid
integer(kind=IN),	intent(in)			::	nxg
integer(kind=IN),	intent(in)			::	nyg