Parent Directory | Revision Log | Revision Graph | Patch
revision 1.92 by jmc, Sat Feb 8 02:09:20 2003 UTC | revision 1.93 by jmc, Tue Feb 11 04:05:32 2003 UTC | |
---|---|---|
# | Line 280 C-- Set up work arrays that need val | Line 280 C-- Set up work arrays that need val |
280 | ENDDO | ENDDO |
281 | ||
282 | C-- Start computation of dynamics | C-- Start computation of dynamics |
283 | iMin = 1-OLx+2 | iMin = 0 |
284 | iMax = sNx+OLx-1 | iMax = sNx+1 |
285 | jMin = 1-OLy+2 | jMin = 0 |
286 | jMax = sNy+OLy-1 | jMax = sNy+1 |
287 | ||
288 | #ifdef ALLOW_AUTODIFF_TAMC | #ifdef ALLOW_AUTODIFF_TAMC |
289 | CADJ STORE wvel (:,:,:,bi,bj) = | CADJ STORE wvel (:,:,:,bi,bj) = |
|
ViewVC Help | |
Powered by ViewVC 1.1.22 |