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

diag5p

Module: DIAG_SERIAL
File: DIAG_PRT.f
Summary: DIAG5P PRINTS THE SPECTRAL ANALYSIS TABLES
Author : Gary Russell
Version:

Declaration:
Variables:
grav : used from constant

rgas : used from constant

teeny : used from constant

modeleclock : used from model_com

idacc : used from model_com

jhour0 : used from model_com

jdate0 : used from model_com

amon : used from model_com

amon0 : used from model_com

jyear0 : used from model_com

xlabel : used from model_com

dxyv : used from geom

im : used from diag_com

jm : used from diag_com

lm : used from diag_com

fim : used from diag_com

aijk : used from diag_com

ia_d5s : used from diag_com

ia_filt : used from diag_com

ia_12hr : used from diag_com

ia_d5f : used from diag_com

ia_d5d : used from diag_com

ia_dga : used from diag_com

ia_inst : used from diag_com

kdiag : used from diag_com

speca : used from gc_com

atpe : used from gc_com

agc : used from gc_com

kspeca : used from gc_com

ktpe : used from gc_com

nhemi : used from gc_com

nspher : used from gc_com

klayer : used from gc_com

istrat : used from gc_com

jeq : used from gc_com

xwon : used from diag_zonal

dt : used from dynamics

x : real*8, dimension(im)

scalet : real*8, dimension(kspeca)

f0 : real*8, dimension(kspeca)

fnsum : real*8, dimension(kspeca)

mn : integer, dimension(kspeca)

fatpe : real*8, dimension(ktpe, nhemi)

izero : integer, parameter
Initial Value = 0
mapeof : integer, dimension(ktpe), parameter
Initial Value = (/3,8,10,11,13,15,17,20/)
latitd : character*8, dimension(4)
Initial Value = (/ 'SOUTHERN','NORTHERN',' EQUATOR','45 NORTH'/)
sphere : character*16, dimension(4)
Initial Value = (/'TROPOSPHERE ','LOW STRATOSPHERE', 'MID STRATOSPHERE','UPP STRATOSPHERE'/)
scalek : real*8, dimension(4)
Initial Value = (/1.,1.,10.,10./)
i : integer

iunitj : integer

iunitw : integer

j : integer

j45n : integer

k : integer

kpage : integer

krow : integer

kspher : integer

l : integer

m : integer

mape : integer

mtpe : integer

n : integer

nm : integer

nm1 : integer

latf : integer

latl : integer

factor : real*8

fnm : real*8

year : integer

hour : integer

date : integer

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

Contact GISS NASA Privacy PolicyAccessibility