diff --git a/src/kick/kick.f90 b/src/kick/kick.f90 index fd26a08f3..f6c1d5a5e 100644 --- a/src/kick/kick.f90 +++ b/src/kick/kick.f90 @@ -113,7 +113,8 @@ module subroutine kick_getacch_int_all_tp(ntp, npl, xtp, xpl, GMpl, lmask, acc) integer(I4B) :: i, j !$omp parallel do default(private) schedule(static)& - !$omp shared(npl, ntp, lmask, xtp, xpl, acc) + !$omp shared(npl, ntp, lmask, xtp, xpl) & + !$omp reduction(-:acc) do i = 1, ntp if (lmask(i)) then do j = 1, npl