/[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.15 by jmc, Fri Apr 15 14:02:54 2005 UTC revision 1.16 by jmc, Tue Nov 8 02:10:49 2005 UTC
# Line 25  C     === Global variables === Line 25  C     === Global variables ===
25  #include "EEPARAMS.h"  #include "EEPARAMS.h"
26  #include "PARAMS.h"  #include "PARAMS.h"
27  #include "DYNVARS.h"  #include "DYNVARS.h"
 #ifdef ALLOW_NONHYDROSTATIC  
 #include "GW.h"  
 #endif  
28    
29  C     !INPUT/OUTPUT PARAMETERS:  C     !INPUT/OUTPUT PARAMETERS:
30  C     == Routine arguments ==  C     == Routine arguments ==
# Line 77  C-      3D arrays Line 74  C-      3D arrays
74             gsNm1(I,J,K,bi,bj) =0. _d 0             gsNm1(I,J,K,bi,bj) =0. _d 0
75  #endif  #endif
76    
 #ifdef ALLOW_NONHYDROSTATIC  
 ceh3 needs an IF ( useNONHYDROSTATIC ) THEN  
            gW(I,J,K,bi,bj)=0. _d 0  
            gWnm1(I,J,K,bi,bj)=0. _d 0  
 #endif  
   
77             totPhiHyd(I,J,K,bi,bj)=0. _d 0             totPhiHyd(I,J,K,bi,bj)=0. _d 0
78             IVDConvCount(i,j,k,bi,bj) = 0. _d 0             IVDConvCount(i,j,k,bi,bj) = 0. _d 0
79            ENDDO            ENDDO
Legend:
Removed from v.1.15  
changed lines
  Added in v.1.16
  ViewVC Help
Powered by ViewVC 1.1.22