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

Diff of /MITgcm/pkg/mom_fluxform/mom_fluxform.F

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

revision 1.15 by jmc, Sat Oct 11 16:37:55 2003 UTC revision 1.16 by heimbach, Sun Oct 26 01:01:23 2003 UTC
# Line 179  C     Initialise intermediate terms Line 179  C     Initialise intermediate terms
179          fMer(i,j) = 0.          fMer(i,j) = 0.
180          rTransU(i,j) = 0.          rTransU(i,j) = 0.
181          rTransV(i,j) = 0.          rTransV(i,j) = 0.
 #ifdef ALLOW_AUTODIFF_TAMC  
 C- jmc: this is wrong, but at least with #ifdef/endif TAMC, it does not break  
 C       the forward code ; (same thing in mom_vectinv)  
         fVerU(i,j,1) = 0. _d 0  
         fVerU(i,j,2) = 0. _d 0  
         fVerV(i,j,1) = 0. _d 0  
         fVerV(i,j,2) = 0. _d 0  
 #endif  
182         ENDDO         ENDDO
183        ENDDO        ENDDO
184    
Legend:
Removed from v.1.15  
changed lines
  Added in v.1.16
  ViewVC Help
Powered by ViewVC 1.1.22