Index | Rundeck: P1SoM40 | Created: Thu May 9 03:30:17 EDT 2024 |
ODIAG | File: ODIAG_COM.f |
Author : Gary Russell/Gavin Schmidt
Version:
Subroutines:
Global Variables:
- im : used from ocean
- jm : used from ocean
- lmo : used from ocean
- nmst : used from straits
- sname_strlen : used from mdiag_com
- units_strlen : used from mdiag_com
- lname_strlen : used from mdiag_com
- koij :
integer, parameter
- Initial Value
= 71
- oij :
- lat-lon ocean diagnostics (on ocean grid)
- oijmm :
real*8, allocatable, dimension(:, :, :)
- lat-lon ocean min/max diagnostics (on ocean grid)
Used by: | :def_rsf_ocdiag | :new_io_ocdiag | :oconv | :reset_odiag |
- oijl :
- 3-dimensional ocean diagnostics
- ol :
real*8, dimension(lmo, kol)
- vertical ocean diagnostics
Used by: | :def_rsf_ocdiag | :new_io_ocdiag | :oconv | :reset_odiag |
- olnst :
real*8, dimension(:, :, :), allocatable
- strait diagnostics
Used by: | :basin_prep | :def_rsf_ocdiag | :new_io_ocdiag | :oijl_prep | :reset_odiag | :stadv | :stconv |
- koijl :
integer, parameter
- Initial Value
= 42
Used by: | :oijl_prep |
- kol :
integer, parameter
- Initial Value
= 6
- kolnst :
integer, parameter
- Initial Value
= 14
- koijmm :
integer, parameter
- Initial Value
= 11
- oij_loc :
real*8, allocatable, dimension(:, :, :)
Used by: | :def_rsf_ocdiag | :glmelt | :ground_oc | :new_io_ocdiag | :oceans | :oconv | :oijl_prep | :reset_odiag | GM_COM |
- oijl_loc :
real*8, allocatable, dimension(:, :, :, :)
Used by: | :basin_prep | :densgrad | :oceans | :oconv | :oijl_prep | :reset_odiag |
- oijl_out :
real*8, allocatable, dimension(:, :, :, :)
- like OIJL_loc, but rescaled for postprocessing
Used by: | :oijl_prep |
- ij_xxx :
- Names for OIJmm diagnostics
- lname_oij :
character(len=lname_strlen), dimension(koij)
- Long names for OIJ diagnostics
- ij_hbl :
integer
Used by: | :oconv |
- ij_bo :
integer
Used by: | :oconv |
- ij_bosol :
integer
Used by: | :oconv |
- ij_ustar :
integer
Used by: | :oconv |
- ij_ssh :
integer
Used by: | :oceans |
- ij_pb :
integer
Used by: | :oceans |
- ij_sf :
integer
Used by: | :oijl_prep |
- ij_srhflx :
integer
Used by: | :ground_oc |
- ij_srwflx :
integer
Used by: | :ground_oc |
- ij_srhflxi :
integer
Used by: | :ground_oc |
- ij_srwflxi :
integer
Used by: | :ground_oc |
- ij_srsflxi :
integer
Used by: | :ground_oc |
- ij_ervr :
integer
Used by: | :ground_oc |
- ij_mrvr :
integer
Used by: | :ground_oc |
- ij_eicb :
integer
Used by: | :glmelt |
- ij_micb :
integer
Used by: | :glmelt |
- ij_gmsc :
integer
Used by: | GM_COM |
- ij_mld :
integer
Used by: | :oconv |
- sname_oij :
character(len=sname_strlen), dimension(koij)
- Short names for OIJ diagnostics
- units_oij :
character(len=units_strlen), dimension(koij)
- Units for OIJ diagnostics
- ia_oij :
integer, dimension(koij)
- IDACC numbers for OIJ diagnostics
- scale_oij :
real*8, dimension(koij)
- scales for OIJ diagnostics
- ij_xxx :
- Names for OIJmm diagnostics
- igrid_oij :
integer, dimension(koij)
- jgrid_oij :
integer, dimension(koij)
- ij_hblmax :
integer
Used by: | :oconv |
- ij_mldmax :
integer
Used by: | :oconv |
- lname_oijmm :
character(len=lname_strlen), dimension(koijmm)
- sname_oijmm :
character(len=sname_strlen), dimension(koijmm)
- units_oijmm :
character(len=units_strlen), dimension(koijmm)
- ijl_xxx :
- Names for OIJL diagnostics
- scale_oijmm :
real*8, dimension(koijmm)
- lname_oijl :
character(len=lname_strlen), dimension(koijl)
- Long names for OIJL diagnostics
- ijl_mo :
integer
Used by: | :basin_prep | :oceans | :oijl_prep |
- ijl_g0m :
integer
Used by: | :basin_prep | :oceans | :oijl_prep |
- ijl_s0m :
integer
Used by: | :basin_prep | :oceans | :oijl_prep |
- ijl_gflx :
integer
Used by: | :basin_prep | :oceans | :oijl_prep |
- ijl_sflx :
integer
Used by: | :basin_prep | :oceans | :oijl_prep |
- ijl_mfu :
integer
Used by: | :basin_prep | :oceans | :oijl_prep |
- ijl_mfv :
integer
Used by: | :basin_prep | :oceans | :oijl_prep |
- ijl_mfw :
integer
Used by: | :oceans | :oijl_prep |
- ijl_ggmfl :
integer
Used by: | :basin_prep | :oceans | :oijl_prep |
- ijl_sgmfl :
integer
Used by: | :basin_prep | :oceans | :oijl_prep |
- ijl_kvm :
integer
Used by: | :oconv | :oijl_prep |
- ijl_kvg :
integer
Used by: | :oconv | :oijl_prep |
- ijl_wgfl :
integer
Used by: | :oconv | :oijl_prep |
- ijl_wsfl :
integer
Used by: | :oconv | :oijl_prep |
- ijl_ptm :
integer
Used by: | :oijl_prep |
- ijl_pdm :
integer
Used by: | :oijl_prep |
- ijl_mou :
integer
Used by: | :oijl_prep |
- ijl_mov :
integer
Used by: | :oijl_prep |
- ijl_mfw2 :
integer
Used by: | :oceans | :oijl_prep |
- ijl_area :
integer
Used by: | :oijl_prep |
- ijl_mfub :
integer
Used by: | :oijl_prep |
- ijl_mfvb :
integer
Used by: | :basin_prep | :densgrad | :oijl_prep |
- ijl_mfwb :
integer
Used by: | :oijl_prep |
- ijl_isdm :
integer
Used by: | :oijl_prep |
- sname_oijl :
character(len=sname_strlen), dimension(koijl)
- Short names for OIJL diagnostics
- units_oijl :
character(len=units_strlen), dimension(koijl)
- Units for OIJL diagnostics
- ia_oijl :
integer, dimension(koijl)
- IDACC numbers for OIJL diagnostics
Used by: | :oijl_prep |
- denom_oijl :
integer, dimension(koijl)
- denominators for OIJL diagnostics
- scale_oijl :
real*8, dimension(koijl)
- scales for OIJL diagnostics
- ln_xxx :
- Names for OLNST diagnostics
- igrid_oijl :
integer, dimension(koijl)
- jgrid_oijl :
integer, dimension(koijl)
- lgrid_oijl :
integer, dimension(koijl)
- lname_olnst :
character(len=lname_strlen), dimension(kolnst)
- Long names for OLNST diagnostics
- ln_kvm :
integer
Used by: | :stconv |
- ln_kvg :
integer
Used by: | :stconv |
- ln_wgfl :
integer
Used by: | :stconv |
- ln_wsfl :
integer
Used by: | :stconv |
- ln_mflx :
integer
Used by: | :basin_prep | :oijl_prep | :stadv |
- ln_gflx :
integer
Used by: | :basin_prep | :stadv |
- ln_sflx :
integer
Used by: | :basin_prep | :stadv |
- ln_icfl :
integer
- sname_olnst :
character(len=sname_strlen), dimension(kolnst)
- Short names for OLNST diagnostics
- units_olnst :
character(len=units_strlen), dimension(kolnst)
- Units for OLNST diagnostics
- ia_olnst :
integer, dimension(kolnst)
- IDACC numbers for OLNST diagnostics
- scale_olnst :
real*8, dimension(kolnst)
- scales for OLNST diagnostics
- lgrid_olnst :
integer, dimension(kolnst)
- Grid descriptors for OLNST diagnostics
- l_xxx :
- Names for OL diagnostics
- icon_xx :
- indexes for conservation quantities
- l_rho :
integer
Used by: | :oconv |
- l_temp :
integer
Used by: | :oconv |
- l_salt :
integer
Used by: | :oconv |
- kbasin :
integer, dimension(:, :), allocatable
- integer index of which basin a particular ocean point is in
Used by: | :basin_prep | :obasin | :strmjl |
- icon_oce :
integer
Used by: | :diagco |
- icon_oke :
integer
Used by: | :diagco |
- icon_oam :
integer
Used by: | :diagco |
- icon_oms :
integer
Used by: | :diagco |
- icon_osl :
integer
Used by: | :diagco |
- xlb :
character
- label for diagnostic titles
- kbasin_glob :
integer, dimension(:, :), allocatable
Used by: | :obasin | :otj_straits | :strmjl | :strmjl_straits |
- flat :
real*8, dimension(jm, 2)
- latitude values on primary and secondary ocean grids
- flon :
real*8, dimension(im, 2)
- longitude values on primary and secondary ocean grids
- iu_otj :
integer
- unit number for ascii output of ocean transports
- nbas :
integer, parameter
- number of ocean basins
Initial Value= 4
Used by: | :basin_prep |
- nqty :
integer, parameter
- number of output qtys zonally averaged over basins
Initial Value= 3
Used by: | :basin_prep |
- basin :
character*16, dimension(nbas)
- names of ocean basins for diag output
Initial Value= (/"Atlantic","Pacific ","Indian ","Global "/)
- ncirc :
integer, parameter
- Initial Value
= 3
- qtyname :
character(len=4), dimension(nqty), parameter
- Initial Value
= (/ 'Mass','Heat','Salt' /)
- qtyflxunit :
character(len=9), dimension(nqty), parameter
- Initial Value
= (/ '10^9 kg/s','10^15 W ','10^6 kg/s' /)
- circstr :
character(len=3), dimension(ncirc), parameter
- Initial Value
= (/ 'moc','gmf','gyr' /)
- ojl :
real*8, dimension(jm, lmo, nbas, kojl/nbas)
- (number of qtys having) zonal sums/means over basins
Used by: | :basin_prep |
- kojl :
integer, parameter
- (number of qtys having) zonal sums/means over basins
Initial Value= 5*NBAS
- circname :
character(len=7), dimension(ncirc), parameter
- Initial Value
= (/ 'Overtrn', 'GM flx ', 'Hor gyr'/)
- jl_xxx :
- indices for qtys in OJL
- ojl_out :
real*8, dimension(jm, lmo, kojl)
Used by: | :basin_prep |
- lname_ojl :
character(len=lname_strlen), dimension(kojl)
- Long names for OJL diagnostics
- jl_m :
integer
Used by: | :basin_prep |
- jl_pt :
integer
Used by: | :basin_prep |
- jl_s :
integer
Used by: | :basin_prep |
- jl_sf :
integer
Used by: | :basin_prep |
- jl_sfb :
integer
Used by: | :basin_prep |
- sname_ojl :
character(len=sname_strlen), dimension(kojl)
- Short names for OJL diagnostics
- units_ojl :
character(len=units_strlen), dimension(kojl)
- Units for OJL diagnostics
- ia_ojl :
integer, dimension(kojl)
- IDACC numbers for OJL diagnostics
- denom_ojl :
integer, dimension(kojl)
- denominators for OJL diagnostics
- scale_ojl :
real*8, dimension(kojl)
- scales for OJL diagnostics
- nsec :
integer, parameter
- number of lat/lon sections for diags
Initial Value= 3
- jgrid_ojl :
integer, dimension(kojl)
- lgrid_ojl :
integer, dimension(kojl)
- sec_lon :
real*8, parameter, dimension(NSEC)
- lat/lon for sectional tracer profiles
Initial Value= (/-165.0,-30.,65./)
- sec_lat :
real*8, parameter, dimension(NSEC)
- lat/lon for sectional tracer profiles
Initial Value= (/-64.,0.,48./)
- otj :
real*8, dimension(0:JM, 4, 3)
Used by: | :basin_prep |
- otjcomp :
real*8, dimension(0:JM, 4, 3, 3)
Used by: | :basin_prep |
- otj_out :
real*8, dimension(JM, kotj)
- reshaped combination of OTJ and OTJCOMP
Used by: | :basin_prep |
- kotj :
integer, parameter
- Initial Value
= 4*4*3
- ia_otj :
integer, dimension(kotj)
- IDACC numbers for OTJ diagnostics
- scale_otj :
real*8, dimension(kotj)
- scales for OTJ diagnostics
- sname_otj :
character(len=sname_strlen), dimension(kotj)
- short names for OTJ diagnostics
- lname_otj :
character(len=lname_strlen), dimension(kotj)
- Long names for OTJ diagnostics
- units_otj :
character(len=units_strlen), dimension(kotj)
- units for OTJ diagnostics
- sfm :
real*8, dimension(jm, 0:lmo, 4)
- meridional overturning stream function for each basin
Used by: | :basin_prep |
- zoc1 :
real*8, dimension(LMO+1)
- ocean depths for diagnostics (m)
Initial Value= 0.
- zoc :
real*8, dimension(LMO)
- ocean depths for diagnostics (m)
Initial Value= 0.
- cdl_oij :
type(cdl_type)
- consolidated metadata for OIJ output fields in CDL notation
- cdl_oijl :
type(cdl_type)
- consolidated metadata for OIJL output fields in CDL notation
- cdl_olnst :
type(cdl_type)
- consolidated metadata for OLNST output fields in CDL notation
- cdl_ojl :
type(cdl_type)
- consolidated metadata for OJL output fields in CDL notation
- cdl_otj :
type(cdl_type)
- consolidated metadata for OTJ output fields in CDL notation
- cdl_olons :
type(cdl_type)
- cdl_olats :
type(cdl_type)
- cdl_odepths :
type(cdl_type)
- cdl_oijmm :
type(cdl_type)
- oijl_ioptr :
real*8, dimension(:, :, :, :), pointer
Used by: | :def_rsf_ocdiag | :new_io_ocdiag |