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

DIAG_COM

File: DIAG_COM.f
Summary: DIAG_COM Diagnostic model variables
Author : Original Development Team
Version: 2010/11/12

Subroutines:

Global Variables:
im : used from resolution

Used by: | :set_wtbudg | DIAG_SERIAL | DIAG_SERIAL:diag4 | DIAG_SERIAL:diag5p | DIAG_SERIAL:diag7p | DIAG_SERIAL:diag_gather | DIAG_SERIAL:diag_isccp | DIAG_SERIAL:diagil | DIAG_SERIAL:diagjk | DIAG_SERIAL:ij_avg | DIAG_SERIAL:ijkmap | DIAG_SERIAL:ijlmap | DIAG_SERIAL:ijmap | DIAG_SERIAL:ilmap | DIAG_SERIAL:maptxt | DIAG_SERIAL:scale_ijlmap |
jm : used from resolution

Used by: | DIAGKS | DIAG_SERIAL | DIAG_SERIAL:diag4 | DIAG_SERIAL:diag5p | DIAG_SERIAL:diag_isccp | DIAG_SERIAL:diagjk | DIAG_SERIAL:ij_avg | DIAG_SERIAL:ijkmap | DIAG_SERIAL:ijlmap | DIAG_SERIAL:ijmap | DIAG_SERIAL:ilmap | DIAG_SERIAL:jkmap | DIAG_SERIAL:jlmap | DIAG_SERIAL:keynrl | DIAG_SERIAL:keyvsums | DIAG_SERIAL:maptxt | DIAG_SERIAL:print_generic_jl | DIAG_SERIAL:scale_ijlmap | WORKJK |
lm : used from resolution

Used by: | :def_meta_atmacc | :write_meta_atmacc | DIAGKS | DIAG_SERIAL:diag4 | DIAG_SERIAL:diag5p | DIAG_SERIAL:diagil | DIAG_SERIAL:diagjk | DIAG_SERIAL:ijkmap | DIAG_SERIAL:ijlmap | DIAG_SERIAL:ilmap | DIAG_SERIAL:jkmap | DIAG_SERIAL:jlmap | DIAG_SERIAL:print_generic_jl | DIAG_SERIAL:scale_ijlmap | WORKJK |
ls1 : used from resolution

lm_req : used from atm_com

Used by: | DIAG_SERIAL:diagil | DIAG_SERIAL:jkmap | DIAG_SERIAL:jlmap |
jm_budg : used from diag_zonal

Used by: | :alloc_diag_com | :conserv_diag | :diagj_prep | :diagjl_prep | :set_budg_area | :set_j_budg | :set_wtbudg | DIAG_SERIAL:diagcp | DIAG_SERIAL:diagj |
npbl : used from socpbl
Initial Value = >n
imh : used from geom

Used by: | :diag5a | :diag5d | :diag5f | :diag7a | :diagb | DIAG_SERIAL:diagjk |
fim : used from geom

Used by: | :diag5a | :diag5d | :diagb | :set_wtbudg | DIAG_SERIAL:diag4 | DIAG_SERIAL:diag5p | DIAG_SERIAL:diag_isccp | DIAG_SERIAL:diagcp | DIAG_SERIAL:diagjk | DIAG_SERIAL:ij_avg |
byim : used from geom

Used by: | :diag5a | :diagb | :diaggc_prep | :qdynam | DIAG_SERIAL:diagjk |
sname_strlen : used from mdiag_com

units_strlen : used from mdiag_com

lname_strlen : used from mdiag_com

ia_cpl : used from mdiag_com

lstr : integer, public
level of interface between low and mid strat. (approx 10 mb)
Initial Value = LM
Used by: | :diaga | :init_diag |
lat_budg : real*8, dimension(jm_budg), public
latitudes of budget grid
Used by: | :set_wtbudg | DIAG_SERIAL:diagcp | DIAG_SERIAL:diagj |
dxyp_budg : real*8, dimension(jm_budg), public
area array of budget grid
Used by: | :alloc_diag_com | :diagj_prep | :diagjl_prep | :set_budg_area | :set_wtbudg | DIAG_SERIAL:diagcp | DIAG_SERIAL:diagj |
j_budg : integer, public, allocatable, dimension(:, :)
a mapping array that takes every grid point to the
Used by: | :conserv_diag | :inc_aj | :inc_ajl | :inc_ajl2 | :inc_asjl | :set_budg_area | :set_j_budg | :set_wtbudg |
j_1b : integer, public
are the min/max zonal budget latitudes for this processor
Initial Value = 1
Used by: | :conserv_diag | :set_j_budg |
j_0b : integer, public
are the min/max zonal budget latitudes for this processor
Initial Value = 1
Used by: | :conserv_diag | :set_j_budg |
wtbudg2 : real*8, public, allocatable, dimension(:, :)
area weights for diagnostics on budget grid
Used by: | :set_wtbudg |
wtbudg : real*8, public, allocatable, dimension(:, :)
area weights for diagnostics on budget grid
Used by: | :conserv_diag | :inc_aj | :inc_ajl | :inc_asjl | :set_wtbudg |
dxyp_budg_loc : real*8, dimension(jm_budg), public

Used by: | :set_budg_area |
kaj : integer, parameter, public
number of accumulated zonal budget diagnostics
Initial Value = 85
Used by: | :alloc_diag_com | :diagj_prep | :pout_j | DIAG_SERIAL:diagj |
aj : real*8, allocatable, dimension(:, :, :), public
zonal budget diagnostics for each surface type
Used by: | :alloc_diag_com | :diagj_prep | DIAG_SERIAL:diag_gather | DIAG_SERIAL:diag_scatter |
ntype : integer, parameter, public
number of different surface types
Initial Value = 6
Used by: | :alloc_diag_com | :condse | :daily_ch4ox | :diaga | :diagj_prep | :radia | DIAG_SERIAL:diagj |
aj_loc : real*8, allocatable, dimension(:, :, :), public

Used by: | :alloc_diag_com | :inc_aj | :precip_lk | DIAG_SERIAL:diag_gather | DIAG_SERIAL:diag_scatter |
aj_out : real*8, allocatable, dimension(:, :, :), public

Used by: | :alloc_diag_com | :diagj_prep | DIAG_SERIAL:diagj |
ftype : real*8, allocatable, dimension(:, :, :), public
fractions of each surface type
Used by: | :alloc_diag_com | :condse | :daily_ch4ox | :diaga | :radia | :updtype |
itxx :
indices of various types (used only when it matters)
sqrtm : real*8, allocatable, dimension(:, :), public
moved from DIAG5A where it was a saved local array to this
Used by: | :alloc_diag_com | :diag5a |
place :
so its size could be allocated dynamically and still have
it :
preserved from call to call of DIAG5A
itocean : integer, parameter, public
Initial Value = 1
Used by: | :init_diag | :radia | :riverf | :surface_diag1 | :surface_diag1a | :updtype |
itoice : integer, parameter, public
Initial Value = 2
Used by: | :init_diag | :radia | :riverf | :surface_diag1 | :surface_diag1a | :updtype |
itearth : integer, parameter, public
Initial Value = 3
Used by: | :ground_lk | :radia | :remove_extra_snow_to_ocean | :surface_diag1 | :surface_diag1a | :surface_diag3 | :updtype | SOIL_DRV:ghy_diag | SOIL_DRV:ground_e |
itlandi : integer, parameter, public
Initial Value = 4
Used by: | :radia | :surface_diag1 | :surface_diag1a | :surface_diag3 | :surface_diag_post_precip_li | :updtype |
itlake : integer, parameter, public
Initial Value = 5
Used by: | :daily_lake | :ground_lk | :init_diag | :precip_lk | :radia | :riverf | :surface_diag1 | :surface_diag1a | :updtype |
itlkice : integer, parameter, public
Initial Value = 6
Used by: | :daily_lake | :ground_lk | :init_diag | :precip_lk | :radia | :riverf | :surface_diag1 | :surface_diag1a | :updtype |
nreg : integer, parameter, public
number of regions for budget diagnostics
Initial Value = 24
Used by: | :alloc_diag_com | :diagj_prep | :init_diag | DIAG_SERIAL:diagj |
areg : real*8, dimension(nreg, kaj), public
regional budget diagnostics
Used by: | :diagj_prep |
namreg :
title and names of regions for AREG diagnostics
Used by: | :init_diag | DIAG_SERIAL:diagj |
titreg : character*4, public
title and names of regions for AREG diagnostics
Used by: | :init_diag |
areg_loc : real*8, dimension(nreg, kaj), public

Used by: | :inc_areg | :init_diag |
areg_out : real*8, dimension(nreg, kaj), public

Used by: | :diagj_prep | DIAG_SERIAL:diagj |
jreg : integer, allocatable, dimension(:, :), public
lat/lon array defining regions for AREG diagnostics
Used by: | :alloc_diag_com | :daily_lake | :diaga | :ground_lk | :init_diag | :radia | :remove_extra_snow_to_ocean | :riverf | :surface_diag1 | :surface_diag1a | :surface_diag3 | :surface_diag_post_precip_li | SOIL_DRV:ghy_diag | SOIL_DRV:ground_e |
sarea_reg : real*8, dimension(nreg), public
areas of the special regions
Used by: | :diagj_prep | :init_diag |
write_regions : logical, public
whether to write regional diags to acc files
Used by: | :def_meta_atmacc | :init_diag | :write_meta_atmacc |
kajl : integer, parameter, public
number of AJL diagnostics
Initial Value = 77
Used by: | :alloc_diag_com | :diagjl_prep |
ajl : real*8, allocatable, dimension(:, :, :), public
latitude/height diagnostics
Used by: | :alloc_diag_com | :def_rsf_acc | :diagjl_prep | :new_io_acc | DIAG_SERIAL:diag_gather | DIAG_SERIAL:diag_scatter | DIAG_SERIAL:diagjk | DIAG_SERIAL:print_generic_jl |
kasjl : integer, parameter, public
number of ASJL diagnostics
Initial Value = 5
Used by: | :alloc_diag_com |
ajl_loc : real*8, allocatable, dimension(:, :, :), public

Used by: | :alloc_diag_com | :inc_ajl | :inc_ajl2 | ATMDYN:sdrag | DIAG_SERIAL:diag_gather | DIAG_SERIAL:diag_scatter |
asjl : real*8, allocatable, dimension(:, :, :), public
latitude/height supplementary diagnostics (merge with AJL?)
Used by: | :alloc_diag_com | :def_rsf_acc | :diagjl_prep | :new_io_acc | DIAG_SERIAL:diag_gather | DIAG_SERIAL:diag_scatter | DIAG_SERIAL:diagjk | DIAG_SERIAL:print_generic_jl |
kaij : integer, parameter, public
number of AIJ diagnostics
Initial Value = 415 + 350 + 2*280
Used by: | :alloc_diag_com | :alloc_ijdiag_glob | :calc_derived_aij |
asjl_loc : real*8, allocatable, dimension(:, :, :), public

Used by: | :alloc_diag_com | :inc_asjl | DIAG_SERIAL:diag_gather | DIAG_SERIAL:diag_scatter |
kaijmm : integer, parameter, public
maximum number of AIJ min/max diagnostics
Initial Value = 10
Used by: | :alloc_diag_com |
aij : real*8, allocatable, dimension(:, :, :), public
latitude/longitude diagnostics
Used by: | :alloc_ijdiag_glob | :dealloc_ijdiag_glob | DIAG_SERIAL:diag_gather | DIAG_SERIAL:diag_isccp | DIAG_SERIAL:diag_scatter | DIAG_SERIAL:diagjk |
kaijl : integer, parameter, public
number of AIJL accumulations
Initial Value = 20
Used by: | :alloc_diag_com | :alloc_ijdiag_glob | :new_io_acc | DIAG_SERIAL:ijlmap |
aij_loc : real*8, allocatable, dimension(:, :, :), public

