RRTM_GASABS1A_140GP Subroutine

subroutine RRTM_GASABS1A_140GP(KLEV, P_ATR1, P_OD, P_TF1, P_COLDRY, P_WX, P_TAUAERL, P_FAC00, P_FAC01, P_FAC10, P_FAC11, P_FORFAC, K_JP, K_JT, K_JT1, P_ONEMINUS, P_COLH2O, P_COLCO2, P_COLO3, P_COLN2O, P_COLCH4, P_COLO2, P_CO2MULT, K_LAYTROP, K_LAYSWTCH, K_LAYLOW, P_SELFFAC, P_SELFFRAC, K_INDSELF, PFRAC)

IF (ODEPTH <= ZERO)THEN ATR1(IPR,LAY) = ONE - TRANS(0) TF1(IPR,LAY) = ZERO ELSE

ENDIF

Arguments

Type	Intent	Optional	Attributes		Name
integer(kind=JPIM),	intent(in)			::	KLEV
real(kind=JPRB),	intent(out)			::	P_ATR1(JPGPT,JPLAY)
real(kind=JPRB),	intent(out)			::	P_OD(JPGPT,JPLAY)
real(kind=JPRB),	intent(out)			::	P_TF1(JPGPT,JPLAY)
real(kind=JPRB),	intent(in)			::	P_COLDRY(JPLAY)
real(kind=JPRB),	intent(in)			::	P_WX(JPXSEC,JPLAY)
real(kind=JPRB),	intent(in)			::	P_TAUAERL(JPLAY,JPBAND)
real(kind=JPRB),	intent(in)			::	P_FAC00(JPLAY)
real(kind=JPRB),	intent(in)			::	P_FAC01(JPLAY)
real(kind=JPRB),	intent(in)			::	P_FAC10(JPLAY)
real(kind=JPRB),	intent(in)			::	P_FAC11(JPLAY)
real(kind=JPRB),	intent(in)			::	P_FORFAC(JPLAY)
integer(kind=JPIM),	intent(in)			::	K_JP(JPLAY)
integer(kind=JPIM),	intent(in)			::	K_JT(JPLAY)
integer(kind=JPIM),	intent(in)			::	K_JT1(JPLAY)
real(kind=JPRB),	intent(in)			::	P_ONEMINUS
real(kind=JPRB),	intent(in)			::	P_COLH2O(JPLAY)
real(kind=JPRB),	intent(in)			::	P_COLCO2(JPLAY)
real(kind=JPRB),	intent(in)			::	P_COLO3(JPLAY)
real(kind=JPRB),	intent(in)			::	P_COLN2O(JPLAY)
real(kind=JPRB),	intent(in)			::	P_COLCH4(JPLAY)
real(kind=JPRB)				::	P_COLO2(JPLAY)
real(kind=JPRB),	intent(in)			::	P_CO2MULT(JPLAY)
integer(kind=JPIM),	intent(in)			::	K_LAYTROP
integer(kind=JPIM),	intent(in)			::	K_LAYSWTCH
integer(kind=JPIM),	intent(in)			::	K_LAYLOW
real(kind=JPRB),	intent(in)			::	P_SELFFAC(JPLAY)
real(kind=JPRB),	intent(in)			::	P_SELFFRAC(JPLAY)
integer(kind=JPIM),	intent(in)			::	K_INDSELF(JPLAY)
real(kind=JPRB),	intent(out)			::	PFRAC(JPGPT,JPLAY)

Contents