From 1e9794aa67349497e38483e18fe4c8ceb44cd901 Mon Sep 17 00:00:00 2001
From: David A Minton <daminton@purdue.edu>
Date: Thu, 16 Sep 2021 22:56:59 -0400
Subject: [PATCH] Added missing variable to openmp list

---
 src/kick/kick.f90 | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

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