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

densgrad

Module:
File: OCNGM.f
Summary: DENSGRAD calculates all horizontal and vertical density gradients
Author : Gavin Schmidt/Dan Collins
Version:

Declaration:
Variables:
oijl : used from odiag
Initial Value = >oijl_loc
ijl_mfvb : used from odiag

dzo : used from ocean

dxvo : used from ocean

nbyzm : used from ocean

i1yzm : used from ocean

i2yzm : used from ocean

lmm : used from ocean

nbyzu : used from ocean

i1yzu : used from ocean

i2yzu : used from ocean

lmu : used from ocean

nbyzv : used from ocean

i1yzv : used from ocean

i2yzv : used from ocean

rhows : used from constant

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

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

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

byrho : real*8

dzvlm1 : real*8

cori : real*8

beta : real*8

arho : real*8

arhox : real*8

arhoy : real*8

arhoz : real*8

an : real*8

rd : real*8

byteady : real*8

dh0 : real*8

dzsumx : real*8

dzsumy : real*8

r1 : real*8

r2 : real*8

p12 : real*8

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

hup : real*8, save

i : integer

j : integer

l : integer

im1 : integer

lav : integer

iu_odiff : integer

ifirst : integer, save
Initial Value = 1
title : character

volgsp : real*8, external

ainv_glob : real*8, dimension(im, jm)

j_0 : integer

j_1 : integer

j_0s : integer

j_1s : integer

j_0stg : integer

j_1stg : integer

j_0h : integer

j_1h : integer

j_1hr : integer

have_north_pole : logical

have_south_pole : logical

dothis : logical

k1d : real*8, dimension(lmo)

wtup : real*8

wtdn : real*8

rhomid : real*8

rhoy_ : real*8

sly : real*8

krat : real*8

kmax : real*8

n : integer

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

Contact GISS NASA Privacy PolicyAccessibility