Merge pull request #14388 from marcosvanella/master

FDS Source : Set private OpenMP variable in unstructured residual com…

Author: marcosvanella

Source/pres.f90

@@ -5142,7 +5142,7 @@ SUBROUTINE PRESSURE_SOLVER_CHECK_RESIDUALS_U(NM)
 
 IF (CHECK_POISSON) THEN
    RESIDUAL => WORK8(1:IBAR,1:JBAR,1:KBAR); RESIDUAL = 0._EB
-   !$OMP PARALLEL DO PRIVATE(I,J,K,RHSS,LHSS,IMFCT,JMFCT,KMFCT,IPFCT,JPFCT,KPFCT) SCHEDULE(STATIC)
+   !$OMP PARALLEL DO PRIVATE(I,J,K,IC,RHSS,LHSS,IMFCT,JMFCT,KMFCT,IPFCT,JPFCT,KPFCT) SCHEDULE(STATIC)
    DO K=1,KBAR
       DO J=1,JBAR
          DO I=1,IBAR