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~2~~UsesGraph proc~srtm_setcoef~2 SRTM_SETCOEF module~yoesrtwn~3 YOESRTWN proc~srtm_setcoef~2->module~yoesrtwn~3 module~yomhook yomhook proc~srtm_setcoef~2->module~yomhook module~parkind1~2 PARKIND1 proc~srtm_setcoef~2->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~2~~CallsGraph proc~srtm_setcoef~2 SRTM_SETCOEF proc~dr_hook dr_hook proc~srtm_setcoef~2->proc~dr_hook

Contents