Index

Rundeck: E6F40

Created: Fri May 17 03:30:27 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:

subroutine filter

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

mb2kg : used from constant

im : used from resolution

jm : used from resolution

lm : used from resolution

mfix : used from resolution

mfrac : used from resolution

itime : used from model_com

zatmo : used from atm_com

ma : used from atm_com

t : used from atm_com

q : used from atm_com

qcl : used from atm_com

qci : used from atm_com

pedn : used from atm_com

pmid : used from atm_com

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

cos_limit : used from dynamics

mfiltr : used from dynamics

atmsrf : used from fluxes

grid : used from domain_decomp_atm

getdomainbounds : used from domain_decomp_1d

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

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)

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

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

psumo : real*8

psumn : real*8

pdif : real*8

akap : real*8

zs : real*8

mvar : real*8

mrat : real*8

zmrat : real*8

slp : real*8, external

i : integer

j : integer

l : integer

n : integer

lmfrac1 : integer

lmfracm : 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)

j1p : integer

jnp : integer

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)