Parent Directory | Revision Log | Revision Graph | Patch
revision 1.140 by jmc, Mon Oct 20 23:51:39 2008 UTC | revision 1.141 by heimbach, Fri Feb 13 21:56:48 2009 UTC | |
---|---|---|
# | Line 336 C-- Start computation of dynamics | Line 336 C-- Start computation of dynamics |
336 | ||
337 | #ifdef ALLOW_AUTODIFF_TAMC | #ifdef ALLOW_AUTODIFF_TAMC |
338 | CADJ STORE wvel (:,:,:,bi,bj) = | CADJ STORE wvel (:,:,:,bi,bj) = |
339 | CADJ & comlev1_bibj, key = idynkey, byte = isbyte | CADJ & comlev1_bibj, key=idynkey, byte=isbyte |
340 | #endif /* ALLOW_AUTODIFF_TAMC */ | #endif /* ALLOW_AUTODIFF_TAMC */ |
341 | ||
342 | C-- Explicit part of the Surface Potentiel Gradient (add in TIMESTEP) | C-- Explicit part of the Surface Potentiel Gradient (add in TIMESTEP) |
|
ViewVC Help | |
Powered by ViewVC 1.1.22 |