/[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.11 by edhill, Tue Oct 28 22:57:59 2003 UTC revision 1.14 by jmc, Thu Jul 1 21:45:11 2004 UTC
# Line 1  Line 1 
1  C $Header$  C $Header$
2  C $Name$  C $Name$
3    
 #include "PACKAGES_CONFIG.h"  
4  #include "CPP_OPTIONS.h"  #include "CPP_OPTIONS.h"
5    
6  CBOP  CBOP
# Line 67  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 ALLOW_CD_CODE  
            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  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
# Line 81  ceh3 needs an IF ( useNONHYDROSTATIC ) T Line 73  ceh3 needs an IF ( useNONHYDROSTATIC ) T
73  #endif  #endif
74    
75             totPhiHyd(I,J,K,bi,bj)=0. _d 0             totPhiHyd(I,J,K,bi,bj)=0. _d 0
76               IVDConvCount(i,j,k,bi,bj) = 0. _d 0
77            ENDDO            ENDDO
78           ENDDO           ENDDO
79          ENDDO          ENDDO
# Line 90  C-      2D arrays Line 83  C-      2D arrays
83           DO I=1-Olx,sNx+Olx           DO I=1-Olx,sNx+Olx
84            etaN(I,J,bi,bj)=0. _d 0            etaN(I,J,bi,bj)=0. _d 0
85            etaH(I,J,bi,bj)=0. _d 0            etaH(I,J,bi,bj)=0. _d 0
 #ifdef ALLOW_CD_CODE  
           etaNm1(I,J,bi,bj)=0. _d 0  
 #endif  
86            phiHydLow(I,J,bi,bj)=0. _d 0            phiHydLow(I,J,bi,bj)=0. _d 0
87           ENDDO           ENDDO
88          ENDDO          ENDDO
Legend:
Removed from v.1.11  
changed lines
  Added in v.1.14
  ViewVC Help
Powered by ViewVC 1.1.22