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

oconv

Module:
File: OCNKPP.f
Summary: OCONV does vertical mixing using coefficients from KPP scheme
Author : Gavin Schmidt/Gary Russell
Version: 2009/08/25

Declaration:
Variables:
grav : used from constant

omega : used from constant

undef_val : used from constant

im : used from ocean

jm : used from ocean

lmo : used from ocean

g0m : used from ocean

s0m : used from ocean

gxmo : used from ocean

sxmo : used from ocean

symo : used from ocean

gymo : used from ocean

szmo : used from ocean

gzmo : used from ocean

ogeoz : used from ocean

hocean : used from ocean

ze : used from ocean

bydxypo : used from ocean

mo : used from ocean

sinpo : used from ocean

dts : used from ocean

lmm : used from ocean

lmv : used from ocean

lmu : used from ocean

ramvs : used from ocean

dxypo : used from ocean

cosic : used from ocean

sinic : used from ocean

uo : used from ocean

vo : used from ocean

uod : used from ocean

vod : used from ocean

ramvn : used from ocean

bydts : used from ocean

ivnp : used from ocean

kpl : used from ocean

oijl : used from odiag
Initial Value = >oijl_loc
oij : used from odiag
Initial Value = >oij_loc
oijmm : used from odiag

ij_hbl : used from odiag

ij_hblmax : used from odiag

ij_bo : used from odiag

ij_bosol : used from odiag

ij_ustar : used from odiag

ijl_kvm : used from odiag

ijl_kvg : used from odiag

ijl_wgfl : used from odiag

ijl_wsfl : used from odiag

ol : used from odiag

l_rho : used from odiag

l_temp : used from odiag

l_salt : used from odiag

ij_mld : used from odiag

ij_mldmax : used from odiag

g0m1 : used from kpp_com

s0m1 : used from kpp_com

mo1 : used from kpp_com

gxm1 : used from kpp_com

gym1 : used from kpp_com

sxm1 : used from kpp_com

sym1 : used from kpp_com

uo1 : used from kpp_com

vo1 : used from kpp_com

uod1 : used from kpp_com

vod1 : used from kpp_com

orsi : used from ofluxes

osolarw : used from ofluxes

osolari : used from ofluxes

odmua : used from ofluxes

odmva : used from ofluxes

odmui : used from ofluxes

odmvi : used from ofluxes

fsr : used from sw2ocean

lsrpd : used from sw2ocean

getdomainbounds : used from domain_decomp_1d

halo_update : used from domain_decomp_1d

north : used from domain_decomp_1d

south : used from domain_decomp_1d

halo_update_block : used from domain_decomp_1d

am_i_root : used from domain_decomp_1d

globalsum : used from domain_decomp_1d

grid : used from oceanr_dim
Initial Value = >ogrid
gxxmo : used from ocean

gyymo : used from ocean

gzzmo : used from ocean

gxymo : used from ocean

sxxmo : used from ocean

syymo : used from ocean

szzmo : used from ocean

sxymo : used from ocean

use_qus : used from ocean

nbyzm : used from ocean

i1yzm : used from ocean

i2yzm : used from ocean

dzo : used from ocean

qpole : logical*4

ut : real*8, dimension(im, grid%j_strt_halo:grid%j_stop_halo, lmo)

vt : real*8, dimension(im, grid%j_strt_halo:grid%j_stop_halo, lmo)

utd : real*8, dimension(im, grid%j_strt_halo:grid%j_stop_halo, lmo)

vtd : real*8, dimension(im, grid%j_strt_halo:grid%j_stop_halo, lmo)

mml0 : real*8, dimension(LMO)

mml : real*8, dimension(LMO)

ul0 : real*8, dimension(LMO, IM+2)

ul : real*8, dimension(LMO, IM+2)

uld0 : real*8, dimension(LMO, IM+2)

uld : real*8, dimension(LMO, IM+2)

g0ml0 : real*8, dimension(LMO)

g0ml : real*8, dimension(LMO)

gxml : real*8, dimension(LMO)

gyml : real*8, dimension(LMO)

gzml : real*8, dimension(LMO)

s0ml0 : real*8, dimension(LMO)

s0ml : real*8, dimension(LMO)

sxml : real*8, dimension(LMO)

syml : real*8, dimension(LMO)

szml : real*8, dimension(LMO)

gxxml : real*8, dimension(LMO)

gyyml : real*8, dimension(LMO)

gxyml : real*8, dimension(LMO)

