Parent Directory | Revision Log | Revision Graph | 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) |
|
ViewVC Help | |
Powered by ViewVC 1.1.22 |