RRTM_SETCOEF_140GP Subroutine

subroutine RRTM_SETCOEF_140GP(KIDIA, KFDIA, KLEV, P_COLDRY, P_WBROAD, P_WKL, P_FAC00, P_FAC01, P_FAC10, P_FAC11, P_FORFAC, P_FORFRAC, K_INDFOR, K_JP, K_JT, K_JT1, P_COLH2O, P_COLCO2, P_COLO3, P_COLN2O, P_COLCH4, P_COLO2, P_CO2MULT, P_COLBRD, K_LAYTROP, K_LAYSWTCH, K_LAYLOW, PAVEL, P_TAVEL, P_SELFFAC, P_SELFFRAC, K_INDSELF, K_INDMINOR, P_SCALEMINOR, P_SCALEMINORN2, P_MINORFRAC, 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)

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(in)			::	P_COLDRY(KIDIA:KFDIA,KLEV)
real(kind=JPRB),	intent(in)			::	P_WBROAD(KIDIA:KFDIA,KLEV)
real(kind=JPRB),	intent(in)			::	P_WKL(KIDIA:KFDIA,JPINPX,KLEV)
real(kind=JPRB),	intent(out)			::	P_FAC00(KIDIA:KFDIA,KLEV)
real(kind=JPRB),	intent(out)			::	P_FAC01(KIDIA:KFDIA,KLEV)
real(kind=JPRB),	intent(out)			::	P_FAC10(KIDIA:KFDIA,KLEV)
real(kind=JPRB),	intent(out)			::	P_FAC11(KIDIA:KFDIA,KLEV)
real(kind=JPRB),	intent(out)			::	P_FORFAC(KIDIA:KFDIA,KLEV)
real(kind=JPRB),	intent(out)			::	P_FORFRAC(KIDIA:KFDIA,KLEV)
integer(kind=JPIM),	intent(out)			::	K_INDFOR(KIDIA:KFDIA,KLEV)
integer(kind=JPIM),	intent(out)			::	K_JP(KIDIA:KFDIA,KLEV)
integer(kind=JPIM),	intent(out)			::	K_JT(KIDIA:KFDIA,KLEV)
integer(kind=JPIM),	intent(out)			::	K_JT1(KIDIA:KFDIA,KLEV)
real(kind=JPRB),	intent(out)			::	P_COLH2O(KIDIA:KFDIA,KLEV)
real(kind=JPRB),	intent(out)			::	P_COLCO2(KIDIA:KFDIA,KLEV)
real(kind=JPRB),	intent(out)			::	P_COLO3(KIDIA:KFDIA,KLEV)
real(kind=JPRB),	intent(out)			::	P_COLN2O(KIDIA:KFDIA,KLEV)
real(kind=JPRB),	intent(out)			::	P_COLCH4(KIDIA:KFDIA,KLEV)
real(kind=JPRB),	intent(out)			::	P_COLO2(KIDIA:KFDIA,KLEV)
real(kind=JPRB),	intent(out)			::	P_CO2MULT(KIDIA:KFDIA,KLEV)
real(kind=JPRB),	intent(out)			::	P_COLBRD(KIDIA:KFDIA,KLEV)
integer(kind=JPIM),	intent(out)			::	K_LAYTROP(KIDIA:KFDIA)
integer(kind=JPIM),	intent(out)			::	K_LAYSWTCH(KIDIA:KFDIA)
integer(kind=JPIM),	intent(out)			::	K_LAYLOW(KIDIA:KFDIA)
real(kind=JPRB),	intent(in)			::	PAVEL(KIDIA:KFDIA,KLEV)
real(kind=JPRB),	intent(in)			::	P_TAVEL(KIDIA:KFDIA,KLEV)
real(kind=JPRB),	intent(out)			::	P_SELFFAC(KIDIA:KFDIA,KLEV)
real(kind=JPRB),	intent(out)			::	P_SELFFRAC(KIDIA:KFDIA,KLEV)
integer(kind=JPIM),	intent(out)			::	K_INDSELF(KIDIA:KFDIA,KLEV)
integer(kind=JPIM),	intent(out)			::	K_INDMINOR(KIDIA:KFDIA,KLEV)
real(kind=JPRB),	intent(out)			::	P_SCALEMINOR(KIDIA:KFDIA,KLEV)
real(kind=JPRB),	intent(out)			::	P_SCALEMINORN2(KIDIA:KFDIA,KLEV)
real(kind=JPRB),	intent(out)			::	P_MINORFRAC(KIDIA:KFDIA,KLEV)
real(kind=JPRB),	intent(out)			::	PRAT_H2OCO2(KIDIA:KFDIA,KLEV)
real(kind=JPRB),	intent(out)			::	PRAT_H2OCO2_1(KIDIA:KFDIA,KLEV)
real(kind=JPRB),	intent(out)			::	PRAT_H2OO3(KIDIA:KFDIA,KLEV)
real(kind=JPRB),	intent(out)			::	PRAT_H2OO3_1(KIDIA:KFDIA,KLEV)
real(kind=JPRB),	intent(out)			::	PRAT_H2ON2O(KIDIA:KFDIA,KLEV)
real(kind=JPRB),	intent(out)			::	PRAT_H2ON2O_1(KIDIA:KFDIA,KLEV)
real(kind=JPRB),	intent(out)			::	PRAT_H2OCH4(KIDIA:KFDIA,KLEV)
real(kind=JPRB),	intent(out)			::	PRAT_H2OCH4_1(KIDIA:KFDIA,KLEV)
real(kind=JPRB),	intent(out)			::	PRAT_N2OCO2(KIDIA:KFDIA,KLEV)
real(kind=JPRB),	intent(out)			::	PRAT_N2OCO2_1(KIDIA:KFDIA,KLEV)
real(kind=JPRB),	intent(out)			::	PRAT_O3CO2(KIDIA:KFDIA,KLEV)
real(kind=JPRB),	intent(out)			::	PRAT_O3CO2_1(KIDIA:KFDIA,KLEV)

Contents