gzzml : real*8, dimension(LMO)

sxxml : real*8, dimension(LMO)

syyml : real*8, dimension(LMO)

sxyml : real*8, dimension(LMO)

szzml : real*8, dimension(LMO)

bymml : real*8, dimension(LMO)

dtbydz : real*8, dimension(LMO)

bydz2 : real*8, dimension(LMO)

ravm : real*8, dimension(IM+2)

ramv : real*8, dimension(IM+2)

bymml0 : real*8, dimension(LMO)

mmlt : real*8, dimension(LMO)

bymmlt : 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)

ghatm : real*8, dimension(LMO, IM+2)

ghatg : real*8, dimension(LMO)

ghats : real*8, dimension(LMO)

flg : real*8, dimension(LMO)

fls : real*8, dimension(LMO)

txy : real*8

fldum : real*8, dimension(LMO)

ghatdum : real*8, dimension(LMO)

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

ghatc : real*8, dimension(LMO)

dtp4uv : real*8, dimension(LMO, IM+2)

dtp4g : real*8, dimension(LMO)

dtp4s : real*8, dimension(LMO)

lmuv : integer, dimension(IM+2)

beta : real*8, parameter
Initial Value = 5d-1
bybeta : real*8, parameter
Initial Value = 1d0/BETA
epsln : real*8, parameter
Initial Value = 1d-20
zgrid : real*8, dimension(0:LMO+1)

hwide : real*8, 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)

ghat : real*8, dimension(LMO)

byhwide : 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)

ukjm : real*8, dimension(LMO, IM+2)

ukm : real*8, dimension(lmo, 4, im, grid%j_strt_halo:grid%j_stop_halo)

ukmd : real*8, dimension(lmo, 4, im, grid%j_strt_halo:grid%j_stop_halo)

olj : real*8, dimension(3, LMO, grid%J_STRT_HALO:grid%J_STOP_HALO)

oltemp : real*8, dimension(LMO, 3)

ma : real*8, dimension(im, grid%j_strt_halo:grid%j_stop_halo, lmo)

klen : real*8, dimension(im, grid%j_strt_halo:grid%j_stop_halo, lmo)

gsave3d : real*8, dimension(im, grid%j_strt_halo:grid%j_stop_halo, lmo)

ssave3d : real*8, dimension(im, grid%j_strt_halo:grid%j_stop_halo, lmo)

akvg3d : real*8, dimension(0:lmo, im, grid%j_strt_halo:grid%j_stop_halo)

akvs3d : real*8, dimension(0:lmo, im, grid%j_strt_halo:grid%j_stop_halo)

akvc3d : real*8, dimension(0:lmo, im, grid%j_strt_halo:grid%j_stop_halo)

flg3d : real*8, dimension(0:lmo, im, grid%j_strt_halo:grid%j_stop_halo)

fls3d : real*8, dimension(0:lmo, im, grid%j_strt_halo:grid%j_stop_halo)

dz3d : real*8, dimension(lmo, im, grid%j_strt_halo:grid%j_stop_halo)

ldd : logical, parameter
Initial Value = .false.
i : integer

j : integer

k : integer

l : integer

lmij : integer

kmuv : integer

im1 : integer

iter : integer

nsigg : integer

nsigs : integer

kbl : integer

ii : integer

n : integer

ib : integer

coriol : real*8

uistr : real*8

vistr : real*8

u2rho : real*8

deltam : real*8

deltae : real*8

deltasr : real*8

anstr : real*8

zscale : real*8

hbl : real*8

hblp : real*8

ustar : real*8

byshc : real*8

b0 : real*8

bosol : real*8

r : real*8

r2 : real*8

dtbydz2 : real*8

dm : real*8

rhom : real*8

rho1 : real*8

bo : real*8

deltas : real*8

volgsp : real*8

alphagsp : real*8

betagsp : real*8

temgsp : real*8

shcgs : real*8

temgs : real*8

volgs : real*8

j_0 : integer

j_1 : integer

j_0s : integer

j_1s : integer

j_0h : integer

have_south_pole : logical

have_north_pole : logical

adjust_zslope_using_flux : logical

relax_subgrid_zprofile : logical

extra_slope_limitations : logical

mix_tripled_resolution : logical

ptdd : real*8

ptdm : real*8

ptd : real*8, dimension(lmo)

mld : real*8

kmld : integer

ip1 : integer

lmix : integer

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

Contact GISS NASA Privacy PolicyAccessibility