/[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.26 by jmc, Thu Jul 1 21:44:34 2004 UTC revision 1.27 by jmc, Fri Apr 15 13:28:51 2005 UTC
# Line 22  C     uVel  - zonal velocity (m/s, i=1 h Line 22  C     uVel  - zonal velocity (m/s, i=1 h
22  C     vVel  - meridional velocity (m/s, j=1 held at southern face)  C     vVel  - meridional velocity (m/s, j=1 held at southern face)
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 previous time levels.
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 30  C  note: a) used with "exactConserv" but Line 30  C  note: a) used with "exactConserv" but
30  C        b) same as etaN but not necessarely at the same time, e.g.:  C        b) same as etaN but not necessarely at the same time, e.g.:
31  C           implicDiv2DFlow=0 => etaH=etaN ; =1 => etaH=etaNm1 ;  C           implicDiv2DFlow=0 => etaH=etaN ; =1 => etaH=etaNm1 ;
32    
33    #ifdef ALLOW_ADAMSBASHFORTH_3
34        COMMON /DYNVARS_R/        COMMON /DYNVARS_R/
35       &                   etaN, etaH,       &                   etaN, etaH,
36       &                   uVel,vVel,wVel,theta,salt,       &                   uVel,vVel,wVel,theta,salt,
37       &                   gu,gv,gt,gs,guNm1,gvNm1,gtNm1,gsNm1       &                   gU,   gV,   gT,   gS,
38         &                   guNm, gvNm, gtNm, gsNm
39    #else /* ALLOW_ADAMSBASHFORTH_3 */
40          COMMON /DYNVARS_R/
41         &                   etaN, etaH,
42         &                   uVel,vVel,wVel,theta,salt,
43         &                   gU,   gV,   gT,   gS,
44         &                   guNm1,gvNm1,gtNm1,gsNm1
45    #endif /* ALLOW_ADAMSBASHFORTH_3 */
46        _RL  etaN  (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)        _RL  etaN  (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
47        _RL  etaH  (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)        _RL  etaH  (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
48        _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)
# Line 41  C           implicDiv2DFlow=0 => etaH=et Line 50  C           implicDiv2DFlow=0 => etaH=et
50        _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)
51        _RL  theta(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy)        _RL  theta(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy)
52        _RL  salt (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy)        _RL  salt (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy)
53        _RL  gu(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy)        _RL  gU(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy)
54        _RL  gv(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy)        _RL  gV(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy)
55        _RL  gt(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy)        _RL  gT(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy)
56        _RL  gs(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy)        _RL  gS(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy)
57    #ifdef ALLOW_ADAMSBASHFORTH_3
58          _RL  guNm(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy,2)
59          _RL  gvNm(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy,2)
60          _RL  gtNm(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy,2)
61          _RL  gsNm(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy,2)
62    #else /* ALLOW_ADAMSBASHFORTH_3 */
63        _RL  guNm1(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy)        _RL  guNm1(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy)
64        _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)
65        _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)
66        _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)
67    #endif /* ALLOW_ADAMSBASHFORTH_3 */
68    
69  #ifdef ALLOW_NONHYDROSTATIC  #ifdef ALLOW_NONHYDROSTATIC
70        COMMON /DYNVARS_NH/ phi_nh        COMMON /DYNVARS_NH/ phi_nh
Legend:
Removed from v.1.26  
changed lines
  Added in v.1.27
  ViewVC Help
Powered by ViewVC 1.1.22