RRTM_RTRN1A_140GP Subroutine

subroutine RRTM_RTRN1A_140GP(KLEV, K_ISTART, K_IEND, K_ICLDLYR, P_CLDFRAC, P_TAUCLD, P_ABSS1, P_OD, P_TAUSF1, P_CLFNET, P_CLHTR, P_FNET, P_HTR, P_TOTDFLUC, P_TOTDFLUX, P_TOTUFLUC, P_TOTUFLUX, P_TOAG, P_TOACG, P_TAVEL, PZ, P_TZ, P_TBOUND, PFRAC, P_SEMISS, P_SEMISLW, K_IREFLECT)

Uses

  • proc~~rrtm_rtrn1a_140gp~2~~UsesGraph proc~rrtm_rtrn1a_140gp~2 RRTM_RTRN1A_140GP module~parrrtm~3 PARRRTM proc~rrtm_rtrn1a_140gp~2->module~parrrtm~3 module~yoerrtftr YOERRTFTR proc~rrtm_rtrn1a_140gp~2->module~yoerrtftr module~yomhook yomhook proc~rrtm_rtrn1a_140gp~2->module~yomhook module~yoerrtwn YOERRTWN proc~rrtm_rtrn1a_140gp~2->module~yoerrtwn module~parkind1~2 PARKIND1 proc~rrtm_rtrn1a_140gp~2->module~parkind1~2 module~yoerrtab~2 YOERRTAB proc~rrtm_rtrn1a_140gp~2->module~yoerrtab~2 module~parrrtm~3->module~parkind1~2 module~yoerrtftr->module~parkind1~2 module~yoerrtwn->module~parkind1~2 module~yoerrtab~2->module~parkind1~2

** Code to account for maximum/random overlap: Performs RT on the radiance most recently switched between clear and cloudy streams **

  • Specular reflection.

**

Code to account for maximum/random overlap: Performs RT on the radiance most recently switched between clear and cloudy streams ** Convert radiances to fluxes and heating rates for total and clear sky. ** NB: moved to calling routine TOTUFLUC(0) = TOTUFLUC(0) * FLUXFAC TOTDFLUC(0) = TOTDFLUC(0) * FLUXFAC TOTUFLUX(0) = TOTUFLUX(0) * FLUXFAC TOTDFLUX(0) = TOTDFLUX(0) * FLUXFAC

Arguments

Type IntentOptional Attributes Name
integer(kind=JPIM), intent(in) :: KLEV
integer(kind=JPIM), intent(in) :: K_ISTART
integer(kind=JPIM), intent(in) :: K_IEND
integer(kind=JPIM), intent(in) :: K_ICLDLYR(JPLAY)
real(kind=JPRB), intent(in) :: P_CLDFRAC(JPLAY)
real(kind=JPRB), intent(in) :: P_TAUCLD(JPLAY,JPBAND)
real(kind=JPRB), intent(in) :: P_ABSS1(JPGPT*JPLAY)
real(kind=JPRB), intent(in) :: P_OD(JPGPT,JPLAY)
real(kind=JPRB), intent(in) :: P_TAUSF1(JPGPT*JPLAY)
real(kind=JPRB) :: P_CLFNET(0:JPLAY)
real(kind=JPRB) :: P_CLHTR(0:JPLAY)
real(kind=JPRB) :: P_FNET(0:JPLAY)
real(kind=JPRB) :: P_HTR(0:JPLAY)
real(kind=JPRB), intent(out) :: P_TOTDFLUC(0:JPLAY)
real(kind=JPRB), intent(out) :: P_TOTDFLUX(0:JPLAY)
real(kind=JPRB), intent(out) :: P_TOTUFLUC(0:JPLAY)
real(kind=JPRB), intent(out) :: P_TOTUFLUX(0:JPLAY)
real(kind=JPRB), intent(out) :: P_TOAG(JPGPT)
real(kind=JPRB), intent(out) :: P_TOACG(JPGPT)
real(kind=JPRB), intent(in) :: P_TAVEL(JPLAY)
real(kind=JPRB) :: PZ(0:JPLAY)
real(kind=JPRB), intent(in) :: P_TZ(0:JPLAY)
real(kind=JPRB), intent(in) :: P_TBOUND
real(kind=JPRB), intent(in) :: PFRAC(JPGPT,JPLAY)
real(kind=JPRB), intent(in) :: P_SEMISS(JPBAND)
real(kind=JPRB), intent(out) :: P_SEMISLW
integer(kind=JPIM) :: K_IREFLECT

Calls

proc~~rrtm_rtrn1a_140gp~2~~CallsGraph proc~rrtm_rtrn1a_140gp~2 RRTM_RTRN1A_140GP proc~dr_hook dr_hook proc~rrtm_rtrn1a_140gp~2->proc~dr_hook

Contents