From a0881abe8afd0814186179807d7b13b7fba9e2df Mon Sep 17 00:00:00 2001 From: David Minton Date: Sun, 18 Feb 2024 00:51:04 -0500 Subject: [PATCH] Added locality spec to do concurrent --- src/collision/collision_generate.f90 | 4 ++++ 1 file changed, 4 insertions(+) diff --git a/src/collision/collision_generate.f90 b/src/collision/collision_generate.f90 index 5fc489f86..072dbfa0f 100644 --- a/src/collision/collision_generate.f90 +++ b/src/collision/collision_generate.f90 @@ -209,7 +209,11 @@ module subroutine collision_generate_merge(self, nbody_system, param, t) fragments%density(1) = fragments%mass(1) / volume fragments%radius(1) = (3._DP * volume / (4._DP * PI))**(THIRD) if (param%lrotation) then +#ifdef DOCONLOC + do concurrent(i = 1:NDIM) shared(impactors, fragments, L_spin_new) +#else do concurrent(i = 1:NDIM) +#endif fragments%Ip(i,1) = sum(impactors%mass(:) * impactors%Ip(i,:)) L_spin_new(i) = sum(impactors%L_orbit(i,:) + impactors%L_spin(i,:)) end do