/[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.15 by jmc, Fri Apr 15 14:02:54 2005 UTC
# Line 61  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             guCD(I,J,K,bi,bj)=0. _d 0             gvNm(I,J,K,bi,bj,2)=0. _d 0
71             gvCD(I,J,K,bi,bj)=0. _d 0             gtNm(I,J,K,bi,bj,2)=0. _d 0
72             uNM1(I,J,K,bi,bj)=0. _d 0             gsNm(I,J,K,bi,bj,2)=0. _d 0
73             vNM1(I,J,K,bi,bj)=0. _d 0  #else
74             uVeld(I,J,K,bi,bj)=0. _d 0             guNm1(I,J,K,bi,bj) =0. _d 0
75             vVeld(I,J,K,bi,bj)=0. _d 0             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
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               IVDConvCount(i,j,k,bi,bj) = 0. _d 0
88            ENDDO            ENDDO
89           ENDDO           ENDDO
90          ENDDO          ENDDO
# Line 89  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.7  
changed lines
  Added in v.1.15
  ViewVC Help
Powered by ViewVC 1.1.22