RRTM_GASABS1A_140GP Subroutine

subroutine RRTM_GASABS1A_140GP(KIDIA, KFDIA, KLEV, PATR1, POD, PTF1, PAVEL, PCOLDRY, PCOLBRD, PWX, PTAUAERL, PFAC00, PFAC01, PFAC10, PFAC11, PFORFAC, PFORFRAC, KINDFOR, KJP, KJT, KJT1, PONEMINUS, PCOLH2O, PCOLCO2, PCOLO3, PCOLN2O, PCOLCH4, PCOLO2, P_CO2MULT, KLAYTROP, KLAYSWTCH, KLAYLOW, PSELFFAC, PSELFFRAC, KINDSELF, PFRAC, KINDMINOR, PSCALEMINOR, PSCALEMINORN2, PMINORFRAC, PRAT_H2OCO2, PRAT_H2OCO2_1, PRAT_H2OO3, PRAT_H2OO3_1, PRAT_H2ON2O, PRAT_H2ON2O_1, PRAT_H2OCH4, PRAT_H2OCH4_1, PRAT_N2OCO2, PRAT_N2OCO2_1, PRAT_O3CO2, PRAT_O3CO2_1)

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

ENDIF

Arguments

Type	Intent	Optional	Attributes		Name
integer(kind=JPIM),	intent(in)			::	KIDIA
integer(kind=JPIM),	intent(in)			::	KFDIA
integer(kind=JPIM),	intent(in)			::	KLEV
real(kind=JPRB),	intent(out)			::	PATR1(KIDIA:KFDIA,JPGPT,KLEV)
real(kind=JPRB),	intent(out)			::	POD(KIDIA:KFDIA,JPGPT,KLEV)
real(kind=JPRB),	intent(out)			::	PTF1(KIDIA:KFDIA,JPGPT,KLEV)
real(kind=JPRB),	intent(in)			::	PAVEL(KIDIA:KFDIA,KLEV)
real(kind=JPRB),	intent(in)			::	PCOLDRY(KIDIA:KFDIA,KLEV)
real(kind=JPRB),	intent(in)			::	PCOLBRD(KIDIA:KFDIA,KLEV)
real(kind=JPRB),	intent(in)			::	PWX(KIDIA:KFDIA,JPXSEC,KLEV)
real(kind=JPRB),	intent(in)			::	PTAUAERL(KIDIA:KFDIA,KLEV,JPBAND)
real(kind=JPRB),	intent(in)			::	PFAC00(KIDIA:KFDIA,KLEV)
real(kind=JPRB),	intent(in)			::	PFAC01(KIDIA:KFDIA,KLEV)
real(kind=JPRB),	intent(in)			::	PFAC10(KIDIA:KFDIA,KLEV)
real(kind=JPRB),	intent(in)			::	PFAC11(KIDIA:KFDIA,KLEV)
real(kind=JPRB),	intent(in)			::	PFORFAC(KIDIA:KFDIA,KLEV)
real(kind=JPRB),	intent(in)			::	PFORFRAC(KIDIA:KFDIA,KLEV)
integer(kind=JPIM),	intent(in)			::	KINDFOR(KIDIA:KFDIA,KLEV)
integer(kind=JPIM),	intent(in)			::	KJP(KIDIA:KFDIA,KLEV)
integer(kind=JPIM),	intent(in)			::	KJT(KIDIA:KFDIA,KLEV)
integer(kind=JPIM),	intent(in)			::	KJT1(KIDIA:KFDIA,KLEV)
real(kind=JPRB),	intent(in)			::	PONEMINUS
real(kind=JPRB),	intent(in)			::	PCOLH2O(KIDIA:KFDIA,KLEV)
real(kind=JPRB),	intent(in)			::	PCOLCO2(KIDIA:KFDIA,KLEV)
real(kind=JPRB),	intent(in)			::	PCOLO3(KIDIA:KFDIA,KLEV)
real(kind=JPRB),	intent(in)			::	PCOLN2O(KIDIA:KFDIA,KLEV)
real(kind=JPRB),	intent(in)			::	PCOLCH4(KIDIA:KFDIA,KLEV)
real(kind=JPRB),	intent(in)			::	PCOLO2(KIDIA:KFDIA,KLEV)
real(kind=JPRB),	intent(in)			::	P_CO2MULT(KIDIA:KFDIA,KLEV)
integer(kind=JPIM),	intent(in)			::	KLAYTROP(KIDIA:KFDIA)
integer(kind=JPIM),	intent(in)			::	KLAYSWTCH(KIDIA:KFDIA)
integer(kind=JPIM),	intent(in)			::	KLAYLOW(KIDIA:KFDIA)
real(kind=JPRB),	intent(in)			::	PSELFFAC(KIDIA:KFDIA,KLEV)
real(kind=JPRB),	intent(in)			::	PSELFFRAC(KIDIA:KFDIA,KLEV)
integer(kind=JPIM),	intent(in)			::	KINDSELF(KIDIA:KFDIA,KLEV)
real(kind=JPRB),	intent(out)			::	PFRAC(KIDIA:KFDIA,JPGPT,KLEV)
integer(kind=JPIM),	intent(in)			::	KINDMINOR(KIDIA:KFDIA,KLEV)
real(kind=JPRB),	intent(in)			::	PSCALEMINOR(KIDIA:KFDIA,KLEV)
real(kind=JPRB),	intent(in)			::	PSCALEMINORN2(KIDIA:KFDIA,KLEV)
real(kind=JPRB),	intent(in)			::	PMINORFRAC(KIDIA:KFDIA,KLEV)
real(kind=JPRB),	intent(in)			::	PRAT_H2OCO2(KIDIA:KFDIA,KLEV)
real(kind=JPRB),	intent(in)			::	PRAT_H2OCO2_1(KIDIA:KFDIA,KLEV)
real(kind=JPRB),	intent(in)			::	PRAT_H2OO3(KIDIA:KFDIA,KLEV)
real(kind=JPRB),	intent(in)			::	PRAT_H2OO3_1(KIDIA:KFDIA,KLEV)
real(kind=JPRB),	intent(in)			::	PRAT_H2ON2O(KIDIA:KFDIA,KLEV)
real(kind=JPRB),	intent(in)			::	PRAT_H2ON2O_1(KIDIA:KFDIA,KLEV)
real(kind=JPRB),	intent(in)			::	PRAT_H2OCH4(KIDIA:KFDIA,KLEV)
real(kind=JPRB),	intent(in)			::	PRAT_H2OCH4_1(KIDIA:KFDIA,KLEV)
real(kind=JPRB),	intent(in)			::	PRAT_N2OCO2(KIDIA:KFDIA,KLEV)
real(kind=JPRB),	intent(in)			::	PRAT_N2OCO2_1(KIDIA:KFDIA,KLEV)
real(kind=JPRB),	intent(in)			::	PRAT_O3CO2(KIDIA:KFDIA,KLEV)
real(kind=JPRB),	intent(in)			::	PRAT_O3CO2_1(KIDIA:KFDIA,KLEV)

Contents