SRTM_SRTM_224GP Subroutine

subroutine SRTM_SRTM_224GP(KIDIA, KFDIA, KLON, KLEV, KSW, KOVLP, PAER, PALBD, PALBP, PAPH, PAP, PTS, PTH, PT, PQ, PCCO2, POZN, PRMU0, PFRCL, PTAUC, PASYC, POMGC, PALBT, PFSUX, PFSUC)

Uses

  • proc~~srtm_srtm_224gp~~UsesGraph proc~srtm_srtm_224gp SRTM_SRTM_224GP module~yomhook yomhook proc~srtm_srtm_224gp->module~yomhook module~yoesrtaer YOESRTAER proc~srtm_srtm_224gp->module~yoesrtaer module~yomphy3 YOMPHY3 proc~srtm_srtm_224gp->module~yomphy3 module~parkind1~2 PARKIND1 proc~srtm_srtm_224gp->module~parkind1~2 module~yomcst~3 YOMCST proc~srtm_srtm_224gp->module~yomcst~3 module~yoerad yoerad proc~srtm_srtm_224gp->module~yoerad module~clesphys_mod_h~2 clesphys_mod_h proc~srtm_srtm_224gp->module~clesphys_mod_h~2 module~parsrtm~4 PARSRTM proc~srtm_srtm_224gp->module~parsrtm~4 module~yoesrtaer->module~parkind1~2 module~yomphy3->module~parkind1~2 module~yomcst~3->module~parkind1~2 module~parsrtm~4->module~parkind1~2

include "clesphys.h"

  print 9004,JK,ZBBCU(JK),ZBBCD(JK),ZBBFU(JK),ZBBFD(JK)

Arguments

Type IntentOptional Attributes Name
integer(kind=JPIM), intent(in) :: KIDIA
integer(kind=JPIM), intent(in) :: KFDIA
integer(kind=JPIM), intent(in) :: KLON
integer(kind=JPIM) :: KLEV
integer(kind=JPIM) :: KSW
integer(kind=JPIM), intent(in) :: KOVLP
real(kind=JPRB), intent(in) :: PAER(KLON,6,KLEV)
real(kind=JPRB), intent(in) :: PALBD(KLON,KSW)
real(kind=JPRB), intent(in) :: PALBP(KLON,KSW)
real(kind=JPRB), intent(in) :: PAPH(KLON,KLEV+1)
real(kind=JPRB), intent(in) :: PAP(KLON,KLEV)
real(kind=JPRB), intent(in) :: PTS(KLON)
real(kind=JPRB), intent(in) :: PTH(KLON,KLEV+1)
real(kind=JPRB), intent(in) :: PT(KLON,KLEV)
real(kind=JPRB), intent(in) :: PQ(KLON,KLEV)
real(kind=JPRB), intent(in) :: PCCO2
real(kind=JPRB), intent(in) :: POZN(KLON,KLEV)
real(kind=JPRB), intent(in) :: PRMU0(KLON)
real(kind=JPRB), intent(in) :: PFRCL(KLON,KLEV)
real(kind=JPRB), intent(in) :: PTAUC(KLON,KSW,KLEV)
real(kind=JPRB), intent(in) :: PASYC(KLON,KSW,KLEV)
real(kind=JPRB), intent(in) :: POMGC(KLON,KSW,KLEV)
real(kind=JPRB) :: PALBT(KLON,KSW)
real(kind=JPRB), intent(out) :: PFSUX(KLON,2,KLEV+1)
real(kind=JPRB), intent(out) :: PFSUC(KLON,2,KLEV+1)

Calls

proc~~srtm_srtm_224gp~~CallsGraph proc~srtm_srtm_224gp SRTM_SRTM_224GP proc~dr_hook dr_hook proc~srtm_srtm_224gp->proc~dr_hook

Contents