/[MITgcm]/MITgcm/pkg/ptracers/ptracers_integrate.F
ViewVC logotype

Diff of /MITgcm/pkg/ptracers/ptracers_integrate.F

Parent Directory Parent Directory | Revision Log Revision Log | View Revision Graph Revision Graph | View Patch 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
Legend:
Removed from v.1.38  
changed lines
  Added in v.1.39
  ViewVC Help
Powered by ViewVC 1.1.22