/[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.11 by cnh, Sun Feb 4 14:38:44 2001 UTC revision 1.16 by jmc, Wed Sep 19 13:50:38 2001 UTC
# Line 9  C     | The value and two levels of time Line 9  C     | The value and two levels of time
9  C     | each prognostic variable.                                |  C     | each prognostic variable.                                |
10  C     \==========================================================/  C     \==========================================================/
11  C  C
12    C     etaN  - free-surface r-anomaly (r unit) at current time level
13  C     uVel  - zonal velocity (m/s, i=1 held at western face)  C     uVel  - zonal velocity (m/s, i=1 held at western face)
14  C     vVel  - meridional velocity (m/s, j=1 held at southern face)  C     vVel  - meridional velocity (m/s, j=1 held at southern face)
15  C     theta - potential temperature (oC, held at pressure/tracer point)  C     theta - potential temperature (oC, held at pressure/tracer point)
# Line 16  C     salt  - salinity (ppt, held at pre Line 17  C     salt  - salinity (ppt, held at pre
17  C     gX, gXNM1 - Time tendencies at current and prvious time levels.  C     gX, gXNM1 - Time tendencies at current and prvious time levels.
18  C     uVelD  - D grid zonal velocity  C     uVelD  - D grid zonal velocity
19  C     vVelD  - D grid meridional velocity  C     vVelD  - D grid meridional velocity
20    C     etaH   - surface r-anomaly, advanced in time consistently
21    C              with 2.D flow divergence (Exact-Conservation):
22    C                etaH^n+1 = etaH^n - delta_t*Div.(H^n U^n)  
23    C  note: a) used with "exactConserv" but strictly necessary for NonLinFreeSurf
24    C        b) same as etaN but not necessarely at the same time, e.g.:
25    C           implicDiv2DFlow=0 => etaH=etaN ; =1 => etaH=etaNm1 ;
26    
27        COMMON /DYNVARS_R/        COMMON /DYNVARS_R/
28         &                   etaN, etaH,
29       &                   uVel,vVel,wVel,theta,salt,       &                   uVel,vVel,wVel,theta,salt,
30       &                   gu,gv,gt,gs,guNm1,gvNm1,gtNm1,gsNm1       &                   gu,gv,gt,gs,guNm1,gvNm1,gtNm1,gsNm1
31          _RL  etaN  (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
32          _RL  etaH  (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
33        _RL  uVel (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy)        _RL  uVel (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy)
34        _RL  vVel (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy)        _RL  vVel (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy)
35        _RL  wVel (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy)        _RL  wVel (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy)
# Line 33  C     vVelD  - D grid meridional velocit Line 43  C     vVelD  - D grid meridional velocit
43        _RL  gvNm1(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy)        _RL  gvNm1(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy)
44        _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)
45        _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)
46    
47  #ifdef INCLUDE_CD_CODE  #ifdef INCLUDE_CD_CODE
48        COMMON /DYNVARS_CD/        COMMON /DYNVARS_CD/
49       &                   uVelD, vVelD,       &                   uVelD, vVelD,
50       &                   cg2d_xNM1,       &                   etaNm1,
51       &                   uNM1,  vNM1,       &                   uNM1,  vNM1,
52       &                   guCD, gvCD       &                   guCD, gvCD
53        _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)
54        _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)
55        _RL  cg2d_xNM1 (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)        _RL  etaNm1(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
56        _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)
57        _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)
58        _RL  guCD  (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy)        _RL  guCD  (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy)
59        _RL  gvCD  (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy)        _RL  gvCD  (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy)
60  #endif  #endif
61    
62    #ifdef ALLOW_NONHYDROSTATIC
63          COMMON /DYNVARS_NH/ phi_nh
64          _RL  phi_nh(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy)
65    #endif /* ALLOW_NONHYDROSTATIC */
66    
67    #if (defined (ALLOW_AUTODIFF_TAMC) && defined (ALLOW_DIFFKR_CONTROL))
68          COMMON /DYNVARS_DIFFKR/
69         &                       diffKr
70          _RL  diffKr (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy)
71    #endif
72    #if (defined (ALLOW_AUTODIFF_TAMC) && defined (ALLOW_KAPGM_CONTROL))
73          COMMON /DYNVARS_KAPGM/
74         &                       kapgm
75          _RL  kapgm  (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy)
76    #endif
Legend:
Removed from v.1.11  
changed lines
  Added in v.1.16
  ViewVC Help
Powered by ViewVC 1.1.22