RRTM_ECRT_140GP_MCICA Subroutine

subroutine RRTM_ECRT_140GP_MCICA(KIDIA, KFDIA, KLON, KLEV, KCOLS, PAER, PAPH, PAP, PAERTAUL, PAERASYL, PAEROMGL, PTS, PTH, PT, PEMIS, PEMIW, PQ, PCO2, PCH4, PN2O, PNO2, PC11, PC12, PC22, PCL4, POZN, PCLDF, PTAUCLDI, PCLDFRAC, PTAUCLD, PCOLDRY, PWBRODL, PWKL, PWX, PTAUAERL, PAVEL, PTAVEL, PZ, PTZ, PTBOUND, PSEMISS, KREFLECT)

Uses

  • proc~~rrtm_ecrt_140gp_mcica~~UsesGraph proc~rrtm_ecrt_140gp_mcica RRTM_ECRT_140GP_MCICA module~yomdyncore YOMDYNCORE proc~rrtm_ecrt_140gp_mcica->module~yomdyncore module~parrrtm~3 PARRRTM proc~rrtm_ecrt_140gp_mcica->module~parrrtm~3 module~yomhook yomhook proc~rrtm_ecrt_140gp_mcica->module~yomhook module~yoeaeratm YOEAERATM proc~rrtm_ecrt_140gp_mcica->module~yoeaeratm module~parkind1~2 PARKIND1 proc~rrtm_ecrt_140gp_mcica->module~parkind1~2 module~yoesw YOESW proc~rrtm_ecrt_140gp_mcica->module~yoesw module~yomcst~3 YOMCST proc~rrtm_ecrt_140gp_mcica->module~yomcst~3 module~yoerad yoerad proc~rrtm_ecrt_140gp_mcica->module~yoerad module~yom_ygfl YOM_YGFL proc~rrtm_ecrt_140gp_mcica->module~yom_ygfl module~yomdyncore->module~parkind1~2 module~parrrtm~3->module~parkind1~2 module~yoeaeratm->module~parkind1~2 module~yoesw->module~parkind1~2 module~yomcst~3->module~parkind1~2 module~yom_ygfl->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
integer(kind=JPIM), intent(in) :: KCOLS
real(kind=JPRB), intent(in) :: PAER(KLON,6,KLEV)
real(kind=JPRB), intent(in) :: PAPH(KLON,KLEV+1)
real(kind=JPRB), intent(in) :: PAP(KLON,KLEV)
real(kind=JPRB), intent(in) :: PAERTAUL(KLON,KLEV,16)
real(kind=JPRB), intent(in) :: PAERASYL(KLON,KLEV,16)
real(kind=JPRB), intent(in) :: PAEROMGL(KLON,KLEV,16)
real(kind=JPRB), intent(in) :: PTS(KLON)
real(kind=JPRB), intent(in) :: PTH(KLON,KLEV+1)
real(kind=JPRB), intent(in) :: PT(KLON,KLEV)
real(kind=JPRB), intent(in) :: PEMIS(KLON)
real(kind=JPRB), intent(in) :: PEMIW(KLON)
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(in) :: PCLDF(KLON,KCOLS,KLEV)
real(kind=JPRB), intent(in) :: PTAUCLDI(KLON,KLEV,KCOLS)
real(kind=JPRB), intent(out) :: PCLDFRAC(KIDIA:KFDIA,KCOLS,KLEV)
real(kind=JPRB), intent(out) :: PTAUCLD(KIDIA:KFDIA,KLEV,KCOLS)
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) :: PTAUAERL(KIDIA:KFDIA,KLEV,JPBAND)
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)
real(kind=JPRB), intent(out) :: PTBOUND(KIDIA:KFDIA)
real(kind=JPRB), intent(out) :: PSEMISS(KIDIA:KFDIA,JPBAND)
integer(kind=JPIM), intent(out) :: KREFLECT(KIDIA:KFDIA)

Calls

proc~~rrtm_ecrt_140gp_mcica~~CallsGraph proc~rrtm_ecrt_140gp_mcica RRTM_ECRT_140GP_MCICA proc~dr_hook dr_hook proc~rrtm_ecrt_140gp_mcica->proc~dr_hook nspmapl nspmapl proc~rrtm_ecrt_140gp_mcica->nspmapl

Contents