/[MITgcm]/MITgcm/model/src/cycle_tracer.F
ViewVC logotype

Diff of /MITgcm/model/src/cycle_tracer.F

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

revision 1.5 by cnh, Wed Sep 26 18:09:14 2001 UTC revision 1.6 by jmc, Mon Oct 7 16:24:45 2002 UTC
# Line 43  C     == Local variables == Line 43  C     == Local variables ==
43  CEOP  CEOP
44    
45  C     Rotate tracer/gTracer/gTrNm1  C     Rotate tracer/gTracer/gTrNm1
46        DO j=jMin,jMax  c     DO j=jMin,jMax
47         DO i=iMin,iMax  c      DO i=iMin,iMax
48          DO j=1-OLy,sNy+OLy
49           DO i=1-OLx,sNx+OLx
50          tracer(i,j,k,bi,bj)=gTracer(i,j,k,bi,bj)          tracer(i,j,k,bi,bj)=gTracer(i,j,k,bi,bj)
51         ENDDO         ENDDO
52        ENDDO        ENDDO
Legend:
Removed from v.1.5  
changed lines
  Added in v.1.6
  ViewVC Help
Powered by ViewVC 1.1.22