/[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.47 by jmc, Sat Apr 26 19:20:07 2014 UTC revision 1.48 by jmc, Fri Aug 15 19:28:17 2014 UTC
# Line 36  C           implicDiv2DFlow=1 => etaH=et Line 36  C           implicDiv2DFlow=1 => etaH=et
36        COMMON /DYNVARS_R/        COMMON /DYNVARS_R/
37       &                   etaN,       &                   etaN,
38       &                   uVel,vVel,wVel,theta,salt,       &                   uVel,vVel,wVel,theta,salt,
39       &                   gU,   gV,   gT,   gS,       &                   gU,   gV,
40       &                   guNm, gvNm, gtNm, gsNm       &                   guNm, gvNm, gtNm, gsNm
41  #else /* ALLOW_ADAMSBASHFORTH_3 */  #else /* ALLOW_ADAMSBASHFORTH_3 */
42        COMMON /DYNVARS_R/        COMMON /DYNVARS_R/
43       &                   etaN,       &                   etaN,
44       &                   uVel,vVel,wVel,theta,salt,       &                   uVel,vVel,wVel,theta,salt,
45       &                   gU,   gV,   gT,   gS,       &                   gU,   gV,
46       &                   guNm1,gvNm1,gtNm1,gsNm1       &                   guNm1,gvNm1,gtNm1,gsNm1
47  #endif /* ALLOW_ADAMSBASHFORTH_3 */  #endif /* ALLOW_ADAMSBASHFORTH_3 */
48        _RL  etaN  (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)        _RL  etaN  (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
# Line 53  C           implicDiv2DFlow=1 => etaH=et Line 53  C           implicDiv2DFlow=1 => etaH=et
53        _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)
54        _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)
55        _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)
       _RL  gT(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy)  
       _RL  gS(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy)  
56  #ifdef ALLOW_ADAMSBASHFORTH_3  #ifdef ALLOW_ADAMSBASHFORTH_3
57        _RL  guNm(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy,2)        _RL  guNm(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy,2)
58        _RL  gvNm(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy,2)        _RL  gvNm(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy,2)
# Line 67  C           implicDiv2DFlow=1 => etaH=et Line 65  C           implicDiv2DFlow=1 => etaH=et
65        _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)
66  #endif /* ALLOW_ADAMSBASHFORTH_3 */  #endif /* ALLOW_ADAMSBASHFORTH_3 */
67    
68    #ifdef USE_OLD_EXTERNAL_FORCING
69          COMMON /DYNVARS_OLD/
70         &                   gT,   gS
71          _RL  gT(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy)
72          _RL  gS(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy)
73    #endif
74    
75        COMMON /DYNVARS_R_2/        COMMON /DYNVARS_R_2/
76       &                   etaH       &                   etaH
77        _RL  etaH  (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)        _RL  etaH  (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
# Line 80  C               for mixing of tracers ve Line 85  C               for mixing of tracers ve
85  #endif  #endif
86    
87  C   The following blocks containing requires anomaly fields of control vars  C   The following blocks containing requires anomaly fields of control vars
88  C   and related to Options:  C   and related to Options:
89  C   ALLOW_KAPGM_CONTROL , ALLOW_KAPREDI_CONTROL and ALLOW_BOTTOMDRAG_CONTROL  C   ALLOW_KAPGM_CONTROL , ALLOW_KAPREDI_CONTROL and ALLOW_BOTTOMDRAG_CONTROL
90  C   have been moved to header file "CTRL_FIELDS.h"  C   have been moved to header file "CTRL_FIELDS.h"
91    
Legend:
Removed from v.1.47  
changed lines
  Added in v.1.48
  ViewVC Help
Powered by ViewVC 1.1.22