/[MITgcm]/MITgcm/model/inc/DYNVARS.h
ViewVC logotype

Diff of /MITgcm/model/inc/DYNVARS.h

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

revision 1.37 by heimbach, Fri Mar 28 18:48:05 2008 UTC revision 1.38 by jmc, Thu Aug 21 16:01:21 2008 UTC
# Line 69  C           implicDiv2DFlow=0 => etaH=et Line 69  C           implicDiv2DFlow=0 => etaH=et
69       &                   etaH       &                   etaH
70        _RL  etaH  (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)        _RL  etaH  (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
71    
72  cph(  #ifdef ALLOW_3D_DIFFKR
 cph the following block will eventually move to a separate  
 cph header file containing requires anomaly fields of control vars.  
 cph  
 #if (defined ALLOW_3D_DIFFKR || \  
      (defined (ALLOW_AUTODIFF) && defined (ALLOW_DIFFKR_CONTROL)))  
73  C     diffKr :: full 3D specification of Laplacian diffusion coeff.  C     diffKr :: full 3D specification of Laplacian diffusion coeff.
74  C               for mixing of tracers vertically ( units of r^2/s )  C               for mixing of tracers vertically ( units of r^2/s )
75        COMMON /DYNVARS_DIFFKR/        COMMON /DYNVARS_DIFFKR/
76       &                       diffKr       &                       diffKr
77        _RL  diffKr (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy)        _RL  diffKr (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy)
78  #endif  #endif
79    
80    cph(
81    cph the following block will eventually move to a separate
82    cph header file containing requires anomaly fields of control vars.
83    cph
84  #if (defined (ALLOW_AUTODIFF) && defined (ALLOW_KAPGM_CONTROL))  #if (defined (ALLOW_AUTODIFF) && defined (ALLOW_KAPGM_CONTROL))
85        COMMON /DYNVARS_KAPGM/        COMMON /DYNVARS_KAPGM/
86       &                       kapgm       &                       kapgm
# Line 106  C                     BryanLewis79 verti Line 106  C                     BryanLewis79 verti
106        _RL BL79LatArray (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)        _RL BL79LatArray (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
107  #endif  #endif
108    
109    #ifdef ALLOW_ADDFLUID
110    C     addMass   :: source (<0: sink) of fluid in the domain interior
111    C                  in mass per unit of time [kg/s]
112    C                  (generalisation of oceanic real fresh-water flux)
113          COMMON /DYNVARS_ADD_FLUID/ addMass
114          _RL addMass(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy)
115    #endif
116    
117  C     diagnostic variables:  C     diagnostic variables:
118  C     phiHydLow    :: Phi-Hydrostatic at r-lower boundary  C     phiHydLow    :: Phi-Hydrostatic at r-lower boundary
119  C                     (bottom in z-coordinates, top in p-coordinates)  C                     (bottom in z-coordinates, top in p-coordinates)
Legend:
Removed from v.1.37  
changed lines
  Added in v.1.38
  ViewVC Help
Powered by ViewVC 1.1.22