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

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

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

revision 1.1 by jmc, Sat Feb 8 02:09:20 2003 UTC revision 1.2 by jmc, Sun Feb 9 02:00:50 2003 UTC
# Line 61  CEOP Line 61  CEOP
61    
62        DO j=jMin-1,jMax        DO j=jMin-1,jMax
63         DO i=iMin-1,iMax         DO i=iMin-1,iMax
64  c       varLoc(i,j) = phiHyd(i,j,k)+phi0surf(i,j,bi,bj)          varLoc(i,j) = phiHyd(i,j,k)+phi0surf(i,j,bi,bj)
65          varLoc(i,j) = phiHyd(i,j,k)  c       varLoc(i,j) = phiHyd(i,j,k)
66         ENDDO         ENDDO
67        ENDDO        ENDDO
68    
Legend:
Removed from v.1.1  
changed lines
  Added in v.1.2
  ViewVC Help
Powered by ViewVC 1.1.22