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~2~~UsesGraph proc~rrtm_prepare_gases~2 RRTM_PREPARE_GASES module~yomdyncore YOMDYNCORE proc~rrtm_prepare_gases~2->module~yomdyncore module~parrrtm~3 PARRRTM proc~rrtm_prepare_gases~2->module~parrrtm~3 module~yomhook yomhook proc~rrtm_prepare_gases~2->module~yomhook module~parkind1~2 PARKIND1 proc~rrtm_prepare_gases~2->module~parkind1~2 module~yomcst~3 YOMCST proc~rrtm_prepare_gases~2->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~2~~CallsGraph proc~rrtm_prepare_gases~2 RRTM_PREPARE_GASES proc~dr_hook dr_hook proc~rrtm_prepare_gases~2->proc~dr_hook

Contents