/[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.33 by jmc, Sun Sep 23 17:13:42 2007 UTC revision 1.34 by jmc, Fri Oct 19 14:43:50 2007 UTC
# Line 82  C  GAD_TR               :: passive trace Line 82  C  GAD_TR               :: passive trace
82        INTEGER kUp,kDown,km1        INTEGER kUp,kDown,km1
83        INTEGER GAD_TR        INTEGER GAD_TR
84        LOGICAL calcAdvection        LOGICAL calcAdvection
85        INTEGER iterNb        INTEGER iterNb, startAB
86  CEOP  CEOP
87    
88  C Loop ranges for daughter routines  C Loop ranges for daughter routines
# Line 172  C  prevent gPtr from being replaced by t Line 172  C  prevent gPtr from being replaced by t
172  #endif  #endif
173          iterNb = myIter          iterNb = myIter
174          IF (staggerTimeStep) iterNb = myIter - 1          IF (staggerTimeStep) iterNb = myIter - 1
175            startAB = nIter0 - PTRACERS_Iter0
176          CALL ADAMS_BASHFORTH2(          CALL ADAMS_BASHFORTH2(
177       I                        bi,bj,K,       I                        bi,bj,K,
178       U                        gPtr(1-Olx,1-Oly,1,1,1,iTracer),       U                        gPtr(1-Olx,1-Oly,1,1,1,iTracer),
179       U                        gPtrNm1(1-Olx,1-Oly,1,1,1,iTracer),       U                        gPtrNm1(1-Olx,1-Oly,1,1,1,iTracer),
180       I                        iterNb, myThid )       I                        startAB, iterNb, myThid )
181  #ifdef ALLOW_MATRIX  #ifdef ALLOW_MATRIX
182          ENDIF          ENDIF
183  #endif  #endif
Legend:
Removed from v.1.33  
changed lines
  Added in v.1.34
  ViewVC Help
Powered by ViewVC 1.1.22