SRTM_TAUMOL28 Subroutine

subroutine SRTM_TAUMOL28(KIDIA, KFDIA, KLEV, P_FAC00, P_FAC01, P_FAC10, P_FAC11, K_JP, K_JT, K_JT1, P_ONEMINUS, P_COLMOL, P_COLO2, P_COLO3, K_LAYTROP, P_SFLUXZEN, P_TAUG, P_TAUR, PRMU0)

Uses

  • proc~~srtm_taumol28~2~~UsesGraph proc~srtm_taumol28~2 SRTM_TAUMOL28 module~yomhook yomhook proc~srtm_taumol28~2->module~yomhook module~yoesrta28 YOESRTA28 proc~srtm_taumol28~2->module~yoesrta28 module~yoesrtwn~3 YOESRTWN proc~srtm_taumol28~2->module~yoesrtwn~3 module~parkind1~2 PARKIND1 proc~srtm_taumol28~2->module~parkind1~2 module~yoesrtm~2 YOESRTM proc~srtm_taumol28~2->module~yoesrtm~2 module~parsrtm~4 PARSRTM proc~srtm_taumol28~2->module~parsrtm~4 module~yoesrta28->module~parkind1~2 module~yoesrtwn~3->module~parkind1~2 module~yoesrtm~2->module~parkind1~2 module~yoesrtm~2->module~parsrtm~4 module~parsrtm~4->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) :: KLEV
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)
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_ONEMINUS(KIDIA:KFDIA)
real(kind=JPRB), intent(in) :: P_COLMOL(KIDIA:KFDIA,KLEV)
real(kind=JPRB), intent(in) :: P_COLO2(KIDIA:KFDIA,KLEV)
real(kind=JPRB), intent(in) :: P_COLO3(KIDIA:KFDIA,KLEV)
integer(kind=JPIM), intent(in) :: K_LAYTROP(KIDIA:KFDIA)
real(kind=JPRB), intent(out) :: P_SFLUXZEN(KIDIA:KFDIA,JPG)
real(kind=JPRB), intent(out) :: P_TAUG(KIDIA:KFDIA,KLEV,JPG)
real(kind=JPRB), intent(out) :: P_TAUR(KIDIA:KFDIA,KLEV,JPG)
real(kind=JPRB), intent(in) :: PRMU0(KIDIA:KFDIA)

Calls

proc~~srtm_taumol28~2~~CallsGraph proc~srtm_taumol28~2 SRTM_TAUMOL28 proc~dr_hook dr_hook proc~srtm_taumol28~2->proc~dr_hook

Contents