srtm_taumol28.F90 File Reference

Go to the source code of this file.

Functions/Subroutines
subroutine	srtm_taumol28 (KLEV, P_FAC00, P_FAC01, P_FAC10, P_FAC11, K_JP, K_JT, K_JT1, P_ONEMINUS, P_COLMOL, P_COLO2, P_COLO3, K_LAYTROP, P_SFLUXZEN, P_TAUG, P_TAUR)

Function/Subroutine Documentation

subroutine srtm_taumol28	(	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), intent(in)	P_ONEMINUS,
		real(kind=jprb), dimension(jplay), intent(in)	P_COLMOL,
		real(kind=jprb), dimension(jplay), intent(in)	P_COLO2,
		real(kind=jprb), dimension(jplay), intent(in)	P_COLO3,
		integer(kind=jpim), intent(in)	K_LAYTROP,
		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_taumol28.F90.

Here is the call graph for this function:

Here is the caller graph for this function: