diff options
author | diener <diener@f69c4107-0314-4c4f-9ad4-17e986b73f4a> | 2008-04-30 22:41:02 +0000 |
---|---|---|
committer | diener <diener@f69c4107-0314-4c4f-9ad4-17e986b73f4a> | 2008-04-30 22:41:02 +0000 |
commit | 2d16ac42ec26717716e85b21272b1ca7188b7e8d (patch) | |
tree | 0e3c5affd3a5bab6c3ea2c9e7603183f87b76c2b | |
parent | 79e94f35fe2d6ee03652166f3c6405802171492c (diff) |
Fixed use of wrong offset in one of the y-directions.
git-svn-id: https://svn.cct.lsu.edu/repos/numrel/LSUThorns/SummationByParts/trunk@108 f69c4107-0314-4c4f-9ad4-17e986b73f4a
-rw-r--r-- | src/Dissipation_8_4_alt.F90 | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/Dissipation_8_4_alt.F90 b/src/Dissipation_8_4_alt.F90 index 40a9ea7..572b1ad 100644 --- a/src/Dissipation_8_4_alt.F90 +++ b/src/Dissipation_8_4_alt.F90 @@ -158,7 +158,7 @@ subroutine dissipation_8_4_alt (var, ni, nj, nk, bb, gsize, offset, delta, epsil if ( bb(3) == 0 ) then jl = 1 + gsize(2) else - ol = offset(5); + ol = offset(3); rhs(:,1+ol,:) = rhs(:,1+ol,:) + & ( a(1,1) * var(:,1+ol,:) + a(2,1) * var(:,2+ol,:) + & a(3,1) * var(:,3+ol,:) + a(4,1) * var(:,4+ol,:) + & @@ -387,7 +387,7 @@ subroutine dissipation_8_4_alt (var, ni, nj, nk, bb, gsize, offset, delta, epsil ( a(1,1) * var(:,:,or) + a(2,1) * var(:,:,or-1) + & a(3,1) * var(:,:,or-2) + a(4,1) * var(:,:,or-3) + & a(5,1) * var(:,:,or-4) + a(6,1) * var(:,:,or-5) ) * idel - + kr = or - 8 end if rhs(:,:,kl:kr) = rhs(:,:,kl:kr) + & |