From 2d16ac42ec26717716e85b21272b1ca7188b7e8d Mon Sep 17 00:00:00 2001 From: diener Date: Wed, 30 Apr 2008 22:41:02 +0000 Subject: 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 --- src/Dissipation_8_4_alt.F90 | 4 ++-- 1 file 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) + & -- cgit v1.2.3