Parent Directory | Revision Log | Revision Graph | Patch
revision 1.94 by jmc, Tue Feb 18 15:25:09 2003 UTC | revision 1.95 by heimbach, Fri Feb 28 02:20:52 2003 UTC | |
---|---|---|
# | Line 329 C-- kDown Cycles through 2,1 to p | Line 329 C-- kDown Cycles through 2,1 to p |
329 | ||
330 | #ifdef ALLOW_AUTODIFF_TAMC | #ifdef ALLOW_AUTODIFF_TAMC |
331 | kkey = (idynkey-1)*Nr + k | kkey = (idynkey-1)*Nr + k |
332 | CADJ STORE pressure(:,:,k,bi,bj) = comlev1_bibj_k , | CADJ STORE totphihyd (:,:,k,bi,bj) |
333 | CADJ & key=kkey , byte=isbyte | CADJ & = comlev1_bibj_k, key=kkey, byte=isbyte |
334 | #endif /* ALLOW_AUTODIFF_TAMC */ | #endif /* ALLOW_AUTODIFF_TAMC */ |
335 | ||
336 | C-- Integrate hydrostatic balance for phiHyd with BC of | C-- Integrate hydrostatic balance for phiHyd with BC of |
|
ViewVC Help | |
Powered by ViewVC 1.1.22 |