/[MITgcm]/MITgcm/pkg/rbcs/rbcs_init_varia.F
ViewVC logotype

Diff of /MITgcm/pkg/rbcs/rbcs_init_varia.F

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

revision 1.3 by heimbach, Tue Jul 18 03:21:30 2006 UTC revision 1.4 by stephd, Wed Nov 1 20:49:18 2006 UTC
# Line 58  C     Loop over tracers Line 58  C     Loop over tracers
58              DO k=1,Nr              DO k=1,Nr
59                DO j=1-Oly,sNy+OLy                DO j=1-Oly,sNy+OLy
60                  DO i=1-Olx,sNx+Olx                  DO i=1-Olx,sNx+Olx
61                    rbcptracer0(i,j,k,bi,bj,iTracer) = 0. _d 0                    rbcptr0(i,j,k,bi,bj,iTracer) = 0. _d 0
62                    rbcptracer1(i,j,k,bi,bj,iTracer) = 0. _d 0                    rbcptr1(i,j,k,bi,bj,iTracer) = 0. _d 0
63                 ENDDO                 ENDDO
64                ENDDO                ENDDO
65              ENDDO              ENDDO
Legend:
Removed from v.1.3  
changed lines
  Added in v.1.4
  ViewVC Help
Powered by ViewVC 1.1.22