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)

Uses

  • proc~~rrtm_setcoef_140gp~~UsesGraph proc~rrtm_setcoef_140gp RRTM_SETCOEF_140GP module~parkind1~2 PARKIND1 proc~rrtm_setcoef_140gp->module~parkind1~2 module~parrrtm~3 PARRRTM proc~rrtm_setcoef_140gp->module~parrrtm~3 module~yomhook yomhook proc~rrtm_setcoef_140gp->module~yomhook module~yoerrtrf YOERRTRF proc~rrtm_setcoef_140gp->module~yoerrtrf module~parrrtm~3->module~parkind1~2 module~yoerrtrf->module~parkind1~2

Arguments

Type IntentOptional 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)

Calls

proc~~rrtm_setcoef_140gp~~CallsGraph proc~rrtm_setcoef_140gp RRTM_SETCOEF_140GP proc~dr_hook dr_hook proc~rrtm_setcoef_140gp->proc~dr_hook

Called by

proc~~rrtm_setcoef_140gp~~CalledByGraph proc~rrtm_setcoef_140gp RRTM_SETCOEF_140GP proc~gas_optics~2 gas_optics proc~gas_optics~2->proc~rrtm_setcoef_140gp proc~radiation radiation proc~radiation->proc~gas_optics~2 proc~radiation~2 radiation proc~radiation~2->proc~gas_optics~2 proc~radiation_scheme~3 RADIATION_SCHEME proc~radiation_scheme~3->proc~radiation proc~radiation_scheme RADIATION_SCHEME proc~radiation_scheme->proc~radiation proc~radiation_scheme_s2 RADIATION_SCHEME_S2 proc~radiation_scheme_s2->proc~radiation program~ecrad_driver ecrad_driver program~ecrad_driver->proc~radiation proc~radiation_scheme~2 RADIATION_SCHEME proc~radiation_scheme~2->proc~radiation program~ecrad_ifs_driver ecrad_ifs_driver program~ecrad_ifs_driver->proc~radiation_scheme~3 program~ecrad_ifs_driver~2 ecrad_ifs_driver program~ecrad_ifs_driver~2->proc~radiation_scheme~3

Contents