fixed error in OpenMP test for 3D distances

Author: danieljvickers

src/common/m_model.fpp

@@ -36,7 +36,7 @@ module m_model
     integer, allocatable :: gpu_boundary_edge_count(:)
     integer, allocatable :: gpu_total_vertices(:)
     real(wp), allocatable :: stl_bounding_boxes(:, :, :)
-    $:GPU_DECLARE(create='[gpu_trs_v,gpu_trs_n,gpu_boundary_v]')
+    $:GPU_DECLARE(create='[gpu_ntrs,gpu_trs_v,gpu_trs_n,gpu_boundary_v,gpu_boundary_edge_count,gpu_total_vertices]')
 
 contains
 

src/simulation/m_compute_levelset.fpp

@@ -678,10 +678,6 @@ contains
         end if
         xyz_local = matmul(inverse_rotation, xyz_local)
 
-        if (grid_geometry == 3) then
-            xyz_local = f_convert_cyl_to_cart(xyz_local)
-        end if
-
         ! 3D models
         if (p > 0) then
             ! Get the boundary normals and shortest distance between the cell center and the model boundary