/[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.16 by jmc, Wed Sep 19 13:50:38 2001 UTC revision 1.19 by heimbach, Fri Nov 29 13:38:37 2002 UTC
# Line 1  Line 1 
1  C $Header$  C $Header$
2  C $Name$  C $Name$
3  C  CBOP
4  C     /==========================================================\  C     !ROUTINE: DYNVARS.h
5  C     | DYNVARS.h                                                |  C     !INTERFACE:
6  C     | o Dynamical model variables (common block DYNVARS_R)     |  C     include "DYNVARS.h"
7  C     |==========================================================|  C     !DESCRIPTION:
8  C     | The value and two levels of time tendency are held for   |  C     \bv
9  C     | each prognostic variable.                                |  C     *==========================================================*
10  C     \==========================================================/  C     | DYNVARS.h                                                
11    C     | o Dynamical model variables (common block DYNVARS_R)      
12    C     *==========================================================*
13    C     | The value and two levels of time tendency are held for    
14    C     | each prognostic variable.                                
15    C     *==========================================================*
16    C     \ev
17    CEOP
18  C  C
19  C     etaN  - free-surface r-anomaly (r unit) at current time level  C     etaN  - free-surface r-anomaly (r unit) at current time level
20  C     uVel  - zonal velocity (m/s, i=1 held at western face)  C     uVel  - zonal velocity (m/s, i=1 held at western face)
# Line 64  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 74  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 variable: holds phiHyd at the rigid surface
97    C     (bottom in z-coordinates, top in p-coordinates)
98          COMMON /DYNVARS_R_DIAG/ phiHydLow    
99          _RL  phiHydLow(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
Legend:
Removed from v.1.16  
changed lines
  Added in v.1.19
  ViewVC Help
Powered by ViewVC 1.1.22