/[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.8 by adcroft, Mon Jun 1 22:27:14 1998 UTC revision 1.9 by cnh, Mon Jun 8 21:43:02 1998 UTC
# Line 32  C     Step forward zonal velocity (store Line 32  C     Step forward zonal velocity (store
32          DO i=iMin,iMax          DO i=iMin,iMax
33           gUNm1(i,j,k,bi,bj)=uVel(i,j,k,bi,bj)           gUNm1(i,j,k,bi,bj)=uVel(i,j,k,bi,bj)
34       &    +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)
35    #ifdef ALLOW_CD
36         &    +guCD(i,j,k,bi,bj)
37    #endif
38       &        )*_maskW(i,j,k,bi,bj)       &        )*_maskW(i,j,k,bi,bj)
39          ENDDO          ENDDO
40         ENDDO         ENDDO
# Line 40  C     Step forward meridional velocity ( Line 43  C     Step forward meridional velocity (
43          DO i=iMin,iMax          DO i=iMin,iMax
44           gVNm1(i,j,k,bi,bj)=vVel(i,j,k,bi,bj)           gVNm1(i,j,k,bi,bj)=vVel(i,j,k,bi,bj)
45       &    +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)
46    #ifdef ALLOW_CD
47         &    +gvCD(i,j,k,bi,bj)
48    #endif
49       &        )*_maskS(i,j,k,bi,bj)       &        )*_maskS(i,j,k,bi,bj)
50          ENDDO          ENDDO
51         ENDDO         ENDDO
Legend:
Removed from v.1.8  
changed lines
  Added in v.1.9
  ViewVC Help
Powered by ViewVC 1.1.22