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

init_straits

Module:
File: OSTRAITS.f
Summary: init_STRAITS initializes strait variables
Author : Gary Russell/Gavin Schmidt
Version: 2009/05/26

Declaration:
Variables:
twopi : used from constant

radius : used from constant

im : used from ocean

jm : used from ocean

lmo : used from ocean

ze : used from ocean

fjeq : used from ocean

dlon : used from ocean

dlat : used from ocean

dxypo : used from ocean

mysparsecomm_type : used from ocean

hocean : used from ocean

lmm : used from ocean

zmid : used from ocean

nmst : used from straits

lmst : used from straits

ist : used from straits

jst : used from straits

xst : used from straits

yst : used from straits

wist : used from straits

dist : used from straits

distpg : used from straits

mmst : used from straits

must : used from straits

g0mst : used from straits

gxmst : used from straits

gzmst : used from straits

s0mst : used from straits

sxmst : used from straits

szmst : used from straits

rsist : used from straits

rsixst : used from straits

msist : used from straits

ssist : used from straits

hsist : used from straits

moe : used from straits

g0me : used from straits

gxme : used from straits

gyme : used from straits

gzme : used from straits

s0me : used from straits

sxme : used from straits

syme : used from straits

szme : used from straits

kn2 : used from straits

zst : used from straits

hoceane : used from straits

lmme : used from straits

am_i_root : used from domain_decomp_1d

getdomainbounds : used from domain_decomp_1d

getmpicommunicator : used from domain_decomp_1d

broadcast : used from domain_decomp_1d

grid : used from oceanr_dim
Initial Value = >ogrid
i : integer

j : integer

l : integer

n : integer

i1 : integer

j1 : integer

i2 : integer

j2 : integer

ier : integer

k : integer

kk : integer

flat : real*8

dflon : real*8

dflat : real*8

slat : real*8

dslon : real*8

dslat : real*8

tlat : real*8

dtlon : real*8

dtlat : real*8

g01 : real*8

gz1 : real*8

s01 : real*8

sz1 : real*8

g02 : real*8

gz2 : real*8

s02 : real*8

sz2 : real*8

iniocean : logical, intent(in)

rlmme : real*8, dimension(2, nmst)

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

loclb : integer, dimension(2)

locub : integer, dimension(2)

globlb : integer, dimension(2)

globub : integer, dimension(2)

points : integer, allocatable, dimension(:, :)

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

Contact GISS NASA Privacy PolicyAccessibility