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

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

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

revision 1.1 by jmc, Tue Feb 18 15:25:09 2003 UTC revision 1.2 by heimbach, Fri Jul 18 20:06:45 2003 UTC
# Line 55  CEOP Line 55  CEOP
55          DO j=jMin,jMax          DO j=jMin,jMax
56           DO i=iMin,iMax           DO i=iMin,iMax
57             totPhiHyd(i,j,k,bi,bj) = phiHydC(i,j)             totPhiHyd(i,j,k,bi,bj) = phiHydC(i,j)
 c    &            - gravity*rC(k)*recip_horiVertRatio  
58       &            + Bo_surf(i,j,bi,bj)*etaN(i,j,bi,bj)       &            + Bo_surf(i,j,bi,bj)*etaN(i,j,bi,bj)
59       &            + phi0surf(i,j,bi,bj)       &            + phi0surf(i,j,bi,bj)
60           ENDDO           ENDDO
Legend:
Removed from v.1.1  
changed lines
  Added in v.1.2
  ViewVC Help
Powered by ViewVC 1.1.22