RRTM_GAS_OPTICAL_DEPTH Subroutine

subroutine RRTM_GAS_OPTICAL_DEPTH(KIDIA, KFDIA, KLEV, POD, 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)

Uses

  • proc~~rrtm_gas_optical_depth~~UsesGraph proc~rrtm_gas_optical_depth RRTM_GAS_OPTICAL_DEPTH module~parkind1~2 PARKIND1 proc~rrtm_gas_optical_depth->module~parkind1~2 module~parrrtm~3 PARRRTM proc~rrtm_gas_optical_depth->module~parrrtm~3 module~yomhook yomhook proc~rrtm_gas_optical_depth->module~yomhook module~yoerrtm YOERRTM proc~rrtm_gas_optical_depth->module~yoerrtm module~parrrtm~3->module~parkind1~2 module~yoerrtm->module~parkind1~2 module~yoerrtm->module~parrrtm~3

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(out) :: POD(JPGPT,KLEV,KIDIA:KFDIA)
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)

Calls

proc~~rrtm_gas_optical_depth~~CallsGraph proc~rrtm_gas_optical_depth RRTM_GAS_OPTICAL_DEPTH proc~rrtm_taumol3 RRTM_TAUMOL3 proc~rrtm_gas_optical_depth->proc~rrtm_taumol3 proc~rrtm_taumol8 RRTM_TAUMOL8 proc~rrtm_gas_optical_depth->proc~rrtm_taumol8 proc~rrtm_taumol5 RRTM_TAUMOL5 proc~rrtm_gas_optical_depth->proc~rrtm_taumol5 proc~rrtm_taumol11 RRTM_TAUMOL11 proc~rrtm_gas_optical_depth->proc~rrtm_taumol11 proc~rrtm_taumol13 RRTM_TAUMOL13 proc~rrtm_gas_optical_depth->proc~rrtm_taumol13 proc~rrtm_taumol14 RRTM_TAUMOL14 proc~rrtm_gas_optical_depth->proc~rrtm_taumol14 proc~rrtm_taumol7 RRTM_TAUMOL7 proc~rrtm_gas_optical_depth->proc~rrtm_taumol7 proc~rrtm_taumol9 RRTM_TAUMOL9 proc~rrtm_gas_optical_depth->proc~rrtm_taumol9 proc~rrtm_taumol10 RRTM_TAUMOL10 proc~rrtm_gas_optical_depth->proc~rrtm_taumol10 proc~rrtm_taumol12 RRTM_TAUMOL12 proc~rrtm_gas_optical_depth->proc~rrtm_taumol12 proc~rrtm_taumol16 RRTM_TAUMOL16 proc~rrtm_gas_optical_depth->proc~rrtm_taumol16 proc~rrtm_taumol2 RRTM_TAUMOL2 proc~rrtm_gas_optical_depth->proc~rrtm_taumol2 proc~rrtm_taumol4 RRTM_TAUMOL4 proc~rrtm_gas_optical_depth->proc~rrtm_taumol4 proc~rrtm_taumol6 RRTM_TAUMOL6 proc~rrtm_gas_optical_depth->proc~rrtm_taumol6 proc~rrtm_taumol15 RRTM_TAUMOL15 proc~rrtm_gas_optical_depth->proc~rrtm_taumol15 proc~dr_hook dr_hook proc~rrtm_gas_optical_depth->proc~dr_hook proc~rrtm_taumol1 RRTM_TAUMOL1 proc~rrtm_gas_optical_depth->proc~rrtm_taumol1 proc~rrtm_taumol3->proc~dr_hook proc~rrtm_taumol8->proc~dr_hook proc~rrtm_taumol5->proc~dr_hook proc~rrtm_taumol11->proc~dr_hook proc~rrtm_taumol13->proc~dr_hook proc~rrtm_taumol14->proc~dr_hook proc~rrtm_taumol7->proc~dr_hook proc~rrtm_taumol9->proc~dr_hook proc~rrtm_taumol10->proc~dr_hook proc~rrtm_taumol12->proc~dr_hook proc~rrtm_taumol16->proc~dr_hook proc~rrtm_taumol2->proc~dr_hook proc~rrtm_taumol4->proc~dr_hook proc~rrtm_taumol6->proc~dr_hook proc~rrtm_taumol15->proc~dr_hook proc~rrtm_taumol1->proc~dr_hook

Called by

proc~~rrtm_gas_optical_depth~~CalledByGraph proc~rrtm_gas_optical_depth RRTM_GAS_OPTICAL_DEPTH proc~gas_optics~2 gas_optics proc~gas_optics~2->proc~rrtm_gas_optical_depth 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