From 4ec8910a6f30425589c7c3be64f2fc635ef81ef0 Mon Sep 17 00:00:00 2001
From: Anil Yildirim <42349285+anilyil@users.noreply.github.com>
Date: Tue, 18 Jul 2023 13:06:01 -0400
Subject: [PATCH] bug fix from 2019 (#297)

---
 src/NKSolver/blockette.F90 | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/src/NKSolver/blockette.F90 b/src/NKSolver/blockette.F90
index 7841e4942..6ce106c2e 100644
--- a/src/NKSolver/blockette.F90
+++ b/src/NKSolver/blockette.F90
@@ -578,7 +578,7 @@ 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
@@ -586,7 +586,7 @@ subroutine blocketteResCore(dissApprox, viscApprox, updateIntermed, flowRes, tur
                         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
@@ -594,7 +594,7 @@ subroutine blocketteResCore(dissApprox, viscApprox, updateIntermed, flowRes, tur
                         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