Parent Directory | Revision Log | Revision Graph | Patch
revision 1.7 by adcroft, Tue Jul 20 17:46:38 2004 UTC | revision 1.8 by jmc, Thu Apr 28 14:57:22 2005 UTC | |
---|---|---|
# | Line 96 c-- test a different formulation (r | Line 96 c-- test a different formulation (r |
96 | ||
97 | IF (useJamartMomAdv) | 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) ) |
101 | ||
102 | uCoriolisTerm(i,j)= | uCoriolisTerm(i,j)= |
|
ViewVC Help | |
Powered by ViewVC 1.1.22 |