Parent Directory | Revision Log | Revision Graph | Patch
revision 1.37 by jmc, Thu Jul 13 03:02:48 2006 UTC | revision 1.38 by jmc, Thu Nov 23 00:45:18 2006 UTC | |
---|---|---|
# | Line 189 C Initialise intermediate terms | Line 189 C Initialise intermediate terms |
189 | fVrDw(i,j)= 0. | fVrDw(i,j)= 0. |
190 | rTransU(i,j)= 0. | rTransU(i,j)= 0. |
191 | rTransV(i,j)= 0. | rTransV(i,j)= 0. |
192 | c KE(i,j) = 0. | |
193 | c hDiv(i,j) = 0. | |
194 | vort3(i,j) = 0. | |
195 | strain(i,j) = 0. | strain(i,j) = 0. |
196 | tension(i,j)= 0. | tension(i,j)= 0. |
197 | guDiss(i,j) = 0. | guDiss(i,j) = 0. |
198 | gvDiss(i,j) = 0. | gvDiss(i,j) = 0. |
#ifdef ALLOW_AUTODIFF_TAMC | ||
vort3(i,j) = 0. _d 0 | ||
strain(i,j) = 0. _d 0 | ||
tension(i,j) = 0. _d 0 | ||
#endif | ||
199 | ENDDO | ENDDO |
200 | ENDDO | ENDDO |
201 |
|
ViewVC Help | |
Powered by ViewVC 1.1.22 |