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