/[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.20 by jmc, Sun Aug 24 21:32:17 2008 UTC revision 1.22 by gforget, Wed Feb 17 00:21:07 2010 UTC
# Line 74  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             totPhiHyd(I,J,K,bi,bj)=0. _d 0             totPhiHyd(I,J,K,bi,bj)=0. _d 0
77               rhoInSitu(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  #ifdef ALLOW_ADDFLUID  #ifdef ALLOW_ADDFLUID
80             addMass(I,J,K,bi,bj) = 0. _d 0             addMass(I,J,K,bi,bj) = 0. _d 0
81  #endif  #endif
82    #ifdef ALLOW_3D_VISCAH
83               viscAhDfld(I,J,K,bi,bj) = 0. _d 0
84               viscAhZfld(I,J,K,bi,bj) = 0. _d 0
85    #endif
86    #ifdef ALLOW_3D_VISCA4          
87               viscA4Dfld(I,J,K,bi,bj) = 0. _d 0
88               viscA4Zfld(I,J,K,bi,bj) = 0. _d 0
89    #endif          
90    #ifdef ALLOW_3D_DIFFKR
91                diffKr(I,J,K,bi,bj) = 0. _d 0
92    #endif
93            ENDDO            ENDDO
94           ENDDO           ENDDO
95          ENDDO          ENDDO
Legend:
Removed from v.1.20  
changed lines
  Added in v.1.22
  ViewVC Help
Powered by ViewVC 1.1.22