/[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.5 by adcroft, Mon Jun 24 18:47:10 2002 UTC revision 1.6 by stephd, Wed Jun 25 21:03:28 2003 UTC
# Line 2  C $Header$ Line 2  C $Header$
2  C $Name$  C $Name$
3    
4  #include "PTRACERS_OPTIONS.h"  #include "PTRACERS_OPTIONS.h"
5    cswdptr -- add ---
6    #include "GCHEM_OPTIONS.h"
7    cswdptr -- end add ---
8    
9  CBOP  CBOP
10  C !ROUTINE: PTRACERS_INTEGERATE  C !ROUTINE: PTRACERS_INTEGERATE
# Line 115  C (advection, [explicit] diffusion, para Line 118  C (advection, [explicit] diffusion, para
118       I                     myThid )       I                     myThid )
119    
120  C External forcing term(s)  C External forcing term(s)
121    cswdptr - add--
122    #ifndef PTRACERS_SEPERATE_FORCING
123    cswdptr - end add ---
124         IF ( forcing_In_AB )         IF ( forcing_In_AB )
125       &   CALL PTRACERS_FORCING(       &   CALL PTRACERS_FORCING(
126       I                        bi,bj,k,iTracer,       I                        bi,bj,k,iTracer,
127       U                        gPtr(1-Olx,1-Oly,1,1,1,iTracer),       U                        gPtr(1-Olx,1-Oly,1,1,1,iTracer),
128       I                        myIter,myTime,myThid)       I                        myIter,myTime,myThid)
129    cswdptr --add---
130    #endif
131    cswdptr -- end add ---
132    
133  C If using Adams-Bashforth II, then extrapolate tendancies  C If using Adams-Bashforth II, then extrapolate tendancies
134        IF ( PTRACERS_advScheme(iTracer).EQ.ENUM_CENTERED_2ND        IF ( PTRACERS_advScheme(iTracer).EQ.ENUM_CENTERED_2ND
# Line 133  C If using Adams-Bashforth II, then extr Line 142  C If using Adams-Bashforth II, then extr
142        ENDIF        ENDIF
143    
144  C External forcing term(s)  C External forcing term(s)
145    cswdptr - add--
146    #ifndef PTRACERS_SEPERATE_FORCING
147    cswdptr - end add ---
148         IF ( .NOT.forcing_In_AB )         IF ( .NOT.forcing_In_AB )
149       &   CALL PTRACERS_FORCING(       &   CALL PTRACERS_FORCING(
150       I                        bi,bj,k,iTracer,       I                        bi,bj,k,iTracer,
151       U                        gPtr(1-Olx,1-Oly,1,1,1,iTracer),       U                        gPtr(1-Olx,1-Oly,1,1,1,iTracer),
152       I                        myIter,myTime,myThid)       I                        myIter,myTime,myThid)
153    cswdptr - add--
154    #endif
155    cswdptr -- end add ---
156    
157  #ifdef NONLIN_FRSURF  #ifdef NONLIN_FRSURF
158  C Account for change in level thickness  C Account for change in level thickness
Legend:
Removed from v.1.5  
changed lines
  Added in v.1.6
  ViewVC Help
Powered by ViewVC 1.1.22