Parent Directory | Revision Log | Revision Graph | Patch
revision 1.24 by spk, Wed Apr 20 15:54:57 2005 UTC | revision 1.25 by mlosch, Mon Oct 10 05:53:48 2005 UTC | |
---|---|---|
# | Line 175 C Integrate forward in time, storing in | Line 175 C Integrate forward in time, storing in |
175 | I gPtr(1-Olx,1-Oly,1,1,1,iTracer), | I gPtr(1-Olx,1-Oly,1,1,1,iTracer), |
176 | I myIter,myThid ) | I myIter,myThid ) |
177 | ||
178 | #ifdef ALLOW_OBCS | |
179 | C Apply open boundary conditions | |
180 | IF (useOBCS) THEN | |
181 | CALL OBCS_APPLY_PTRACER( | |
182 | I bi, bj, k, iTracer, | |
183 | U gPtr(1-Olx,1-Oly,k,bi,bj,iTracer), | |
184 | I myThid ) | |
185 | END IF | |
186 | #endif /* ALLOW_OBCS */ | |
187 | C end of tracer loop | C end of tracer loop |
188 | ENDDO | ENDDO |
189 |
|
ViewVC Help | |
Powered by ViewVC 1.1.22 |