/[MITgcm]/MITgcm/model/src/ini_dynvars.F
ViewVC logotype

Diff of /MITgcm/model/src/ini_dynvars.F

Parent Directory Parent Directory | Revision Log Revision Log | View Revision Graph Revision Graph | View Patch Patch

revision 1.10 by edhill, Thu Oct 9 04:19:18 2003 UTC revision 1.11 by edhill, Tue Oct 28 22:57:59 2003 UTC
# Line 67  C-      3D arrays Line 67  C-      3D arrays
67             gTnm1(I,J,K,bi,bj)=0. _d 0             gTnm1(I,J,K,bi,bj)=0. _d 0
68             gSnm1(I,J,K,bi,bj)=0. _d 0             gSnm1(I,J,K,bi,bj)=0. _d 0
69    
70  #ifdef INCLUDE_CD_CODE  #ifdef ALLOW_CD_CODE
71             uNM1(I,J,K,bi,bj)=0. _d 0             uNM1(I,J,K,bi,bj)=0. _d 0
72             vNM1(I,J,K,bi,bj)=0. _d 0             vNM1(I,J,K,bi,bj)=0. _d 0
73             uVeld(I,J,K,bi,bj)=0. _d 0             uVeld(I,J,K,bi,bj)=0. _d 0
# Line 90  C-      2D arrays Line 90  C-      2D arrays
90           DO I=1-Olx,sNx+Olx           DO I=1-Olx,sNx+Olx
91            etaN(I,J,bi,bj)=0. _d 0            etaN(I,J,bi,bj)=0. _d 0
92            etaH(I,J,bi,bj)=0. _d 0            etaH(I,J,bi,bj)=0. _d 0
93  #ifdef INCLUDE_CD_CODE  #ifdef ALLOW_CD_CODE
94            etaNm1(I,J,bi,bj)=0. _d 0            etaNm1(I,J,bi,bj)=0. _d 0
95  #endif  #endif
96            phiHydLow(I,J,bi,bj)=0. _d 0            phiHydLow(I,J,bi,bj)=0. _d 0
Legend:
Removed from v.1.10  
changed lines
  Added in v.1.11
  ViewVC Help
Powered by ViewVC 1.1.22