/[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.22 by jmc, Sun Dec 5 22:22:06 2004 UTC revision 1.23 by jmc, Fri Apr 15 14:23:03 2005 UTC
# Line 73  C  GAD_TR               :: passive trace Line 73  C  GAD_TR               :: passive trace
73        INTEGER kUp,kDown,km1        INTEGER kUp,kDown,km1
74        INTEGER GAD_TR        INTEGER GAD_TR
75        LOGICAL calcAdvection        LOGICAL calcAdvection
76          INTEGER iterNb
77  CEOP  CEOP
78    
79  C Loop over tracers  C Loop over tracers
# Line 123  C If using Adams-Bashforth II, then extr Line 124  C If using Adams-Bashforth II, then extr
124        IF ( PTRACERS_advScheme(iTracer).EQ.ENUM_CENTERED_2ND        IF ( PTRACERS_advScheme(iTracer).EQ.ENUM_CENTERED_2ND
125       & .OR.PTRACERS_advScheme(iTracer).EQ.ENUM_UPWIND_3RD       & .OR.PTRACERS_advScheme(iTracer).EQ.ENUM_UPWIND_3RD
126       & .OR.PTRACERS_advScheme(iTracer).EQ.ENUM_CENTERED_4TH ) THEN       & .OR.PTRACERS_advScheme(iTracer).EQ.ENUM_CENTERED_4TH ) THEN
127            iterNb = myIter
128            IF (staggerTimeStep) iterNb = myIter - 1
129          CALL ADAMS_BASHFORTH2(          CALL ADAMS_BASHFORTH2(
130       I                        bi,bj,K,       I                        bi,bj,K,
131       U                        gPtr(1-Olx,1-Oly,1,1,1,iTracer),       U                        gPtr(1-Olx,1-Oly,1,1,1,iTracer),
132       U                        gPtrNm1(1-Olx,1-Oly,1,1,1,iTracer),       U                        gPtrNm1(1-Olx,1-Oly,1,1,1,iTracer),
133       I                        myIter,myThid )       I                        iterNb, myThid )
134        ENDIF        ENDIF
135    
136  C External forcing term(s)  C External forcing term(s)
Legend:
Removed from v.1.22  
changed lines
  Added in v.1.23
  ViewVC Help
Powered by ViewVC 1.1.22