Parent Directory | Revision Log | Revision Graph | 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 |
|
ViewVC Help | |
Powered by ViewVC 1.1.22 |