Parallel: Add DEFAULT(SHARED) to OpenMP parallel clause creation

ecmwf-ifs · Nov 7, 2024 · dd545a0 · dd545a0
1 parent 5e67eae
commit dd545a0
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/loki/transformations/parallel/openmp_region.py b/loki/transformations/parallel/openmp_region.py
@@ -165,7 +165,7 @@ def add_openmp_regions(routine, global_variables=None, field_group_types=None):
                 s_firstprivate = f'FIRSTPRIVATE({s_fp_vars})' if firstprivates else ''
                 s_private = f'PRIVATE({", ".join(str(v) for v in privates)})' if privates else ''
                 pragma_parallel = ir.Pragma(
-                    keyword='OMP', content=f'PARALLEL {s_private} {s_firstprivate}'
+                    keyword='OMP', content=f'PARALLEL DEFAULT(SHARED) {s_private} {s_firstprivate}'
                 )
                 region._update(
                     pragma=pragma_parallel,