/[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.23 by jmc, Thu Mar 8 20:27:33 2001 UTC revision 1.24 by adcroft, Tue Jun 5 15:29:31 2001 UTC
# Line 93  C--   -grad Phi_Hyd has not been incorpo Line 93  C--   -grad Phi_Hyd has not been incorpo
93            DO i=iMin,iMax            DO i=iMin,iMax
94              gVNm1(i,j,k,bi,bj)=gVNm1(i,j,k,bi,bj)              gVNm1(i,j,k,bi,bj)=gVNm1(i,j,k,bi,bj)
95       &       - _recip_dyC(i,j,bi,bj)       &       - _recip_dyC(i,j,bi,bj)
96       &         *(phiHyd(i,j,k)-phiHyd(i,j-1,k))*phyFac                             &         *(phiHyd(i,j,k)-phiHyd(i,j-1,k))*phyFac
97       &         *_maskS(i,j,k,bi,bj)       &         *_maskS(i,j,k,bi,bj)
98            ENDDO            ENDDO
99          ENDDO          ENDDO
Legend:
Removed from v.1.23  
changed lines
  Added in v.1.24
  ViewVC Help
Powered by ViewVC 1.1.22