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

filter

Module: ATMDYN
File: ATMDYN.f
Summary: FILTER Performs 8-th order shapiro filter in zonal direction
Author : Original development team
Version:

Declaration:
Calls the following subroutines/functions:
shap1d
Module: ATMDYN File: ATMDYN.f
SHAP1D Smoothes in zonal direction use n-th order shapiro filter
Variables:
bygrav : used from constant

rgas : used from constant

sha : used from constant

kapa : used from constant

ls1 : used from resolution

ptop : used from resolution

psf : used from resolution

pmtop : used from resolution

im : used from resolution

jm : used from resolution

lm : used from resolution

itime : used from model_com

t : used from atm_com

p : used from atm_com

q : used from atm_com

qcl : used from atm_com

qci : used from atm_com

zatmo : used from atm_com

areag : used from geom

dxyp : used from geom

byim : used from geom

tmom : used from somtq_com

qmom : used from somtq_com

pk : used from atm_com

cos_limit : used from dynamics

mfiltr : used from dynamics

sig : used from dynamics

atmsrf : used from fluxes

grid : used from domain_decomp_atm

getdomainbounds : used from domain_decomp_1d

globalsum : used from domain_decomp_1d

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

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

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

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

psumo : real*8

psumn : real*8

pdif : real*8

akap : real*8

ps : real*8

zs : real*8

l : integer
loop variables
j : integer
loop variables
i : integer
loop variables
slp : real*8, external

n : integer

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

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

j_0 : integer

j_1 : integer

j_0s : integer

j_1s : integer

initialtotalenergy : real*8

finaltotalenergy : real*8

gettotalenergy : real*8

rhosrf : real*8, dimension(im)

pgfx : real*8, dimension(im)

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

Contact GISS NASA Privacy PolicyAccessibility