Parent Directory | Revision Log | Revision Graph | Patch
revision 1.1 by afe, Thu Jun 24 20:25:44 2004 UTC | revision 1.2 by jmc, Wed Jul 7 18:34:07 2004 UTC | |
---|---|---|
# | Line 46 C i,j :: loop indices | Line 46 C i,j :: loop indices |
46 | INTEGER i,j | INTEGER i,j |
47 | CEOP | CEOP |
48 | ||
49 | DO j=1-Olx,sNy+Oly-1 | C jmc: using yG make more sense to me but I might be wrong ? |
50 | DO i=1-Olx+1,sNx+Olx | DO j=1-Oly+1,sNy+Oly |
51 | DO i=1-Olx,sNx+Olx-1 | |
52 | if (yC(i,j,bi,bj).GT. 0) then | if (yC(i,j,bi,bj).GT. 0) then |
53 | vMetricTerms(i,j) = | vMetricTerms(i,j) = |
54 | & -1.*0.25*(uFld(i,j) + uFld(i+1,j) + | & -1.*0.25*(uFld(i,j) + uFld(i+1,j) + |
|
ViewVC Help | |
Powered by ViewVC 1.1.22 |