diff --git a/src/kick/kick.f90 b/src/kick/kick.f90 index c3e37d927..e680fde98 100644 --- a/src/kick/kick.f90 +++ b/src/kick/kick.f90 @@ -190,7 +190,7 @@ module subroutine kick_getacch_int_all_triangular_pl(npl, nplm, x, Gmass, radius !$omp end parallel do else !$omp parallel do default(private) schedule(static)& - !$omp shared(npl, nplm, x, Gmass, radius) & + !$omp shared(npl, nplm, x, Gmass) & !$omp lastprivate(rji2, xr, yr, zr) & !$omp reduction(+:ahi) & !$omp reduction(-:ahj)