FDS Source : Make var private in OMP loop.

Author: marcosvanella

Source/mass.f90

@@ -532,7 +532,7 @@ SUBROUTINE DENSITY(T,DT,NM)
 
    !$OMP PARALLEL
 
-   !$OMP DO PRIVATE(IW,WC,BC)
+   !$OMP DO PRIVATE(IW,WC,EWC,BC)
    WALL_LOOP_2: DO IW=1,N_EXTERNAL_WALL_CELLS
       WC => WALL(IW)
       EWC => EXTERNAL_WALL(IW)