bug fix from 2019 (#297)

mdolab · Jul 18, 2023 · 4ec8910 · 4ec8910
1 parent c246e06
commit 4ec8910
Showing 1 changed file with 3 additions and 3 deletions.
diff --git a/src/NKSolver/blockette.F90 b/src/NKSolver/blockette.F90
@@ -578,23 +578,23 @@ subroutine blocketteResCore(dissApprox, viscApprox, updateIntermed, flowRes, tur
                         do k = 1, ke
                             do j = 1, je
                                 do i = 0, ie
-                                    sFaceI(i, j, k) = bsFaceI(ii + ii - 2, j + jj - 2, k + kk - 2)
+                                    sFaceI(i, j, k) = bsFaceI(i + ii - 2, j + jj - 2, k + kk - 2)
                                 end do
                             end do
                         end do
 
                         do k = 1, ke
                             do j = 0, je
                                 do i = 1, ie
-                                    sFaceJ(i, j, k) = bsFaceJ(ii + ii - 2, j + jj - 2, k + kk - 2)
+                                    sFaceJ(i, j, k) = bsFaceJ(i + ii - 2, j + jj - 2, k + kk - 2)
                                 end do
                             end do
                         end do
 
                         do k = 0, ke
                             do j = 1, je
                                 do i = 1, ie
-                                    sFaceK(i, j, k) = bsFaceK(ii + ii - 2, j + jj - 2, k + kk - 2)
+                                    sFaceK(i, j, k) = bsFaceK(i + ii - 2, j + jj - 2, k + kk - 2)
                                 end do
                             end do
                         end do