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

oadvtx

Module:
File: OCNDYN.f
Summary: OADVTX advects tracer in X direction via Linear Upstream Scheme
Author : Gary L. Russell
Version: 2009/01/14

Declaration:
Variables:
im : used from ocean

jm : used from ocean

lmo : used from ocean

lmom : used from ocean
Initial Value = >LMM
zdxyp : used from ocean
Initial Value = >BYDXYPO
focean : used from ocean

ogrid : used from oceanr_dim

qlimit : logical*4, intent(in)

dt : real*8, intent(in)

rm : real*8, intent(inout), dimension(im, ogrid%j_strt_halo:ogrid%j_stop_halo, lmo)

rx : real*8, intent(inout), dimension(im, ogrid%j_strt_halo:ogrid%j_stop_halo, lmo)

ry : real*8, intent(inout), dimension(im, ogrid%j_strt_halo:ogrid%j_stop_halo, lmo)

rz : real*8, intent(inout), dimension(im, ogrid%j_strt_halo:ogrid%j_stop_halo, lmo)

mm : real*8, intent(inout), dimension(im, ogrid%j_strt_halo:ogrid%j_stop_halo, lmo)

mu : real*8, intent(inout), dimension(im, ogrid%j_strt_halo:ogrid%j_stop_halo, lmo)

oijl : real*8, intent(inout), dimension(im, ogrid%j_strt_halo:ogrid%j_stop_halo, lmo)

i : integer*4

j : integer*4

l : integer*4

im1 : integer*4

ip1 : integer*4

j1p : integer*4

jnp : integer*4

n : integer*4

ncourant : integer*4

am : real*8, dimension(IM)

a : real*8, dimension(IM)

fm : real*8, dimension(IM)

fx : real*8, dimension(IM)

fy : real*8, dimension(IM)

fz : real*8, dimension(IM)

mmnew : real*8

zcourant : real*8

rxy : real*8

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

Contact GISS NASA Privacy PolicyAccessibility