SRTM_SETCOEF Subroutine

subroutine SRTM_SETCOEF(KIDIA, KFDIA, KLEV, PAVEL, PTAVEL, PCOLDRY, PWKL, KLAYTROP, PCOLCH4, PCOLCO2, PCOLH2O, PCOLMOL, PCOLO2, PCOLO3, PFORFAC, PFORFRAC, KINDFOR, PSELFFAC, PSELFFRAC, KINDSELF, PFAC00, PFAC01, PFAC10, PFAC11, KJP, KJT, KJT1, PRMU0)

Uses

  • proc~~srtm_setcoef~~UsesGraph proc~srtm_setcoef SRTM_SETCOEF module~yoesrtwn~3 YOESRTWN proc~srtm_setcoef->module~yoesrtwn~3 module~yomhook yomhook proc~srtm_setcoef->module~yomhook module~parkind1~2 PARKIND1 proc~srtm_setcoef->module~parkind1~2 module~yoesrtwn~3->module~parkind1~2

USE YOESWN , ONLY : NDBUG

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) :: PAVEL(KIDIA:KFDIA,KLEV)
real(kind=JPRB), intent(in) :: PTAVEL(KIDIA:KFDIA,KLEV)
real(kind=JPRB), intent(in) :: PCOLDRY(KIDIA:KFDIA,KLEV)
real(kind=JPRB), intent(in) :: PWKL(KIDIA:KFDIA,35,KLEV)
integer(kind=JPIM), intent(out) :: KLAYTROP(KIDIA:KFDIA)
real(kind=JPRB), intent(out) :: PCOLCH4(KIDIA:KFDIA,KLEV)
real(kind=JPRB), intent(out) :: PCOLCO2(KIDIA:KFDIA,KLEV)
real(kind=JPRB), intent(out) :: PCOLH2O(KIDIA:KFDIA,KLEV)
real(kind=JPRB), intent(out) :: PCOLMOL(KIDIA:KFDIA,KLEV)
real(kind=JPRB), intent(out) :: PCOLO2(KIDIA:KFDIA,KLEV)
real(kind=JPRB), intent(out) :: PCOLO3(KIDIA:KFDIA,KLEV)
real(kind=JPRB), intent(out) :: PFORFAC(KIDIA:KFDIA,KLEV)
real(kind=JPRB), intent(out) :: PFORFRAC(KIDIA:KFDIA,KLEV)
integer(kind=JPIM), intent(out) :: KINDFOR(KIDIA:KFDIA,KLEV)
real(kind=JPRB), intent(out) :: PSELFFAC(KIDIA:KFDIA,KLEV)
real(kind=JPRB), intent(out) :: PSELFFRAC(KIDIA:KFDIA,KLEV)
integer(kind=JPIM), intent(out) :: KINDSELF(KIDIA:KFDIA,KLEV)
real(kind=JPRB), intent(out) :: PFAC00(KIDIA:KFDIA,KLEV)
real(kind=JPRB), intent(out) :: PFAC01(KIDIA:KFDIA,KLEV)
real(kind=JPRB), intent(out) :: PFAC10(KIDIA:KFDIA,KLEV)
real(kind=JPRB), intent(out) :: PFAC11(KIDIA:KFDIA,KLEV)
integer(kind=JPIM), intent(out) :: KJP(KIDIA:KFDIA,KLEV)
integer(kind=JPIM), intent(out) :: KJT(KIDIA:KFDIA,KLEV)
integer(kind=JPIM), intent(out) :: KJT1(KIDIA:KFDIA,KLEV)
real(kind=JPRB), intent(in) :: PRMU0(KIDIA:KFDIA)

Calls

proc~~srtm_setcoef~~CallsGraph proc~srtm_setcoef SRTM_SETCOEF proc~dr_hook dr_hook proc~srtm_setcoef->proc~dr_hook

Called by

proc~~srtm_setcoef~~CalledByGraph proc~srtm_setcoef SRTM_SETCOEF proc~gas_optics~2 gas_optics proc~gas_optics~2->proc~srtm_setcoef proc~radiation radiation proc~radiation->proc~gas_optics~2 proc~radiation~2 radiation proc~radiation~2->proc~gas_optics~2 proc~radiation_scheme~3 RADIATION_SCHEME proc~radiation_scheme~3->proc~radiation proc~radiation_scheme RADIATION_SCHEME proc~radiation_scheme->proc~radiation proc~radiation_scheme_s2 RADIATION_SCHEME_S2 proc~radiation_scheme_s2->proc~radiation program~ecrad_driver ecrad_driver program~ecrad_driver->proc~radiation proc~radiation_scheme~2 RADIATION_SCHEME proc~radiation_scheme~2->proc~radiation program~ecrad_ifs_driver ecrad_ifs_driver program~ecrad_ifs_driver->proc~radiation_scheme~3 program~ecrad_ifs_driver~2 ecrad_ifs_driver program~ecrad_ifs_driver~2->proc~radiation_scheme~3

Contents