/[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.8 by dimitri, Mon Aug 4 22:53:42 2003 UTC revision 1.10 by stephd, Mon Oct 6 20:25:54 2003 UTC
# Line 123  C (advection, [explicit] diffusion, para Line 123  C (advection, [explicit] diffusion, para
123       I                     myThid )       I                     myThid )
124    
125  C External forcing term(s)  C External forcing term(s)
126  cswdptr - add--  cswdptr --add --
127  #ifndef PTRACERS_SEPERATE_FORCING  #ifdef ALLOW_GCHEM
128    #ifndef PTRACERS_SEPARATE_FORCING
129           IF ( forcing_In_AB )
130         &    CALL GCHEM_FORCING_INT(
131         I                        bi,bj,iMin,iMax,jMin,jMax,k,
132         I                        iTracer,
133         I                        myTime,myIter, myThid)
134    #endif
135    #else
136  cswdptr - end add ---  cswdptr - end add ---
137         IF ( forcing_In_AB )         IF ( forcing_In_AB )
138       &   CALL PTRACERS_FORCING(       &   CALL PTRACERS_FORCING(
139       I                        bi,bj,k,iTracer,       I                        bi,bj,iMin,iMax,jMin,jMax,k,iTracer,
140       U                        gPtr(1-Olx,1-Oly,1,1,1,iTracer),       U                        gPtr(1-Olx,1-Oly,1,1,1,iTracer),
141       I                        myIter,myTime,myThid)       I                        myIter,myTime,myThid)
142  cswdptr --add---  cswdptr --add---
# Line 148  C If using Adams-Bashforth II, then extr Line 156  C If using Adams-Bashforth II, then extr
156    
157  C External forcing term(s)  C External forcing term(s)
158  cswdptr - add--  cswdptr - add--
159  #ifndef PTRACERS_SEPERATE_FORCING  #ifdef ALLOW_GCHEM
160    #ifndef PTRACERS_SEPARATE_FORCING
161           IF ( .NOT.forcing_In_AB )
162         &    CALL GCHEM_FORCING_INT(
163         I                        bi,bj,iMin,iMax,jMin,jMax,k,
164         I                        iTracer,
165         I                        myTime,myIter, myThid)
166    #endif
167    #else
168  cswdptr - end add ---  cswdptr - end add ---
169         IF ( .NOT.forcing_In_AB )         IF ( .NOT.forcing_In_AB )
170       &   CALL PTRACERS_FORCING(       &   CALL PTRACERS_FORCING(
171       I                        bi,bj,k,iTracer,       I                        bi,bj,iMin,iMax,jMin,jMax,k,iTracer,
172       U                        gPtr(1-Olx,1-Oly,1,1,1,iTracer),       U                        gPtr(1-Olx,1-Oly,1,1,1,iTracer),
173       I                        myIter,myTime,myThid)       I                        myIter,myTime,myThid)
174  cswdptr - add--  cswdptr - add--
Legend:
Removed from v.1.8  
changed lines
  Added in v.1.10
  ViewVC Help
Powered by ViewVC 1.1.22