SRTM_SETCOEF Subroutine

subroutine SRTM_SETCOEF(KLEV, KNMOL, PAVEL, PTAVEL, PZ, PTZ, PTBOUND, PCOLDRY, PWKL, KLAYTROP, KLAYSWTCH, KLAYLOW, PCO2MULT, PCOLCH4, PCOLCO2, PCOLH2O, PCOLMOL, PCOLN2O, PCOLO2, PCOLO3, PFORFAC, PFORFRAC, KINDFOR, PSELFFAC, PSELFFRAC, KINDSELF, PFAC00, PFAC01, PFAC10, PFAC11, KJP, KJT, KJT1)

Uses

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

USE YOESWN , ONLY : NDBUG

Arguments

Type IntentOptional Attributes Name
integer(kind=JPIM), intent(in) :: KLEV
integer(kind=JPIM) :: KNMOL
real(kind=JPRB), intent(in) :: PAVEL(JPLAY)
real(kind=JPRB), intent(in) :: PTAVEL(JPLAY)
real(kind=JPRB) :: PZ(0:JPLAY)
real(kind=JPRB), intent(in) :: PTZ(0:JPLAY)
real(kind=JPRB), intent(in) :: PTBOUND
real(kind=JPRB), intent(in) :: PCOLDRY(JPLAY)
real(kind=JPRB), intent(in) :: PWKL(35,JPLAY)
integer(kind=JPIM), intent(out) :: KLAYTROP
integer(kind=JPIM), intent(out) :: KLAYSWTCH
integer(kind=JPIM), intent(out) :: KLAYLOW
real(kind=JPRB), intent(out) :: PCO2MULT(JPLAY)
real(kind=JPRB), intent(out) :: PCOLCH4(JPLAY)
real(kind=JPRB), intent(out) :: PCOLCO2(JPLAY)
real(kind=JPRB), intent(out) :: PCOLH2O(JPLAY)
real(kind=JPRB), intent(out) :: PCOLMOL(JPLAY)
real(kind=JPRB), intent(out) :: PCOLN2O(JPLAY)
real(kind=JPRB), intent(out) :: PCOLO2(JPLAY)
real(kind=JPRB), intent(out) :: PCOLO3(JPLAY)
real(kind=JPRB), intent(out) :: PFORFAC(JPLAY)
real(kind=JPRB), intent(out) :: PFORFRAC(JPLAY)
integer(kind=JPIM), intent(out) :: KINDFOR(JPLAY)
real(kind=JPRB), intent(out) :: PSELFFAC(JPLAY)
real(kind=JPRB), intent(out) :: PSELFFRAC(JPLAY)
integer(kind=JPIM), intent(out) :: KINDSELF(JPLAY)
real(kind=JPRB), intent(out) :: PFAC00(JPLAY)
real(kind=JPRB), intent(out) :: PFAC01(JPLAY)
real(kind=JPRB), intent(out) :: PFAC10(JPLAY)
real(kind=JPRB), intent(out) :: PFAC11(JPLAY)
integer(kind=JPIM), intent(out) :: KJP(JPLAY)
integer(kind=JPIM), intent(out) :: KJT(JPLAY)
integer(kind=JPIM), intent(out) :: KJT1(JPLAY)

Calls

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

Contents