Used by: | :alloc_diag_com | :calc_derived_aij | :calc_trop | :condse | :daily_diag | :def_rsf_acc | :diag_isccp_prep | :diag_river | :diag_river_prep | :diaga | :diagb | :ground_lk | :init_diag | :new_io_acc | :precip_lk | :radia | :riverf | :surface | :surface_diag1 | :surface_diag1a | :surface_diag3 | :surface_diag_post_precip_li | DIAG_SERIAL:diag_gather | DIAG_SERIAL:diag_scatter | SOIL_DRV:daily_earth | SOIL_DRV:ghy_diag | SOIL_DRV:ground_e |
aijmm : real*8, allocatable, dimension(:, :, :), public

Used by: | :alloc_diag_com | :def_rsf_acc | :new_io_acc | :surface_diag1 | :surface_diag1a |
ijk_xxx :
AIJL diagnostic indices
ijl_xxx :
AIJL diagnostic indices
ijl_dp : integer, public

Used by: | :diaga |
ijk_dp : integer, public

Used by: | :calc_derived_aij | :diaga |
ijl_u : integer, public

Used by: | :diaga | DIAG_SERIAL:diagil |
ijl_v : integer, public

Used by: | :diaga | DIAG_SERIAL:diagil |
ijk_tx : integer, public

Used by: | :calc_derived_aij | :diaga | DIAG_SERIAL:diagil |
ijk_q : integer, public

Used by: | :diaga | DIAG_SERIAL:diagjk |
ijl_w : integer, public

Used by: | :diaga | DIAG_SERIAL:diagil |
ijk_rh : integer, public

Used by: | :diaga | DIAG_SERIAL:diagil |
ijl_mc : integer, public

Used by: | DIAG_SERIAL:diagil |
aijl : real*8, dimension(:, :, :, :), allocatable, public
3D accumulations for longitude/latitude/level diagnostics
Used by: | :alloc_ijdiag_glob | :dealloc_ijdiag_glob | DIAG_SERIAL:diagil | DIAG_SERIAL:diagjk | DIAG_SERIAL:ijlmap |
ijl_mcamfx : integer, public

ijl_cldwtr : integer, public

ijl_cldice : integer, public

ijl_llh : integer, public

ijl_mctlh : integer, public

ijl_mcdlh : integer, public

ijl_mcslh : integer, public

ijl_ldry : integer, public

ijl_tmcdry : integer, public

ijl_dmcdry : integer, public

ijl_smcdry : integer, public

ijl_rewm : integer, public

ijl_rews : integer, public

ijl_cdwm : integer, public

ijl_cdws : integer, public

ijl_cwwm : integer, public

ijl_cwws : integer, public

ijl_reim : integer, public

ijl_reis : integer, public

ijl_cdim : integer, public

ijl_cdis : integer, public

ijl_cwim : integer, public

ijl_cwis : integer, public

ijl_cfwm : integer, public

ijl_cfim : integer, public

ijl_cfws : integer, public

ijl_cfis : integer, public

ijl_templ : integer, public

Used by: | :diaga |
ijl_gridh : integer, public

Used by: | :diaga |
ijl_husl : integer, public

Used by: | :diaga |
ijl_zl : integer, public

Used by: | :diaga |
ijl_cdtomas : integer, public

npts : integer, parameter, public
number of points at which standard conserv. diags are called
Initial Value = 11
Used by: | :declare_oceanr_consrv | :declare_seaice_consrv | :init_diag | :init_lakeice | :init_lakes | :init_li | :set_con | SOIL_DRV:init_gh |
aijl_loc : real*8, dimension(:, :, :, :), allocatable, public

Used by: | :alloc_diag_com | :calc_derived_aij | :def_rsf_acc | :diaga | :new_io_acc | :radia |
nquant : integer, parameter, public
Number of conserved quantities in conservation diags
Initial Value = 24
Used by: | :set_con |
kcon : integer, parameter, public
number of conservation diagnostics
Initial Value = 170
Used by: | :alloc_diag_com | :diagj_prep | :set_con | DIAG_SERIAL:diagcp |
consrv : real*8, dimension(jm_budg, kcon), public
conservation diagnostics
Used by: | :def_rsf_acc | :diagj_prep | :new_io_acc | DIAG_SERIAL:diag_gather | DIAG_SERIAL:diagcp |
scale_con : real*8, dimension(kcon), public
scales for conservation diagnostics
Used by: | :def_meta_atmacc | :diagj_prep | :init_diag | :set_con | :write_meta_atmacc | DIAG_SERIAL:diagcp |
consrv_loc : real*8, dimension(jm_budg, kcon), public

Used by: | :alloc_diag_com | :conserv_diag | :diagcd | :init_diag | DIAG_SERIAL:diag_gather |
title_con : character*32, dimension(kcon), public
titles for conservation diagnostics
Used by: | :diagca | :init_diag | :init_li | :set_con | DIAG_SERIAL:diagcp |
nsum_con : integer, dimension(kcon), public
indices for summation of conservation diagnostics
Used by: | :diagj_prep | :init_diag | :set_con | DIAG_SERIAL:diagcp |
ia_con : integer, dimension(kcon), public
IDACC numbers for conservation diagnostics
Used by: | :def_meta_atmacc | :diagj_prep | :init_diag | :set_con | :write_meta_atmacc | DIAG_SERIAL:diagcp |
nofm : integer, dimension(npts+1, nquant), public
indices for CONSRV array
Used by: | :alloc_diag_com | :conserv_diag | :init_diag | :set_con |
icon_xx :
indexes for conservation quantities
kcmx : integer, public
actual number of conservation diagnostics
Initial Value = 25
Used by: | :set_con | DIAG_SERIAL:diagcp |
icon_am : integer, public

Used by: | :diagca | :init_diag |
icon_ke : integer, public

Used by: | :diagca | :init_diag |
icon_ms : integer, public

Used by: | :diagca | :init_diag |
icon_tpe : integer, public

Used by: | :diagca | :init_diag |
icon_wm : integer, public

Used by: | :diagca | :init_diag |
icon_lkm : integer, public

Used by: | :diagca | :init_lakes |
icon_lke : integer, public

Used by: | :diagca | :init_lakes |
icon_ewm : integer, public

Used by: | :diagca | :init_diag |
icon_wtg : integer, public

Used by: | :diagca | SOIL_DRV:init_gh |
icon_htg : integer, public

Used by: | :diagca | SOIL_DRV:init_gh |
icon_oce : integer, public

icon_omsi : integer, public

Used by: | :declare_seaice_consrv | :diagca |
icon_ohsi : integer, public

Used by: | :declare_seaice_consrv | :diagca |
icon_ossi : integer, public

Used by: | :declare_seaice_consrv | :diagca |
icon_lmsi : integer, public

Used by: | :diagca | :init_lakeice |
icon_lhsi : integer, public

Used by: | :diagca | :init_lakeice |
icon_mli : integer, public

Used by: | :diagca | :init_li |
icon_hli : integer, public

Used by: | :diagca | :init_li |
icon_micb : integer, public

Used by: | :diagca | :init_li |
icon_hicb : integer, public

Used by: | :diagca | :init_li |
conpt0 : character*10, dimension(npts), public
default titles for each point where conserv diags. are done
Initial Value = (/ "DYNAMICS ","CONDENSATN","RADIATION ","PRECIPITAT", "LAND SURFC","SURFACE ","FILTER ","OCEAN ", "DAILY ","SRF OCN FL","OCN DYNAM "/)
Used by: | :declare_oceanr_consrv | :declare_seaice_consrv | :init_diag | :init_lakeice | :init_lakes | :init_li | SOIL_DRV:init_gh |
hr_in_day : integer, parameter, public
hours in day
Initial Value = 24
Used by: | :diagb | :radia | DIAG_SERIAL:diagdd | DIAG_SERIAL:diagdh |
lmax_dd2 : integer, parameter, public
most upper layer for which multilayer diurnal diagnostics
Initial Value = ls1
Used by: | :ahourly |
ndiuvar : integer, parameter, public
number of diurnal diagnostics
Initial Value = 60
Used by: | :ahourly | :alloc_diag_com | :radia | :surface_diag0 | :surface_diag2 | DIAG_SERIAL:diagdd | DIAG_SERIAL:diagdh |
ndiupt : integer, parameter, public
number of points where diurnal diagnostics are kept
Initial Value = 4
Used by: | :ahourly | :alloc_diag_com | :diagb | :init_diag | :radia | :surface_diag0 | :surface_diag2 | DIAG_SERIAL:diagdd | DIAG_SERIAL:diagdh |
adiurn_dust : integer, public
flag to switch on/off intra daily diagnostics for dust
Initial Value = 0
Used by: | :ahourly | :init_diag |
save3daod : integer, public
flag to calculate ttasv_save in rad code even when
Initial Value = 0
namdd : character*4, dimension(ndiupt), public
(i,j)-coord.,names of boxes w/diurnal cycle diag
Used by: | :init_diag | DIAG_SERIAL:diagdd | DIAG_SERIAL:diagdh |
ijdd : integer, dimension(2, ndiupt), public
(i,j)-coord.,names of boxes w/diurnal cycle diag
Used by: | :ahourly | :diagb | :init_diag | :radia | :surface_diag0 | :surface_diag2 | DIAG_SERIAL:diagdd | DIAG_SERIAL:diagdh |
lldd : real*8, dimension(2, ndiupt), public
(lon,lat)-coords (deg) of boxes w/diurnal cycle diag
Used by: | :init_diag |
adiurn : real*8, dimension(ndiuvar, ndiupt, hr_in_day), public
diurnal diagnostics (24 hour cycles at selected points)
Used by: | :def_rsf_acc | :new_io_acc | DIAG_SERIAL:diagdd |
hr_in_month : integer, public
max hours in month
Used by: | :alloc_diag_com | :radia | DIAG_SERIAL:diagdh |
adiurn_loc : real*8, dimension(ndiuvar, ndiupt, hr_in_day), public

Used by: | :ahourly | :init_diag | :radia | :surface_diag0 | :surface_diag2 |
hdiurn : real*8, allocatable, public, dimension(:, :, :)
hourly diagnostics (hourly value at selected points)
Used by: | :alloc_diag_com | :def_rsf_acc | :new_io_acc | DIAG_SERIAL:diagdh |
kaijk : integer, parameter, public
number of lat/lon constant pressure diagnostics
Initial Value = 15
Used by: | :alloc_diag_com | :alloc_ijdiag_glob | :ijk_defs | DIAG_SERIAL:ijkmap |
hdiurn_loc : real*8, allocatable, public, dimension(:, :, :)

Used by: | :ahourly | :alloc_diag_com | :condse | :init_diag | :radia | :surface_diag0 | :surface_diag2 |
aijk : real*8, allocatable, dimension(:, :, :, :), public
lat/lon constant pressure diagnostics
Used by: | :alloc_ijdiag_glob | :dealloc_ijdiag_glob | DIAG_SERIAL:diag5p | DIAG_SERIAL:diag_gather | DIAG_SERIAL:diag_scatter | DIAG_SERIAL:diagjk | DIAG_SERIAL:ijkmap |
npress :
number of ISCCP optical depth,pressure categories
ntau : integer, parameter, public
number of ISCCP optical depth,pressure categories
Initial Value = 7
Used by: | :condse | :write_meta_atmacc | DIAG_SERIAL:diag_isccp |
aijk_loc : real*8, allocatable, dimension(:, :, :, :), public

Used by: | :alloc_diag_com | :calc_derived_aijk | :def_rsf_acc | :diagb | :new_io_acc | DIAG_SERIAL:diag_gather | DIAG_SERIAL:diag_scatter |
nisccp : integer, parameter, public
number of ISCCP histogram regions
Initial Value = 5
Used by: | :diag_isccp_prep | :init_cld | :write_meta_atmacc | DIAG_SERIAL:diag_isccp |
npres : integer, parameter, public
Initial Value = 7
Used by: | :condse | DIAG_SERIAL:diag_isccp |
isccp_press : integer, parameter, public, dimension(npres)
pressure mid points for isccp histogram
Initial Value = (/ 90, 245, 375, 500, 630, 740, 900 /)
Used by: | :def_meta_atmacc | :write_meta_atmacc | DIAG_SERIAL:diag_isccp |
isccp_tau : real*8, parameter, public, dimension(ntau)
lower bound of optical depth for each isccp tau category
Initial Value = (/ 0d0,.1d0,1.3d0,3.6d0, 9.4d0,23d0,60d0 /)
Used by: | :def_meta_atmacc | :write_meta_atmacc |
isccp_taum : real*8, parameter, public, dimension(ntau-1)
mid point of optical depth for each isccp tau category
Initial Value = (/ .05d0,0.7d0,2 .95d0,6.5d0,16.2d0,41.5d0 /)
Used by: | DIAG_SERIAL:diag_isccp |
isccp_late : real*8, parameter, public, dimension(nisccp+1)
edge latitudes for each isccp lat category (region)
Initial Value = (/-60,-30,-15,15,30,60/)
Used by: | :def_meta_atmacc | :init_cld | :write_meta_atmacc | DIAG_SERIAL:diag_isccp |
isccp_lat : real*8, parameter, public, dimension(nisccp)
midpoint latitudes for each isccp lat category (region)
Initial Value = (/-45.,-22.5,0.,22.5,45./)
aisccp : real*8, public, dimension(ntau, npres, nisccp)
accumlated array of ISCCP histogram
Used by: | :def_rsf_acc | :new_io_acc | DIAG_SERIAL:diag_isccp |
wisccp : real*8, public, dimension(nisccp)
denominator array for ISCCP histograms
Used by: | :def_meta_atmacc | :diag_isccp_prep | :write_meta_atmacc | DIAG_SERIAL:diag_isccp |
aisccp_loc : real*8, public, dimension(ntau, npres, nisccp)

Used by: | :condse | :init_diag |
kgz : integer, parameter, public
number of pressure levels for some diags
Initial Value = 13
Used by: | :alloc_diag_com | :init_diag | DIAG_SERIAL:diagjk |
kgz_max : integer, public
is the actual number of geopotential heights saved
Used by: | :calc_derived_aij | :diaga | :init_diag | DIAG_SERIAL:diagjk | SUBDAILY |
pmb : real*8, dimension(kgz), parameter, public
pressure levels for geopotential heights (extends to strat)
Initial Value = (/1000d0,850d0,700d0,500d0,300d0,100d0,30d0,10d0, 3.4d0,.7d0,.16d0,.07d0,.03d0/)
Used by: | :calc_derived_aij | :diaga | :init_diag | DIAG_SERIAL:diagjk | SUBDAILY:get_subdd |
ght : real*8, dimension(kgz), parameter, public
~mean geopotential heights at PMB level (extends to strat)
Initial Value = (/0.,1500.,3000.,5600.,9500.,16400.,24000.,30000., 40000.,50000.,61000.,67000.,72000./)
Used by: | :calc_derived_aij | :diaga |
pmname : character*4, dimension(kgz), parameter, public
strings describing PMB pressure levels
Initial Value = (/ "1000","850 ","700 ","500 ","300 ","100 ","30 ","10 ", "3.4 ","0.7 ",".16 ",".07 ",".03 " /)
Used by: | SUBDAILY |
save :
{H,M,L}CLDI,saveCTPI,saveTAUI,save{S,T}CLDI: SUBDDiag
savemccldtp : real*8, allocatable, dimension(:, :), public
instnt.SUBDD moist convective cloud top pressure
Used by: | :alloc_diag_com | SUBDAILY:get_subdd |
z_inst : real*8, allocatable, dimension(:, :, :), public
saved instantaneous height field (at PMB levels)
Used by: | :alloc_diag_com | :diaga | SUBDAILY:get_subdd |
rh_inst : real*8, allocatable, dimension(:, :, :), public
saved instantaneous relative hum (at PMB levels)
Used by: | :alloc_diag_com | :diaga | SUBDAILY:get_subdd |
t_inst : real*8, allocatable, dimension(:, :, :), public
saved instantaneous temperature(at PMB levels)
Used by: | :alloc_diag_com | :diaga | SUBDAILY:get_subdd |
p_acc : real*8, allocatable, dimension(:, :), public
accumulated precip (special for SUBDD)
Used by: | :alloc_diag_com | :def_rsf_subdd | :new_io_subdd | SUBDAILY |
pm_acc : real*8, allocatable, dimension(:, :), public
accumulated moist convective precip (special for SUBDD)
Used by: | :alloc_diag_com | :def_rsf_subdd | :new_io_subdd | SUBDAILY |
savehcldi : real*8, allocatable, dimension(:, :), public

Used by: | :alloc_diag_com | SUBDAILY:get_subdd |
savemcldi : real*8, allocatable, dimension(:, :), public

Used by: | :alloc_diag_com | SUBDAILY:get_subdd |
savelcldi : real*8, allocatable, dimension(:, :), public

Used by: | :alloc_diag_com | SUBDAILY:get_subdd |
savectpi : real*8, allocatable, dimension(:, :), public

Used by: | :alloc_diag_com | SUBDAILY:get_subdd |
savetaui : real*8, allocatable, dimension(:, :), public

Used by: | :alloc_diag_com | SUBDAILY:get_subdd |
savescldi : real*8, allocatable, dimension(:, :), public

Used by: | :alloc_diag_com | SUBDAILY:get_subdd |
savetcldi : real*8, allocatable, dimension(:, :), public

Used by: | :alloc_diag_com | SUBDAILY:get_subdd |
ktsf : integer, parameter, public
number of freezing temperature diagnostics
Initial Value = 4
Used by: | :alloc_diag_com | :alloc_ijdiag_glob |
aflx_st : real*8, allocatable, dimension(:, :, :, :), public

Used by: | :alloc_diag_com | :radia |
tsfrez : real*8, allocatable, dimension(:, :, :), public
freezing temperature diagnostics
Used by: | :alloc_ijdiag_glob | :dealloc_ijdiag_glob | DIAG_SERIAL:diag_gather | DIAG_SERIAL:diag_scatter |
ktd : integer, parameter, public
number of diurnal temperature diagnostics
Initial Value = 9
Used by: | :alloc_diag_com | :alloc_ijdiag_glob |
tsfrez_loc : real*8, allocatable, dimension(:, :, :), public

Used by: | :alloc_diag_com | :calc_derived_aij | :daily_diag | :def_rsf_longacc | :new_io_longacc | DIAG_SERIAL:diag_gather | DIAG_SERIAL:diag_scatter | SOIL_DRV:ghy_diag |
tdiurn : real*8, allocatable, dimension(:, :, :), public
diurnal range temperature diagnostics
Used by: | :alloc_diag_com | :daily_diag | :daily_rad | :def_rsf_acc | :new_io_acc | :surface_diag1 | :surface_diag1a | SOIL_DRV:daily_earth | SOIL_DRV:ghy_diag | SUBDAILY:get_subdd |
kdiag : integer, dimension(13), public
array of flags to control diagnostics printout
Used by: | :diaggc_prep | :init_diag | :initdiagj | :print_diags | DIAG_SERIAL:diag5p | DIAG_SERIAL:diagdd | DIAG_SERIAL:diagdh | DIAG_SERIAL:diagj | DIAG_SERIAL:diagjk | DIAG_SERIAL:ijkmap |
tdiurn_glob : real*8, allocatable, public, dimension(:, :, :)

Used by: | :alloc_ijdiag_glob | :dealloc_ijdiag_glob |
nkeynr : integer, parameter, public
number of key number diagnostics
Initial Value = 43
Used by: | DIAGKS |
nkeymo : integer, parameter, public
number of months key diagnostics are saved
Initial Value = 50
keynr : integer, dimension(nkeynr, nkeymo), public
time-series of key numbers
Initial Value = 0
Used by: | :def_rsf_longacc | :init_diag | :new_io_longacc | :print_diags | DIAGKS | DIAG_SERIAL:keyij2 |
keyct : integer, public
next index in KEYNR to be used (1->nkeymo)
Initial Value = 1
Used by: | :def_rsf_longacc | :init_diag | :new_io_longacc | :print_diags | DIAGKS | DIAG_SERIAL:keyij2 |
itwrite : integer, public
control rad.debug output (i,j,amount)
Initial Value = 23
Used by: | :daily_rad | :init_diag | :init_rad | :radia | :readifile |
jwrite : integer, public
control rad.debug output (i,j,amount)
Initial Value = 0
Used by: | :daily_rad | :init_diag | :init_rad | :radia |
iwrite : integer, public
control rad.debug output (i,j,amount)
Initial Value = 0
Used by: | :daily_rad | :init_diag | :init_rad | :radia |
qdiag : logical, public
TRUE for outputting binary diagnostics
Initial Value = .FALSE.
Used by: | DIAG_SERIAL:diag7p | DIAG_SERIAL:diag_isccp | DIAG_SERIAL:diagcp | DIAG_SERIAL:diagdd | DIAG_SERIAL:diagdh | DIAG_SERIAL:diagil | DIAG_SERIAL:diagj | DIAG_SERIAL:diagjk | DIAG_SERIAL:ilmap | DIAG_SERIAL:jkmap | DIAG_SERIAL:jlmap | DIAG_SERIAL:print_generic_jl |
qdiag_ratios : logical, public
TRUE for forming ratios if title="q1 x q2"
Initial Value = .TRUE.
oa : real*8, allocatable, dimension(:, :, :), public
generic diagnostic array for ocean heat transport calculations
Used by: | :alloc_diag_com | :atm_phase1 | :atm_phase2 | :daily_atm | :def_rsf_acc | :new_io_acc | :surface_diag1a | :vflx_ocean |
koa : integer, parameter, public
number of diagnostics needed for ocean heat transp. calcs
Initial Value = 13
Used by: | :alloc_diag_com | :alloc_ijdiag_glob | :atm_phase1 | :atm_phase2 | :daily_atm | :init_diag |
iu_vflxo : integer, public

Used by: | :daily_atm | :daily_diag | :init_diag |
kvflxo : integer, public
if 1 => vert.fluxes into ocean are saved daily
Initial Value = 0
Used by: | :atm_phase2 | :daily_atm | :daily_diag | :init_diag |
oa_glob : real*8, allocatable, public, dimension(:, :, :)

Used by: | :alloc_ijdiag_glob | :dealloc_ijdiag_glob |
iparm : integer, dimension(niparm_max), public
/dparm int/double global parameters written to acc-file
niparm_max : integer, parameter, public
Initial Value = 100
iparm_name : character(len=20), dimension(niparm_max), public

niparm : integer, public
Initial Value = 0
ndparm_max : integer, parameter, public
Initial Value = 100
dparm_name : character(len=20), dimension(ndparm_max), public

dparm : real*8, dimension(ndparm_max), public

j_xxx :
zonal J diagnostic names
ndparm : integer, public
Initial Value = 0
units_j : character(len=units_strlen), dimension(kaj), public
Names/Units of zonal J diagnostics
Used by: | DIAG_SERIAL:diagj |
name_j : character(len=sname_strlen), dimension(kaj), public
Names/Units of zonal J diagnostics
Used by: | :def_meta_atmacc | :write_meta_atmacc | DIAG_SERIAL:diagj |
j_srabs : integer, public

Used by: | :diagj_prep |
j_trhdt : integer, public

Used by: | :diagj_prep | :surface_diag1a |
j_rnfp0 : integer, public

Used by: | :diagj_prep |
j_rnfp1 : integer, public

Used by: | :diagj_prep |
j_rhdt : integer, public

Used by: | :diagj_prep |
j_shdt : integer, public

Used by: | :diagj_prep | :surface_diag1a |
j_evhdt : integer, public

Used by: | :diagj_prep | :surface_diag1a |
j_hz1 : integer, public

Used by: | :diagj_prep |
j_tg2 : integer, public

Used by: | :surface_diag1 | :surface_diag1a |
j_tg1 : integer, public

Used by: | :surface_diag1 | :surface_diag1a |
j_evap : integer, public

Used by: | :surface_diag1a |
j_prcp : integer, public

Used by: | :diagj_prep |
j_tx : integer, public

Used by: | :diaga |
j_tx1 : integer, public

Used by: | :diaga |
j_tsrf : integer, public

Used by: | :surface_diag1 | :surface_diag1a |
j_dtsgst : integer, public

Used by: | :diaga |
j_dtdgtr : integer, public

Used by: | :diaga |
j_ricst : integer, public

Used by: | :diaga |
j_rictr : integer, public

Used by: | :diaga |
j_rosst : integer, public

Used by: | :diaga |
j_rostr : integer, public

Used by: | :diaga |
j_rsi : integer, public

j_type : integer, public

Used by: | :surface_diag1 | :surface_diag1a | SOIL_DRV:ghy_diag |
j_rsnow : integer, public

Used by: | :surface_diag3 |
j_oht : integer, public

j_dtdjs : integer, public

Used by: | :diaga |
j_dtdjt : integer, public

Used by: | :diaga |
j_lstr : integer, public

Used by: | :diaga |
j_ltro : integer, public

Used by: | :diaga |
j_eprcp : integer, public

Used by: | :diagj_prep |
j_run : integer, public

Used by: | :daily_lake | :ground_lk | :precip_lk | :surface_diag3 | :surface_diag_post_precip_li | SOIL_DRV:ghy_diag |
j_erun : integer, public

Used by: | :daily_lake | :diagj_prep | :ground_lk | SOIL_DRV:ghy_diag |
j_hz0 : integer, public

Used by: | :diagj_prep |
j_lwcorr : integer, public

Used by: | :surface_diag1a |
j_rvrd : integer, public

Used by: | :riverf | :surface_diag1a |
j_ervr : integer, public

Used by: | :diagj_prep | :riverf | :surface_diag1a |
j_implm : integer, public

Used by: | :daily_lake | :remove_extra_snow_to_ocean | :surface_diag3 |
j_implh : integer, public

Used by: | :daily_lake | :diagj_prep | :remove_extra_snow_to_ocean | :surface_diag3 |
j_wtr1 : integer, public

Used by: | :ground_lk | SOIL_DRV:ground_e |
j_ace1 : integer, public

Used by: | :surface_diag3 | SOIL_DRV:ground_e |
j_wtr2 : integer, public

Used by: | :ground_lk | SOIL_DRV:ground_e |
j_ace2 : integer, public

Used by: | :surface_diag3 | SOIL_DRV:ground_e |
j_snow : integer, public

Used by: | :surface_diag3 |
j_hz2 : integer, public

Used by: | :diagj_prep |
j_ctopp : integer, public

j_prcpss : integer, public

Used by: | :diagj_prep |
j_prcpmc : integer, public

Used by: | :diagj_prep |
j_qp : integer, public

Used by: | :diaga |
j_gam : integer, public

Used by: | :diaga |
j_gamm : integer, public

Used by: | :diaga |
j_gamc : integer, public

Used by: | :diaga |
j_ftherm : integer, public

j_albp0 : integer, public

Used by: | :diagj_prep |
j_albg : integer, public

Used by: | :diagj_prep |
j_irgw : integer, public

j_irgwe : integer, public

lname_j : character(len=lname_strlen), dimension(kaj), public
Long names of zonal J diagnostics
Used by: | DIAG_SERIAL:diagj |
stitle_j : character(len=16), dimension(kaj), public
short titles for print out for zonal J diagnostics
Used by: | DIAG_SERIAL:diagj |
scale_j : real*8, dimension(kaj), public
scale for zonal J diagnostics
Used by: | :def_meta_atmacc | :write_meta_atmacc | DIAG_SERIAL:diagj |
ia_j : integer, dimension(kaj), public
IDACC indexes for zonal J diagnostics
Used by: | :def_meta_atmacc | :write_meta_atmacc | DIAG_SERIAL:diagj |
fmt_j : character(len=30), dimension(kaj), public
Format strings for zonal J diagnostics
Used by: | DIAG_SERIAL:diagj |
iden_j : integer, dimension(kaj), public
denominators for zonal J diagnostics
Used by: | :def_meta_atmacc | :write_meta_atmacc | DIAG_SERIAL:diagj |
fmt_reg : character(len=30), dimension(kaj), public

Used by: | DIAG_SERIAL:diagj |
hemis_j : real*8, dimension(:, :, :), allocatable, public
hemispheric/global averages of AJ
Used by: | :alloc_diag_com | :def_meta_atmacc | :diagj_prep | :write_meta_atmacc |
iden_reg : integer, dimension(kaj), public

Used by: | :def_meta_atmacc | :write_meta_atmacc | DIAG_SERIAL:diagj |
ij_xxx :
AIJ diagnostic names
name_reg : character(len=sname_strlen), dimension(kaj), public

Used by: | :def_meta_atmacc | :write_meta_atmacc |
ij_gxx :
names for old AIJG arrays
ij_rsoi : integer, public

ij_rsnw : integer, public

Used by: | :surface_diag3 |
ij_snow : integer, public

Used by: | :surface_diag3 |
ij_shdt : integer, public

Used by: | :surface_diag1a |
ij_prec : integer, public

ij_evap : integer, public

Used by: | :calc_derived_aij | :surface_diag1 | :surface_diag1a |
ij_ssat : integer, public

ij_beta : integer, public

Used by: | SOIL_DRV:ghy_diag |
ij_slp1 : integer, public

ij_p4uv : integer, public

ij_pres : integer, public

Used by: | :calc_derived_aij | :diaga |
ij_phi1k : integer, public

Used by: | :calc_derived_aij | :diaga | DIAG_SERIAL:diagjk |
ij_phi850 : integer, public

ij_phi700 : integer, public

ij_phi500 : integer, public

ij_phi300 : integer, public

ij_phi100 : integer, public

ij_phi30 : integer, public

ij_phi10 : integer, public

ij_phi3p4 : integer, public

ij_phi0p7 : integer, public

ij_phi0p16 : integer, public

ij_phi0p07 : integer, public

ij_phi0p03 : integer, public

ij_t850 : integer, public

Used by: | :diaga |
ij_t500 : integer, public

Used by: | :diaga |
ij_t300 : integer, public

Used by: | :diaga |
ij_q850 : integer, public

Used by: | :diaga |
ij_q500 : integer, public

Used by: | :diaga |
ij_q300 : integer, public

Used by: | :diaga |
ij_dsev : integer, public

Used by: | :diagb |
ij_t700 : integer, public

Used by: | :diaga |
ij_q700 : integer, public

Used by: | :diaga |
ij_pblht : integer, public

Used by: | :surface_diag1 | :surface_diag1a |
ij_rh700 : integer, public

Used by: | :diaga |
ij_rh1 : integer, public

Used by: | :diaga |
ij_rh850 : integer, public

Used by: | :diaga |
ij_rh500 : integer, public

Used by: | :diaga |
ij_rh300 : integer, public

Used by: | :diaga |
ij_t100 : integer, public

Used by: | :diaga |
ij_q100 : integer, public

Used by: | :diaga |
ij_rh100 : integer, public

Used by: | :diaga |
ij_srtr : integer, public

Used by: | :surface_diag1a |
ij_neth : integer, public

Used by: | :surface_diag1a |
ij_tg1 : integer, public

Used by: | :surface_diag1 | :surface_diag1a |
ij_rsit : integer, public

Used by: | :surface_diag1a | :surface_diag3 |
ij_tdsl : integer, public

Used by: | SOIL_DRV:daily_earth |
ij_tdcomp : integer, public

Used by: | :calc_derived_aij | SOIL_DRV:daily_earth |
ij_dtdp : integer, public

Used by: | :diaga |
ij_rune : integer, public

Used by: | SOIL_DRV:ghy_diag |
ij_ts1 : integer, public

ij_runli : integer, public

Used by: | :surface_diag3 | :surface_diag_post_precip_li |
ij_ws : integer, public

Used by: | :surface_diag1 | :surface_diag1a |
ij_ts : integer, public

Used by: | :calc_derived_aij | :surface_diag1 | :surface_diag1a |
ij_us : integer, public

Used by: | :calc_derived_aij | :surface_diag1 | :surface_diag1a |
ij_vs : integer, public

Used by: | :calc_derived_aij | :surface_diag1 | :surface_diag1a |
ij_slp : integer, public

Used by: | :diaga |
ij_ujet : integer, public

Used by: | :calc_derived_aij | :diaga |
ij_vjet : integer, public

Used by: | :calc_derived_aij | :diaga |
ij_toc2 : integer, public

ij_taus : integer, public

Used by: | :surface_diag1 | :surface_diag1a |
ij_tauus : integer, public

Used by: | :surface_diag1 | :surface_diag1a |
ij_tauvs : integer, public

Used by: | :surface_diag1 | :surface_diag1a |
ij_gwtr : integer, public

Used by: | SOIL_DRV:ground_e |
ij_qs : integer, public

Used by: | :calc_derived_aij | :surface_diag1 | :surface_diag1a |
ij_strngts : integer, public

Used by: | SOIL_DRV:daily_earth |
ij_arunu : integer, public

Used by: | SOIL_DRV:ghy_diag |
ij_dtgdts : integer, public

Used by: | SOIL_DRV:daily_earth |
ij_puq : integer, public

Used by: | :diagb |
ij_pvq : integer, public

Used by: | :diagb |
ij_tgo : integer, public

Used by: | :surface_diag1 | :surface_diag1a |
ij_tgo2 : integer, public

ij_evapo : integer, public

Used by: | :surface_diag1a |
ij_rhs : integer, public

Used by: | :surface_diag1 | :surface_diag1a |
ij_evapi : integer, public

Used by: | :surface_diag1a |
ij_evapli : integer, public

Used by: | :surface_diag1a |
ij_evape : integer, public

Used by: | SOIL_DRV:ground_e |
ij_f0oc : integer, public

Used by: | :riverf | :surface_diag1a |
ij_f0li : integer, public

Used by: | :surface_diag1a |
ij_f0e : integer, public

Used by: | SOIL_DRV:ground_e |
ij_f1li : integer, public

Used by: | :surface_diag3 | :surface_diag_post_precip_li |
ij_snwf : integer, public

ij_tsli : integer, public

Used by: | :surface_diag1 | :surface_diag1a |
ij_shdtli : integer, public

Used by: | :surface_diag1a |
ij_evhdt : integer, public

Used by: | :surface_diag1a |
ij_trhdt : integer, public

Used by: | :surface_diag1a |
ij_tmaxe : integer, public

Used by: | SOIL_DRV:daily_earth |
ij_tmaxc : integer, public

Used by: | :calc_derived_aij | SOIL_DRV:daily_earth |
ij_tminc : integer, public

Used by: | :calc_derived_aij |
ij_tmnmx : integer, public

Used by: | SOIL_DRV:daily_earth |
ij_pevap : integer, public

Used by: | SOIL_DRV:ghy_diag |
ij_wmsum : integer, public

ij_pscld : integer, public

ij_pdcld : integer, public

ij_dcnvfrq : integer, public

ij_scnvfrq : integer, public

ij_emtmom : integer, public

ij_smtmom : integer, public

ij_fmu : integer, public

Used by: | ATMDYN:compute_dynam_aij_diagnostics |
ij_fmv : integer, public

Used by: | ATMDYN:compute_dynam_aij_diagnostics |
ij_sstabx : integer, public

ij_fgzu : integer, public

Used by: | ATMDYN:compute_dynam_aij_diagnostics | ATMDYN:compute_mass_flux_diags |
ij_fgzv : integer, public

Used by: | ATMDYN:compute_dynam_aij_diagnostics | ATMDYN:compute_mass_flux_diags |
ij_ervr : integer, public

Used by: | :riverf |
ij_mrvr : integer, public

Used by: | :diag_river | :diag_river_prep | :riverf |
ij_sss : integer, public

Used by: | :surface_diag1 | :surface_diag1a |
ij_precmc : integer, public

Used by: | :condse |
ij_lkon : integer, public

Used by: | :daily_diag |
ij_lkoff : integer, public

Used by: | :daily_diag |
ij_lkice : integer, public

Used by: | :daily_diag |
ij_ptrop : integer, public

Used by: | :calc_trop |
ij_ttrop : integer, public

Used by: | :calc_trop |
ij_p850 : integer, public

Used by: | :diaga |
ij_gpp : integer, public

Used by: | SOIL_DRV:ghy_diag |
ij_ipp : integer, public

Used by: | SOIL_DRV:ghy_diag |
ij_rauto : integer, public

Used by: | SOIL_DRV:ghy_diag |
ij_clab : integer, public

Used by: | SOIL_DRV:ghy_diag |
ij_dleaf : integer, public

Used by: | SOIL_DRV:daily_earth |
ij_lai : integer, public

Used by: | SOIL_DRV:ghy_diag |
ij_soilresp : integer, public

Used by: | SOIL_DRV:ghy_diag |
ij_soilcpoolsum : integer, public

Used by: | SOIL_DRV:ghy_diag |
ij_gice : integer, public

Used by: | SOIL_DRV:ground_e |
ij_gwtr1 : integer, public

Used by: | SOIL_DRV:ground_e |
ij_zsnow : integer, public

Used by: | :surface_diag3 |
ij_aflmlt : integer, public

Used by: | SOIL_DRV:ghy_diag |
ij_aeruns : integer, public

Used by: | SOIL_DRV:ghy_diag |
ij_aerunu : integer, public

Used by: | SOIL_DRV:ghy_diag |
ij_htsoil : integer, public

Used by: | SOIL_DRV:ghy_diag |
ij_htsnow : integer, public

Used by: | SOIL_DRV:ghy_diag |
ij_aintrcp : integer, public

Used by: | SOIL_DRV:ghy_diag |
ij_mccldtp : integer, public

ij_mccldbs : integer, public

ij_trsdn : integer, public

Used by: | :calc_derived_aij | :surface_diag1 | :surface_diag1a |
ij_trsup : integer, public

Used by: | :calc_derived_aij | :surface_diag1 | :surface_diag1a |
ij_cldw : integer, public

Used by: | :condse |
ij_cldi : integer, public

Used by: | :condse |
ij_qm : integer, public

Used by: | :diaga |
ij_ssh : integer, public

Used by: | :surface_diag1 | :surface_diag1a |
ij_fwoc : integer, public

Used by: | :riverf | :surface_diag1a |
ij_dskin : integer, public

Used by: | :surface | :surface_diag1 | :surface_diag1a |
ij_mccvtp : integer, public

ij_mccvbs : integer, public

ij_p1000 : integer, public

Used by: | :diaga |
ij_p925 : integer, public

Used by: | :diaga |
ij_p700 : integer, public

Used by: | :diaga |
ij_p600 : integer, public

Used by: | :diaga |
ij_p500 : integer, public

Used by: | :diaga |
ij_li : integer, public

Used by: | :surface_diag1a |
ij_lk : integer, public

Used by: | :calc_derived_aij | :precip_lk |
ij_fveg : integer, public

Used by: | SOIL_DRV:ghy_diag |
ij_gusti : integer, public

Used by: | :surface_diag1 | :surface_diag1a |
ij_mccon : integer, public

Used by: | :surface_diag1 | :surface_diag1a |
ij_wisum : integer, public

ij_slpq : integer, public

Used by: | :diaga |
ij_presq : integer, public

Used by: | :diaga |
ij_dzwm : integer, public

ij_dzim : integer, public

ij_dzws : integer, public

ij_dzis : integer, public

ij_3dnwm : integer, public

ij_3dnim : integer, public

ij_3dnws : integer, public

ij_3dnis : integer, public

ij_3drwm : integer, public

ij_3drim : integer, public

ij_3drws : integer, public

ij_3dris : integer, public

ij_3dlwm : integer, public

ij_3dlim : integer, public

ij_3dlws : integer, public

ij_3dlis : integer, public

ij_ssprec : integer, public

ij_mcprec : integer, public

ij_wmclwp : integer, public

ij_wmctwp : integer, public

ij_wdry : integer, public

ij_wtke : integer, public

ij_wmoist : integer, public

ij_wsgcm : integer, public

ij_wspdf : integer, public

Used by: | :surface_diag1 |
ij_flam : integer, public

ij_ctog : integer, public

ij_flash : integer, public

ij_swaerabs : integer, public

Used by: | :calc_derived_aij |
ij_lwaerabs : integer, public

Used by: | :calc_derived_aij |
ij_swaerabsnt : integer, public

Used by: | :calc_derived_aij |
ij_lwaerabsnt : integer, public

Used by: | :calc_derived_aij |
ij_evapsn : integer, public

Used by: | SOIL_DRV:ghy_diag |
ij_irrw : integer, public

Used by: | SOIL_DRV:ghy_diag |
ij_irre : integer, public

Used by: | SOIL_DRV:ghy_diag |
ij_irrw_tot : integer, public

ij_mwl : integer, public

Used by: | :ground_lk |
ij_gml : integer, public

Used by: | :ground_lk |
ij_mwlir : integer, public

ij_gmlir : integer, public

ij_irrgw : integer, public

ij_irrgwe : integer, public

ij_kw : integer, public

ij_alpha : integer, public

ij_gasx : integer, public

ij_rvrflo : integer, public

Used by: | :riverf |
ij_sisnd : integer, public

ij_silwd : integer, public

Used by: | :surface_diag1 | :surface_diag1a |
ij_silwu : integer, public

Used by: | :surface_diag1 | :surface_diag1a |
ij_sish : integer, public

Used by: | :surface_diag1 | :surface_diag1a |
ij_impmli : integer, public

Used by: | :surface_diag3 |
ij_imphli : integer, public

Used by: | :surface_diag3 |
ij_eicb : integer, public

Used by: | :surface_diag1a |
ij_micb : integer, public

Used by: | :surface_diag1a |
ij_ervro : integer, public

Used by: | :riverf |
ij_mrvro : integer, public

Used by: | :riverf |
ij_impmgr : integer, public

Used by: | :remove_extra_snow_to_ocean |
ij_imphgr : integer, public

Used by: | :remove_extra_snow_to_ocean |
ij_impmki : integer, public

Used by: | :daily_lake |
ij_imphki : integer, public

Used by: | :daily_lake |
ij_mlktogr : integer, public

Used by: | :daily_lake |
ij_hlktogr : integer, public

Used by: | :daily_lake |
ij_precli : integer, public

ij_precsi : integer, public

ij_precoo : integer, public

ij_precgr : integer, public

ij_gwx :
names for gravity wave diagnostics
ij_gbsw : integer, public

Used by: | SOIL_DRV:ground_e |
ij_gbsbet : integer, public

Used by: | SOIL_DRV:ghy_diag |
ij_gbetpen : integer, public

Used by: | SOIL_DRV:ghy_diag |
ij_gvsw : integer, public

Used by: | SOIL_DRV:ground_e |
ij_gbvswt : integer, public

Used by: | SOIL_DRV:ghy_diag |
ij_gconatm : integer, public

Used by: | SOIL_DRV:ghy_diag |
ij_gconcan : integer, public

Used by: | SOIL_DRV:ghy_diag |
ij_gevppen : integer, public

Used by: | SOIL_DRV:ghy_diag |
ij_gbst : integer, public

Used by: | SOIL_DRV:ghy_diag |
ij_gbsevp : integer, public

Used by: | SOIL_DRV:ghy_diag |
ij_gdcevp : integer, public

Used by: | SOIL_DRV:ghy_diag |
ij_gwcevp : integer, public

Used by: | SOIL_DRV:ghy_diag |
ij_gvst : integer, public

Used by: | SOIL_DRV:ghy_diag |
ij_gwtbl : integer, public

Used by: | SOIL_DRV:ghy_diag |
ij_gvswet : integer, public

Used by: | SOIL_DRV:ghy_diag |
ij_gbetat : integer, public

Used by: | SOIL_DRV:ghy_diag |
ij_gbssnd : integer, public

Used by: | SOIL_DRV:ground_e |
ij_gvssnd : integer, public

Used by: | SOIL_DRV:ground_e |
ij_gbsif : integer, public

Used by: | SOIL_DRV:ghy_diag |
ij_gvsif : integer, public

Used by: | SOIL_DRV:ghy_diag |
ij_xxxi :
names for ISCCP diagnostics
ij_gw1 : integer, public

ij_gw2 : integer, public

ij_gw3 : integer, public

ij_gw4 : integer, public

ij_gw5 : integer, public

ij_gw6 : integer, public

ij_gw7 : integer, public

ij_gw8 : integer, public

ij_gw9 : integer, public

ij_ctpi : integer, public

ij_taui : integer, public

ij_lcldi : integer, public

ij_mcldi : integer, public

ij_hcldi : integer, public

ij_tcldi : integer, public

Used by: | DIAG_SERIAL:diag_isccp |
ij_scldi : integer, public

Used by: | :diag_isccp_prep | DIAG_SERIAL:diag_isccp |
ij_psoil : integer, public

Used by: | SOIL_DRV:ghy_diag |
ij_clrsky : integer, public

Used by: | :calc_derived_aij |
ij_pocean : integer, public

Used by: | :calc_derived_aij |
ij_popocn : integer, public

Used by: | :surface_diag1a |
ij_vsfr : integer, public

Used by: | SOIL_DRV:ghy_diag |
ij_bsfr : integer, public

Used by: | SOIL_DRV:ghy_diag |
ij_popwat : integer, public

Used by: | :surface_diag1a |
ij_pwater : integer, public

Used by: | :calc_derived_aij |
ij_topo : integer, public

Used by: | :calc_derived_aij |
ij_jet : integer, public

Used by: | :calc_derived_aij |
ij_wsmn : integer, public

Used by: | :calc_derived_aij |
ij_jetdir : integer, public

Used by: | :calc_derived_aij |
ij_wsdir : integer, public

Used by: | :calc_derived_aij |
ij_grow : integer, public

Used by: | :calc_derived_aij |
ij_netrdp : integer, public

Used by: | :calc_derived_aij |
ij_albp : integer, public

Used by: | :calc_derived_aij |
ij_albg : integer, public

Used by: | :calc_derived_aij |
ij_albv : integer, public

Used by: | :calc_derived_aij |
ij_ntdsese : integer, public

ij_ntdsete : integer, public

ij_fland : integer, public

Used by: | :calc_derived_aij |
ij_dzt1 : integer, public

Used by: | :calc_derived_aij |
ij_albgv : integer, public

Used by: | :calc_derived_aij |
ij_msu2 : integer, public

Used by: | :calc_derived_aij |
ij_msu3 : integer, public

Used by: | :calc_derived_aij |
ij_msu4 : integer, public

Used by: | :calc_derived_aij |
ij_tatm : integer, public

Used by: | :calc_derived_aij |
ij_rtse : integer, public

Used by: | :calc_derived_aij |
ij_hwv : integer, public

Used by: | :calc_derived_aij |
ij_pvs : integer, public

Used by: | :calc_derived_aij |
legend : character(len=40), dimension(25), parameter, public
"contour levels" for ij-maps
Initial Value = (/ '0=0,1=5...9=45,A=50...K=100 ', '0=0...9=90,A=100...I=180...R=270 ', '1=.5...9=4.5,A=5...Z=17.5,+=MORE ', '1=.1...9=.9,A=1...Z=3.5,+=MORE ', '1=2...9=18,A=20...Z=70,+=MORE ', '1=50...9=450,A=500...Z=1750,+=MORE ', '1=100...9=900,A=1000...Z=3500,+=MORE ', '1=20...9=180,A=200...Z=700,+=MORE ', 'A=1...Z=26,3=30...9=90,+=100-150,*=MORE ', '0=0,A=.1...Z=2.6,3=3...9=9,+=10-15 ', '-=LESS,Z=-78...0=0...9=27,+=MORE ', '-=LESS,Z=-260...0=0...9=90,+=MORE ', '-=LESS,Z=-520...0=0...9=180,+=MORE ', '-=LESS,Z=-1300...0=0...9=450,+=MORE ', '-=LESS,Z=-2600...0=0...9=900,+=MORE ', '-=LESS,Z=-3900...0=0...9=1350,+=MORE ', '-=LESS,Z=-5200...0=0...9=1800,+=MORE ', '-=LESS,9=-.9...0=0,A=.1...Z=2.6,+=MORE ', '-=LESS,9=-45...0=0,A=5...I=45...+=MORE ', '-=LESS,9=-90...0=0,A=10...Z=260,+=MORE ', '-=LESS,9=-180...A=20...Z=520,+=MORE ', '-=LESS,9=-9...0=0,A=1...Z=26,+=MORE ', '-=LESS,9=-36...0=0,A=4...Z=104,+=MORE ', '1=5...9=45,A=50...Z=175,+=MORE ', '9=-512...1=-2,0=0,A=2,B=4,C=8...+=MORE '/)
ij_tsurfmin : integer, public

Used by: | :surface_diag1 | :surface_diag1a |
ij_tsurfmax : integer, public

Used by: | :surface_diag1 | :surface_diag1a |
ir_xxxx :
names for indices to LEGEND indicating the (rounded) range
fac_legnd : real*8, dimension(25), public
= 1/(range_of_1_colorbox)
Initial Value = (/ 1d0/5, 1d0/10, 2.d0, 10.d0, 1d0/2, 1d0/50, 1d0/100, 1d0/20, 1.d0, 10.d0, 1d0/3, 1d0/10, 1d0/20, 1d0/50, 1d0/100, 1d0/150, 1d0/200, 10.d0, 1d0/5, 1d0/10, 1d0/20, 1.d0, 1d0/4, 1d0/5, 1d0 /)
ir_pct : integer, parameter, public
Initial Value = 1
ir_angl : integer, parameter, public
Initial Value = 2
ir_0_18 : integer, parameter, public
Initial Value = 3
ir_0_4 : integer, parameter, public
Initial Value = 4
ir_0_71 : integer, parameter, public
Initial Value = 5
ir_0_1775 : integer, parameter, public
Initial Value = 6
ir_0_3550 : integer, parameter, public
Initial Value = 7
ir_0_710 : integer, parameter, public
Initial Value = 8
ir_0_26_150 : integer, parameter, public
Initial Value = 9
ir_0_3_15 : integer, parameter, public
Initial Value = 10
ir_m80_28 : integer, parameter, public
Initial Value = 11
ir_m265_95 : integer, parameter, public
Initial Value = 12
ir_m530_190 : integer, parameter, public
Initial Value = 13
ir_m1325_475 : integer, parameter, public
Initial Value = 14
ir_m2650_950 : integer, parameter, public
Initial Value = 15
ir_m3975_1425 : integer, parameter, public
Initial Value = 16
ir_m5300_1900 : integer, parameter, public
Initial Value = 17
ir_m1_3 : integer, parameter, public
Initial Value = 18
ir_m45_130 : integer, parameter, public
Initial Value = 19
ir_m95_265 : integer, parameter, public
Initial Value = 20
ir_m190_530 : integer, parameter, public
Initial Value = 21
ir_m9_26 : integer, parameter, public
Initial Value = 22
ir_m38_106 : integer, parameter, public
Initial Value = 23
ir_0_180 : integer, parameter, public
Initial Value = 24
ir_log2 : integer, parameter, public
Initial Value = 25
cbar : character(len=38), parameter, dimension(5), public
"color bars" for ij-maps
Initial Value = (/ ' 0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ+', ' 0123456789ABCDEFGHIJKX ', '-9876543210ABCDEFGHIJKLMNOPQRSTUVWXYZ+', ' 0ABCDEFGHIJKLMNOPQRSTUVWXYZ3456789+* ', '-ZYXWVUTSRQPONMLKJIHGFEDCBA0123456789+'/)
ib_xxx :
indices for color bars
isccp_diags : integer, public
: if 1 accumulate ISCCP cloud data (default 0)
Initial Value = 0
Used by: | :calc_derived_acc_atm | :def_meta_atmacc | :init_diag | :print_diags | :write_meta_atmacc | SUBDAILY:get_subdd |
ib_pos : integer, parameter, public
Initial Value = 1
ib_pct : integer, parameter, public
Initial Value = 2
ib_npp : integer, parameter, public
Initial Value = 3
ib_hyb : integer, parameter, public
Initial Value = 4
ib_nnp : integer, parameter, public
Initial Value = 5
ib_ntr : integer, parameter, public
Initial Value = 6
lh_diags : integer, public
: if 1 accumulate 3D drying & latent heating profiles (default 0)
Initial Value = 0
Used by: | :init_diag |
scale_ij : real*8, dimension(kaij), public
scaling for weighted AIJ diagnostics
Used by: | :def_meta_atmacc | :write_meta_atmacc |
units_ij : character(len=units_strlen), dimension(kaij), public
Names/Units of lat/lon IJ diagnostics
name_ij : character(len=sname_strlen), dimension(kaij), public
Names/Units of lat/lon IJ diagnostics
Used by: | :def_meta_atmacc | :write_meta_atmacc |
lname_ij : character(len=lname_strlen), dimension(kaij), public
Long names of lat/lon IJ diagnostics
hemis_ij : real*8, dimension(:, :, :), allocatable, public
hemispheric/global averages of AIJ
Used by: | :alloc_diag_com | :calc_derived_aij | :def_meta_atmacc | :write_meta_atmacc |
nwts_ij : integer, parameter, public
= number of weight-ij-arrays used in IJ-diagnostics
Initial Value = 8
Used by: | :alloc_diag_com |
wt_ij : real*8, dimension(im, jm, nwts_ij), public
various weight-arrays use in ij-diagnostics
Used by: | DIAG_SERIAL:diag_gather | DIAG_SERIAL:ijmap |
iw_xxx :
index for weight-array
ir_ij : integer, dimension(kaij), public
range indices for IJ diagnostics
iw_all : integer, parameter, public
Initial Value = 1
iw_ocn : integer, parameter, public
Initial Value = 2
iw_lake : integer, parameter, public
Initial Value = 3
iw_lice : integer, parameter, public
Initial Value = 4
iw_soil : integer, parameter, public
Initial Value = 5
iw_bare : integer, parameter, public
Initial Value = 6
iw_veg : integer, parameter, public
Initial Value = 7
iw_land : integer, parameter, public
Initial Value = 8
Used by: | DIAG_SERIAL:ijmap |
ia_ij : integer, dimension(kaij), public
IDACC indexes for lat/lon IJ diagnostics
Used by: | :calc_derived_aij | :def_meta_atmacc | :write_meta_atmacc |
denom_ij : integer, dimension(kaij), public
index of AIJ element to use as time/area weight
Used by: | :def_meta_atmacc | :write_meta_atmacc |
igrid_ij : integer, dimension(kaij), public

jgrid_ij : integer, dimension(kaij), public

Used by: | :calc_derived_aij |
scale_ijmm : real*8, dimension(kaijmm), public
scale factor for AIJ min/max diagnostics
Used by: | :def_meta_atmacc | :write_meta_atmacc |
name_ijmm : character(len=sname_strlen), dimension(kaijmm), public

Used by: | :def_meta_atmacc | :write_meta_atmacc |
units_ijmm : character(len=units_strlen), dimension(kaijmm), public

jk_xxx :
names for AJL indices
jl_xxx :
names for AJL indices
lname_ijmm : character(len=lname_strlen), dimension(kaijmm), public

jl_mcmflx : integer, public

Used by: | DIAG_SERIAL:diagjk |
jl_sshr : integer, public

Used by: | DIAG_SERIAL:diagjk |
jl_trbhr : integer, public

Used by: | :atm_diffus | DIAG_SERIAL:diagjk |
jl_mchr : integer, public

jl_dtdyn : integer, public

Used by: | :diaga | :diaga0 | DIAG_SERIAL:diagjk |
jl_mcdflx : integer, public

Used by: | DIAG_SERIAL:diagjk |
jl_rhe : integer, public

Used by: | DIAG_SERIAL:diagjk |
jl_damdc : integer, public

Used by: | :atm_diffus | DIAG_SERIAL:diagjk |
jl_dammc : integer, public

Used by: | DIAG_SERIAL:diagjk |
jl_mchphas : integer, public

jl_mcdtotw : integer, public

jl_mcldht : integer, public

Used by: | DIAG_SERIAL:diagjk |
jl_trbke : integer, public

Used by: | :atm_diffus | DIAG_SERIAL:diagjk |
jl_trbdlht : integer, public

Used by: | :atm_diffus | DIAG_SERIAL:diagjk |
jl_mcheat : integer, public

Used by: | DIAG_SERIAL:diagjk |
jl_mcdry : integer, public

Used by: | DIAG_SERIAL:diagjk |
jl_mcdeep : integer, public

Used by: | DIAG_SERIAL:diagjk |
jl_mcshlw : integer, public

Used by: | DIAG_SERIAL:diagjk |
jl_cldmc : integer, public

jl_cldss : integer, public

jl_csizmc : integer, public

Used by: | DIAG_SERIAL:diagjk |
jl_csizss : integer, public

Used by: | DIAG_SERIAL:diagjk |
jl_cnumwm : integer, public

Used by: | DIAG_SERIAL:diagjk |
jl_cnumim : integer, public

Used by: | DIAG_SERIAL:diagjk |
jl_cnumws : integer, public

Used by: | DIAG_SERIAL:diagjk |
jl_cnumis : integer, public

Used by: | DIAG_SERIAL:diagjk |
jl_dpa : integer, public

Used by: | :diaga |
jl_dpasrc : integer, public

jl_dwasrc : integer, public

jl_rad_cool : integer, public

Used by: | :diagjl_prep | DIAG_SERIAL:diagjk |
jl_epacwt : integer, public

Used by: | :diaga |
jl_wpacwt : integer, public

Used by: | :diaga |
jl_uepac : integer, public

Used by: | :diaga | DIAG_SERIAL:diagjk |
jl_vepac : integer, public

Used by: | :diaga | DIAG_SERIAL:diagjk |
jl_wepac : integer, public

Used by: | :diaga | DIAG_SERIAL:diagjk |
jl_uwpac : integer, public

Used by: | :diaga | DIAG_SERIAL:diagjk |
jl_vwpac : integer, public

Used by: | :diaga | DIAG_SERIAL:diagjk |
jl_wwpac : integer, public

Used by: | :diaga | DIAG_SERIAL:diagjk |
jl_dudtsdrg : integer, public

Used by: | ATMDYN:sdrag | DIAG_SERIAL:diagjk |
jl_dtdtsdrg : integer, public

Used by: | DIAG_SERIAL:diagjk |
jl_dudfmdrg : integer, public

Used by: | :diagjl_prep | DIAG_SERIAL:diagjk |
jl_dumtndrg : integer, public

Used by: | :diagjl_prep | DIAG_SERIAL:diagjk |
jl_dushrdrg : integer, public

Used by: | :diagjl_prep | DIAG_SERIAL:diagjk |
jl_dumcdrgm10 : integer, public

Used by: | :diagjl_prep | DIAG_SERIAL:diagjk |
jl_dumcdrgp10 : integer, public

Used by: | :diagjl_prep | DIAG_SERIAL:diagjk |
jl_dumcdrgm40 : integer, public

Used by: | :diagjl_prep | DIAG_SERIAL:diagjk |
jl_dumcdrgp40 : integer, public

Used by: | :diagjl_prep | DIAG_SERIAL:diagjk |
jl_dumcdrgm20 : integer, public

Used by: | :diagjl_prep | DIAG_SERIAL:diagjk |
jl_dumcdrgp20 : integer, public

Used by: | :diagjl_prep | DIAG_SERIAL:diagjk |
jl_sdifcoef : integer, public

jl_dudtsdif : integer, public

Used by: | :diagjl_prep | DIAG_SERIAL:diagjk |
jl_dudtvdif : integer, public

Used by: | DIAG_SERIAL:diagjk |
jl_gwfirst : integer, public

jl_mcdrgpm10 : integer, public

Used by: | :diagjl_prep | DIAG_SERIAL:diagjk |
jl_mcdrgpm40 : integer, public

Used by: | :diagjl_prep | DIAG_SERIAL:diagjk |
jl_mcdrgpm20 : integer, public

Used by: | :diagjl_prep | DIAG_SERIAL:diagjk |
jl_sumdrg : integer, public

Used by: | :diagjl_prep | DIAG_SERIAL:diagjk |
jgrid_ke : integer, public
latitudes at which U-wind and KE diags are defined
jgrid_u : integer, public
latitudes at which U-wind and KE diags are defined
jk_hght : integer, public

Used by: | :diaga | DIAG_SERIAL:diagjk |
jk_dpwt : integer, public

Used by: | :diaga |
jk_tx : integer, public

Used by: | :diaga | DIAG_SERIAL:diagjk |
jk_q : integer, public

Used by: | :diaga | DIAG_SERIAL:diagjk |
jk_cldh2o : integer, public

Used by: | :diaga | DIAG_SERIAL:diagjk |
jk_rh : integer, public

Used by: | :diaga | DIAG_SERIAL:diagjk |
jk_cldwtr : integer, public

Used by: | :diaga | DIAG_SERIAL:diagjk |
jk_cldice : integer, public

Used by: | :diaga | DIAG_SERIAL:diagjk |
sname_jl : character(len=sname_strlen), dimension(kajl), public
Names of lat-sigma JL diagnostics
Used by: | :def_meta_atmacc | :write_meta_atmacc | DIAG_SERIAL:diagjk | DIAG_SERIAL:print_generic_jl |
igridc : integer, parameter, public
Initial Value = 0
Used by: | :ijk_defs |
igride : integer, parameter, public
Initial Value = 1
Used by: | :ijk_defs |
jgridc : integer, parameter, public
Initial Value = 0
Used by: | :ijk_defs |
jgride : integer, parameter, public
Initial Value = 2
Used by: | :ijk_defs |
kgridc : integer, parameter, public
Initial Value = 0
Used by: | :ijk_defs |
kgride : integer, parameter, public
Initial Value = 4
Used by: | :ijk_defs |
ijkgridc : integer, parameter, public
Initial Value = igridc+jgridc+kgridc
Used by: | :ijk_defs | DIAG_SERIAL:ijlmap |
units_jl : character(len=units_strlen), dimension(kajl), public
Descriptions/Units of JL diagnostics
Used by: | DIAG_SERIAL:diagjk | DIAG_SERIAL:print_generic_jl |
lname_jl : character(len=lname_strlen), dimension(kajl), public
Descriptions/Units of JL diagnostics
Used by: | DIAG_SERIAL:diagjk | DIAG_SERIAL:print_generic_jl |
scale_jl : real*8, dimension(kajl), public
printout scaling factors for JL diagnostics
Used by: | :def_meta_atmacc | :write_meta_atmacc | DIAG_SERIAL:diagjk | DIAG_SERIAL:print_generic_jl |
lgrid_jl : integer, dimension(kajl), public
idacc-numbers,gridtypes for JL diagnostics
Used by: | DIAG_SERIAL:print_generic_jl |
jgrid_jl : integer, dimension(kajl), public
idacc-numbers,gridtypes for JL diagnostics
Used by: | DIAG_SERIAL:diagjk |
ia_jl : integer, dimension(kajl), public
idacc-numbers,gridtypes for JL diagnostics
Used by: | :def_meta_atmacc | :write_meta_atmacc | DIAG_SERIAL:diagjk | DIAG_SERIAL:print_generic_jl |
pow_jl : integer, dimension(kajl), public
printed output scaled by 10**(-pow_jl)
Used by: | DIAG_SERIAL:diagjk | DIAG_SERIAL:print_generic_jl |
denom_jl : integer, dimension(kajl), public
index of AJL element to use as weight
Used by: | :def_meta_atmacc | :write_meta_atmacc | DIAG_SERIAL:print_generic_jl |
hemis_jl : real*8, dimension(:, :, :), allocatable, public
hemispheric/global averages of AJL
Used by: | :alloc_diag_com | :def_meta_atmacc | :diagjl_prep | :write_meta_atmacc |
vmean_jl : real*8, dimension(:, :, :), allocatable, public
vertical sums of AJL
Used by: | :alloc_diag_com | :def_meta_atmacc | :diagjl_prep | :write_meta_atmacc |
name_sjl : character(len=sname_strlen), dimension(kasjl), public
Names of radiative-layer-only SJL diagnostics
ctr_ml : integer, parameter, public
Initial Value = 1
Used by: | :get_zstr | DIAG_SERIAL:ijlmap | DIAG_SERIAL:print_generic_jl |
edg_ml : integer, parameter, public
Initial Value = 2
Used by: | :get_zstr | DIAG_SERIAL:ijlmap | DIAG_SERIAL:print_generic_jl |
ctr_cp : integer, parameter, public
Initial Value = 3
Used by: | :get_zstr | DIAG_SERIAL:ijlmap | DIAG_SERIAL:print_generic_jl |
edg_cp : integer, parameter, public
Initial Value = 4
Used by: | :get_zstr | DIAG_SERIAL:print_generic_jl |
units_sjl : character(len=units_strlen), dimension(kasjl), public
Descriptions/Units of SJL diagnostics
lname_sjl : character(len=lname_strlen), dimension(kasjl), public
Descriptions/Units of SJL diagnostics
scale_sjl : real*8, dimension(kasjl), public
printout scaling factors for SJL diagnostics
Used by: | DIAG_SERIAL:print_generic_jl |
ia_sjl : integer, dimension(kasjl), public
idacc-numbers for SJL diagnostics
Used by: | DIAG_SERIAL:print_generic_jl |
scale_ijk : real*8, dimension(kaijk), public
scaling for weighted AIJK diagnostics
Used by: | :def_meta_atmacc | :ijk_defs | :write_meta_atmacc | DIAG_SERIAL:ijkmap |
off_ijk : real*8, dimension(kaijk), public
offset for weighted AIJK diagnostics
Used by: | :ijk_defs | DIAG_SERIAL:ijkmap |
name_ijk : character(len=sname_strlen), dimension(kaijk), public
Names of lon-lat-pressure IJK diagnostics
Used by: | :def_meta_atmacc | :ijk_defs | :write_meta_atmacc | DIAG_SERIAL:ijkmap |
units_ijk : character(len=units_strlen), dimension(kaijk), public
Descriptions/Units of IJK diagnostics
Used by: | :ijk_defs | DIAG_SERIAL:ijkmap |
lname_ijk : character(len=lname_strlen), dimension(kaijk), public
Descriptions/Units of IJK diagnostics
Used by: | :ijk_defs | DIAG_SERIAL:ijkmap |
jgrid_ijk : integer, dimension(kaijk), public
1=primary grid 2=secondary grid
Used by: | :ijk_defs | DIAG_SERIAL:ijkmap |
scale_ijl : real*8, dimension(kaijl), public
scale factor for AIJL diagnostics
Used by: | :def_meta_atmacc | :write_meta_atmacc | DIAG_SERIAL:ijlmap |
denom_ijk : integer, dimension(kaijk), public

Used by: | :def_meta_atmacc | :ijk_defs | :write_meta_atmacc | DIAG_SERIAL:ijkmap |
ia_ijk : integer, dimension(kaijk), public

Used by: | :def_meta_atmacc | :ijk_defs | :write_meta_atmacc |
denom_ijl : integer, dimension(kaijl), public
idacc-numbers,weights for AIJL diagnostics
Used by: | :def_meta_atmacc | :write_meta_atmacc | DIAG_SERIAL:diagil | DIAG_SERIAL:ijlmap |
ia_ijl : integer, dimension(kaijl), public
idacc-numbers,weights for AIJL diagnostics
Used by: | :def_meta_atmacc | :write_meta_atmacc | DIAG_SERIAL:diagil | DIAG_SERIAL:ijlmap |
name_ijl : character(len=sname_strlen), dimension(kaijl), public
Names of lon-lat-level IJL diagnostics
Used by: | :def_meta_atmacc | :write_meta_atmacc | DIAG_SERIAL:ijlmap |
lgrid_ijl : integer, dimension(kaijl), public

Used by: | DIAG_SERIAL:ijlmap |
jgrid_ijl : integer, dimension(kaijl), public

Used by: | DIAG_SERIAL:ijlmap |
units_ijl : character(len=units_strlen), dimension(kaijl), public
Descriptions/Units of IJL diagnostics
Used by: | DIAG_SERIAL:ijlmap |
lname_ijl : character(len=lname_strlen), dimension(kaijl), public
Descriptions/Units of IJL diagnostics
Used by: | DIAG_SERIAL:ijlmap |
name_consrv : character(len=sname_strlen), dimension(kcon), public
Initial Value = 'unused'
Used by: | :def_meta_atmacc | :init_diag | :set_con | :write_meta_atmacc | DIAG_SERIAL:diagcp |
units_consrv : character(len=units_strlen), dimension(kcon), public

Used by: | :init_diag | :set_con | DIAG_SERIAL:diagcp |
hemis_consrv : real*8, dimension(:, :), allocatable, public
hemispheric/global averages of CONSRV
Used by: | :alloc_diag_com | :def_meta_atmacc | :diagj_prep | :write_meta_atmacc |
lname_consrv : character(len=lname_strlen), dimension(kcon), public

Used by: | :init_diag | :set_con | DIAG_SERIAL:diagcp |
name_dd : character(len=sname_strlen), dimension(ndiuvar), public

Used by: | :def_meta_atmacc | :write_meta_atmacc | DIAG_SERIAL:diagdd | DIAG_SERIAL:diagdh |
units_dd : character(len=units_strlen), dimension(ndiuvar), public

Used by: | DIAG_SERIAL:diagdd | DIAG_SERIAL:diagdh |
lname_dd : character(len=lname_strlen), dimension(ndiuvar), public

Used by: | DIAG_SERIAL:diagdd | DIAG_SERIAL:diagdh |
scale_dd : real*8, dimension(ndiuvar), public

Used by: | :def_meta_atmacc | :write_meta_atmacc | DIAG_SERIAL:diagdd | DIAG_SERIAL:diagdh |
idd_xxx :
names for diurnal diagnostics
denom_dd : integer, dimension(ndiuvar), public

Used by: | :def_meta_atmacc | :write_meta_atmacc | DIAG_SERIAL:diagdd | DIAG_SERIAL:diagdh |
tf_xxx :
tsfrez diagnostic names
idd_ecnd : integer, public

idd_spr : integer, public

Used by: | :surface_diag0 |
idd_pt5 : integer, public

Used by: | :surface_diag0 |
idd_ts : integer, public

Used by: | :surface_diag2 |
idd_tg1 : integer, public

Used by: | :surface_diag2 |
idd_q5 : integer, public

Used by: | :surface_diag0 |
idd_qs : integer, public

Used by: | :surface_diag2 |
idd_qg : integer, public

Used by: | :surface_diag2 |
idd_swg : integer, public

Used by: | :surface_diag2 |
idd_lwg : integer, public

Used by: | :surface_diag2 |
idd_sh : integer, public

Used by: | :surface_diag2 |
idd_lh : integer, public

Used by: | :surface_diag2 |
idd_hz0 : integer, public

Used by: | :surface_diag2 |
idd_ug : integer, public

Used by: | :surface_diag2 |
idd_vg : integer, public

Used by: | :surface_diag2 |
idd_wg : integer, public

Used by: | :surface_diag2 |
idd_us : integer, public

Used by: | :surface_diag2 |
idd_vs : integer, public

Used by: | :surface_diag2 |
idd_ws : integer, public

Used by: | :surface_diag2 |
idd_cia : integer, public

Used by: | :surface_diag2 |
idd_ris : integer, public

idd_rig : integer, public

idd_cm : integer, public

Used by: | :surface_diag2 |
idd_ch : integer, public

Used by: | :surface_diag2 |
idd_cq : integer, public

Used by: | :surface_diag2 |
idd_eds : integer, public

Used by: | :surface_diag2 |
idd_dbl : integer, public

Used by: | :surface_diag2 |
idd_dcf : integer, public

Used by: | :surface_diag2 |
idd_ldc : integer, public

Used by: | :surface_diag2 |
idd_pr : integer, public

idd_ev : integer, public

Used by: | :surface_diag2 |
idd_dmc : integer, public

idd_smc : integer, public

idd_w : integer, public

Used by: | :diagb |
idd_ssp : integer, public

idd_mcp : integer, public

idd_wtke : integer, public

idd_wd : integer, public

idd_wm : integer, public

