rrtm_rtrn1a_140gp.F90 File Reference

Go to the source code of this file.

Functions/Subroutines
subroutine	rrtm_rtrn1a_140gp (KLEV, K_ISTART, K_IEND, K_ICLDLYR, P_CLDFRAC, P_TAUCLD, P_ABSS1, P_OD, P_TAUSF1, P_CLFNET, P_CLHTR, P_FNET, P_HTR, P_TOTDFLUC, P_TOTDFLUX, P_TOTUFLUC, P_TOTUFLUX, P_TAVEL, PZ, P_TZ, P_TBOUND, PFRAC, P_SEMISS, P_SEMISLW, K_IREFLECT)

Function/Subroutine Documentation

subroutine rrtm_rtrn1a_140gp	(	integer(kind=jpim), intent(in)	KLEV,
		integer(kind=jpim), intent(in)	K_ISTART,
		integer(kind=jpim), intent(in)	K_IEND,
		integer(kind=jpim), dimension(jplay), intent(in)	K_ICLDLYR,
		real(kind=jprb), dimension(jplay), intent(in)	P_CLDFRAC,
		real(kind=jprb), dimension(jplay,jpband), intent(in)	P_TAUCLD,
		real(kind=jprb), dimension(jpgpt*jplay), intent(in)	P_ABSS1,
		real(kind=jprb), dimension(jpgpt,jplay), intent(in)	P_OD,
		real(kind=jprb), dimension(jpgpt*jplay), intent(in)	P_TAUSF1,
		real(kind=jprb), dimension(0:jplay)	P_CLFNET,
		real(kind=jprb), dimension(0:jplay)	P_CLHTR,
		real(kind=jprb), dimension(0:jplay)	P_FNET,
		real(kind=jprb), dimension(0:jplay)	P_HTR,
		real(kind=jprb), dimension(0:jplay), intent(out)	P_TOTDFLUC,
		real(kind=jprb), dimension(0:jplay), intent(out)	P_TOTDFLUX,
		real(kind=jprb), dimension(0:jplay), intent(out)	P_TOTUFLUC,
		real(kind=jprb), dimension(0:jplay), intent(out)	P_TOTUFLUX,
		real(kind=jprb), dimension(jplay), intent(in)	P_TAVEL,
		real(kind=jprb), dimension(0:jplay)	PZ,
		real(kind=jprb), dimension(0:jplay), intent(in)	P_TZ,
		real(kind=jprb), intent(in)	P_TBOUND,
		real(kind=jprb), dimension(jpgpt,jplay), intent(in)	PFRAC,
		real(kind=jprb), dimension(jpband), intent(in)	P_SEMISS,
		real(kind=jprb), intent(out)	P_SEMISLW,
		integer(kind=jpim)	K_IREFLECT
	)

Definition at line 4 of file rrtm_rtrn1a_140gp.F90.

Here is the call graph for this function:

Here is the caller graph for this function: