Need to make some values private

Author: danieljvickers

src/simulation/m_compute_levelset.fpp

@@ -36,7 +36,7 @@ contains
         !  3D Patch Geometries
         if (p > 0) then
 
-            $:GPU_PARALLEL_LOOP(private='[i]', copy='[gps]', copyin='[patch_ib,Np]')
+            $:GPU_PARALLEL_LOOP(private='[i,patch_id,patch_geometry]', copy='[gps]', copyin='[patch_ib,Np]')
             do i = 1, num_gps
 
                 patch_id = gps(i)%ib_patch_id
@@ -61,7 +61,7 @@ contains
             ! 2D Patch Geometries
         elseif (n > 0) then
 
-            $:GPU_PARALLEL_LOOP(private='[i]', copy='[gps]', copyin='[patch_ib, Np]')
+            $:GPU_PARALLEL_LOOP(private='[i,patch_id,patch_geometry]', copy='[gps]', copyin='[patch_ib, Np]')
             do i = 1, num_gps
 
                 patch_id = gps(i)%ib_patch_id