diff --git a/src/kick/kick.f90 b/src/kick/kick.f90 index ea21c42e8..766e829d6 100644 --- a/src/kick/kick.f90 +++ b/src/kick/kick.f90 @@ -168,7 +168,7 @@ 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) & + !$omp shared(npl, ntp, lmask, xtp, xpl, GMpl) & !$omp reduction(-:acc) do i = 1, ntp if (lmask(i)) then