/[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.21 by jmc, Mon Sep 22 17:55:16 2008 UTC revision 1.22 by gforget, Wed Feb 17 00:21:07 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
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.21  
changed lines
  Added in v.1.22
  ViewVC Help
Powered by ViewVC 1.1.22