Parent Directory | Revision Log | Revision Graph | Patch
revision 1.39 by jahn, Tue Jan 12 23:55:56 2010 UTC | revision 1.40 by jmc, Sun Nov 14 23:32:15 2010 UTC | |
---|---|---|
# | Line 220 C Integrate forward in time, storing in | Line 220 C Integrate forward in time, storing in |
220 | I gPtr(1-Olx,1-Oly,1,1,1,iTracer), | I gPtr(1-Olx,1-Oly,1,1,1,iTracer), |
221 | I myIter,myThid ) | I myIter,myThid ) |
222 | ||
#ifdef ALLOW_OBCS | ||
C Apply open boundary conditions | ||
IF (useOBCS) THEN | ||
CALL OBCS_APPLY_PTRACER( | ||
I bi, bj, k, iTracer, | ||
U gPtr(1-Olx,1-Oly,k,bi,bj,iTracer), | ||
I myThid ) | ||
ENDIF | ||
#endif /* ALLOW_OBCS */ | ||
223 | C end of tracer loop | C end of tracer loop |
224 | ENDDO | ENDDO |
225 |
|
ViewVC Help | |
Powered by ViewVC 1.1.22 |