/[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.5 by cnh, Wed Sep 26 18:09:15 2001 UTC revision 1.18 by dimitri, Sat Sep 22 17:55:31 2007 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 61  C-      3D arrays Line 58  C-      3D arrays
58             gV(I,J,K,bi,bj)=0. _d 0             gV(I,J,K,bi,bj)=0. _d 0
59             gT(I,J,K,bi,bj)=0. _d 0             gT(I,J,K,bi,bj)=0. _d 0
60             gS(I,J,K,bi,bj)=0. _d 0             gS(I,J,K,bi,bj)=0. _d 0
61             gUnm1(I,J,K,bi,bj)=0. _d 0  #ifdef ALLOW_ADAMSBASHFORTH_3
62             gVnm1(I,J,K,bi,bj)=0. _d 0             guNm(I,J,K,bi,bj,1)=0. _d 0
63             gTnm1(I,J,K,bi,bj)=0. _d 0             gvNm(I,J,K,bi,bj,1)=0. _d 0
64             gSnm1(I,J,K,bi,bj)=0. _d 0             gtNm(I,J,K,bi,bj,1)=0. _d 0
65               gsNm(I,J,K,bi,bj,1)=0. _d 0
66  #ifdef INCLUDE_CD_CODE             guNm(I,J,K,bi,bj,2)=0. _d 0
67             guCD(I,J,K,bi,bj)=0. _d 0             gvNm(I,J,K,bi,bj,2)=0. _d 0
68             gvCD(I,J,K,bi,bj)=0. _d 0             gtNm(I,J,K,bi,bj,2)=0. _d 0
69             uNM1(I,J,K,bi,bj)=0. _d 0             gsNm(I,J,K,bi,bj,2)=0. _d 0
70             vNM1(I,J,K,bi,bj)=0. _d 0  #else
71             uVeld(I,J,K,bi,bj)=0. _d 0             guNm1(I,J,K,bi,bj) =0. _d 0
72             vVeld(I,J,K,bi,bj)=0. _d 0             gvNm1(I,J,K,bi,bj) =0. _d 0
73  #endif             gtNm1(I,J,K,bi,bj) =0. _d 0
74               gsNm1(I,J,K,bi,bj) =0. _d 0
 #ifdef ALLOW_NONHYDROSTATIC  
            gW(I,J,K,bi,bj)=0. _d 0  
            gWnm1(I,J,K,bi,bj)=0. _d 0  
75  #endif  #endif
76    
77               totPhiHyd(I,J,K,bi,bj)=0. _d 0
78               IVDConvCount(i,j,k,bi,bj) = 0. _d 0
79            ENDDO            ENDDO
80           ENDDO           ENDDO
81          ENDDO          ENDDO
# Line 89  C-      2D arrays Line 85  C-      2D arrays
85           DO I=1-Olx,sNx+Olx           DO I=1-Olx,sNx+Olx
86            etaN(I,J,bi,bj)=0. _d 0            etaN(I,J,bi,bj)=0. _d 0
87            etaH(I,J,bi,bj)=0. _d 0            etaH(I,J,bi,bj)=0. _d 0
88  #ifdef INCLUDE_CD_CODE            phiHydLow(I,J,bi,bj)=0. _d 0
89            etaNm1(I,J,bi,bj)=0. _d 0            hMixLayer(I,J,bi,bj)=0. _d 0
90    #ifdef ALLOW_SALT_PLUME
91              SaltPlumeDepth(I,J,bi,bj)=0. _d 0
92  #endif  #endif
93           ENDDO           ENDDO
94          ENDDO          ENDDO
Legend:
Removed from v.1.5  
changed lines
  Added in v.1.18
  ViewVC Help
Powered by ViewVC 1.1.22