/[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.11 by jmc, Tue Mar 16 00:08:27 2010 UTC revision 1.12 by jmc, Fri May 14 23:21:02 2010 UTC
# Line 139  C-     Consistent with Phi'= Integr[ the Line 139  C-     Consistent with Phi'= Integr[ the
139        ENDIF        ENDIF
140    
141  C--   Zonal & Meridional gradient of potential anomaly  C--   Zonal & Meridional gradient of potential anomaly
142          DO j=1-OLy,sNy+OLy
143           DO i=1-OLx,sNx+OLx
144            dPhiHydX(i,j)  = 0. _d 0
145            dPhiHydY(i,j)  = 0. _d 0
146           ENDDO
147          ENDDO
148        DO j=jMin,jMax        DO j=jMin,jMax
149         DO i=iMin+1,iMax         DO i=iMin+1,iMax
150          dPhiHydX(i,j) = _recip_dxC(i,j,bi,bj)*recip_deepFacC(k)          dPhiHydX(i,j) = _recip_dxC(i,j,bi,bj)*recip_deepFacC(k)
Legend:
Removed from v.1.11  
changed lines
  Added in v.1.12
  ViewVC Help
Powered by ViewVC 1.1.22