/[MITgcm]/MITgcm/pkg/mom_vecinv/mom_vecinv.F
ViewVC logotype

Diff of /MITgcm/pkg/mom_vecinv/mom_vecinv.F

Parent Directory Parent Directory | Revision Log Revision Log | View Revision Graph Revision Graph | View Patch Patch

revision 1.59 by heimbach, Tue Jul 18 03:23:30 2006 UTC revision 1.60 by jmc, Thu Nov 23 00:45:21 2006 UTC
# Line 176  C     Initialise intermediate terms Line 176  C     Initialise intermediate terms
176          vort3(i,j) = 0.          vort3(i,j) = 0.
177          omega3(i,j)= 0.          omega3(i,j)= 0.
178          KE(i,j)    = 0.          KE(i,j)    = 0.
179    c       hDiv(i,j)  = 0.
180          viscAh_Z(i,j) = 0.          viscAh_Z(i,j) = 0.
181          viscAh_D(i,j) = 0.          viscAh_D(i,j) = 0.
182          viscA4_Z(i,j) = 0.          viscA4_Z(i,j) = 0.
183          viscA4_D(i,j) = 0.          viscA4_D(i,j) = 0.
184    
 #ifdef ALLOW_AUTODIFF_TAMC  
185          strain(i,j)  = 0. _d 0          strain(i,j)  = 0. _d 0
186          tension(i,j) = 0. _d 0          tension(i,j) = 0. _d 0
187    #ifdef ALLOW_AUTODIFF_TAMC
188          hFacZ(i,j)   = 0. _d 0          hFacZ(i,j)   = 0. _d 0
189  #endif  #endif
190         ENDDO         ENDDO
Legend:
Removed from v.1.59  
changed lines
  Added in v.1.60
  ViewVC Help
Powered by ViewVC 1.1.22