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

advecv

Module: MOMENTS
File: MOMEN2ND.f
Summary: ADVECV Advects momentum (incl. coriolis) using mass fluxes
Author : Original development team
Version:

Declaration:
Variables:
im : used from resolution

jm : used from resolution

lm : used from resolution

modd5k : used from diag_com

grid : used from domain_decomp_atm

halo_update : used from domain_decomp_1d

north : used from domain_decomp_1d

south : used from domain_decomp_1d

havelatitude : used from domain_decomp_1d

getdomainbounds : used from domain_decomp_1d

fcor : used from geom

dxyv : used from geom

dxyn : used from geom

dxys : used from geom

dxv : used from geom

ravpn : used from geom

ravps : used from geom

sini : used from geom
Initial Value = >siniv
cosi : used from geom
Initial Value = >cosiv
acor : used from geom

polwt : used from geom

pu : used from dynamics
Initial Value = >MU
pv : used from dynamics
Initial Value = >MV
sd : used from dynamics
Initial Value = >MW
spa : used from dynamics

dut : used from dynamics

dvt : used from dynamics

do_polefix : used from dynamics

mrch : used from dynamics

u : real*8, dimension(IM, GRID%J_STRT_HALO:GRID%J_STOP_HALO, LM)

v : real*8, dimension(IM, GRID%J_STRT_HALO:GRID%J_STOP_HALO, LM)

ut : real*8, dimension(IM, GRID%J_STRT_HALO:GRID%J_STOP_HALO, LM)

vt : real*8, dimension(IM, GRID%J_STRT_HALO:GRID%J_STOP_HALO, LM)

mmean : real*8, dimension(LM, IM, GRID%J_STRT_HALO:GRID%J_STOP_HALO)

mbefor : real*8, dimension(LM, IM, GRID%J_STRT_HALO:GRID%J_STOP_HALO)

mafter : real*8, dimension(LM, IM, GRID%J_STRT_HALO:GRID%J_STOP_HALO)

l : integer
loop variables
im1 : integer
loop variables
ip1 : integer
loop variables
j : integer
loop variables
i : integer
loop variables
fd : real*8, dimension(IM, GRID%J_STRT_HALO:GRID%J_STOP_HALO)

vmass : real*8

alph : real*8

pdt4 : real*8

dt1 : real*8

dt2 : real*8

dt4 : real*8

dt8 : real*8

dt12 : real*8

dt24 : real*8

flux : real*8

fluxu : real*8

fluxv : real*8

fluxu_n_s : real*8

fluxv_n_s : real*8

fluxu_sw_ne : real*8

fluxv_sw_ne : real*8

fluxu_se_nw : real*8

fluxv_se_nw : real*8

asdu : real*8, dimension(IM, GRID%J_STRT_SKP:GRID%J_STOP_HALO, LM-1)

up : real*8, dimension(IM, GRID%J_STRT_HALO:GRID%J_STOP_HALO, LM)

vp : real*8, dimension(IM, GRID%J_STRT_HALO:GRID%J_STOP_HALO, LM)

usvs : real*8, dimension(IM, LM)

vsvs : real*8, dimension(IM, LM)

usvn : real*8, dimension(IM, LM)

vsvn : real*8, dimension(IM, LM)

hemi : integer

jpo : integer

jns : integer

jv : integer

jvs : integer

jvn : integer

ipole : integer

utmp : real*8

vtmp : real*8

wts : real*8

dmt : real*8, dimension(im)

j_0 : integer

j_1 : integer

j_0s : integer

j_1s : integer

j_0h : integer

j_0stg : integer

j_1stg : integer

have_south_pole : logical

have_north_pole : logical

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

Contact GISS NASA Privacy PolicyAccessibility