/[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.9 by dimitri, Wed Sep 24 04:52:39 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(
# 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(
Legend:
Removed from v.1.9  
changed lines
  Added in v.1.10
  ViewVC Help
Powered by ViewVC 1.1.22