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

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

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

revision 1.11 by jahn, Thu Mar 21 18:07:59 2013 UTC revision 1.12 by jmc, Fri Aug 15 19:18:12 2014 UTC
# Line 63  C     Initialize arrays in common blocks Line 63  C     Initialize arrays in common blocks
63            DO j=1-OLy,sNy+OLy            DO j=1-OLy,sNy+OLy
64             DO i=1-OLx,sNx+OLx             DO i=1-OLx,sNx+OLx
65              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  
66              gpTrNm1(i,j,k,bi,bj,iTracer) = 0. _d 0              gpTrNm1(i,j,k,bi,bj,iTracer) = 0. _d 0
67             ENDDO             ENDDO
68            ENDDO            ENDDO
Legend:
Removed from v.1.11  
changed lines
  Added in v.1.12
  ViewVC Help
Powered by ViewVC 1.1.22