Fix to Return_Routines_Kij. Index issue.

jrober50 · Nov 16, 2023 · 8a4dbb5 · 8a4dbb5
1 parent 170c4c1
commit 8a4dbb5
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/Code/Return_Routines/Return_Routines_Kij.F90 b/Code/Return_Routines/Return_Routines_Kij.F90
@@ -323,7 +323,7 @@ SUBROUTINE Poseidon_Return_Kij_Native(  NE, NQ,                 &
     DO lm = 1,LM_Length
     DO d  = 0,DEGREE
 
-        Here  = Map_To_FEM_Node(RE,d)
+        Here  = Map_To_FEM_Node(RE-1,d)
 
 
         TMP_Val_Psi = TMP_Val_Psi                           &
@@ -789,7 +789,7 @@ SUBROUTINE Poseidon_Return_Kij_AMReX( NQ,                     &
                  DO lm = 1,LM_Length
                  DO d  = 0,DEGREE
 
-                     Here  = Map_To_FEM_Node(RE,d)
+                     Here  = Map_To_FEM_Node(RE-1,d)
 
 
                      TMP_Val_Psi = TMP_Val_Psi                      &