Parent Directory | Revision Log | Revision Graph | Patch
revision 1.3 by edhill, Mon Mar 29 03:33:51 2004 UTC | revision 1.4 by jmc, Sat Dec 4 00:22:25 2004 UTC | |
---|---|---|
# | Line 102 C-- Compute the upwind fraction: | Line 102 C-- Compute the upwind fraction: |
102 | C-- Add centered & upwind contributions | C-- Add centered & upwind contributions |
103 | DO j=jMin,jMax | DO j=jMin,jMax |
104 | DO i=iMin,iMax | DO i=iMin,iMax |
105 | rCenter = 0.5 _d 0 *deltaTtracer*rTrans(i,j) | rCenter = 0.5 _d 0 *deltaTarg*rTrans(i,j) |
106 | & *recip_rA(i,j,bi,bj)*rkFac | & *recip_rA(i,j,bi,bj)*rkFac |
107 | rUpwind = abs(rCenter)*upwindFac(i,j) | rUpwind = abs(rCenter)*upwindFac(i,j) |
108 | a3d(i,j,k) = a3d(i,j,k) | a3d(i,j,k) = a3d(i,j,k) |
|
ViewVC Help | |
Powered by ViewVC 1.1.22 |