srtm_taumol20.F90 File Reference

Go to the source code of this file.

Functions/Subroutines
subroutine	srtm_taumol20 (KLEV, P_FAC00, P_FAC01, P_FAC10, P_FAC11, K_JP, K_JT, K_JT1, P_ONEMINUS, P_COLH2O, P_COLCH4, P_COLMOL, K_LAYTROP, P_SELFFAC, P_SELFFRAC, K_INDSELF, P_FORFAC, P_FORFRAC, K_INDFOR, P_SFLUXZEN, P_TAUG, P_TAUR)

Function/Subroutine Documentation

subroutine srtm_taumol20	(	integer(kind=jpim), intent(in)	KLEV,
		real(kind=jprb), dimension(jplay), intent(in)	P_FAC00,
		real(kind=jprb), dimension(jplay), intent(in)	P_FAC01,
		real(kind=jprb), dimension(jplay), intent(in)	P_FAC10,
		real(kind=jprb), dimension(jplay), intent(in)	P_FAC11,
		integer(kind=jpim), dimension(jplay), intent(in)	K_JP,
		integer(kind=jpim), dimension(jplay), intent(in)	K_JT,
		integer(kind=jpim), dimension(jplay), intent(in)	K_JT1,
		real(kind=jprb)	P_ONEMINUS,
		real(kind=jprb), dimension(jplay), intent(in)	P_COLH2O,
		real(kind=jprb), dimension(jplay), intent(in)	P_COLCH4,
		real(kind=jprb), dimension(jplay), intent(in)	P_COLMOL,
		integer(kind=jpim), intent(in)	K_LAYTROP,
		real(kind=jprb), dimension(jplay), intent(in)	P_SELFFAC,
		real(kind=jprb), dimension(jplay), intent(in)	P_SELFFRAC,
		integer(kind=jpim), dimension(jplay), intent(in)	K_INDSELF,
		real(kind=jprb), dimension(jplay), intent(in)	P_FORFAC,
		real(kind=jprb), dimension(jplay), intent(in)	P_FORFRAC,
		integer(kind=jpim), dimension(jplay), intent(in)	K_INDFOR,
		real(kind=jprb), dimension(jpg), intent(out)	P_SFLUXZEN,
		real(kind=jprb), dimension(jplay,jpg), intent(out)	P_TAUG,
		real(kind=jprb), dimension(jplay,jpg), intent(out)	P_TAUR
	)

Definition at line 9 of file srtm_taumol20.F90.

Here is the call graph for this function:

Here is the caller graph for this function: