IndexRundeck: E6F40Created: Fri May 17 03:30:27 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
Initial Value = >ls1_nominal
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 | :epflxp | :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: | :avgi | :avgvi | :diag5a | :diagb | :diaggc_prep | :epflux | :epflxp | :qdynam | DIAG_SERIAL:diagjk | STRAT:gwdrag | STRAT:vdiff |
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 | OCNML:precip_ocnml | OCNML:run_ocnml |
itoice : integer, parameter, public
Initial Value = 2
Used by: | :init_diag | :radia | :riverf | :surface_diag1 | :surface_diag1a | :updtype | OCNML:precip_ocnml | OCNML:run_ocnml |
itearth : integer, parameter, public
Initial Value = 3
Used by: | :ground_lk | :irrig_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 | :irrig_lk | :radia | :remove_extra_snow_to_ocean | :riverf | :surface_diag1 | :surface_diag1a | :surface_diag3 | :surface_diag_post_precip_li | OCNML:precip_ocnml | OCNML:run_ocnml | 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 = 81
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 | :epflxp | :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 | STRAT:gwdrag | STRAT:vdiff |
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 = 750
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 = 24
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_ch4ox | :daily_diag | :def_rsf_acc | :diag_isccp_prep | :diag_river | :diag_river_prep | :diaga | :diagb | :ground_lk | :init_diag | :irrig_lk | :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 | IRRIGMOD:read_irrig | LAKES:lksourc | OCNML:daily_ocnml | OCNML:osourc | SOIL_DRV:daily_earth | SOIL_DRV:ghy_diag | SOIL_DRV:ground_e | STRAT:gwdrag |
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

ijl_airmass : integer, public
Initial Value = 0
Used by: | :accum_ma_ia_src |
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 | OCNML:init_ocnml | SOIL_DRV:init_gh |
aijl_loc : real*8, dimension(:, :, :, :), allocatable, public

Used by: | :accum_ma_ia_src | :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

Used by: | :diagco | OCNML:init_ocnml |
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 | OCNML:init_ocnml | SOIL_DRV:init_gh |
hr_in_day : integer, parameter, public
hours in day
Initial Value = 24
Used by: | :diagb | :radia | DIAG_SERIAL:diagdd |
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 |
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 |
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 |
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 |
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 |
adiurn_loc : real*8, dimension(ndiuvar, ndiupt, hr_in_day), public

Used by: | :ahourly | :init_diag | :radia | :surface_diag0 | :surface_diag2 |
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 |
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_max : integer, parameter, public
maximum number of pressure levels for some diags
Initial Value = 21
Used by: | :alloc_diag_com | :init_diag | SUBDAILY |
kgz : integer, public
is the actual number of geopotential heights saved
Used by: | :diaga | :init_diag | DIAG_SERIAL:diagjk | DIAG_SERIAL:jlmap |
pmb : real*8, dimension(kgz_max), parameter, public
pressure levels for geopotential heights (extends to strat)
Initial Value = (/ 1000d0, 925d0, 850d0, 700d0, 600d0, 500d0, 400d0, 300d0, 250d0, 200d0, 150d0, 100d0, 70d0, 50d0, 30d0, 20d0, 10d0, 5d0, 1d0, .5d0, .1d0 /)
Used by: | :diaga | :init_diag | DIAG_SERIAL:diagjk | SUBDAILY:get_subdd |
ght : real*8, dimension(kgz_max), parameter, public
~mean geopotential heights at PMB level (extends to strat)
Initial Value = (/ 0d0, 900d0, 1500d0, 3000d0, 4500d0, 5600d0, 7800d0, 9500d0,11000d0,12500d0,14500d0,16400d0, 18500d0,20000d0,24000d0,27000d0,30000d0,35000d0, 47000d0,53000d0,64000d0 /)
pmname : character*4, dimension(kgz_max), parameter, public
strings describing PMB pressure levels
Initial Value = (/ '1000', '925 ', '850 ', '700 ', '600 ', '500 ', '400 ', '300 ', '250 ', '200 ', '150 ', '100 ', '70 ', '50 ', '30 ', '20 ', '10 ', '5 ', '1 ', 'p5 ', 'p1 ' /)
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: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: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.
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

Used by: | OCNML:run_ocnml |
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 | OCNML:precip_ocnml | OCNML:run_ocnml |
j_implh : integer, public

Used by: | :daily_lake | :diagj_prep | :remove_extra_snow_to_ocean | :surface_diag3 | OCNML:precip_ocnml | OCNML:run_ocnml |
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

Used by: | :irrig_lk |
j_irgwe : integer, public

Used by: | :irrig_lk |
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_dse_dyn : integer, public

Used by: | :atm_phase1 |
ij_dke_dyn : integer, public

Used by: | :atm_phase1 |
ij_dte_dyn : integer, public

Used by: | :atm_phase1 |
ij_dhsi_dyn : integer, public

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_pmb1 : integer, public

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

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

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

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

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

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

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

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

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

Used by: | :diagb |
ij_rh1 : 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: | :calc_derived_aij | :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

Used by: | OCNML:daily_ocnml |
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

Used by: | OCNML:daily_ocnml |
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_geotherm : integer, public

