/[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.14 by heimbach, Fri Oct 10 23:00:01 2003 UTC revision 1.15 by jmc, Sat Oct 11 16:37:55 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.
182    #ifdef ALLOW_AUTODIFF_TAMC
183    C- jmc: this is wrong, but at least with #ifdef/endif TAMC, it does not break
184    C       the forward code ; (same thing in mom_vectinv)
185          fVerU(i,j,1) = 0. _d 0          fVerU(i,j,1) = 0. _d 0
186          fVerU(i,j,2) = 0. _d 0          fVerU(i,j,2) = 0. _d 0
187          fVerV(i,j,1) = 0. _d 0          fVerV(i,j,1) = 0. _d 0
188          fVerV(i,j,2) = 0. _d 0          fVerV(i,j,2) = 0. _d 0
189    #endif
190         ENDDO         ENDDO
191        ENDDO        ENDDO
192    
Legend:
Removed from v.1.14  
changed lines
  Added in v.1.15
  ViewVC Help
Powered by ViewVC 1.1.22