From cb1f0635729ccf6fbf2e8a93058cfdbf6805ce1b Mon Sep 17 00:00:00 2001 From: marcosvanella Date: Mon, 25 Nov 2024 15:15:25 -0500 Subject: [PATCH 1/2] FDS Source : Make var private in OMP loop. --- Source/mass.f90 | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/Source/mass.f90 b/Source/mass.f90 index 6306f6047a5..b2d4ce0aab3 100644 --- a/Source/mass.f90 +++ b/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) From dcd4d09a0c2c05c53ffc7f76a19c6b9fdfc83baf Mon Sep 17 00:00:00 2001 From: marcosvanella Date: Mon, 25 Nov 2024 15:19:06 -0500 Subject: [PATCH 2/2] FDS makefile : add openmp flag for ccib.f90 if needed. --- Build/makefile | 2 ++ 1 file changed, 2 insertions(+) diff --git a/Build/makefile b/Build/makefile index 69cfdbccfb4..43ebb2e1903 100644 --- a/Build/makefile +++ b/Build/makefile @@ -154,6 +154,7 @@ setup_win: # Files which have OpenMP compiler directives are compiled using the FOPENMPFLAG and can be enabled/disabled on a per-file basis. +ccib.o: FFLAGS += $(FOPENMPFLAGS) divg.o: FFLAGS += $(FOPENMPFLAGS) func.o: FFLAGS += $(FOPENMPFLAGS) mass.o: FFLAGS += $(FOPENMPFLAGS) @@ -164,6 +165,7 @@ radi.o: FFLAGS += $(FOPENMPFLAGS) wall.o: FFLAGS += $(FOPENMPFLAGS) main.o: FFLAGS += $(FOPENMPFLAGS) +ccib.obj: FFLAGS += $(FOPENMPFLAGS) divg.obj: FFLAGS += $(FOPENMPFLAGS) func.obj: FFLAGS += $(FOPENMPFLAGS) mass.obj: FFLAGS += $(FOPENMPFLAGS)