/[MITgcm]/MITgcm/pkg/gmredi/GMREDI.h
ViewVC logotype

Diff of /MITgcm/pkg/gmredi/GMREDI.h

Parent Directory Parent Directory | Revision Log Revision Log | View Revision Graph Revision Graph | View Patch Patch

revision 1.22 by m_bates, Thu Jun 27 14:51:40 2013 UTC revision 1.23 by m_bates, Thu Jul 11 14:33:23 2013 UTC
# Line 46  C     GM_BVP_modeNumber :: vertical mode Line 46  C     GM_BVP_modeNumber :: vertical mode
46  C     GM_K3D_NModes :: number of vertical modes used for calculating Xi in K3D  C     GM_K3D_NModes :: number of vertical modes used for calculating Xi in K3D
47        INTEGER GM_BVP_modeNumber        INTEGER GM_BVP_modeNumber
48        INTEGER GM_K3D_NModes        INTEGER GM_K3D_NModes
49          PARAMETER (GM_K3D_NModes=6)
50        COMMON /GM_PARAMS_I/        COMMON /GM_PARAMS_I/
51       &                   GM_BVP_modeNumber,       &                   GM_BVP_modeNumber
      &                   GM_K3D_NModes  
52    
53  C--   COMMON /GM_PARAMS_C/ GM/Redi Character-type parameters  C--   COMMON /GM_PARAMS_C/ GM/Redi Character-type parameters
54  C     GM_taper_scheme :: select which tapering/clipping scheme to use  C     GM_taper_scheme :: select which tapering/clipping scheme to use
# Line 94  C     GM_K3D_maxLurms:: Upper bound on t Line 94  C     GM_K3D_maxLurms:: Upper bound on t
94  C     GM_K3D_minCori :: minimum value for f (to stop things blowing up near the equator)  C     GM_K3D_minCori :: minimum value for f (to stop things blowing up near the equator)
95  C     GM_K3D_minN2   :: minimum value for the square of the buoyancy frequency  C     GM_K3D_minN2   :: minimum value for the square of the buoyancy frequency
96  C     GM_K3D_surfMinDepth :: minimum value for the depth of the surface layer  C     GM_K3D_surfMinDepth :: minimum value for the depth of the surface layer
97    C     GM_K3D_vecFreq :: Frequency at which to update the baroclinic modes
98    
99        _RL GM_isopycK        _RL GM_isopycK
100        _RL GM_background_K        _RL GM_background_K
# Line 121  C     GM_K3D_surfMinDepth :: minimum val Line 122  C     GM_K3D_surfMinDepth :: minimum val
122        _RL GM_K3D_minCori        _RL GM_K3D_minCori
123        _RL GM_K3D_minN2        _RL GM_K3D_minN2
124        _RL GM_K3D_surfMinDepth        _RL GM_K3D_surfMinDepth
125          _RL GM_K3D_vecFreq
126        _RL GM_facTrL2dz        _RL GM_facTrL2dz
127        _RL GM_facTrL2ML        _RL GM_facTrL2ML
128        _RL GM_maxTransLay        _RL GM_maxTransLay
# Line 145  C     GM_K3D_surfMinDepth :: minimum val Line 147  C     GM_K3D_surfMinDepth :: minimum val
147       &                   GM_K3D_smallK, GM_K3D_maxSlope, GM_K3D_maxC,       &                   GM_K3D_smallK, GM_K3D_maxSlope, GM_K3D_maxC,
148       &                   GM_maxK3D, GM_K3D_minCori, GM_K3D_minN2,       &                   GM_maxK3D, GM_K3D_minCori, GM_K3D_minN2,
149       &                   GM_K3D_surfMinDepth, GM_K3D_maxLurms,       &                   GM_K3D_surfMinDepth, GM_K3D_maxLurms,
150       &                   GM_K3D_constK,       &                   GM_K3D_constK, GM_K3D_vecFreq,
151       &                   GM_facTrL2dz, GM_facTrL2ML, GM_maxTransLay,       &                   GM_facTrL2dz, GM_facTrL2ML, GM_maxTransLay,
152       &                   GM_Scrit, GM_Sd, GM_BVP_cMin,       &                   GM_Scrit, GM_Sd, GM_BVP_cMin,
153       &                   subMeso_Ceff, subMeso_invTau, subMeso_LfMin       &                   subMeso_Ceff, subMeso_invTau, subMeso_LfMin
# Line 232  C     for Visbeck et al. parameterizatio Line 234  C     for Visbeck et al. parameterizatio
234  #ifdef GM_K3D  #ifdef GM_K3D
235  C     K3D          :: The three dimensional eddy mixing coeffixint [m**2/s]  C     K3D          :: The three dimensional eddy mixing coeffixint [m**2/s]
236        _RL K3D(1-Olx:sNx+Olx,1-Oly:sNy+Oly,1:Nr,nSx,nSy)        _RL K3D(1-Olx:sNx+Olx,1-Oly:sNy+Oly,1:Nr,nSx,nSy)
237          _RL modesC(1,1-Olx:sNx+Olx,1-Oly:sNy+Oly,1:Nr,nSx,nSy)
238          _RL modesW(GM_K3D_NModes,1-Olx:sNx+Olx,
239         &     1-Oly:sNy+Oly,1:Nr,nSx,nSy)
240          _RL modesS(GM_K3D_NModes,1-Olx:sNx+Olx,
241         &     1-Oly:sNy+Oly,1:Nr,nSx,nSy)
242          _RL Rdef(1-Olx:sNx+Olx,1-Oly:sNy+Oly,nSx,nSy)
243    
244        COMMON /GM_K3D/ K3D  
245          COMMON /GM_K3D/ K3D, modesC, modesW, modesS, Rdef
246  #endif  #endif
247  #endif /* ALLOW_GMREDI */  #endif /* ALLOW_GMREDI */
248    
Legend:
Removed from v.1.22  
changed lines
  Added in v.1.23
  ViewVC Help
Powered by ViewVC 1.1.22