idd_wsgcm : integer, public

idd_wspdf : integer, public

idd_wtrsh : integer, public

idd_emis : integer, public

idd_emis2 : integer, public

idd_ws2 : integer, public

idd_ustar : integer, public

idd_us3 : integer, public

idd_stress : integer, public

idd_lmon : integer, public

idd_rifl : integer, public

idd_wet : integer, public

idd_grav : integer, public

idd_turb : integer, public

idd_u1 : integer, public

idd_v1 : integer, public

idd_uv1 : integer, public

idd_t1 : integer, public

idd_qq1 : integer, public

idd_p1 : integer, public

idd_w1 : integer, public

idd_phi1 : integer, public

idd_sr1 : integer, public

idd_tr1 : integer, public

idd_load1 : integer, public

idd_conc1 : integer, public

idd_tau1 : integer, public

idd_tau_cs1 : integer, public

idd_zpbl1 : integer, public

idd_uabl1 : integer, public

idd_vabl1 : integer, public

idd_uvabl1 : integer, public

idd_tabl1 : integer, public

idd_qabl1 : integer, public

idd_zhat1 : integer, public

idd_e1 : integer, public

idd_km1 : integer, public

idd_ri1 : integer, public

idd_diam : integer, public

idd_lwp : integer, public

idd_ccn : integer, public

idd_cdnc : integer, public

idd_mass : integer, public

idd_numb : integer, public

idd_so2 : integer, public

idd_lwc : integer, public

idd_ncl : integer, public

idd_pres : integer, public

tf_day1 : integer, public

Used by: | :calc_derived_aij | :daily_diag | :init_diag | SOIL_DRV:ghy_diag |
tf_last : integer, public

Used by: | :calc_derived_aij | :daily_diag | :init_diag | SOIL_DRV:ghy_diag |
tf_lkon : integer, public

Used by: | :daily_diag | :init_diag |
tf_lkoff : integer, public

Used by: | :daily_diag | :init_diag |
name_tsf : character(len=sname_strlen), dimension(ktsf), public

units_tsf : character(len=units_strlen), dimension(ktsf), public

lname_tsf : character(len=lname_strlen), dimension(ktsf), public

ntype_out : integer, parameter
number of output budgets pages
Initial Value = NTYPE+3
Used by: | :alloc_diag_com | :diagj_prep | :initdiagj | DIAG_SERIAL:diagj |
stype_names : character(len=8), dimension(ntype), public
Initial Value = (/ 'OCEAN ','OCEANICE','EARTH ', 'LANDICE ','LAKE ','LAKEICE ' /)
terrain : character*16, dimension(ntype_out), parameter
name of surface type
Initial Value = (/ ' (GLOBAL)','(OPEN OCEAN)',' (OCEAN ICE)',' (OCEAN)', ' (LAND)',' (LAND ICE)',' (OPEN LAKE)',' (LAKE ICE)', ' (LAKES)'/)
Used by: | :initdiagj | DIAG_SERIAL:diagj |
wtj_comp : real*8, dimension(ntype_out, ntype), parameter
Initial Value = RESHAPE( (/1.,1.,0.,1.,0.,0.,0.,0.,0., 1.,0.,1.,1.,0.,0.,0.,0.,0., 1.,0.,0.,0.,1.,0.,0.,0.,0., 1.,0.,0.,0.,0.,1.,0.,0.,0., 1.,0.,0.,0.,0.,0.,1.,0.,1., 1.,0.,0.,0.,0.,0.,0.,1.,1./), (/NTYPE_OUT,NTYPE/) )
Used by: | :diagj_prep |
ple_dn : real*8, dimension(lm), public
ref pressures at upper, middle and lower edge
Used by: | :diaggc_prep | :init_diag | DIAG_SERIAL:diagjk |
plm : real*8, dimension(lm+lm_req), public
ref pressures at upper, middle and lower edge
Used by: | :diaga | :diaggc_prep | :init_diag | DIAG_SERIAL:diagil | DIAG_SERIAL:diagjk | DIAG_SERIAL:print_generic_jl |
ple : real*8, dimension(lm), public
ref pressures at upper, middle and lower edge
Used by: | :diaga | :diaggc_prep | :init_diag | DIAG_SERIAL:diagil | DIAG_SERIAL:diagjk | DIAG_SERIAL:print_generic_jl |
ia_src : integer, parameter, public
Initial Value = ia_cpl
Used by: | :atm_phase1 | :calc_derived_aij | :diagj_prep | :ijhc_defs | DIAG_SERIAL:diag_isccp | DIAG_SERIAL:diagil |
ia_rad : integer, parameter, public
Initial Value = 2
Used by: | :diagj_prep | :radia | DIAG_SERIAL:diagil |
ia_srf : integer, parameter, public
Initial Value = 3
Used by: | :ijhc_defs | :surface |
ia_dga : integer, parameter, public
Initial Value = 4
Used by: | :calc_derived_aij | :diaga | :diagb | :diaggc_prep | :ijk_defs | DIAG_SERIAL:diag5p | DIAG_SERIAL:diagil | DIAG_SERIAL:diagjk | DIAG_SERIAL:ijkmap |
ia_d4a : integer, parameter, public
Initial Value = 5
Used by: | DIAG_SERIAL:diag4 |
ia_d5f : integer, parameter, public
Initial Value = 6
Used by: | :diag5f | DIAG_SERIAL:diag5p |
ia_d5d : integer, parameter, public
Initial Value = 7
Used by: | :atm_phase1 | :set_con | DIAG_SERIAL:diag5p |
ia_d5s : integer, parameter, public
Initial Value = 8
Used by: | :atm_phase1 | :set_con | DIAG_SERIAL:diag5p |
ia_12hr : integer, parameter, public
Initial Value = 9
Used by: | :diag7a | :set_con | :write_meta_atmacc | DIAG_SERIAL:diag5p | DIAG_SERIAL:diag7p | DIAG_SERIAL:diagdd | DIAG_SERIAL:diagdh |
ia_filt : integer, parameter, public
Initial Value = 10
Used by: | :atm_phase1 | :atm_phase2 | :set_con | DIAG_SERIAL:diag5p |
ia_rad_frc : integer, parameter, public
Initial Value = 11
Used by: | :radia |
ia_inst : integer, parameter, public
Initial Value = 12
Used by: | :calc_derived_aij | :diagj_prep | :set_con | DIAG_SERIAL:diag4 | DIAG_SERIAL:diag5p | DIAG_SERIAL:diag7p | DIAG_SERIAL:diagcp |
p1000k : real*8, public
scaling to change reference pressure from 1mb to 1000mb
Used by: | :init_diag | DIAG_SERIAL:diagjk |
incj :
print increments for i and j, so maps/tables fit on page
Used by: | DIAG_SERIAL:diagcp | DIAG_SERIAL:jkmap | DIAG_SERIAL:jlmap | DIAG_SERIAL:maptxt | DIAG_SERIAL:print_generic_jl |
inci : integer, parameter, public
print increments for i and j, so maps/tables fit on page
Initial Value = (im+35)
Used by: | DIAG_SERIAL:ijmap | DIAG_SERIAL:ilmap | DIAG_SERIAL:maptxt |
linect : integer, public
= current line on page of print out
Used by: | DIAG_SERIAL:diagil | DIAG_SERIAL:diagjk | DIAG_SERIAL:ilmap | DIAG_SERIAL:jkmap | DIAG_SERIAL:jlmap | DIAG_SERIAL:print_generic_jl |
lmomax : integer, parameter, public
max no. of layers in any ocean
Initial Value = 50
zoc1 : real*8, public, dimension(LMOMAX+1)
ocean depths for diagnostics (m) (ONLY FOR DEEP OCEAN)
Initial Value = 0.
zoc : real*8, public, dimension(LMOMAX)
ocean depths for diagnostics (m) (ONLY FOR DEEP OCEAN)
Initial Value = 0.
l_rossby_number : real*8, parameter, public
length scale for budget-page Rossby number
Initial Value = 1d6
ndaa : integer, public
: DT_DiagA = NDAA*DTsrc + 2*DT(dyn)
Initial Value = 7
Used by: | :atm_phase1 | :atm_phase2 | :diagb | :diaggc_prep | :init_diag | ATMDYN:dynam |
nda5k : integer, public
: DT_Diag5k = NDA5k*DTsrc + 2*DT(dyn) SpAnal KE
Initial Value = 7
Used by: | :init_diag | ATMDYN:dynam |
nda5d : integer, public
: DT_Diag5d = NDA5d*DTsrc Consrv SpAnal dyn
Initial Value = 1
Used by: | :atm_phase1 | :atm_phase2 | :init_diag |
nda5s : integer, public
: DT_Diag5s = NDA5s*DTsrc Consrv SpAnal src
Initial Value = 1
Used by: | :atm_phase1 | :atm_phase2 | :init_diag |
ndasf : integer, public
: DT_DiagSrfc = NDASf*DTsrc + DTsrc/NIsurf
Initial Value = 1
Used by: | :init_diag | :surface |
nda4 : integer, public
: DT_Diag4 = NDA4 *DTsrc Energy history
Initial Value = 24
Used by: | :atm_phase2 | :init_diag | DIAG_SERIAL:diag4 |
modd5s : integer, public
: if MODxxx=0 do xxx, else skip xxx
Used by: | :atm_phase1 | :atm_phase2 | :surface |
modd5k : integer, public
: if MODxxx=0 do xxx, else skip xxx
Used by: | :init_diag | ATMDYN:dynam | ATMDYN:pgf | MOMENTS:advecv |
cdl_j : type(cdl_type), public
consolidated metadata for AJ output fields in CDL notation
Used by: | :def_meta_atmacc | :write_meta_atmacc |
cdl_latbudg : type(cdl_type), public

cdl_heights : type(cdl_type), public

Used by: | :ijk_defs |
cdl_ij : type(cdl_type), public
consolidated metadata for AIJ output fields in CDL notation
Used by: | :def_meta_atmacc | :write_meta_atmacc |
cdl_reg : type(cdl_type), public

Used by: | :def_meta_atmacc | :write_meta_atmacc |
cdl_jl : type(cdl_type), public
consolidated metadata for AJL output fields in CDL notation
Used by: | :def_meta_atmacc | :write_meta_atmacc |
cdl_ij_template : type(cdl_type), public

Used by: | :ijhc_defs |
cdl_ij_latlon_template : type(cdl_type), public

cdl_ij_latlon : type(cdl_type), public

Used by: | :def_meta_atmacc | :write_meta_atmacc |
cdl_ijmm : type(cdl_type), public

Used by: | :def_meta_atmacc | :write_meta_atmacc |
cdl_ijl : type(cdl_type), public
consolidated metadata for AIJL output fields in CDL notation
Used by: | :def_meta_atmacc | :write_meta_atmacc |
cdl_jl_template : type(cdl_type), public

cdl_ijk : type(cdl_type), public
consolidated metadata for AIJK output fields in CDL notation
Used by: | :def_meta_atmacc | :ijk_defs | :write_meta_atmacc |
cdl_ijl_template : type(cdl_type), public

cdl_ijl_latlon_template : type(cdl_type), public

cdl_ijl_latlon : type(cdl_type), public

Used by: | :def_meta_atmacc | :write_meta_atmacc |
cdl_consrv : type(cdl_type), public
consolidated metadata for CONSRV output fields in
Used by: | :def_meta_atmacc | :write_meta_atmacc |
cdl_dd : type(cdl_type), public
consolidated metadata for ADIURN output fields in CDL notation
Used by: | :def_meta_atmacc | :write_meta_atmacc |
cdl_hd : type(cdl_type), public

Used by: | :def_meta_atmacc | :write_meta_atmacc |
aj_ioptr : real*8, dimension(:, :, :), public, pointer

Used by: | :def_rsf_acc | :new_io_acc |
areg_ioptr : real*8, dimension(:, :), public, pointer

Used by: | :def_rsf_acc | :new_io_acc |
qbp : logical, dimension(NTYPE_OUT+1)

Used by: | :initdiagj | DIAG_SERIAL:diagj |

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

Contact GISS NASA Privacy PolicyAccessibility