/[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.10 by edhill, Thu Oct 9 04:19:18 2003 UTC revision 1.15 by jmc, Fri Apr 15 14:02:54 2005 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 62  C-      3D arrays Line 61  C-      3D arrays
61             gV(I,J,K,bi,bj)=0. _d 0             gV(I,J,K,bi,bj)=0. _d 0
62             gT(I,J,K,bi,bj)=0. _d 0             gT(I,J,K,bi,bj)=0. _d 0
63             gS(I,J,K,bi,bj)=0. _d 0             gS(I,J,K,bi,bj)=0. _d 0
64             gUnm1(I,J,K,bi,bj)=0. _d 0  #ifdef ALLOW_ADAMSBASHFORTH_3
65             gVnm1(I,J,K,bi,bj)=0. _d 0             guNm(I,J,K,bi,bj,1)=0. _d 0
66             gTnm1(I,J,K,bi,bj)=0. _d 0             gvNm(I,J,K,bi,bj,1)=0. _d 0
67             gSnm1(I,J,K,bi,bj)=0. _d 0             gtNm(I,J,K,bi,bj,1)=0. _d 0
68               gsNm(I,J,K,bi,bj,1)=0. _d 0
69  #ifdef INCLUDE_CD_CODE             guNm(I,J,K,bi,bj,2)=0. _d 0
70             uNM1(I,J,K,bi,bj)=0. _d 0             gvNm(I,J,K,bi,bj,2)=0. _d 0
71             vNM1(I,J,K,bi,bj)=0. _d 0             gtNm(I,J,K,bi,bj,2)=0. _d 0
72             uVeld(I,J,K,bi,bj)=0. _d 0             gsNm(I,J,K,bi,bj,2)=0. _d 0
73             vVeld(I,J,K,bi,bj)=0. _d 0  #else
74               guNm1(I,J,K,bi,bj) =0. _d 0
75               gvNm1(I,J,K,bi,bj) =0. _d 0
76               gtNm1(I,J,K,bi,bj) =0. _d 0
77               gsNm1(I,J,K,bi,bj) =0. _d 0
78  #endif  #endif
79    
80  #ifdef ALLOW_NONHYDROSTATIC  #ifdef ALLOW_NONHYDROSTATIC
# Line 81  ceh3 needs an IF ( useNONHYDROSTATIC ) T Line 84  ceh3 needs an IF ( useNONHYDROSTATIC ) T
84  #endif  #endif
85    
86             totPhiHyd(I,J,K,bi,bj)=0. _d 0             totPhiHyd(I,J,K,bi,bj)=0. _d 0
87               IVDConvCount(i,j,k,bi,bj) = 0. _d 0
88            ENDDO            ENDDO
89           ENDDO           ENDDO
90          ENDDO          ENDDO
# Line 90  C-      2D arrays Line 94  C-      2D arrays
94           DO I=1-Olx,sNx+Olx           DO I=1-Olx,sNx+Olx
95            etaN(I,J,bi,bj)=0. _d 0            etaN(I,J,bi,bj)=0. _d 0
96            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  
97            phiHydLow(I,J,bi,bj)=0. _d 0            phiHydLow(I,J,bi,bj)=0. _d 0
98           ENDDO           ENDDO
99          ENDDO          ENDDO
Legend:
Removed from v.1.10  
changed lines
  Added in v.1.15
  ViewVC Help
Powered by ViewVC 1.1.22