IndexRundeck: E6F40Created: Fri May 17 03:30:27 EDT 2024

STRAT
File: STRATDYN.f
Summary: STRAT local stratospheric variables for GW drag etc.
Author : Bob Suozzo/Jean Lerner
Version:
Subroutines:
alloc_strat_com
To allocate arrays whose sizes now need to be determined at run time
deform
DEFORM calculate defomation terms
dfuseq
DFUSEQ calculate tridiagonal terms
getvk
GETVK calculate vertical diff. coefficient (use high wind shear)
gwdcol

gwdrag
GWDRAG puts a momentum drag in the stratosphere
init_gwdrag
init_GWDRAG
vdiff
VDIFF Vertical Diffusion in stratosphere
Global Variables:
im : used from resolution

jm : used from resolution

lm : used from resolution

xcdnst : real*8, dimension(2), dimension(2)
parameters for GW drag (in param. database)
Used by: | STRAT:init_gwdrag |
cshear : real*8
parameter for GW shear drag (in param. database)
Initial Value = 1
Used by: | STRAT:init_gwdrag |
cmtn : real*8
parameter for GW MTN drag (in param. database)
Initial Value = .5
Used by: | STRAT:init_gwdrag |
cdef : real*8
parameter for GW DEF drag (in param. database)
Initial Value = 3
Used by: | STRAT:init_gwdrag |
cmc : real*8
parameter for GW M. Convective drag (database if LM<=40)
Initial Value = 2d-7
Used by: | STRAT:init_gwdrag |
scvmu : real*8
parameter to Scale Convective MUs (database if LM>40)
Initial Value = .188d0
Used by: | STRAT:init_gwdrag |
pbreak : real*8
p. level above which GW drag acts (in param. database)
Initial Value = 500.
Used by: | STRAT:init_gwdrag |
pconpen : real*8
level of penetrating moist conv (in param. database)
Initial Value = 400.
Used by: | STRAT:gwdrag | STRAT:init_gwdrag |
defthresh : real*8
threshold for deformation wave (1/s)
Initial Value = 15d-6
Used by: | STRAT:gwdrag | STRAT:init_gwdrag |
pbreaktop : real*8
p. level to force GW breaking in top layer
Initial Value = 0.05d0
Used by: | STRAT:gwdrag | STRAT:init_gwdrag |
xlimit : real*8
per timestep limit on mixing and drag
Initial Value = .1d0
zwt : real*8, allocatable, dimension(:, :)
topographic variance
Used by: | STRAT:gwdrag | STRAT:init_gwdrag |
zvary : real*8, allocatable, dimension(:, :)
topographic variance
Used by: | STRAT:gwdrag | STRAT:init_gwdrag |
zvarx : real*8, allocatable, dimension(:, :)
topographic variance
Used by: | STRAT:gwdrag | STRAT:init_gwdrag |
zvart : real*8, allocatable, dimension(:, :)
topographic variance
Used by: | STRAT:init_gwdrag |
defrm : real*8, allocatable, dimension(:, :)
deformation field
Used by: | STRAT:deform | STRAT:gwdrag | STRAT:vdiff |
ldefm :
deformation levels
ldef : integer
deformation levels
Used by: | STRAT:deform | STRAT:init_gwdrag |
ld2 : integer
levels for various GW drag terms
Initial Value = LM
Used by: | STRAT:init_gwdrag |
lshr : integer
levels for various GW drag terms
Used by: | STRAT:init_gwdrag |
lbreak : integer
levels for various GW drag terms
Used by: | STRAT:init_gwdrag |
qgwmtn : integer
=1 turns on GW Mountain Wave drag terms
Initial Value = 1
Used by: | STRAT:init_gwdrag |
qgwshr : integer
=1 turns on GW Shear drag terms
Initial Value = 1
Used by: | STRAT:init_gwdrag |
qgwdef : integer
=1 turns on GW Deformation drag terms
Initial Value = 1
Used by: | STRAT:init_gwdrag |
qgwcnv : integer
=1 turns on GW Convective drag terms
Initial Value = 1
Used by: | STRAT:gwdrag | STRAT:init_gwdrag |
lpcnv : integer

Used by: | STRAT:gwdrag | STRAT:init_gwdrag |
ang_gwd : integer
=1 ang mom. lost by GWDRAG is added in troposphere
Initial Value = 1
Used by: | STRAT:gwdrag | STRAT:init_gwdrag | STRAT:vdiff |
nm : integer, parameter
number of gravity wave drag sources
Initial Value = 15
Used by: | STRAT:gwdrag | STRAT:init_gwdrag |
ekofj : real*8, allocatable, dimension(:, :)
wavenumbers as a function of GW source type and latitude J
Used by: | STRAT:gwdrag | STRAT:init_gwdrag |
tl : real*8, dimension(lm)

Used by: | STRAT:gwdrag |
thl : real*8, dimension(lm)

Used by: | STRAT:gwdrag |
rho : real*8, dimension(lm)

Used by: | STRAT:gwdrag |
bvf : real*8, dimension(lm)

Used by: | STRAT:gwdrag |
ul : real*8, dimension(lm)

Used by: | STRAT:gwdrag |
vl : real*8, dimension(lm)

Used by: | STRAT:gwdrag |
dl : real*8, dimension(lm)

Used by: | STRAT:gwdrag |
dut : real*8, dimension(lm)

Used by: | STRAT:gwdrag |
dvt : real*8, dimension(lm)

Used by: | STRAT:gwdrag |
dusdif : real*8, dimension(lm)

Used by: | STRAT:gwdrag |
ek : real*8, dimension(nm)

Used by: | STRAT:gwdrag |
mu_inc : real*8, dimension(nm)

Used by: | STRAT:gwdrag |
mu_top : real*8, dimension(nm)

Used by: | STRAT:gwdrag |
ur : real*8, dimension(nm)

Used by: | STRAT:gwdrag |
vr : real*8, dimension(nm)

cn : real*8, dimension(nm)

Used by: | STRAT:gwdrag |
wt : real*8, dimension(nm)

Used by: | STRAT:gwdrag |
dugwd : real*8, dimension(LM, NM)

Used by: | STRAT:gwdrag |
dtime : real*8

Used by: | STRAT:gwdrag |
bydtime : real*8

Used by: | STRAT:gwdrag |
coriol : real*8

Used by: | STRAT:gwdrag |
ranmtn : real*8

airxs : real*8

Used by: | STRAT:gwdrag |
zvarx_cell : real*8

Used by: | STRAT:gwdrag |
zvary_cell : real*8

Used by: | STRAT:gwdrag |
zwt_cell : real*8

Used by: | STRAT:gwdrag |
zatmo_cell : real*8

Used by: | STRAT:gwdrag |
defrm_cell : real*8

Used by: | STRAT:gwdrag |
usrc : real*8

Used by: | STRAT:gwdrag |
vsrc : real*8

lmc0 : integer

Used by: | STRAT:gwdrag |
lmc1 : integer

Used by: | STRAT:gwdrag |
ldrag : integer

Used by: | STRAT:gwdrag |

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

Contact GISS — NASA Privacy Policy — Accessibility