shr_orb_mod Module

Variables

Type	Visibility	Attributes		Name		Initial
real(kind=SHR_KIND_R8),	public,	parameter	::	SHR_ORB_UNDEF_REAL	=	1.e36_SHR_KIND_R8
integer(kind=SHR_KIND_IN),	public,	parameter	::	SHR_ORB_UNDEF_INT	=	2000000000

Functions

public pure function shr_orb_cosz(jday, lat, lon, declin, dt_avg, uniform_angle)

Arguments

Type	Intent	Optional	Attributes		Name
real(kind=SHR_KIND_R8),	intent(in)			::	jday
real(kind=SHR_KIND_R8),	intent(in)			::	lat
real(kind=SHR_KIND_R8),	intent(in)			::	lon
real(kind=SHR_KIND_R8),	intent(in)			::	declin
real(kind=SHR_KIND_R8),	intent(in),	optional		::	dt_avg
real(kind=SHR_KIND_R8),	intent(in),	optional		::	uniform_angle

Return Value real(kind=shr_kind_r8)

Subroutines

public subroutine shr_orb_params(iyear_AD, eccen, obliq, mvelp, obliqr, lambm0, mvelpp, log_print)

Arguments

Type	Intent	Optional	Attributes		Name
integer(kind=SHR_KIND_IN),	intent(in)			::	iyear_AD
real(kind=SHR_KIND_R8),	intent(inout)			::	eccen
real(kind=SHR_KIND_R8),	intent(inout)			::	obliq
real(kind=SHR_KIND_R8),	intent(inout)			::	mvelp
real(kind=SHR_KIND_R8),	intent(out)			::	obliqr
real(kind=SHR_KIND_R8),	intent(out)			::	lambm0
real(kind=SHR_KIND_R8),	intent(out)			::	mvelpp
logical,	intent(in)			::	log_print

public subroutine shr_orb_decl(calday, eccen, mvelpp, lambm0, obliqr, delta, eccf)

Arguments

Type	Intent	Optional	Attributes		Name
real(kind=SHR_KIND_R8),	intent(in)			::	calday
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
real(kind=SHR_KIND_R8),	intent(out)			::	delta
real(kind=SHR_KIND_R8),	intent(out)			::	eccf

public subroutine shr_orb_print(iyear_AD, eccen, obliq, mvelp)

Arguments

Type	Intent	Optional	Attributes		Name
integer(kind=SHR_KIND_IN),	intent(in)			::	iyear_AD
real(kind=SHR_KIND_R8),	intent(in)			::	eccen
real(kind=SHR_KIND_R8),	intent(in)			::	obliq
real(kind=SHR_KIND_R8),	intent(in)			::	mvelp