/[MITgcm]/MITgcm/pkg/ptracers/ptracers_reset.F
ViewVC logotype

Diff of /MITgcm/pkg/ptracers/ptracers_reset.F

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

revision 1.2 by jahn, Thu Mar 21 18:07:59 2013 UTC revision 1.3 by jmc, Fri Aug 15 19:18:12 2014 UTC
# Line 73  C     Initialise again this tracer array Line 73  C     Initialise again this tracer array
73             DO j=1-OLy,sNy+OLy             DO j=1-OLy,sNy+OLy
74              DO i=1-OLx,sNx+OLx              DO i=1-OLx,sNx+OLx
75               pTracer(i,j,k,bi,bj,iTracer) = PTRACERS_ref(k,iTracer)               pTracer(i,j,k,bi,bj,iTracer) = PTRACERS_ref(k,iTracer)
              gPtr(i,j,k,bi,bj,iTracer)    = 0. _d 0  
76               gpTrNm1(i,j,k,bi,bj,iTracer) = 0. _d 0               gpTrNm1(i,j,k,bi,bj,iTracer) = 0. _d 0
77              ENDDO              ENDDO
78             ENDDO             ENDDO
Legend:
Removed from v.1.2  
changed lines
  Added in v.1.3
  ViewVC Help
Powered by ViewVC 1.1.22