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

diag7a

Module:
File: GCDIAGb.f
Summary:
Author :
Version:

Declaration:
Variables:
grav : used from constant

bygrav : used from constant

im : used from resolution

jm : used from resolution

lm : used from resolution

idacc : used from model_com

mdiag : used from model_com

p : used from atm_com

u : used from atm_com

v : used from atm_com

phi : used from atm_com

nwav_dag : used from gc_com

wave : used from gc_com

max12hr_sequ : used from gc_com

kwp : used from gc_com

re_and_im : used from gc_com

jeq : used from gc_com

j50n : used from gc_com

ia_12hr : used from diag_com

imh : used from diag_com

ldex : used from diag_loc

grid : used from domain_decomp_atm

getdomainbounds : used from domain_decomp_1d

sumxpe : used from domain_decomp_1d

am_i_root : used from domain_decomp_1d

an : real*8, dimension(0:imh)

bn : real*8, dimension(0:imh)

km : integer, parameter
Initial Value = 6
kqmax : integer, parameter
Initial Value = 12
nmax : integer
Initial Value = nwav_dag
htrd : real*8, dimension(im, km)

htrd_loc : real*8, dimension(im, km)

ueq : real*8, dimension(im, lm)

ueq_loc : real*8, dimension(im, lm)

veq : real*8, dimension(im, lm)

veq_loc : real*8, dimension(im, lm)

pmb : real*8, dimension(km), parameter
Initial Value = (/922.,700.,500.,300.,100.,10./)
ght : real*8, dimension(km), parameter
Initial Value = (/500.,2600.,5100.,8500.,15400.,30000./)
p00 : real*8, dimension(lm)

aml : real*8, dimension(lm)

pdsigl : real*8, dimension(lm)

pmidl : real*8, dimension(lm)

pednl : real*8, dimension(lm+1)

pij50n : real*8

pl : real*8

plm1 : real*8

slope : real*8

now : real*8

i : integer

idacc9 : integer

k : integer

kq : integer

l : integer

n : integer

j_0 : integer

j_1 : integer

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

Contact GISS NASA Privacy PolicyAccessibility