/[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.17 by cnh, Fri Sep 21 03:54:36 2001 UTC revision 1.26 by jmc, Thu Jul 1 21:44:34 2004 UTC
# Line 1  Line 1 
1  C $Header$  C $Header$
2  C $Name$  C $Name$
3    
4  CBOP  CBOP
5  C     !ROUTINE: DYNVARS.h  C     !ROUTINE: DYNVARS.h
6  C     !INTERFACE:  C     !INTERFACE:
# Line 22  C     vVel  - meridional velocity (m/s, Line 23  C     vVel  - meridional velocity (m/s,
23  C     theta - potential temperature (oC, held at pressure/tracer point)  C     theta - potential temperature (oC, held at pressure/tracer point)
24  C     salt  - salinity (ppt, held at pressure/tracer point)  C     salt  - salinity (ppt, held at pressure/tracer point)
25  C     gX, gXNM1 - Time tendencies at current and prvious time levels.  C     gX, gXNM1 - Time tendencies at current and prvious time levels.
 C     uVelD  - D grid zonal velocity  
 C     vVelD  - D grid meridional velocity  
26  C     etaH   - surface r-anomaly, advanced in time consistently  C     etaH   - surface r-anomaly, advanced in time consistently
27  C              with 2.D flow divergence (Exact-Conservation):  C              with 2.D flow divergence (Exact-Conservation):
28  C                etaH^n+1 = etaH^n - delta_t*Div.(H^n U^n)    C                etaH^n+1 = etaH^n - delta_t*Div.(H^n U^n)  
# Line 51  C           implicDiv2DFlow=0 => etaH=et Line 50  C           implicDiv2DFlow=0 => etaH=et
50        _RL  gtNm1(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy)        _RL  gtNm1(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy)
51        _RL  gsNm1(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy)        _RL  gsNm1(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy)
52    
 #ifdef INCLUDE_CD_CODE  
       COMMON /DYNVARS_CD/  
      &                   uVelD, vVelD,  
      &                   etaNm1,  
      &                   uNM1,  vNM1,  
      &                   guCD, gvCD  
       _RL  uVeld (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy)  
       _RL  vVeld (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy)  
       _RL  etaNm1(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)  
       _RL  uNm1  (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy)  
       _RL  vNm1  (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy)  
       _RL  guCD  (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy)  
       _RL  gvCD  (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy)  
 #endif  
   
53  #ifdef ALLOW_NONHYDROSTATIC  #ifdef ALLOW_NONHYDROSTATIC
54        COMMON /DYNVARS_NH/ phi_nh        COMMON /DYNVARS_NH/ phi_nh
55        _RL  phi_nh(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy)        _RL  phi_nh(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy)
56  #endif /* ALLOW_NONHYDROSTATIC */  #endif /* ALLOW_NONHYDROSTATIC */
57    
58    cph(
59    cph the following block will eventually move to a separate
60    cph header file containing requires anomaly fields of control vars.
61    cph
62  #if (defined (ALLOW_AUTODIFF_TAMC) && defined (ALLOW_DIFFKR_CONTROL))  #if (defined (ALLOW_AUTODIFF_TAMC) && defined (ALLOW_DIFFKR_CONTROL))
63        COMMON /DYNVARS_DIFFKR/        COMMON /DYNVARS_DIFFKR/
64       &                       diffKr       &                       diffKr
# Line 81  C           implicDiv2DFlow=0 => etaH=et Line 69  C           implicDiv2DFlow=0 => etaH=et
69       &                       kapgm       &                       kapgm
70        _RL  kapgm  (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy)        _RL  kapgm  (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy)
71  #endif  #endif
72    #if (defined (ALLOW_AUTODIFF_TAMC) && defined (ALLOW_BOTTOMDRAG_CONTROL))
73          COMMON /DYNVARS_BOTTOMDRAG/
74         &                       bottomdragfld
75          _RL  bottomdragfld (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
76    #endif
77    cph
78    cph)
79    
80    C     diagnostic variables:
81    C     phiHydLow  :: Phi-Hydrostatic at r-lower boundary
82    C                  (bottom in z-coordinates, top in p-coordinates)
83    C     totPhiHyd :: total hydrostatic Potential (anomaly, for now),
84    C                  at cell center level ; includes surface contribution.
85    C                 (for diagnostic + used in Z-coord with EOS_funct_P)
86    C     IVDConvCount :: Impl.Vert.Diffusion convection counter:
87    C                   = 0 (not convecting) or 1 (convecting)
88          COMMON /DYNVARS_DIAG/ phiHydLow, totPhiHyd, IVDConvCount
89          _RL  phiHydLow(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
90          _RL  totPhiHyd(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy)
91          _RL  IVDConvCount(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy)
92            
Legend:
Removed from v.1.17  
changed lines
  Added in v.1.26
  ViewVC Help
Powered by ViewVC 1.1.22