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 | & uBarXY = uBarXY * 4. _d 0 * hFacS(i,j,k,bi,bj) | & uBarXY = uBarXY * 4. _d 0 * hFacS(i,j,k,bi,bj) |
99 | & * MAX( epsil, hFacW( i , j ,k,bi,bj)+hFacW( i ,j-1,k,bi,bj) | & * MAX( epsil, hFacW( i , j ,k,bi,bj)+hFacW( i ,j-1,k,bi,bj) |
100 | & +hFacW(i+1, j ,k,bi,bj)+hFacW(i+1,j-1,k,bi,bj) ) | & +hFacW(i+1, j ,k,bi,bj)+hFacW(i+1,j-1,k,bi,bj) ) |
|
ViewVC Help | |
Powered by ViewVC 1.1.22 |