/[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.23 by edhill, Tue Oct 28 22:57:59 2003 UTC
# Line 1  Line 1 
1  C $Header$  C $Header$
2  C $Name$  C $Name$
3    
4    #include "PACKAGES_CONFIG.h"
5    
6  CBOP  CBOP
7  C     !ROUTINE: DYNVARS.h  C     !ROUTINE: DYNVARS.h
8  C     !INTERFACE:  C     !INTERFACE:
# Line 51  C           implicDiv2DFlow=0 => etaH=et Line 54  C           implicDiv2DFlow=0 => etaH=et
54        _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)
55        _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)
56    
57  #ifdef INCLUDE_CD_CODE  #ifdef ALLOW_CD_CODE
58        COMMON /DYNVARS_CD/        COMMON /DYNVARS_CD/
59       &                   uVelD, vVelD,       &                   uVelD, vVelD,
60       &                   etaNm1,       &                   etaNm1,
61       &                   uNM1,  vNM1,       &                   uNM1,  vNM1
      &                   guCD, gvCD  
62        _RL  uVeld (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy)        _RL  uVeld (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy)
63        _RL  vVeld (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy)        _RL  vVeld (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy)
64        _RL  etaNm1(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)        _RL  etaNm1(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
65        _RL  uNm1  (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy)        _RL  uNm1  (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy)
66        _RL  vNm1  (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)  
67  #endif  #endif
68    
69  #ifdef ALLOW_NONHYDROSTATIC  #ifdef ALLOW_NONHYDROSTATIC
# Line 71  C           implicDiv2DFlow=0 => etaH=et Line 71  C           implicDiv2DFlow=0 => etaH=et
71        _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)
72  #endif /* ALLOW_NONHYDROSTATIC */  #endif /* ALLOW_NONHYDROSTATIC */
73    
74    cph(
75    cph the following block will eventually move to a separate
76    cph header file containing requires anomaly fields of control vars.
77    cph
78  #if (defined (ALLOW_AUTODIFF_TAMC) && defined (ALLOW_DIFFKR_CONTROL))  #if (defined (ALLOW_AUTODIFF_TAMC) && defined (ALLOW_DIFFKR_CONTROL))
79        COMMON /DYNVARS_DIFFKR/        COMMON /DYNVARS_DIFFKR/
80       &                       diffKr       &                       diffKr
# Line 81  C           implicDiv2DFlow=0 => etaH=et Line 85  C           implicDiv2DFlow=0 => etaH=et
85       &                       kapgm       &                       kapgm
86        _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)
87  #endif  #endif
88    #if (defined (ALLOW_AUTODIFF_TAMC) && defined (ALLOW_BOTTOMDRAG_CONTROL))
89          COMMON /DYNVARS_BOTTOMDRAG/
90         &                       bottomdragfld
91          _RL  bottomdragfld (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
92    #endif
93    cph
94    cph)
95    
96    C     diagnostic variables:
97    C     phiHydLow  :: Phi-Hydrostatic at r-lower boundary
98    C                  (bottom in z-coordinates, top in p-coordinates)
99    C     totPhiHyd :: total hydrostatic Potential (anomaly, for now),
100    C                  at cell center level ; includes surface contribution.
101    C                 (for diagnostic + used in Z-coord with EOS_funct_P)
102          COMMON /DYNVARS_DIAG/ phiHydLow, totPhiHyd
103          _RL  phiHydLow(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
104          _RL  totPhiHyd(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy)
Legend:
Removed from v.1.17  
changed lines
  Added in v.1.23
  ViewVC Help
Powered by ViewVC 1.1.22