RRTM_TAUMOL2 Subroutine

subroutine RRTM_TAUMOL2(KIDIA, KFDIA, KLEV, P_TAU, PAVEL, P_COLDRY, P_TAUAERL, P_FAC00, P_FAC01, P_FAC10, P_FAC11, P_FORFAC, P_FORFRAC, K_INDFOR, K_JP, K_JT, K_JT1, P_COLH2O, K_LAYTROP, P_SELFFAC, P_SELFFRAC, K_INDSELF, PFRAC)

Uses

  • proc~~rrtm_taumol2~2~~UsesGraph proc~rrtm_taumol2~2 RRTM_TAUMOL2 module~parrrtm~3 PARRRTM proc~rrtm_taumol2~2->module~parrrtm~3 module~yomhook yomhook proc~rrtm_taumol2~2->module~yomhook module~yoerrtm YOERRTM proc~rrtm_taumol2~2->module~yoerrtm module~yoerrta2 YOERRTA2 proc~rrtm_taumol2~2->module~yoerrta2 module~yoerrtwn YOERRTWN proc~rrtm_taumol2~2->module~yoerrtwn module~parkind1~2 PARKIND1 proc~rrtm_taumol2~2->module~parkind1~2 module~parrrtm~3->module~parkind1~2 module~yoerrtm->module~parrrtm~3 module~yoerrtm->module~parkind1~2 module~yoerrta2->module~parkind1~2 module~yoerrtwn->module~parkind1~2 
 band 2:  350-500 cm-1 (low key - h2o; high key - h2o)

 note: previous version of rrtm band 2: 
       250 - 500 cm-1 (low - h2o; high - h2o)

Arguments

Type IntentOptional Attributes Name
integer(kind=JPIM), intent(in) :: KIDIA
integer(kind=JPIM), intent(in) :: KFDIA
integer(kind=JPIM), intent(in) :: KLEV
real(kind=JPRB), intent(out) :: P_TAU(KIDIA:KFDIA,JPGPT,KLEV)
real(kind=JPRB), intent(in) :: PAVEL(KIDIA:KFDIA,KLEV)
real(kind=JPRB), intent(in) :: P_COLDRY(KIDIA:KFDIA,KLEV)
real(kind=JPRB), intent(in) :: P_TAUAERL(KIDIA:KFDIA,KLEV,JPBAND)
real(kind=JPRB), intent(in) :: P_FAC00(KIDIA:KFDIA,KLEV)
real(kind=JPRB), intent(in) :: P_FAC01(KIDIA:KFDIA,KLEV)
real(kind=JPRB), intent(in) :: P_FAC10(KIDIA:KFDIA,KLEV)
real(kind=JPRB), intent(in) :: P_FAC11(KIDIA:KFDIA,KLEV)
real(kind=JPRB), intent(in) :: P_FORFAC(KIDIA:KFDIA,KLEV)
real(kind=JPRB), intent(in) :: P_FORFRAC(KIDIA:KFDIA,KLEV)
integer(kind=JPIM), intent(in) :: K_INDFOR(KIDIA:KFDIA,KLEV)
integer(kind=JPIM), intent(in) :: K_JP(KIDIA:KFDIA,KLEV)
integer(kind=JPIM), intent(in) :: K_JT(KIDIA:KFDIA,KLEV)
integer(kind=JPIM), intent(in) :: K_JT1(KIDIA:KFDIA,KLEV)
real(kind=JPRB), intent(in) :: P_COLH2O(KIDIA:KFDIA,KLEV)
integer(kind=JPIM), intent(in) :: K_LAYTROP(KIDIA:KFDIA)
real(kind=JPRB), intent(in) :: P_SELFFAC(KIDIA:KFDIA,KLEV)
real(kind=JPRB), intent(in) :: P_SELFFRAC(KIDIA:KFDIA,KLEV)
integer(kind=JPIM), intent(in) :: K_INDSELF(KIDIA:KFDIA,KLEV)
real(kind=JPRB), intent(out) :: PFRAC(KIDIA:KFDIA,JPGPT,KLEV)

Calls

proc~~rrtm_taumol2~2~~CallsGraph proc~rrtm_taumol2~2 RRTM_TAUMOL2 proc~dr_hook dr_hook proc~rrtm_taumol2~2->proc~dr_hook

Contents