Parent Directory | Revision Log | Revision Graph | Patch
revision 1.1 by jmc, Thu Mar 30 19:37:54 2006 UTC | revision 1.2 by jmc, Tue Dec 5 05:27:38 2006 UTC | |
---|---|---|
# | Line 53 CEOP | Line 53 CEOP |
53 | ||
54 | DO j=1-Olx,sNy+Oly | DO j=1-Olx,sNy+Oly |
55 | DO i=1-Olx+1,sNx+Olx | DO i=1-Olx+1,sNx+Olx |
56 | uMetricTerms(i,j) = uFld(i,j)*recip_RSphere | uMetricTerms(i,j) = uFld(i,j)*recip_rSphere*recip_deepFacC(k) |
57 | & *0.25*(wVelBottomOverride* | & *0.25*(wVelBottomOverride* |
58 | & (wFld(i-1,j,kp1,bi,bj)+wFld(i,j,kp1,bi,bj)) | & (wFld(i-1,j,kp1,bi,bj)+wFld(i,j,kp1,bi,bj)) |
59 | & +wFld(i-1,j, k ,bi,bj)+wFld(i,j, k ,bi,bj) | & +wFld(i-1,j, k ,bi,bj)+wFld(i,j, k ,bi,bj) |
|
ViewVC Help | |
Powered by ViewVC 1.1.22 |