SRTM_TAUMOL20 Subroutine

subroutine SRTM_TAUMOL20(KLEV, P_FAC00, P_FAC01, P_FAC10, P_FAC11, K_JP, K_JT, K_JT1, P_ONEMINUS, P_COLH2O, P_COLCH4, P_COLMOL, K_LAYTROP, P_SELFFAC, P_SELFFRAC, K_INDSELF, P_FORFAC, P_FORFRAC, K_INDFOR, P_SFLUXZEN, P_TAUG, P_TAUR)

Uses

  • proc~~srtm_taumol20~4~~UsesGraph proc~srtm_taumol20~4 SRTM_TAUMOL20 module~yoesrta20 YOESRTA20 proc~srtm_taumol20~4->module~yoesrta20 module~yomhook yomhook proc~srtm_taumol20~4->module~yomhook module~yoesrtwn~3 YOESRTWN proc~srtm_taumol20~4->module~yoesrtwn~3 module~parkind1~2 PARKIND1 proc~srtm_taumol20~4->module~parkind1~2 module~parsrtm~4 PARSRTM proc~srtm_taumol20~4->module~parsrtm~4 module~yoesrta20->module~parkind1~2 module~yoesrtwn~3->module~parkind1~2 module~parsrtm~4->module~parkind1~2

Arguments

Type IntentOptional Attributes Name
integer(kind=JPIM), intent(in) :: KLEV
real(kind=JPRB), intent(in) :: P_FAC00(JPLAY)
real(kind=JPRB), intent(in) :: P_FAC01(JPLAY)
real(kind=JPRB), intent(in) :: P_FAC10(JPLAY)
real(kind=JPRB), intent(in) :: P_FAC11(JPLAY)
integer(kind=JPIM), intent(in) :: K_JP(JPLAY)
integer(kind=JPIM), intent(in) :: K_JT(JPLAY)
integer(kind=JPIM), intent(in) :: K_JT1(JPLAY)
real(kind=JPRB) :: P_ONEMINUS
real(kind=JPRB), intent(in) :: P_COLH2O(JPLAY)
real(kind=JPRB), intent(in) :: P_COLCH4(JPLAY)
real(kind=JPRB), intent(in) :: P_COLMOL(JPLAY)
integer(kind=JPIM), intent(in) :: K_LAYTROP
real(kind=JPRB), intent(in) :: P_SELFFAC(JPLAY)
real(kind=JPRB), intent(in) :: P_SELFFRAC(JPLAY)
integer(kind=JPIM), intent(in) :: K_INDSELF(JPLAY)
real(kind=JPRB), intent(in) :: P_FORFAC(JPLAY)
real(kind=JPRB), intent(in) :: P_FORFRAC(JPLAY)
integer(kind=JPIM), intent(in) :: K_INDFOR(JPLAY)
real(kind=JPRB), intent(out) :: P_SFLUXZEN(JPG)
real(kind=JPRB), intent(out) :: P_TAUG(JPLAY,JPG)
real(kind=JPRB), intent(out) :: P_TAUR(JPLAY,JPG)

Calls

proc~~srtm_taumol20~4~~CallsGraph proc~srtm_taumol20~4 SRTM_TAUMOL20 proc~dr_hook dr_hook proc~srtm_taumol20~4->proc~dr_hook

Contents