/[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.3 by cnh, Sun Feb 4 14:38:46 2001 UTC revision 1.4 by adcroft, Wed Sep 19 02:43:27 2001 UTC
# Line 36  C     == Local variables == Line 36  C     == Local variables ==
36  C     Rotate tracer/gTracer/gTrNm1  C     Rotate tracer/gTracer/gTrNm1
37        DO j=jMin,jMax        DO j=jMin,jMax
38         DO i=iMin,iMax         DO i=iMin,iMax
39          tracer(i,j,k,bi,bj)=gTrNm1(i,j,k,bi,bj)          tracer(i,j,k,bi,bj)=gTracer(i,j,k,bi,bj)
         gTrNm1(i,j,k,bi,bj)=gTracer(i,j,k,bi,bj)  
40         ENDDO         ENDDO
41        ENDDO        ENDDO
42    
Legend:
Removed from v.1.3  
changed lines
  Added in v.1.4
  ViewVC Help
Powered by ViewVC 1.1.22