IndexRundeck: P1SoM40Created: Fri May 10 03:30:18 EDT 2024

aadvq0

Module: TRACER_ADV
File: QUS3D.f
Summary: AADVQ0 initialises advection of tracer. Decide how many cycles to take such that mass does not become too small during any of the operator splitting steps of each cycle
Author : Maxwell Kelley
Version:

Declaration:
Variables:
mu : used from atm_com
Initial Value = >MUs
mv : used from atm_com
Initial Value = >MVs
mw : used from atm_com
Initial Value = >MWs
mb : used from atm_com

mma : used from atm_com

grid : used from domain_decomp_atm

getdomainbounds : used from domain_decomp_atm

globalsum : used from domain_decomp_1d

halo_update : used from domain_decomp_1d

globalmax : used from domain_decomp_1d

north : used from domain_decomp_1d

south : used from domain_decomp_1d

am_i_root : used from domain_decomp_1d

im : used from quscom

jm : used from quscom

lm : used from quscom

nmom : used from qusdef

imaxj : used from geom

dt_dummy : real*8, intent(in)

i : integer

j : integer

l : integer

n : integer

nc : integer

nbad : integer

nbad_loc : integer

ierr_loc : integer

ierr : integer

nc3d : integer

ncxy : integer

ncycxy_loc : integer, dimension(lm)

im1 : integer

lmin : integer

lmax : integer

nl : integer

nstepx_dum : integer

nstepz_dum : integer

ni_pack : integer

ni_unpack : integer

byn : real*8

ssp : real*8

snp : real*8

mvbyn : real*8

mwbyn : real*8

mpol : real*8

byn3d : real*8

mubyn : real*8, dimension(im)

am : real*8, dimension(im)

mi : real*8, dimension(im)

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

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

ma1d : real*8, dimension(lm)

mb1d : real*8, dimension(lm)

div1d : real*8, dimension(lm)

mw1d : real*8, dimension(lm)

mamin : real*8, dimension(lm)

wk1d1 : real*8, dimension(lm)

wk1d2 : real*8, dimension(lm)

mwlim : real*8

i_0 : integer

i_1 : integer

j_1 : integer

j_0 : integer

j_0h : integer

j_1h : integer

j_0s : integer

j_1s : integer

have_south_pole : logical

have_north_pole : logical

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

Contact GISS NASA Privacy PolicyAccessibility