Index | Rundeck: P1SoM40 | Created: Thu May 9 03:30:17 EDT 2024 |
GM_COM | File: OCNGM.f |
Author : Gavin Schmidt/Dan Collins
Version: 2009/02/13
Subroutines:
Global Variables:
- radius : used from constant
- omega : used from constant
- grav : used from constant
- im : used from ocean
Used by: | :addfluxes | :computefluxes |
- jm : used from ocean
Used by: | :addfluxes | :computefluxes |
- lmo : used from ocean
Used by: | :addfluxes | :computefluxes |
- lmm : used from ocean
Used by: | :addfluxes | :computefluxes |
- lmu : used from ocean
Used by: | :addfluxes | :computefluxes |
- lmv : used from ocean
Used by: | :addfluxes | :computefluxes |
- dts : used from ocean
- cospo : used from ocean
- sinpo : used from ocean
- ze : used from ocean
- dxypo : used from ocean
Used by: | :addfluxes | :computefluxes |
- mo : used from ocean
Used by: | :addfluxes | :computefluxes |
- dypo : used from ocean
- dyvo : used from ocean
- dxpo : used from ocean
- dzo : used from ocean
- kpl : used from kpp_com
Used by: | :addfluxes | :computefluxes |
- dh : used from ocean_dyn
- oij : used from odiag
- Initial Value
= >oij_loc
- ij_gmsc : used from odiag
- getdomainbounds : used from domain_decomp_1d
Used by: | :addfluxes | :computefluxes |
- halo_update : used from domain_decomp_1d
- north : used from domain_decomp_1d
- south : used from domain_decomp_1d
- pack_data : used from domain_decomp_1d
- am_i_root : used from domain_decomp_1d
- unpack_data : used from domain_decomp_1d
- globalsum : used from domain_decomp_1d
- grid : used from oceanr_dim
- Initial Value
= >ogrid
Used by: | :addfluxes | :computefluxes |
- ai3 :
- Cmponents of GM mixing coeff = F(isopycnal slopes)
- ai2 :
- Cmponents of GM mixing coeff = F(isopycnal slopes)
- ai1 :
- Cmponents of GM mixing coeff = F(isopycnal slopes)
- ai0 :
- Cmponents of GM mixing coeff = F(isopycnal slopes)
- six0 :
- -SIX3,SIY0-SIY3: Slopes calculated from 4 triads of density.
- asx0 :
real*8, allocatable, dimension(:, :, :)
- asx1 :
real*8, allocatable, dimension(:, :, :)
- asx2 :
real*8, allocatable, dimension(:, :, :)
- asx3 :
real*8, allocatable, dimension(:, :, :)
- aix0 :
real*8, allocatable, dimension(:, :, :)
- aix1 :
real*8, allocatable, dimension(:, :, :)
- aix2 :
real*8, allocatable, dimension(:, :, :)
- aix3 :
real*8, allocatable, dimension(:, :, :)
- asy0 :
real*8, allocatable, dimension(:, :, :)
- asy1 :
real*8, allocatable, dimension(:, :, :)
- asy2 :
real*8, allocatable, dimension(:, :, :)
- asy3 :
real*8, allocatable, dimension(:, :, :)
- aiy0 :
real*8, allocatable, dimension(:, :, :)
- aiy1 :
real*8, allocatable, dimension(:, :, :)
- aiy2 :
real*8, allocatable, dimension(:, :, :)
- aiy3 :
real*8, allocatable, dimension(:, :, :)
- s2x0 :
real*8, allocatable, dimension(:, :, :)
- s2x1 :
real*8, allocatable, dimension(:, :, :)
- s2x2 :
real*8, allocatable, dimension(:, :, :)
- s2x3 :
real*8, allocatable, dimension(:, :, :)
- s2y0 :
real*8, allocatable, dimension(:, :, :)
- s2y1 :
real*8, allocatable, dimension(:, :, :)
- s2y2 :
real*8, allocatable, dimension(:, :, :)
- s2y3 :
real*8, allocatable, dimension(:, :, :)
- dxz :
real*8, allocatable, dimension(:, :, :)
- bxz :
real*8, allocatable, dimension(:, :, :)
- cxz :
real*8, allocatable, dimension(:, :, :)
- cdxz :
real*8, allocatable, dimension(:, :, :)
- exz :
real*8, allocatable, dimension(:, :, :)
- dyz :
real*8, allocatable, dimension(:, :, :)
- byz :
real*8, allocatable, dimension(:, :, :)
- cyz :
real*8, allocatable, dimension(:, :, :)
- cdyz :
real*8, allocatable, dimension(:, :, :)
- eyz :
real*8, allocatable, dimension(:, :, :)
- cexz :
real*8, allocatable, dimension(:, :, :)
- ceyz :
real*8, allocatable, dimension(:, :, :)
- bxx :
real*8, allocatable, dimension(:, :, :)
Used by: | :computefluxes |
- byy :
real*8, allocatable, dimension(:, :, :)
Used by: | :computefluxes |
- bzz :
real*8, allocatable, dimension(:, :, :)
Used by: | :computefluxes |
- azx :
real*8, allocatable, dimension(:, :, :)
- bzx :
real*8, allocatable, dimension(:, :, :)
- czx :
real*8, allocatable, dimension(:, :, :)
- aezx :
real*8, allocatable, dimension(:, :, :)
- ezx :
real*8, allocatable, dimension(:, :, :)
- cezx :
real*8, allocatable, dimension(:, :, :)
- azy :
real*8, allocatable, dimension(:, :, :)
- bzy :
real*8, allocatable, dimension(:, :, :)
- czy :
real*8, allocatable, dimension(:, :, :)
- aezy :
real*8, allocatable, dimension(:, :, :)
- ezy :
real*8, allocatable, dimension(:, :, :)
- cezy :
real*8, allocatable, dimension(:, :, :)
- bydzv :
real*8, allocatable, dimension(:, :, :)
- bydh :
real*8, allocatable, dimension(:, :, :)
Used by: | :computefluxes |
- dzv :
real*8, allocatable, dimension(:, :, :)
- ainv :
real*8, allocatable, dimension(:, :, :)
- Calculated Isopycnal thickness diffusion (m^2/s)
- ariv :
real*8, allocatable, dimension(:, :, :)
- Calculated Redi diffusion (m^2/s)
- rhox :
real*8, allocatable, dimension(:, :, :)
- rhoy :
real*8, allocatable, dimension(:, :, :)
- rhomz :
real*8, allocatable, dimension(:, :, :)
- byrhoz :
real*8, allocatable, dimension(:, :, :)
- arai :
- Scaling for Redi diffusion terms to GM diffusion term (1)
- rgmi :
real*8
- ratio of GM (thickness) diffusivity to isoneutral (Redi) diffusivity
Used by: | :computefluxes |
- qcross :
logical
- true if cross terms should be calculated
- amu :
real*8, parameter
- = Visbeck scheme scaling parameter (1)
Initial Value= 0.13d0
- slim :
real*8, parameter
- = Upper limit of isopycnal slopes (stability parameter)
Initial Value= 2d-3
- byslim :
real*8, parameter
- Initial Value
= 1./SLIM
- eps :
real*8, parameter
- Initial Value
= TINY(1.D0)
- vbar :
real*8, allocatable, dimension(:, :, :)
- specific volume (ref to mid point pressure)
Used by: | :vbar_gm0 |
- dvbardz :
real*8, allocatable, dimension(:, :, :)
- specific volume vertical difference (ref to lower point pressure)
Used by: | :vbar_gm0 |
- bydyp :
real*8, allocatable, dimension(:)
Used by: | :computefluxes |
- bydxp :
real*8, allocatable, dimension(:)
Used by: | :computefluxes |
- bydyv :
real*8, allocatable, dimension(:)
- rhoz1k :
real*8, allocatable, dimension(:, :)
- density gradient over top 1km
Used by: | :vbar_gm0 |
- g3d :
real*8, allocatable, dimension(:, :, :)
Used by: | :vbar_gm0 |
- s3d :
real*8, allocatable, dimension(:, :, :)
Used by: | :vbar_gm0 |
- p3d :
real*8, allocatable, dimension(:, :, :)
Used by: | :vbar_gm0 |
- lup :
integer
- level corresponding to 1km depth
Used by: | :vbar_gm0 |