FDS Source: Remove unused variable from OpenMP statement

firemodels · Feb 7, 2024 · e5bf9bd · e5bf9bd
1 parent 32e3b3c
commit e5bf9bd
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/Source/pres.f90 b/Source/pres.f90
@@ -727,7 +727,7 @@ SUBROUTINE PRESSURE_SOLVER_CHECK_RESIDUALS(NM)
 
 IF (CHECK_POISSON) THEN
    RESIDUAL => WORK8(1:IBAR,1:JBAR,1:KBAR)
-   !$OMP PARALLEL DO PRIVATE(II,I,J,K,RHSS,LHSS) SCHEDULE(STATIC)
+   !$OMP PARALLEL DO PRIVATE(I,J,K,RHSS,LHSS) SCHEDULE(STATIC)
    DO K=1,KBAR
       DO J=1,JBAR
          DO I=1,IBAR
@@ -757,7 +757,7 @@ SUBROUTINE PRESSURE_SOLVER_CHECK_RESIDUALS(NM)
 
    !$OMP PARALLEL
 
-   !$OMP DO SCHEDULE(STATIC) PRIVATE(II)
+   !$OMP DO SCHEDULE(STATIC)
    DO K=0,KBP1
       DO J=0,JBP1
          DO I=0,IBP1