RRTM_ECRT_140GP Subroutine

subroutine RRTM_ECRT_140GP(K_IPLON, KLON, KLEV, KCLD, PAER, PAPH, PAP, PTS, PTH, PT, P_ZEMIS, P_ZEMIW, PQ, PCCO2, POZN, PCLDF, PTAUCLD, PTCLEAR, P_CLDFRAC, P_TAUCLD, PTAU_LW, P_COLDRY, P_WKL, P_WX, P_TAUAERL, PAVEL, P_TAVEL, PZ, P_TZ, P_TBOUND, K_NLAYERS, P_SEMISS, K_IREFLECT)

Uses

  • proc~~rrtm_ecrt_140gp~2~~UsesGraph proc~rrtm_ecrt_140gp~2 RRTM_ECRT_140GP module~parrrtm~3 PARRRTM proc~rrtm_ecrt_140gp~2->module~parrrtm~3 module~yomhook yomhook proc~rrtm_ecrt_140gp~2->module~yomhook module~parkind1~2 PARKIND1 proc~rrtm_ecrt_140gp~2->module~parkind1~2 module~yoesw YOESW proc~rrtm_ecrt_140gp~2->module~yoesw module~clesphys_mod_h~2 clesphys_mod_h proc~rrtm_ecrt_140gp~2->module~clesphys_mod_h~2 module~yoerad yoerad proc~rrtm_ecrt_140gp~2->module~yoerad module~parrrtm~3->module~parkind1~2 module~yoesw->module~parkind1~2

Arguments

Type IntentOptional Attributes Name
integer(kind=JPIM), intent(in) :: K_IPLON
integer(kind=JPIM), intent(in) :: KLON
integer(kind=JPIM), intent(in) :: KLEV
integer(kind=JPIM), intent(out) :: KCLD
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) :: PTS(KLON)
real(kind=JPRB), intent(in) :: PTH(KLON,KLEV+1)
real(kind=JPRB), intent(in) :: PT(KLON,KLEV)
real(kind=JPRB), intent(in) :: P_ZEMIS(KLON)
real(kind=JPRB), intent(in) :: P_ZEMIW(KLON)
real(kind=JPRB), intent(in) :: PQ(KLON,KLEV)
real(kind=JPRB), intent(in) :: PCCO2
real(kind=JPRB), intent(in) :: POZN(KLON,KLEV)
real(kind=JPRB), intent(in) :: PCLDF(KLON,KLEV)
real(kind=JPRB), intent(in) :: PTAUCLD(KLON,KLEV,JPBAND)
real(kind=JPRB), intent(out) :: PTCLEAR
real(kind=JPRB), intent(out) :: P_CLDFRAC(JPLAY)
real(kind=JPRB), intent(out) :: P_TAUCLD(JPLAY,JPBAND)
real(kind=JPRB), intent(in) :: PTAU_LW(KLON,KLEV,NLW)
real(kind=JPRB), intent(out) :: P_COLDRY(JPLAY)
real(kind=JPRB), intent(out) :: P_WKL(JPINPX,JPLAY)
real(kind=JPRB), intent(out) :: P_WX(JPXSEC,JPLAY)
real(kind=JPRB), intent(out) :: P_TAUAERL(JPLAY,JPBAND)
real(kind=JPRB), intent(out) :: PAVEL(JPLAY)
real(kind=JPRB), intent(out) :: P_TAVEL(JPLAY)
real(kind=JPRB), intent(out) :: PZ(0:JPLAY)
real(kind=JPRB), intent(out) :: P_TZ(0:JPLAY)
real(kind=JPRB), intent(out) :: P_TBOUND
integer(kind=JPIM), intent(out) :: K_NLAYERS
real(kind=JPRB), intent(out) :: P_SEMISS(JPBAND)
integer(kind=JPIM), intent(out) :: K_IREFLECT

Calls

proc~~rrtm_ecrt_140gp~2~~CallsGraph proc~rrtm_ecrt_140gp~2 RRTM_ECRT_140GP proc~dr_hook dr_hook proc~rrtm_ecrt_140gp~2->proc~dr_hook

Contents