/[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.5 by cnh, Wed Sep 26 18:09:15 2001 UTC revision 1.5.4.3 by heimbach, Tue Jun 24 23:05:29 2003 UTC
# Line 67  C-      3D arrays Line 67  C-      3D arrays
67             gSnm1(I,J,K,bi,bj)=0. _d 0             gSnm1(I,J,K,bi,bj)=0. _d 0
68    
69  #ifdef INCLUDE_CD_CODE  #ifdef INCLUDE_CD_CODE
            guCD(I,J,K,bi,bj)=0. _d 0  
            gvCD(I,J,K,bi,bj)=0. _d 0  
70             uNM1(I,J,K,bi,bj)=0. _d 0             uNM1(I,J,K,bi,bj)=0. _d 0
71             vNM1(I,J,K,bi,bj)=0. _d 0             vNM1(I,J,K,bi,bj)=0. _d 0
72             uVeld(I,J,K,bi,bj)=0. _d 0             uVeld(I,J,K,bi,bj)=0. _d 0
# Line 80  C-      3D arrays Line 78  C-      3D arrays
78             gWnm1(I,J,K,bi,bj)=0. _d 0             gWnm1(I,J,K,bi,bj)=0. _d 0
79  #endif  #endif
80    
81               totPhiHyd(I,J,K,bi,bj)=0. _d 0
82            ENDDO            ENDDO
83           ENDDO           ENDDO
84          ENDDO          ENDDO
# Line 92  C-      2D arrays Line 91  C-      2D arrays
91  #ifdef INCLUDE_CD_CODE  #ifdef INCLUDE_CD_CODE
92            etaNm1(I,J,bi,bj)=0. _d 0            etaNm1(I,J,bi,bj)=0. _d 0
93  #endif  #endif
94              phiHydLow(I,J,bi,bj)=0. _d 0
95           ENDDO           ENDDO
96          ENDDO          ENDDO
97    
Legend:
Removed from v.1.5  
changed lines
  Added in v.1.5.4.3
  ViewVC Help
Powered by ViewVC 1.1.22