/[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.22 by gforget, Wed Feb 17 00:21:07 2010 UTC revision 1.23 by gforget, Wed Feb 17 23:39:32 2010 UTC
# Line 79  C-      3D arrays Line 79  C-      3D arrays
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
 #ifdef ALLOW_3D_VISCAH  
            viscAhDfld(I,J,K,bi,bj) = 0. _d 0  
            viscAhZfld(I,J,K,bi,bj) = 0. _d 0  
 #endif  
 #ifdef ALLOW_3D_VISCA4            
            viscA4Dfld(I,J,K,bi,bj) = 0. _d 0  
            viscA4Zfld(I,J,K,bi,bj) = 0. _d 0  
 #endif            
 #ifdef ALLOW_3D_DIFFKR  
             diffKr(I,J,K,bi,bj) = 0. _d 0  
 #endif  
82            ENDDO            ENDDO
83           ENDDO           ENDDO
84          ENDDO          ENDDO
Legend:
Removed from v.1.22  
changed lines
  Added in v.1.23
  ViewVC Help
Powered by ViewVC 1.1.22