diff options
Diffstat (limited to 'src/sor_confmetric.F')
| -rw-r--r-- | src/sor_confmetric.F | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/sor_confmetric.F b/src/sor_confmetric.F index 37dbf77..8c7867a 100644 --- a/src/sor_confmetric.F +++ b/src/sor_confmetric.F @@ -235,7 +235,7 @@ c Start loop with Red Black & -uyy(i,j+1,k) -2.*uyy(i,j,k) -uyy(i,j-1,k) & -uzz(i,j,k+1) -2.*uzz(i,j,k) -uzz(i,j,k-1) if (Mlinear_storage.eq.1) then - ac = ac - Mlinear(i,j,k) + ac = ac + Mlinear(i,j,k) endif ae = uxx(i+1,j,k)+uxx(i,j,k) @@ -268,7 +268,7 @@ c Start loop with Red Black & + atn*var(i,j+1,k+1) + ats*var(i,j-1,k+1) & + abn*var(i,j+1,k-1) + asb*var(i,j-1,k-1) if (Nsource_storage.eq.1) then - residual = residual - Nsource(i,j,k) + residual = residual + Nsource(i,j,k) endif c Accumulate to the total Norm of the residual |