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

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

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

revision 1.2 by adcroft, Tue May 29 14:01:37 2001 UTC revision 1.3 by heimbach, Fri Jul 13 14:26:57 2001 UTC
# Line 35  C Line 35  C
35          DO k=1,Nr          DO k=1,Nr
36           DO j=1-Oly,sNy+Oly           DO j=1-Oly,sNy+Oly
37            DO i=1-Olx,sNx+Olx            DO i=1-Olx,sNx+Olx
38             uVel(i,j,k,bi,bj)=0.             uVel(i,j,k,bi,bj)=0. _d 0
39             vVel(i,j,k,bi,bj)=0.             vVel(i,j,k,bi,bj)=0. _d 0
40             wVel(i,j,k,bi,bj)=0.             wVel(i,j,k,bi,bj)=0. _d 0
41            ENDDO            ENDDO
42           ENDDO           ENDDO
43          ENDDO          ENDDO
Legend:
Removed from v.1.2  
changed lines
  Added in v.1.3
  ViewVC Help
Powered by ViewVC 1.1.22