Remove IBM Feature PR (#1157) changes accidentally included in CCE fix branch

These files were inadvertently pulled in from a separate IBM Feature
Improvements PR (7c806be) that has not been merged to master. They
caused Phoenix (nvfortran) compilation failures in m_ibm.fpp which
triggered fail-fast cancellation of all Frontier CI jobs.

Restore all affected files to match master (021322c):
  src/common/m_constants.fpp
  src/common/m_derived_types.fpp
  src/common/m_helper.fpp
  src/common/m_model.fpp
  src/pre_process/m_icpp_patches.fpp
  src/simulation/m_compute_levelset.fpp
  src/simulation/m_data_output.fpp
  src/simulation/m_global_parameters.fpp
  src/simulation/m_ib_patches.fpp
  src/simulation/m_ibm.fpp
  src/simulation/m_mpi_proxy.fpp
  src/simulation/m_time_steppers.fpp
  tests/[2EE0C3AA,3008BA80,8876692F,AFBACA70] (new tests from IBM PR)
  tests/[0A362971,4E0FBE72,EA8FA07E] (restored to master content)

Co-Authored-By: Claude Sonnet 4.6 <noreply@anthropic.com>

Author: Spencer Bryngelson

src/common/m_constants.fpp

@@ -23,7 +23,7 @@ module m_constants
     integer, parameter :: fourier_rings = 5                       !< Fourier filter ring limit
     integer, parameter :: num_fluids_max = 10                     !< Maximum number of fluids in the simulation
     integer, parameter :: num_probes_max = 10                     !< Maximum number of flow probes in the simulation
-    integer, parameter :: num_patches_max = 1000
+    integer, parameter :: num_patches_max = 10
     integer, parameter :: num_bc_patches_max = 10
     integer, parameter :: pathlen_max = 400
     integer, parameter :: nnode = 4    !< Number of QBMM nodes
@@ -50,10 +50,14 @@ module m_constants
     real(wp), parameter :: dflt_T_guess = 1200._wp ! Default guess for temperature (when a previous value is not available)
 
     ! IBM+STL interpolation constants
+    integer, parameter :: Ifactor_2D = 50 !< Multiple factor of the ratio (edge to cell width) for interpolation along edges for 2D models
+    integer, parameter :: Ifactor_3D = 5 !< Multiple factor of the ratio (edge to cell width) for interpolation along edges for 3D models
+    integer, parameter :: Ifactor_bary_3D = 20 !< Multiple factor of the ratio (triangle area to cell face area) for interpolation on triangle facets for 3D models
     integer, parameter :: num_ray = 20 !< Default number of rays traced per cell
     real(wp), parameter :: ray_tracing_threshold = 0.9_wp !< Threshold above which the cell is marked as the model patch
     real(wp), parameter :: threshold_vector_zero = 1.e-10_wp !< Threshold to treat the component of a vector to be zero
     real(wp), parameter :: threshold_edge_zero = 1.e-10_wp !< Threshold to treat two edges to be overlapped
+    real(wp), parameter :: threshold_bary = 1.e-1_wp !< Threshold to interpolate a barycentric facet
     real(wp), parameter :: initial_distance_buffer = 1.e12_wp !< Initialized levelset distance for the shortest path pair algorithm
 
     ! Lagrange bubbles constants

src/common/m_derived_types.fpp

@@ -183,18 +183,12 @@ module m_derived_types
     end type t_model
 
     type :: t_model_array
-        ! Original CPU-side fields (unchanged)
         type(t_model), allocatable :: model
         real(wp), allocatable, dimension(:, :, :) :: boundary_v
         real(wp), allocatable, dimension(:, :) :: interpolated_boundary_v
         integer :: boundary_edge_count
         integer :: total_vertices
-        integer :: interpolate
-
-        ! GPU-friendly flattened arrays
-        integer :: ntrs  ! copy of model%ntrs
-        real(wp), allocatable, dimension(:, :, :) :: trs_v  ! (3, 3, ntrs) - triangle vertices
-        real(wp), allocatable, dimension(:, :) :: trs_n  ! (3, ntrs)    - triangle normals
+        logical :: interpolate
     end type t_model_array
 
     !> Derived type adding initial condition (ic) patch parameters as attributes
@@ -456,7 +450,6 @@ module m_derived_types
         real(wp), dimension(1:3) :: levelset_norm
         logical :: slip
         integer, dimension(3) :: DB
-        integer :: x_periodicity, y_periodicity, z_periodicity
     end type ghost_point
 
     !> Species parameters

src/common/m_helper.fpp

@@ -333,8 +333,6 @@ contains
     !! @return The cross product of the two vectors.
     pure function f_cross(a, b) result(c)
 
-        $:GPU_ROUTINE(parallelism='[seq]')
-
         real(wp), dimension(3), intent(in) :: a, b
         real(wp), dimension(3) :: c