diff options
| -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) + & |