Parent Directory | Revision Log | Revision Graph | Patch
revision 1.5 by adcroft, Wed Jun 2 13:23:55 2004 UTC | revision 1.6 by adcroft, Mon Jun 14 17:48:17 2004 UTC | |
---|---|---|
# | Line 94 c-- test a different formulation (r | Line 94 c-- test a different formulation (r |
94 | ENDIF | ENDIF |
95 | ENDIF | ENDIF |
96 | ||
97 | IF (useJamartWetpoints) | IF (useJamartMomAdv) |
98 | & vBarXY = vBarXY * 4. _d 0 * hFacW(i,j,k,bi,bj) | & vBarXY = vBarXY * 4. _d 0 * hFacW(i,j,k,bi,bj) |
99 | & * MAX( epsil, hFacS( i , j ,k,bi,bj)+hFacS(i-1, j ,k,bi,bj) | & * MAX( epsil, hFacS( i , j ,k,bi,bj)+hFacS(i-1, j ,k,bi,bj) |
100 | & +hFacS( j ,i+1,k,bi,bj)+hFacS(i-1,j+1,k,bi,bj) ) | & +hFacS( j ,i+1,k,bi,bj)+hFacS(i-1,j+1,k,bi,bj) ) |
|
ViewVC Help | |
Powered by ViewVC 1.1.22 |