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

fltruv

Module: ATMDYN
File: ATMDYN.f
Summary: FLTRUV Filters 2 gridpoint noise from the velocity fields
Author : Original development team
Version:

Declaration:
Variables:
sha : used from constant

im : used from resolution

jm : used from resolution

lm : used from resolution

ma : used from atm_com

u : used from atm_com

v : used from atm_com

t : used from atm_com

pk : used from atm_com

dxyn : used from geom

dxys : used from geom

dt : used from dynamics

mrch : used from dynamics

ang_uv : used from dynamics

cos_limit : used from dynamics

do_polefix : used from dynamics

dt_xufilter : used from dynamics

dt_xvfilter : used from dynamics

dt_yvfilter : used from dynamics

dt_yufilter : used from dynamics

grid : used from domain_decomp_atm

getdomainbounds : used from domain_decomp_1d

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

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

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

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

x : real*8, dimension(IM)

yv : real*8

xuby4ton : real*8

xvby4ton : real*8

yvby4ton : real*8

yuby4ton : real*8

n : integer
loop variables
l : integer
loop variables
j : integer
loop variables
i : integer
loop variables
dt1 : real*8
Initial Value = 0.
k : integer

ip1 : integer

yv2 : real*8

yvj : real*8

yvjm1 : real*8

x1 : real*8

xi : real*8

xim1 : real*8

nshap : integer, parameter
Initial Value = 8
by16 : real*8, parameter
Initial Value = 1./16.
by4ton : real*8, parameter
Initial Value = 1./(4.**NSHAP)
j_0 : integer

j_1 : integer

j_0stg : integer

j_1stg : integer

j_0s : integer

j_1s : integer

have_south_pole : logical

have_north_pole : logical

ii : integer

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

Contact GISS NASA Privacy PolicyAccessibility