Fixed compilation errors

Author: danieljvickers

src/simulation/m_collisions.fpp

@@ -20,7 +20,7 @@ module m_collisions
     implicit none
 
     private; public :: s_apply_collision_forces, s_initialize_collisions_module, s_finalize_collisions_module, &
-        & f_local_rank_owns_location, f_neighborhood_ranks_own_location
+        & f_local_rank_owns_location, f_neighborhood_ranks_own_location, ib_gbl_idx_lookup
     ! overlap distances for computing collisions
     integer, allocatable, dimension(:,:)  :: collision_lookup
     real(wp), allocatable, dimension(:,:) :: wall_overlap_distances
@@ -104,6 +104,7 @@ contains
             call s_decode_patch_periodicity(encoded_pid2, pid2, xp2, yp2, zp2)
             pid1 = collision_lookup(i, 1)
             pid2 = collision_lookup(i, 2)
+
             ! call s_get_neighborhood_idx(pid1, pid1) ! global patch ID -> local index call s_get_neighborhood_idx(pid2, pid2)
             if (pid1 <= 0 .or. pid2 <= 0) cycle
 
@@ -376,7 +377,7 @@ contains
                         end do
                     end do
                 end do
-            end do
+            end do collision_partner_loop
         end do
         $:END_GPU_PARALLEL_LOOP()
 

src/simulation/m_ib_patches.fpp

@@ -23,7 +23,7 @@ module m_ib_patches
     implicit none
 
     private; public :: s_apply_ib_patches, s_update_ib_rotation_matrix, s_instantiate_STL_models, s_decode_patch_periodicity, &
-        & s_initialize_ib_airfoils
+        & s_encode_patch_periodicity, s_initialize_ib_airfoils, s_get_periodicities
 
 contains
 

src/simulation/m_ibm.fpp

@@ -26,7 +26,7 @@ module m_ibm
 
     private :: s_compute_image_points, s_compute_interpolation_coeffs, s_interpolate_image_point, s_find_ghost_points, &
         & s_find_num_ghost_points
-    ; public :: ib_gbl_idx_lookup, s_initialize_ibm_module, s_ibm_setup, s_ibm_correct_state, s_finalize_ibm_module
+    ; public :: s_initialize_ibm_module, s_ibm_setup, s_ibm_correct_state, s_finalize_ibm_module
 
     type(integer_field), public :: ib_markers
     $:GPU_DECLARE(create='[ib_markers]')