Rundeck: P1SoM40

Created: Wed May 8 03:30:18 EDT 2024

GC_COM

File: DIAG_COM.f

Summary:
Author :
Version:

Subroutines:

Global Variables:

sname_strlen : used from mdiag_com
units_strlen : used from mdiag_com
lname_strlen : used from mdiag_com
jm : used from resolution
lm : used from resolution
ls1 : used from resolution
pmtop : used from resolution
imlonh : used from diag_zonal
jmlat : used from diag_zonal: Used by: | :alloc_gc_com |
kep : integer: number of lat/height E-P flux diagnostics
Used by: | :alloc_gc_com | :diaggc_prep | DIAG_SERIAL:diagjk |
istrat : integer, parameter: Initial Value = min
Used by: | :diag4a | :init_diag | DIAG_SERIAL:diag4 | DIAG_SERIAL:diag5p |
jeq : integer, parameter, public: grid box zone around or immediately north of the equator
Initial Value = 1+JM/2
Used by: | :diag5a | :diag5d | :diag7a | :diagb | DIAGKS | DIAG_SERIAL:diag5p | DIAG_SERIAL:diagcp |
j5n : integer, parameter, public: special latitudes
Initial Value = (90.+5.)
Used by: | DIAG_SERIAL:diagil |
j5s : integer, parameter, public: special latitudes
Initial Value = (90.-5.)
Used by: | DIAG_SERIAL:diagil |
j5suv : integer, parameter, public: special latitudes
Initial Value = (90.-5.)
Used by: | DIAG_SERIAL:diagil |
j5nuv : integer, parameter, public: special latitudes
Initial Value = (90.+5.)
Used by: | DIAG_SERIAL:diagil |
j70n : integer, parameter, public: special latitudes
Initial Value = (70.+90.)
Used by: | DIAG_SERIAL:diagil |
j50n : integer, parameter, public: special latitudes
Initial Value = (50.+90.)
Used by: | :diag7a | DIAG_SERIAL:diagil |
kagc : integer, public: number of latitude-height General Circulation diags
Used by: | :alloc_gc_com | :def_meta_atmacc | :diaggc_prep | :write_meta_atmacc |
kagcx : integer, parameter, public: number of accumulated+derived GC diagnostics
Initial Value = 82+21+100
Used by: | DIAG_SERIAL:jkjl_titlex |
agc : real*8, allocatable, dimension(:, :, :), public: latitude-height General Circulation diagnostics
Used by: | :alloc_gc_com | :diaggc_prep | DIAG_SERIAL:diag5p | DIAG_SERIAL:diag_gather | DIAG_SERIAL:diag_scatter | DIAG_SERIAL:diagij |
ned : integer, parameter, public: number of different energy history diagnostics
Initial Value = 10
Used by: | :diag4a | DIAGKS | DIAG_SERIAL:diag4 |
hist_days : integer, parameter, public: number of energy history columns,rows (max)
Initial Value = 100
Used by: | DIAG_SERIAL:diag4 |
nehist : integer, parameter, public: number of energy history columns,rows (max)
Initial Value = NED*(2+ISTRAT)
Used by: | DIAG_SERIAL:diag4 |
agc_loc : real*8, allocatable, dimension(:, :, :), public: Used by: | :alloc_gc_com | :diag5a | :diagb | :qdynam | DIAG_SERIAL:diag_gather | DIAG_SERIAL:diag_scatter |
agc_out : real*8, allocatable, dimension(:, :, :), public: Used by: | :alloc_gc_com | :diaggc_prep | DIAG_SERIAL:diagjk |
energy : real*8, dimension(nehist, hist_days), public: energy diagnostics
Used by: | :def_rsf_acc | :diag4a | :new_io_acc | DIAG_SERIAL:diag4 |
nspher : integer, parameter, public: number of spectral diagnostics, and harmonics used
Initial Value = 4*(2+ISTRAT)
Used by: | :diag5a | :diag5d | :diagb | :init_diag | DIAG_SERIAL:diag5p |
kspeca : integer, parameter, public: number of spectral diagnostics, and harmonics used
Initial Value = 20
Used by: | :diag5a | DIAG_SERIAL:diag5p |
speca : real*8, dimension((imlonh+1), kspeca, nspher), public: spectral diagnostics
Used by: | :def_rsf_acc | :diag4a | :diag5a | :diag5d | :diagb | :new_io_acc | DIAG_SERIAL:diag5p |
klayer : integer, dimension(lm), public: index for dividing up atmosphere into layers for spec.anal.
Used by: | :diag5a | :diag5d | :diagb | :init_diag | DIAG_SERIAL:diag5p |
pspec : real*8, dimension(4), parameter, public: pressure levels at which layers are seperated and defined
Initial Value = (/ 150., 10., 1., 0. /)
Used by: | :init_diag |
ktpe : integer, parameter, public: number of spectral diagnostics for pot. enthalpy
Initial Value = 8
Used by: | DIAG_SERIAL:diag5p |
atpe : real*8, dimension(ktpe, nhemi), public: pot. enthalpy spectral diagnostics
Used by: | :def_rsf_acc | :diag5a | :new_io_acc | DIAG_SERIAL:diag5p |
nhemi : integer, parameter, public: Initial Value = 2
Used by: | DIAG_SERIAL:diag5p |
nwav_dag : integer, parameter, public: number of components in spectral diagnostics
Initial Value = min(9,imlonh)
Used by: | :diag7a | :diagb | DIAG_SERIAL:diag7p |
min12hr_sequ : integer, parameter, public: lengths of time series for wave powers
Initial Value = 2*28
Used by: | DIAG_SERIAL:diag7p |
max12hr_sequ : integer, parameter, public: lengths of time series for wave powers
Initial Value = 2*31
Used by: | :diag7a | DIAG_SERIAL:diag7p |
re_and_im : integer, parameter, public: complex components of wave power diagnostics
Initial Value = 2
Used by: | :diag7a |
kwp : integer, parameter, public: number of wave power diagnostics
Initial Value = 12
Used by: | :diag7a |
wave : real*8, dimension(re_and_im, max12hr_sequ, nwav_dag, kwp), public: frequency diagnostics (wave power)
Used by: | :def_rsf_acc | :diag7a | :new_io_acc | DIAG_SERIAL:diag7p |
name_wave : character(len=sname_strlen), dimension(kwp), public
units_wave : character(len=units_strlen), dimension(kwp), public
sname_gc : character(len=sname_strlen), dimension(kagcx), public: Names of lat-pressure GC diagnostics
Used by: | :def_meta_atmacc | :write_meta_atmacc | DIAG_SERIAL:diagjk | DIAG_SERIAL:jkjl_titlex |
lname_wave : character(len=lname_strlen), dimension(kwp), public
units_gc : character(len=units_strlen), dimension(kagcx), public: Descriptions/Units of GC diagnostics
Used by: | DIAG_SERIAL:diagjk |
lname_gc : character(len=lname_strlen), dimension(kagcx), public: Descriptions/Units of GC diagnostics
Used by: | DIAG_SERIAL:diagjk | DIAG_SERIAL:jkjl_titlex |
scale_gc : real*8, dimension(kagcx), public: printout scaling factors for GC diagnostics
Used by: | :def_meta_atmacc | :write_meta_atmacc | DIAG_SERIAL:diagjk |
lgrid_gc : integer, dimension(kagcx), public: idacc-numbers,gridtypes for GC diagnostics
jgrid_gc : integer, dimension(kagcx), public: idacc-numbers,gridtypes for GC diagnostics
Used by: | :diaggc_prep | DIAG_SERIAL:diagjk |
ia_gc : integer, dimension(kagcx), public: idacc-numbers,gridtypes for GC diagnostics
Used by: | :def_meta_atmacc | :write_meta_atmacc | DIAG_SERIAL:diagjk |
denom_gc : integer, dimension(kagcx), public: index of AGC element to use as weight
Used by: | :def_meta_atmacc | :write_meta_atmacc | DIAG_SERIAL:diagjk |
pow_gc : integer, dimension(kagcx), public: printed output scaled by 10**(-pow_gc)
Used by: | DIAG_SERIAL:diagjk |
hemis_gc : real*8, dimension(:, :, :), allocatable, public: hemispheric/global averages of AGC
Used by: | :alloc_gc_com | :def_meta_atmacc | :diaggc_prep | :write_meta_atmacc |
vmean_gc : real*8, dimension(:, :, :), allocatable, public: vertical sums of AGC
Used by: | :alloc_gc_com | :def_meta_atmacc | :diaggc_prep | :write_meta_atmacc |
lat_gc : real*8, dimension(jmlat), public: latitudes of the primary grid for GC diagnostics
cdl_gc : type(cdl_type), public: consolidated metadata for AGC output fields in CDL notation
Used by: | :def_meta_atmacc | :write_meta_atmacc |
lat_gc2 : real*8, dimension(jmlat), public
agc_ioptr : real*8, dimension(:, :, :), public, pointer: Used by: | :def_rsf_acc | :new_io_acc |

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

Contact GISS — NASA Privacy Policy — Accessibility

National Aeronautics and Space Administration

Goddard Institute for Space Studies

GC_COM

File: DIAG_COM.f