Deleted some old constants taht don't need to be here anymore

Author: danieljvickers

src/common/m_constants.fpp

@@ -50,14 +50,10 @@ 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_model.fpp

@@ -853,7 +853,7 @@ contains
         real(wp) :: edge(1:3), pe(1:3)
         real(wp) :: verts(1:3, 1:3)
 
-        dist_min = 1.e12_wp
+        dist_min = initial_distance_buffer
         normals = 0._wp
 
         do i = 1, ntrs
@@ -971,7 +971,7 @@ contains
         real(wp) :: v1(1:2), v2(1:2), edge(1:2), pv(1:2)
         real(wp) :: edge_len_sq, proj(1:2)
 
-        dist_min = 1.e12_wp
+        dist_min = initial_distance_buffer
         normals = 0._wp
 
         do i = 1, boundary_edge_count