RRTM_PREPARE_GASES Subroutine

subroutine RRTM_PREPARE_GASES(KIDIA, KFDIA, KLON, KLEV, PAPH, PAP, PTH, PT, PQ, PCO2, PCH4, PN2O, PNO2, PC11, PC12, PC22, PCL4, POZN, PCOLDRY, PWBRODL, PWKL, PWX, PAVEL, PTAVEL, PZ, PTZ, KREFLECT)

Uses

  • proc~~rrtm_prepare_gases~~UsesGraph proc~rrtm_prepare_gases RRTM_PREPARE_GASES module~yomdyncore YOMDYNCORE proc~rrtm_prepare_gases->module~yomdyncore module~parrrtm~3 PARRRTM proc~rrtm_prepare_gases->module~parrrtm~3 module~yomhook yomhook proc~rrtm_prepare_gases->module~yomhook module~parkind1~2 PARKIND1 proc~rrtm_prepare_gases->module~parkind1~2 module~yomcst~3 YOMCST proc~rrtm_prepare_gases->module~yomcst~3 module~yomdyncore->module~parkind1~2 module~parrrtm~3->module~parkind1~2 module~yomcst~3->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) :: KLON
integer(kind=JPIM), intent(in) :: KLEV
real(kind=JPRB), intent(in) :: PAPH(KLON,KLEV+1)
real(kind=JPRB), intent(in) :: PAP(KLON,KLEV)
real(kind=JPRB), intent(in) :: PTH(KLON,KLEV+1)
real(kind=JPRB), intent(in) :: PT(KLON,KLEV)
real(kind=JPRB), intent(in) :: PQ(KLON,KLEV)
real(kind=JPRB), intent(in) :: PCO2(KLON,KLEV)
real(kind=JPRB), intent(in) :: PCH4(KLON,KLEV)
real(kind=JPRB), intent(in) :: PN2O(KLON,KLEV)
real(kind=JPRB), intent(in) :: PNO2(KLON,KLEV)
real(kind=JPRB), intent(in) :: PC11(KLON,KLEV)
real(kind=JPRB), intent(in) :: PC12(KLON,KLEV)
real(kind=JPRB), intent(in) :: PC22(KLON,KLEV)
real(kind=JPRB), intent(in) :: PCL4(KLON,KLEV)
real(kind=JPRB), intent(in) :: POZN(KLON,KLEV)
real(kind=JPRB), intent(out) :: PCOLDRY(KIDIA:KFDIA,KLEV)
real(kind=JPRB), intent(out) :: PWBRODL(KIDIA:KFDIA,KLEV)
real(kind=JPRB), intent(out) :: PWKL(KIDIA:KFDIA,JPINPX,KLEV)
real(kind=JPRB), intent(out) :: PWX(KIDIA:KFDIA,JPXSEC,KLEV)
real(kind=JPRB), intent(out) :: PAVEL(KIDIA:KFDIA,KLEV)
real(kind=JPRB), intent(out) :: PTAVEL(KIDIA:KFDIA,KLEV)
real(kind=JPRB), intent(out) :: PZ(KIDIA:KFDIA,0:KLEV)
real(kind=JPRB), intent(out) :: PTZ(KIDIA:KFDIA,0:KLEV)
integer(kind=JPIM), intent(out) :: KREFLECT(KIDIA:KFDIA)

Calls

proc~~rrtm_prepare_gases~~CallsGraph proc~rrtm_prepare_gases RRTM_PREPARE_GASES proc~dr_hook dr_hook proc~rrtm_prepare_gases->proc~dr_hook

Called by

proc~~rrtm_prepare_gases~~CalledByGraph proc~rrtm_prepare_gases RRTM_PREPARE_GASES proc~gas_optics~2 gas_optics proc~gas_optics~2->proc~rrtm_prepare_gases 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