Fixed bad openmp sharing directives.

MintonGroup · Oct 1, 2021 · 73407cd · 73407cd
1 parent 9bd7246
commit 73407cd
Showing 1 changed file with 3 additions and 2 deletions.
diff --git a/src/encounter/encounter.f90 b/src/encounter/encounter.f90
@@ -186,7 +186,8 @@ subroutine encounter_check_all_sort_and_sweep_plpl(npl, nplm, x, v, renc, dt, lv
 
       ! Sweep the intervals for each of the massive bodies along one dimension
       !$omp parallel do default(private) schedule(static)&
-      !$omp shared(aabb, lenc, ind_arr)
+      !$omp shared(aabb, lenc, ind_arr) &
+      !$omp firstprivate(npl)
       do i = 1, npl
          ibox = aabb(1)%ibeg(i)
          nbox = aabb(1)%iend(i) - 1
@@ -229,7 +230,7 @@ subroutine encounter_check_all_sort_and_sweep_plpl(npl, nplm, x, v, renc, dt, lv
          lenc_final(:) = .true.
 
          !$omp parallel do simd default(firstprivate) schedule(static)&
-         !$omp shared(lenc_final, lvdotr_final) &
+         !$omp shared(lenc_final, lvdotr_final, index1, index2, x, v) &
          !$omp lastprivate(i, j, xr, yr, zr, vxr, vyr, vzr, renc12)
          do k = 1, nenc
             i = index1(k)