/[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.7 by mlosch, Wed Sep 18 16:38:02 2002 UTC revision 1.13 by jmc, Sun Dec 14 23:24:55 2003 UTC
# Line 66  C-      3D arrays Line 66  C-      3D arrays
66             gTnm1(I,J,K,bi,bj)=0. _d 0             gTnm1(I,J,K,bi,bj)=0. _d 0
67             gSnm1(I,J,K,bi,bj)=0. _d 0             gSnm1(I,J,K,bi,bj)=0. _d 0
68    
 #ifdef INCLUDE_CD_CODE  
            guCD(I,J,K,bi,bj)=0. _d 0  
            gvCD(I,J,K,bi,bj)=0. _d 0  
            uNM1(I,J,K,bi,bj)=0. _d 0  
            vNM1(I,J,K,bi,bj)=0. _d 0  
            uVeld(I,J,K,bi,bj)=0. _d 0  
            vVeld(I,J,K,bi,bj)=0. _d 0  
 #endif  
   
69  #ifdef ALLOW_NONHYDROSTATIC  #ifdef ALLOW_NONHYDROSTATIC
70    ceh3 needs an IF ( useNONHYDROSTATIC ) THEN
71             gW(I,J,K,bi,bj)=0. _d 0             gW(I,J,K,bi,bj)=0. _d 0
72             gWnm1(I,J,K,bi,bj)=0. _d 0             gWnm1(I,J,K,bi,bj)=0. _d 0
73  #endif  #endif
74    
75               totPhiHyd(I,J,K,bi,bj)=0. _d 0
76            ENDDO            ENDDO
77           ENDDO           ENDDO
78          ENDDO          ENDDO
# Line 89  C-      2D arrays Line 82  C-      2D arrays
82           DO I=1-Olx,sNx+Olx           DO I=1-Olx,sNx+Olx
83            etaN(I,J,bi,bj)=0. _d 0            etaN(I,J,bi,bj)=0. _d 0
84            etaH(I,J,bi,bj)=0. _d 0            etaH(I,J,bi,bj)=0. _d 0
 #ifdef INCLUDE_CD_CODE  
           etaNm1(I,J,bi,bj)=0. _d 0  
 #endif  
85            phiHydLow(I,J,bi,bj)=0. _d 0            phiHydLow(I,J,bi,bj)=0. _d 0
86           ENDDO           ENDDO
87          ENDDO          ENDDO
Legend:
Removed from v.1.7  
changed lines
  Added in v.1.13
  ViewVC Help
Powered by ViewVC 1.1.22