Parent Directory | Revision Log | Revision Graph | Patch
revision 1.38 by jahn, Fri Jun 26 23:10:10 2009 UTC | revision 1.39 by jahn, Tue Jan 12 23:55:56 2010 UTC | |
---|---|---|
# | Line 173 C prevent gPtr from being replaced by t | Line 173 C prevent gPtr from being replaced by t |
173 | C compute iter at beginning of ptracer time step | C compute iter at beginning of ptracer time step |
174 | #ifdef ALLOW_LONGSTEP | #ifdef ALLOW_LONGSTEP |
175 | iterNb = myIter - LS_nIter + 1 | iterNb = myIter - LS_nIter + 1 |
176 | IF (LS_staggerTimeStep) iterNb = myIter - LS_nIter | IF (LS_whenToSample.GE.2) iterNb = myIter - LS_nIter |
177 | #else | #else |
178 | iterNb = myIter | iterNb = myIter |
179 | IF (staggerTimeStep) iterNb = myIter - 1 | IF (staggerTimeStep) iterNb = myIter - 1 |
|
ViewVC Help | |
Powered by ViewVC 1.1.22 |