shr_tInterp_mod Module

Uses

Subroutines

public subroutine shr_tInterp_getFactors(D1, S1, D2, S2, Din, Sin, f1, f2, calendar, algo, rc)

Arguments

Type	Intent	Optional	Attributes		Name
integer(kind=SHR_KIND_IN),	intent(in)			::	D1
integer(kind=SHR_KIND_IN),	intent(in)			::	S1
integer(kind=SHR_KIND_IN),	intent(in)			::	D2
integer(kind=SHR_KIND_IN),	intent(in)			::	S2
integer(kind=SHR_KIND_IN),	intent(in)			::	Din
integer(kind=SHR_KIND_IN),	intent(in)			::	Sin
real(kind=SHR_KIND_R8),	intent(out)			::	f1
real(kind=SHR_KIND_R8),	intent(out)			::	f2
character(len=*),	intent(in)			::	calendar
character(len=*),	intent(in),	optional		::	algo
integer(kind=SHR_KIND_IN),	intent(out),	optional		::	rc

public subroutine shr_tInterp_getAvgCosz(tavCosz, lonr, latr, ymd1, tod1, ymd2, tod2, eccen, mvelpp, lambm0, obliqr, dt, calendar)

Arguments

Type	Intent	Optional	Attributes		Name
real(kind=SHR_KIND_R8),	intent(out)			::	tavCosz(:)
real(kind=SHR_KIND_R8),	intent(in)			::	lonr(:)
real(kind=SHR_KIND_R8),	intent(in)			::	latr(:)
integer(kind=SHR_KIND_IN),	intent(in)			::	ymd1
integer(kind=SHR_KIND_IN),	intent(in)			::	tod1
integer(kind=SHR_KIND_IN),	intent(in)			::	ymd2
integer(kind=SHR_KIND_IN),	intent(in)			::	tod2
real(kind=SHR_KIND_R8),	intent(in)			::	eccen
real(kind=SHR_KIND_R8),	intent(in)			::	mvelpp
real(kind=SHR_KIND_R8),	intent(in)			::	lambm0
real(kind=SHR_KIND_R8),	intent(in)			::	obliqr
integer(kind=SHR_KIND_IN),	intent(in)			::	dt
character(len=*),	intent(in)			::	calendar

public subroutine shr_tInterp_getCosz(cosz, lonr, latr, ymd, tod, eccen, mvelpp, lambm0, obliqr, calendar)

Arguments

Type	Intent	Optional	Attributes		Name
real(kind=SHR_KIND_R8),	intent(out)			::	cosz(:)
real(kind=SHR_KIND_R8),	intent(in)			::	lonr(:)
real(kind=SHR_KIND_R8),	intent(in)			::	latr(:)
integer(kind=SHR_KIND_IN),	intent(in)			::	ymd
integer(kind=SHR_KIND_IN),	intent(in)			::	tod
real(kind=SHR_KIND_R8),	intent(in)			::	eccen
real(kind=SHR_KIND_R8),	intent(in)			::	mvelpp
real(kind=SHR_KIND_R8),	intent(in)			::	lambm0
real(kind=SHR_KIND_R8),	intent(in)			::	obliqr
character(len=*),	intent(in)			::	calendar

public subroutine shr_tInterp_setAbort(flag)

Arguments

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

public subroutine shr_tInterp_getDebug(level)

Arguments

Type	Intent	Optional	Attributes		Name
integer,	intent(out)			::	level

public subroutine shr_tInterp_setDebug(iflag)

Arguments

Type	Intent	Optional	Attributes		Name
integer,	intent(in)			::	iflag