Index

Rundeck: P1SoM40

Created: Fri May 10 03:30:18 EDT 2024

stadvt

Module:

File: OSTRAITS.f

Summary: STADVT advects tracers through the straits (improved calculation) GOES BACK TO OLD CODING FOR STABILITY
Author : Gary Russell/Gavin Schmidt
Version: 2009/05/26

---

Declaration:

subroutine stadvt(n, l, am, mm1, mm2, rmst, rxst, rzst, rm, rx, ry, rz, oln, qlimit)

Variables:

im : used from ocean

jm : used from ocean

lmo : 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

mmst : used from straits

am : real*8, intent(in)

mm1 : real*8, intent(in)

mm2 : real*8, intent(in)

rmst : real*8, intent(inout)

rxst : real*8, intent(inout)

rzst : real*8, intent(inout)

rm : real*8, intent(inout), dimension(2, nmst, lmo)

rx : real*8, intent(inout), dimension(2, nmst, lmo)

ry : real*8, intent(inout), dimension(2, nmst, lmo)

rz : real*8, intent(inout), dimension(2, nmst, lmo)

oln : real*8, intent(inout)

qlimit : logical, intent(in)

a1 : real*8

a2 : real*8

fm1 : real*8

fz1 : real*8

fm2 : real*8

fz2 : real*8

rxy : real*8

x1 : real*8

y1 : real*8

x2 : real*8

y2 : real*8

rxold : real*8

i1 : integer

i2 : integer

j1 : integer

j2 : integer

n : integer

l : integer