/[MITgcm]/MITgcm/pkg/generic_advdiff/gad_advection.F
ViewVC logotype

Diff of /MITgcm/pkg/generic_advdiff/gad_advection.F

Parent Directory Parent Directory | Revision Log Revision Log | View Revision Graph Revision Graph | View Patch Patch

revision 1.63 by jmc, Sun Oct 31 15:20:48 2010 UTC revision 1.64 by jmc, Tue Mar 29 15:52:57 2011 UTC
# Line 272  C--   Make local copy of tracer array an Line 272  C--   Make local copy of tracer array an
272        DO j=1-OLy,sNy+OLy        DO j=1-OLy,sNy+OLy
273         DO i=1-OLx,sNx+OLx         DO i=1-OLx,sNx+OLx
274           localTij(i,j)=tracer(i,j,k,bi,bj)           localTij(i,j)=tracer(i,j,k,bi,bj)
275           maskLocW(i,j)=_maskW(i,j,k,bi,bj)  #ifdef ALLOW_OBCS
276           maskLocS(i,j)=_maskS(i,j,k,bi,bj)           maskLocW(i,j) = _maskW(i,j,k,bi,bj)*maskInW(i,j,bi,bj)
277             maskLocS(i,j) = _maskS(i,j,k,bi,bj)*maskInS(i,j,bi,bj)
278    #else /* ALLOW_OBCS */
279             maskLocW(i,j) = _maskW(i,j,k,bi,bj)
280             maskLocS(i,j) = _maskS(i,j,k,bi,bj)
281    #endif /* ALLOW_OBCS */
282         ENDDO         ENDDO
283        ENDDO        ENDDO
284    
Legend:
Removed from v.1.63  
changed lines
  Added in v.1.64
  ViewVC Help
Powered by ViewVC 1.1.22