/[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.6 by heimbach, Thu Nov 8 20:57:51 2001 UTC revision 1.12 by edhill, Thu Oct 30 12:00:41 2003 UTC
# Line 1  Line 1 
1  C $Header$  C $Header$
2  C $Name$  C $Name$
3    
4    #include "PACKAGES_CONFIG.h"
5  #include "CPP_OPTIONS.h"  #include "CPP_OPTIONS.h"
6    
7  CBOP  CBOP
# Line 28  C     === Global variables === Line 29  C     === Global variables ===
29  #ifdef ALLOW_NONHYDROSTATIC  #ifdef ALLOW_NONHYDROSTATIC
30  #include "GW.h"  #include "GW.h"
31  #endif  #endif
32    #ifdef ALLOW_CD_CODE
33    #include "CD_CODE_VARS.h"
34    #endif
35    
36  C     !INPUT/OUTPUT PARAMETERS:  C     !INPUT/OUTPUT PARAMETERS:
37  C     == Routine arguments ==  C     == Routine arguments ==
# Line 66  C-      3D arrays Line 70  C-      3D arrays
70             gTnm1(I,J,K,bi,bj)=0. _d 0             gTnm1(I,J,K,bi,bj)=0. _d 0
71             gSnm1(I,J,K,bi,bj)=0. _d 0             gSnm1(I,J,K,bi,bj)=0. _d 0
72    
73  #ifdef INCLUDE_CD_CODE  #ifdef ALLOW_CD_CODE
            guCD(I,J,K,bi,bj)=0. _d 0  
            gvCD(I,J,K,bi,bj)=0. _d 0  
74             uNM1(I,J,K,bi,bj)=0. _d 0             uNM1(I,J,K,bi,bj)=0. _d 0
75             vNM1(I,J,K,bi,bj)=0. _d 0             vNM1(I,J,K,bi,bj)=0. _d 0
76             uVeld(I,J,K,bi,bj)=0. _d 0             uVeld(I,J,K,bi,bj)=0. _d 0
# Line 76  C-      3D arrays Line 78  C-      3D arrays
78  #endif  #endif
79    
80  #ifdef ALLOW_NONHYDROSTATIC  #ifdef ALLOW_NONHYDROSTATIC
81    ceh3 needs an IF ( useNONHYDROSTATIC ) THEN
82             gW(I,J,K,bi,bj)=0. _d 0             gW(I,J,K,bi,bj)=0. _d 0
83             gWnm1(I,J,K,bi,bj)=0. _d 0             gWnm1(I,J,K,bi,bj)=0. _d 0
84  #endif  #endif
85    
86               totPhiHyd(I,J,K,bi,bj)=0. _d 0
87            ENDDO            ENDDO
88           ENDDO           ENDDO
89          ENDDO          ENDDO
# Line 89  C-      2D arrays Line 93  C-      2D arrays
93           DO I=1-Olx,sNx+Olx           DO I=1-Olx,sNx+Olx
94            etaN(I,J,bi,bj)=0. _d 0            etaN(I,J,bi,bj)=0. _d 0
95            etaH(I,J,bi,bj)=0. _d 0            etaH(I,J,bi,bj)=0. _d 0
96  #ifdef INCLUDE_CD_CODE  #ifdef ALLOW_CD_CODE
97            etaNm1(I,J,bi,bj)=0. _d 0            etaNm1(I,J,bi,bj)=0. _d 0
98  #endif  #endif
99              phiHydLow(I,J,bi,bj)=0. _d 0
100           ENDDO           ENDDO
101          ENDDO          ENDDO
102    
Legend:
Removed from v.1.6  
changed lines
  Added in v.1.12
  ViewVC Help
Powered by ViewVC 1.1.22