Used by: | :ground_lk | OCNML:osourc | SOIL_DRV:ghy_diag |
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_cnvfrq : 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

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_ecvf : integer, public

Used by: | SOIL_DRV:ghy_diag |
ij_landcarbon : 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_tclssct : integer, public

ij_rclssct : integer, public

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_dskinsnow : integer, public

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

ij_mccvbs : integer, public

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_fvden : integer, public

ij_firec : integer, public

ij_flam_rh : integer, public

ij_flam_prec : integer, public

ij_flam_tsurf : integer, public

ij_nsuppress : integer, public

ij_cgign : integer, public

ij_humanign : integer, public

ij_barh1 : integer, public

ij_bawsurf : integer, public

ij_a_tree : integer, public

ij_a_shrub : integer, public

ij_a_grass : integer, public

ij_ba_tree : integer, public

ij_ba_shrub : integer, public

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

Used by: | IRRIGMOD:read_irrig |
ij_mwl : integer, public

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

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

Used by: | :irrig_lk |
ij_gmlir : integer, public

Used by: | :irrig_lk |
ij_irrgw : integer, public

Used by: | :irrig_lk |
ij_irrgwe : integer, public

Used by: | :irrig_lk |
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_riverspeed : integer, public

ij_zlaketop : integer, public

ij_wlay1 : integer, public

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

Used by: | LAKES:lksourc |
ij_tlake2top : integer, public

Used by: | LAKES:lksourc |
ij_tlake2mean : integer, public

Used by: | LAKES:lksourc |
ij_tlake2bot : integer, public

Used by: | LAKES:lksourc |
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_ent_debug : integer, public

ij_nintaerext : integer, dimension(6, 8), public

Used by: | :radia |
ij_nintaersca : integer, dimension(6, 8), public

Used by: | :radia |
ij_nintaerasy : integer, dimension(6, 8), public

Used by: | :radia |
ij_gxx :
names for old AIJG arrays
ij_kw : integer, dimension(:), allocatable, public

ij_alpha : integer, dimension(:), allocatable, public

ij_gasx : integer, dimension(:), allocatable, 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

Used by: | STRAT:gwdrag |
ij_gw2 : integer, public

Used by: | STRAT:gwdrag |
ij_gw3 : integer, public

Used by: | STRAT:gwdrag |
ij_gw4 : integer, public

Used by: | STRAT:gwdrag |
ij_gw5 : integer, public

Used by: | STRAT:gwdrag |
ij_gw6 : integer, public

Used by: | STRAT:gwdrag |
ij_gw7 : integer, public

Used by: | STRAT:gwdrag |
ij_gw8 : integer, public

Used by: | STRAT:gwdrag |
ij_gw9 : integer, public

Used by: | STRAT:gwdrag |
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: | :calc_derived_aij | :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_pland : 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

ij_albgv : integer, public

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

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

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

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

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

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

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

Used by: | :calc_derived_aij |
ij_loti : 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 | :epflxp | DIAG_SERIAL:diagjk |
jl_dammc : integer, public

Used by: | :epflxp | 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 | :diagjl_prep |
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 | :epflxp | DIAG_SERIAL:diagjk |
jl_dumtndrg : integer, public

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

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

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

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

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

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

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

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

Used by: | STRAT:gwdrag |
jl_dudtsdif : integer, public

Used by: | :diagjl_prep | :epflxp | DIAG_SERIAL:diagjk | STRAT:gwdrag |
jl_dudtvdif : integer, public

Used by: | :epflxp | DIAG_SERIAL:diagjk | STRAT:vdiff |
jl_gwfirst : integer, public

Used by: | STRAT:gwdrag |
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 | :diagjl_prep | 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 |
pow_jl_vmean : integer, dimension(kajl), public

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 |
force_jl_vmean : logical, dimension(kajl), public
a mechanism to force vertical averaging for qtys
Used by: | :diagjl_prep |
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 |
name_sjl : character(len=sname_strlen), dimension(kasjl), public
Names of radiative-layer-only SJL diagnostics
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 |
units_dd : character(len=units_strlen), dimension(ndiuvar), public

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

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

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

Used by: | :def_meta_atmacc | :write_meta_atmacc | DIAG_SERIAL:diagdd |
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 | :epflux | :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 | :speca_prep | 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 | :speca_prep | 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 | :speca_prep | DIAG_SERIAL:diag5p |
ia_d5d : integer, parameter, public
Initial Value = 7
Used by: | :atm_phase1 | :set_con | :speca_prep | DIAG_SERIAL:diag5p |
ia_d5s : integer, parameter, public
Initial Value = 8
Used by: | :atm_phase1 | :set_con | :speca_prep | DIAG_SERIAL:diag5p |
ia_12hr : integer, parameter, public
Initial Value = 9
Used by: | :diag7a | :set_con | :speca_prep | :write_meta_atmacc | DIAG_SERIAL:diag5p | DIAG_SERIAL:diag7p | DIAG_SERIAL:diagdd |
ia_filt : integer, parameter, public
Initial Value = 10
Used by: | :atm_phase1 | :atm_phase2 | :set_con | :speca_prep | 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 | :speca_prep | 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: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 | :epflxp | :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