IndexRundeck: P1SoM40Created: Fri May 10 03:30:18 EDT 2024

stconv

Module:
File: OCNKPP.f
Summary: STCONV uses vertical diffusion coefficients from KPP schmeme
Author : Gavin Schmidt/Gary Russell
Version:

Declaration:
Variables:
grav : used from constant

omega : used from constant

lmo : used from ocean

dts : used from ocean

ze : used from ocean

sinpo : used from ocean

must : used from straits

mmst : used from straits

g0mst : used from straits

gzmst : used from straits

gxmst : used from straits

s0mst : used from straits

szmst : used from straits

sxmst : used from straits

lmst : used from straits

nmst : used from straits

dist : used from straits

wist : used from straits

jst : used from straits

olnst : used from odiag

ln_kvm : used from odiag

ln_kvg : used from odiag

ln_wgfl : used from odiag

ln_wsfl : used from odiag

mmlt : real*8

mml0 : real*8

ul : real*8, dimension(lmo, 2)

g0ml : real*8, dimension(lmo, 2)

s0ml : real*8, dimension(lmo, 2)

gzml : real*8, dimension(lmo, 2)

szml : real*8, dimension(lmo, 2)

mml : real*8, dimension(lmo)

bymml : real*8, dimension(lmo)

dtbydz : real*8, dimension(lmo)

bydz2 : real*8, dimension(lmo)

ul0 : real*8, dimension(lmo)

g0ml0 : real*8, dimension(lmo)

s0ml0 : real*8, dimension(lmo)

akvm : real*8, dimension(0:lmo+1)

akvg : real*8, dimension(0:lmo+1)

akvs : real*8, dimension(0:lmo+1)

akvc : real*8, dimension(0:lmo+1)

g : real*8, dimension(lmo)

s : real*8, dimension(lmo)

to : real*8, dimension(lmo)

byrho : real*8, dimension(lmo)

rho : real*8, dimension(lmo)

po : real*8, dimension(lmo)

ghat : real*8, dimension(lmo)

flg : real*8, dimension(lmo)

fls : real*8, dimension(lmo)

dtp4 : real*8, dimension(lmo)

beta : real*8, parameter
Initial Value = 5d-1
bybeta : real*8, parameter
Initial Value = 1d0/BETA
ldd : logical, parameter
Initial Value = .false.
zgrid : real*8, save, dimension(0:LMO+1)

hwide : real*8, save, dimension(0:LMO+1)

byhwide : real*8, save, dimension(0:LMO+1)

shsq : real*8, dimension(LMO)

dvsq : real*8, dimension(LMO)

talpha : real*8, dimension(LMO)

sbeta : real*8, dimension(LMO)

dbloc : real*8, dimension(LMO)

dbsfc : real*8, dimension(LMO)

ritop : real*8, dimension(LMO)

alphadt : real*8, dimension(LMO)

betads : real*8, dimension(LMO)

epsln : real*8, parameter
Initial Value = 1d-20
bo : real*8, save

bosol : real*8, save

bydts : real*8, save

ustar : real*8, save

u2rho : real*8

ri : real*8

coriol : real*8

hbl : real*8

hblp : real*8

rhom : real*8

rho1 : real*8

r : real*8

r2 : real*8

dtbydz2 : real*8

mld : real*8

volgsp : real*8

alphagsp : real*8

betagsp : real*8

temgsp : real*8

shcgs : real*8

ifirst : integer, save
Initial Value = 1
i : integer

l : integer

n : integer

lmij : integer

iq : integer

iter : integer

nsigg : integer

nsigs : integer

kbl : integer

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

Contact GISS NASA Privacy PolicyAccessibility