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