Explicit GPU declares for friction

Author: danieljvickers

src/simulation/m_collisions.fpp

@@ -43,6 +43,7 @@ contains
 
         wall_overlap_distances = 0
         $:GPU_UPDATE(device='[wall_overlap_distances]')
+        $:GPU_UPDATE(device='[ib_coefficient_of_friction]')
 
     end subroutine s_initialize_collisions_module
 
@@ -221,6 +222,8 @@ contains
         end do
         $:END_GPU_PARALLEL_LOOP()
 
+        print *, forces(1,1:3)
+
     end subroutine s_apply_wall_collision_forces_soft_sphere
 
     !> uses ghost-point/image-point information to determine if it is possible if two IBs are colliding, effectively an optimized

src/simulation/m_global_parameters.fpp

@@ -364,6 +364,7 @@ module m_global_parameters
     integer                                                  :: Np
 
     $:GPU_DECLARE(create='[ib, num_ibs, patch_ib, Np, airfoil_grid_u, airfoil_grid_l]')
+    $:GPU_DECLARE(create='[ib_coefficient_of_friction]')
     !> @}
 
     !> @name Bubble modeling