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

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

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

revision 1.5 by cnh, Mon May 25 20:05:55 1998 UTC revision 1.6 by cnh, Sat May 30 02:10:16 1998 UTC
# Line 42  C     Step forward zonal velocity Line 42  C     Step forward zonal velocity
42           uVel(i,j,k,bi,bj)=uVel(i,j,k,bi,bj)           uVel(i,j,k,bi,bj)=uVel(i,j,k,bi,bj)
43       &    +deltaTmom*(ab15*gU(i,j,k,bi,bj)+ab05*gUNm1(i,j,k,bi,bj)       &    +deltaTmom*(ab15*gU(i,j,k,bi,bj)+ab05*gUNm1(i,j,k,bi,bj)
44       &                -hxFac*pSurfX(i,j)/rhonil       &                -hxFac*pSurfX(i,j)/rhonil
45       &    )*maskW(i,j,k,bi,bj)       &    )*_maskW(i,j,k,bi,bj)
46           gUNm1(i,j,k,bi,bj)=gU(i,j,k,bi,bj)           gUNm1(i,j,k,bi,bj)=gU(i,j,k,bi,bj)
47          ENDDO          ENDDO
48         ENDDO         ENDDO
# Line 52  C     Step forward meridional velocity Line 52  C     Step forward meridional velocity
52           vVel(i,j,k,bi,bj)=vVel(i,j,k,bi,bj)           vVel(i,j,k,bi,bj)=vVel(i,j,k,bi,bj)
53       &    +deltaTmom*(ab15*gV(i,j,k,bi,bj)+ab05*gVNm1(i,j,k,bi,bj)       &    +deltaTmom*(ab15*gV(i,j,k,bi,bj)+ab05*gVNm1(i,j,k,bi,bj)
54       &                -hyFac*pSurfY(i,j)/rhonil       &                -hyFac*pSurfY(i,j)/rhonil
55       &               )*maskS(i,j,k,bi,bj)       &               )*_maskS(i,j,k,bi,bj)
56           gVNm1(i,j,k,bi,bj)=gV(i,j,k,bi,bj)           gVNm1(i,j,k,bi,bj)=gV(i,j,k,bi,bj)
57          ENDDO          ENDDO
58         ENDDO         ENDDO
Legend:
Removed from v.1.5  
changed lines
  Added in v.1.6
  ViewVC Help
Powered by ViewVC 1.1.22