Parent Directory | Revision Log | Revision Graph | Patch
revision 1.33 by jmc, Sun Nov 19 22:03:13 2006 UTC | revision 1.34 by jmc, Sun Dec 24 20:07:02 2006 UTC | |
---|---|---|
# | Line 315 C---+----1----+----2----+----3----+----4 | Line 315 C---+----1----+----2----+----3----+----4 |
315 | DO j = 1,sNy | DO j = 1,sNy |
316 | DO i = 1,sNx | DO i = 1,sNx |
317 | tmpMk(i,j,k,bi,bj) = tmp1k(i,j,bi,bj) | tmpMk(i,j,k,bi,bj) = tmp1k(i,j,bi,bj) |
318 | & + drF(k)*hFacC(i,j,k,bi,bj)*0.5 _d 0 | & + (rF(k)-rC(k))*hFacC(i,j,k,bi,bj) |
319 | C above: more general (setInterFDr/setCenterDr) than line below | |
320 | c & + drF(k)*hFacC(i,j,k,bi,bj)*0.5 _d 0 | |
321 | tmp1k(i,j,bi,bj) = tmp1k(i,j,bi,bj) | tmp1k(i,j,bi,bj) = tmp1k(i,j,bi,bj) |
322 | & + drF(k)*hFacC(i,j,k,bi,bj) | & + drF(k)*hFacC(i,j,k,bi,bj) |
323 | ENDDO | ENDDO |
|
ViewVC Help | |
Powered by ViewVC 1.1.22 |