IndexRundeck: P1SoM40Created: Thu May 9 03:30:17 EDT 2024

tropwmo

Module:
File: ATM_UTILS.f
Summary: tropwmo calculates tropopause height according to WMO formula
Author : D. Nodorp/T. Reichler/C. Land GISS Modifications by Jean Lerner/Gavin Schmidt
Version:
Algorithm:

Declaration:
Variables:
klev : used from resolution
Initial Value = >lm
zkappa : used from constant
Initial Value = >kapa
zzkap : used from constant
Initial Value = >bykapa
grav : used from constant

rgas : used from constant

ptm1 : real*8, intent(in), dimension(klev)

papm1 : real*8, intent(in), dimension(klev)

pk : real*8, intent(in), dimension(klev)

ptropo : real*8, intent(out)

ltropp : integer, intent(out)

ierr : integer, intent(out)

zgwmo : real*8, parameter
min lapse rate (* -1) needed for trop. defn. (-K/km)
Initial Value = -2d-3
zgwmo2 : real*8, parameter
GISS failsafe minimum lapse rate (* -1) (-K/km)
Initial Value = -3d-3
zdeltaz : real*8, parameter
distance to check for lapse rate changes (km)
Initial Value = 2000.0
zfaktor : real*8, parameter
factor for caluclating height from pressure (-rgas/grav)
Initial Value = -GRAV/RGAS
zplimb : real*8, parameter
min pressure at which to define tropopause (mb)
Initial Value = 500.
zpmk : real*8, dimension(klev)

zpm : real*8, dimension(klev)

za : real*8, dimension(klev)

zb : real*8, dimension(klev)

ztm : real*8, dimension(klev)

zdtdz : real*8, dimension(klev)

zptph : real*8

zp2km : real*8

zag : real*8

zbg : real*8

zasum : real*8

zaquer : real*8

zptf : real*8

iplimb : integer

iplimt : integer

jk : integer

jj : integer

kcount : integer

ltset : integer

l : integer

ldtdz : logical

Simplex Website Curator: Igor Aleinov — NASA Official: Gavin A. Schmidt

Contact GISS NASA Privacy PolicyAccessibility