Fixed array bounds errors

Warwick-Plasma · Jun 27, 2018 · 5629fac · 5629fac
1 parent 85bad0e
commit 5629fac
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/epoch1d/src/user_interaction/deltaf_loader.F90 b/epoch1d/src/user_interaction/deltaf_loader.F90
@@ -35,7 +35,7 @@ MODULE deltaf_loader
   SUBROUTINE params_local(current, temperature, drift, temp_local, drift_local)
 
     TYPE(particle), POINTER, INTENT(IN) :: current
-    REAL(num), DIMENSION(-2:), INTENT(IN) :: temperature, drift
+    REAL(num), DIMENSION(1-ng:), INTENT(IN) :: temperature, drift
     REAL(num), INTENT(INOUT) :: temp_local, drift_local
     REAL(num) :: gf
     INTEGER :: ix, i
@@ -61,7 +61,7 @@ END SUBROUTINE params_local
   SUBROUTINE density_local(current, density, dens_local)
 
     TYPE(particle), POINTER, INTENT(IN) :: current
-    REAL(num), DIMENSION(-2:), INTENT(IN) :: density
+    REAL(num), DIMENSION(1-ng:), INTENT(IN) :: density
     REAL(num), INTENT(INOUT) :: dens_local
     INTEGER :: ix, i