m_icpp_patches.fpp.f90

Go to the documentation of this file.

# 1 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
!>
!! @file
!! @brief Contains module m_icpp_patches
 
# 1 "/home/runner/work/MFC/MFC/src/common/include/case.fpp" 1
! This file exists so that Fypp can be run without generating case.fpp files for
! each target. This is useful when generating documentation, for example. This
! should also let MFC be built with CMake directly, without invoking mfc.sh.
 
! For pre-process.
# 8 "/home/runner/work/MFC/MFC/src/common/include/case.fpp"
 
! For moving immersed boundaries in simulation
# 12 "/home/runner/work/MFC/MFC/src/common/include/case.fpp"
# 6 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp" 2
# 1 "/home/runner/work/MFC/MFC/src/common/include/ExtrusionHardcodedIC.fpp" 1
!> Allocate memory and read initial condition data for IC extrusion.
!>
!> @details
!> This macro handles the complete initialization process for IC extrusion by:
!>
!> **Memory Allocation:**
!> - stored_values(xRows, yRows, sys_size) - stores primitive variable data from files
!> - x_coords(nrows) - stores x-coordinates from input files
!> - y_coords(nrows) - stores y-coordinates from input files (3D case only)
!>
!> **File Reading Operations:**
!> - Reads primitive variable data from multiple files with pattern:
!> `prim.<file_number>.00.<file_extension>.dat`
!> - Files are read from directory specified by `files_dir` parameter
!> - Supports 1D, 2D, and 3D computational domains
!>
!> **Grid Structure Detection:**
!> - 1D/2D: Counts lines in first file to determine xRows
!> - 3D: Analyzes coordinate patterns to determine xRows and yRows structure
!>
!> **MPI Domain Mapping:**
!> - Calculates global_offset_x and global_offset_y for MPI subdomain positioning
!> - Maps file coordinates to local computational grid coordinates
!>
!> **Data Assignment:**
!> - Populates q_prim_vf primitive variable arrays with file data
!> - Handles momentum component indexing with special treatment for eqn_idx%mom%end
!> - Sets eqn_idx%mom%end component to zero for 2D/3D cases
!>
!> **State Management:**
!> - Uses files_loaded flag to prevent redundant file operations
!> - Preserves data across multiple macro calls within same simulation
!>
!> @note File pattern timestep field is controlled by the `file_extension` parameter
!> @note Directory path is set via the `files_dir` parameter
!> @warning Aborts execution if file reading errors occur.
 
# 67 "/home/runner/work/MFC/MFC/src/common/include/ExtrusionHardcodedIC.fpp"
 
# 214 "/home/runner/work/MFC/MFC/src/common/include/ExtrusionHardcodedIC.fpp"
 
# 233 "/home/runner/work/MFC/MFC/src/common/include/ExtrusionHardcodedIC.fpp"
# 7 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp" 2
# 1 "/home/runner/work/MFC/MFC/src/common/include/1dHardcodedIC.fpp" 1
# 5 "/home/runner/work/MFC/MFC/src/common/include/1dHardcodedIC.fpp"
 
# 72 "/home/runner/work/MFC/MFC/src/common/include/1dHardcodedIC.fpp"
# 8 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp" 2
# 1 "/home/runner/work/MFC/MFC/src/common/include/2dHardcodedIC.fpp" 1
# 38 "/home/runner/work/MFC/MFC/src/common/include/2dHardcodedIC.fpp"
 
# 557 "/home/runner/work/MFC/MFC/src/common/include/2dHardcodedIC.fpp"
# 9 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp" 2
# 1 "/home/runner/work/MFC/MFC/src/common/include/3dHardcodedIC.fpp" 1
# 133 "/home/runner/work/MFC/MFC/src/common/include/3dHardcodedIC.fpp"
 
# 279 "/home/runner/work/MFC/MFC/src/common/include/3dHardcodedIC.fpp"
# 10 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp" 2
# 1 "/home/runner/work/MFC/MFC/src/common/include/macros.fpp" 1
# 1 "/home/runner/work/MFC/MFC/src/common/include/parallel_macros.fpp" 1
# 1 "/home/runner/work/MFC/MFC/src/common/include/shared_parallel_macros.fpp" 1
# 2 "/home/runner/work/MFC/MFC/src/common/include/shared_parallel_macros.fpp"
# 3 "/home/runner/work/MFC/MFC/src/common/include/shared_parallel_macros.fpp"
# 4 "/home/runner/work/MFC/MFC/src/common/include/shared_parallel_macros.fpp"
# 5 "/home/runner/work/MFC/MFC/src/common/include/shared_parallel_macros.fpp"
# 6 "/home/runner/work/MFC/MFC/src/common/include/shared_parallel_macros.fpp"
 
# 8 "/home/runner/work/MFC/MFC/src/common/include/shared_parallel_macros.fpp"
# 9 "/home/runner/work/MFC/MFC/src/common/include/shared_parallel_macros.fpp"
# 10 "/home/runner/work/MFC/MFC/src/common/include/shared_parallel_macros.fpp"
 
# 17 "/home/runner/work/MFC/MFC/src/common/include/shared_parallel_macros.fpp"
 
# 46 "/home/runner/work/MFC/MFC/src/common/include/shared_parallel_macros.fpp"
 
# 58 "/home/runner/work/MFC/MFC/src/common/include/shared_parallel_macros.fpp"
 
# 68 "/home/runner/work/MFC/MFC/src/common/include/shared_parallel_macros.fpp"
 
# 98 "/home/runner/work/MFC/MFC/src/common/include/shared_parallel_macros.fpp"
 
# 110 "/home/runner/work/MFC/MFC/src/common/include/shared_parallel_macros.fpp"
 
# 120 "/home/runner/work/MFC/MFC/src/common/include/shared_parallel_macros.fpp"
 
# 145 "/home/runner/work/MFC/MFC/src/common/include/shared_parallel_macros.fpp"
! New line at end of file is required for FYPP
# 2 "/home/runner/work/MFC/MFC/src/common/include/parallel_macros.fpp" 2
# 1 "/home/runner/work/MFC/MFC/src/common/include/omp_macros.fpp" 1
# 1 "/home/runner/work/MFC/MFC/src/common/include/shared_parallel_macros.fpp" 1
# 2 "/home/runner/work/MFC/MFC/src/common/include/shared_parallel_macros.fpp"
# 3 "/home/runner/work/MFC/MFC/src/common/include/shared_parallel_macros.fpp"
# 4 "/home/runner/work/MFC/MFC/src/common/include/shared_parallel_macros.fpp"
# 5 "/home/runner/work/MFC/MFC/src/common/include/shared_parallel_macros.fpp"
# 6 "/home/runner/work/MFC/MFC/src/common/include/shared_parallel_macros.fpp"
 
# 8 "/home/runner/work/MFC/MFC/src/common/include/shared_parallel_macros.fpp"
# 9 "/home/runner/work/MFC/MFC/src/common/include/shared_parallel_macros.fpp"
# 10 "/home/runner/work/MFC/MFC/src/common/include/shared_parallel_macros.fpp"
 
# 17 "/home/runner/work/MFC/MFC/src/common/include/shared_parallel_macros.fpp"
 
# 46 "/home/runner/work/MFC/MFC/src/common/include/shared_parallel_macros.fpp"
 
# 58 "/home/runner/work/MFC/MFC/src/common/include/shared_parallel_macros.fpp"
 
# 68 "/home/runner/work/MFC/MFC/src/common/include/shared_parallel_macros.fpp"
 
# 98 "/home/runner/work/MFC/MFC/src/common/include/shared_parallel_macros.fpp"
 
# 110 "/home/runner/work/MFC/MFC/src/common/include/shared_parallel_macros.fpp"
 
# 120 "/home/runner/work/MFC/MFC/src/common/include/shared_parallel_macros.fpp"
 
# 145 "/home/runner/work/MFC/MFC/src/common/include/shared_parallel_macros.fpp"
! New line at end of file is required for FYPP
# 2 "/home/runner/work/MFC/MFC/src/common/include/omp_macros.fpp" 2
 
# 4 "/home/runner/work/MFC/MFC/src/common/include/omp_macros.fpp"
# 5 "/home/runner/work/MFC/MFC/src/common/include/omp_macros.fpp"
# 6 "/home/runner/work/MFC/MFC/src/common/include/omp_macros.fpp"
# 7 "/home/runner/work/MFC/MFC/src/common/include/omp_macros.fpp"
# 8 "/home/runner/work/MFC/MFC/src/common/include/omp_macros.fpp"
 
# 20 "/home/runner/work/MFC/MFC/src/common/include/omp_macros.fpp"
 
# 43 "/home/runner/work/MFC/MFC/src/common/include/omp_macros.fpp"
 
# 48 "/home/runner/work/MFC/MFC/src/common/include/omp_macros.fpp"
 
# 53 "/home/runner/work/MFC/MFC/src/common/include/omp_macros.fpp"
 
# 58 "/home/runner/work/MFC/MFC/src/common/include/omp_macros.fpp"
 
# 63 "/home/runner/work/MFC/MFC/src/common/include/omp_macros.fpp"
 
# 68 "/home/runner/work/MFC/MFC/src/common/include/omp_macros.fpp"
 
# 76 "/home/runner/work/MFC/MFC/src/common/include/omp_macros.fpp"
 
# 81 "/home/runner/work/MFC/MFC/src/common/include/omp_macros.fpp"
 
# 86 "/home/runner/work/MFC/MFC/src/common/include/omp_macros.fpp"
 
# 91 "/home/runner/work/MFC/MFC/src/common/include/omp_macros.fpp"
 
# 96 "/home/runner/work/MFC/MFC/src/common/include/omp_macros.fpp"
 
# 101 "/home/runner/work/MFC/MFC/src/common/include/omp_macros.fpp"
 
# 106 "/home/runner/work/MFC/MFC/src/common/include/omp_macros.fpp"
 
# 111 "/home/runner/work/MFC/MFC/src/common/include/omp_macros.fpp"
 
# 116 "/home/runner/work/MFC/MFC/src/common/include/omp_macros.fpp"
 
# 121 "/home/runner/work/MFC/MFC/src/common/include/omp_macros.fpp"
 
# 151 "/home/runner/work/MFC/MFC/src/common/include/omp_macros.fpp"
 
# 192 "/home/runner/work/MFC/MFC/src/common/include/omp_macros.fpp"
 
# 206 "/home/runner/work/MFC/MFC/src/common/include/omp_macros.fpp"
 
# 231 "/home/runner/work/MFC/MFC/src/common/include/omp_macros.fpp"
 
# 242 "/home/runner/work/MFC/MFC/src/common/include/omp_macros.fpp"
 
# 244 "/home/runner/work/MFC/MFC/src/common/include/omp_macros.fpp"
# 255 "/home/runner/work/MFC/MFC/src/common/include/omp_macros.fpp"
 
# 284 "/home/runner/work/MFC/MFC/src/common/include/omp_macros.fpp"
 
# 294 "/home/runner/work/MFC/MFC/src/common/include/omp_macros.fpp"
 
# 304 "/home/runner/work/MFC/MFC/src/common/include/omp_macros.fpp"
 
# 313 "/home/runner/work/MFC/MFC/src/common/include/omp_macros.fpp"
 
# 330 "/home/runner/work/MFC/MFC/src/common/include/omp_macros.fpp"
 
# 340 "/home/runner/work/MFC/MFC/src/common/include/omp_macros.fpp"
 
# 347 "/home/runner/work/MFC/MFC/src/common/include/omp_macros.fpp"
 
# 353 "/home/runner/work/MFC/MFC/src/common/include/omp_macros.fpp"
 
# 359 "/home/runner/work/MFC/MFC/src/common/include/omp_macros.fpp"
 
# 365 "/home/runner/work/MFC/MFC/src/common/include/omp_macros.fpp"
 
# 371 "/home/runner/work/MFC/MFC/src/common/include/omp_macros.fpp"
 
# 377 "/home/runner/work/MFC/MFC/src/common/include/omp_macros.fpp"
! New line at end of file is required for FYPP
# 3 "/home/runner/work/MFC/MFC/src/common/include/parallel_macros.fpp" 2
# 1 "/home/runner/work/MFC/MFC/src/common/include/acc_macros.fpp" 1
# 1 "/home/runner/work/MFC/MFC/src/common/include/shared_parallel_macros.fpp" 1
# 2 "/home/runner/work/MFC/MFC/src/common/include/shared_parallel_macros.fpp"
# 3 "/home/runner/work/MFC/MFC/src/common/include/shared_parallel_macros.fpp"
# 4 "/home/runner/work/MFC/MFC/src/common/include/shared_parallel_macros.fpp"
# 5 "/home/runner/work/MFC/MFC/src/common/include/shared_parallel_macros.fpp"
# 6 "/home/runner/work/MFC/MFC/src/common/include/shared_parallel_macros.fpp"
 
# 8 "/home/runner/work/MFC/MFC/src/common/include/shared_parallel_macros.fpp"
# 9 "/home/runner/work/MFC/MFC/src/common/include/shared_parallel_macros.fpp"
# 10 "/home/runner/work/MFC/MFC/src/common/include/shared_parallel_macros.fpp"
 
# 17 "/home/runner/work/MFC/MFC/src/common/include/shared_parallel_macros.fpp"
 
# 46 "/home/runner/work/MFC/MFC/src/common/include/shared_parallel_macros.fpp"
 
# 58 "/home/runner/work/MFC/MFC/src/common/include/shared_parallel_macros.fpp"
 
# 68 "/home/runner/work/MFC/MFC/src/common/include/shared_parallel_macros.fpp"
 
# 98 "/home/runner/work/MFC/MFC/src/common/include/shared_parallel_macros.fpp"
 
# 110 "/home/runner/work/MFC/MFC/src/common/include/shared_parallel_macros.fpp"
 
# 120 "/home/runner/work/MFC/MFC/src/common/include/shared_parallel_macros.fpp"
 
# 145 "/home/runner/work/MFC/MFC/src/common/include/shared_parallel_macros.fpp"
! New line at end of file is required for FYPP
# 2 "/home/runner/work/MFC/MFC/src/common/include/acc_macros.fpp" 2
 
# 7 "/home/runner/work/MFC/MFC/src/common/include/acc_macros.fpp"
 
# 17 "/home/runner/work/MFC/MFC/src/common/include/acc_macros.fpp"
 
# 22 "/home/runner/work/MFC/MFC/src/common/include/acc_macros.fpp"
 
# 27 "/home/runner/work/MFC/MFC/src/common/include/acc_macros.fpp"
 
# 32 "/home/runner/work/MFC/MFC/src/common/include/acc_macros.fpp"
 
# 37 "/home/runner/work/MFC/MFC/src/common/include/acc_macros.fpp"
 
# 42 "/home/runner/work/MFC/MFC/src/common/include/acc_macros.fpp"
 
# 47 "/home/runner/work/MFC/MFC/src/common/include/acc_macros.fpp"
 
# 52 "/home/runner/work/MFC/MFC/src/common/include/acc_macros.fpp"
 
# 57 "/home/runner/work/MFC/MFC/src/common/include/acc_macros.fpp"
 
# 62 "/home/runner/work/MFC/MFC/src/common/include/acc_macros.fpp"
 
# 73 "/home/runner/work/MFC/MFC/src/common/include/acc_macros.fpp"
 
# 78 "/home/runner/work/MFC/MFC/src/common/include/acc_macros.fpp"
 
# 83 "/home/runner/work/MFC/MFC/src/common/include/acc_macros.fpp"
 
# 88 "/home/runner/work/MFC/MFC/src/common/include/acc_macros.fpp"
 
# 103 "/home/runner/work/MFC/MFC/src/common/include/acc_macros.fpp"
 
# 131 "/home/runner/work/MFC/MFC/src/common/include/acc_macros.fpp"
 
# 160 "/home/runner/work/MFC/MFC/src/common/include/acc_macros.fpp"
 
# 175 "/home/runner/work/MFC/MFC/src/common/include/acc_macros.fpp"
 
# 193 "/home/runner/work/MFC/MFC/src/common/include/acc_macros.fpp"
 
# 215 "/home/runner/work/MFC/MFC/src/common/include/acc_macros.fpp"
 
# 244 "/home/runner/work/MFC/MFC/src/common/include/acc_macros.fpp"
 
# 259 "/home/runner/work/MFC/MFC/src/common/include/acc_macros.fpp"
 
# 269 "/home/runner/work/MFC/MFC/src/common/include/acc_macros.fpp"
 
# 278 "/home/runner/work/MFC/MFC/src/common/include/acc_macros.fpp"
 
# 294 "/home/runner/work/MFC/MFC/src/common/include/acc_macros.fpp"
 
# 304 "/home/runner/work/MFC/MFC/src/common/include/acc_macros.fpp"
 
# 311 "/home/runner/work/MFC/MFC/src/common/include/acc_macros.fpp"
! New line at end of file is required for FYPP
# 4 "/home/runner/work/MFC/MFC/src/common/include/parallel_macros.fpp" 2
 
! GPU parallel region (scalar reductions, maxval/minval)
# 23 "/home/runner/work/MFC/MFC/src/common/include/parallel_macros.fpp"
 
! GPU parallel loop over threads (most common GPU macro)
# 43 "/home/runner/work/MFC/MFC/src/common/include/parallel_macros.fpp"
 
! Required closing for GPU_PARALLEL_LOOP
# 55 "/home/runner/work/MFC/MFC/src/common/include/parallel_macros.fpp"
 
! Mark routine for device compilation
# 112 "/home/runner/work/MFC/MFC/src/common/include/parallel_macros.fpp"
 
! Declare device-resident data
# 130 "/home/runner/work/MFC/MFC/src/common/include/parallel_macros.fpp"
 
! Inner loop within a GPU parallel region
# 145 "/home/runner/work/MFC/MFC/src/common/include/parallel_macros.fpp"
 
! Scoped GPU data region
# 164 "/home/runner/work/MFC/MFC/src/common/include/parallel_macros.fpp"
 
! Host code with device pointers (for MPI with GPU buffers)
# 193 "/home/runner/work/MFC/MFC/src/common/include/parallel_macros.fpp"
 
! Allocate device memory (unscoped)
# 207 "/home/runner/work/MFC/MFC/src/common/include/parallel_macros.fpp"
 
! Free device memory
# 219 "/home/runner/work/MFC/MFC/src/common/include/parallel_macros.fpp"
 
! Atomic operation on device
# 231 "/home/runner/work/MFC/MFC/src/common/include/parallel_macros.fpp"
 
! End atomic capture block
# 242 "/home/runner/work/MFC/MFC/src/common/include/parallel_macros.fpp"
 
! Copy data between host and device
# 254 "/home/runner/work/MFC/MFC/src/common/include/parallel_macros.fpp"
 
! Synchronization barrier
# 266 "/home/runner/work/MFC/MFC/src/common/include/parallel_macros.fpp"
 
! Import GPU library module (openacc or omp_lib)
# 275 "/home/runner/work/MFC/MFC/src/common/include/parallel_macros.fpp"
 
! Emit code only for AMD compiler
# 282 "/home/runner/work/MFC/MFC/src/common/include/parallel_macros.fpp"
 
! Emit code for non-Cray compilers
# 289 "/home/runner/work/MFC/MFC/src/common/include/parallel_macros.fpp"
 
! Emit code only for Cray compiler
# 296 "/home/runner/work/MFC/MFC/src/common/include/parallel_macros.fpp"
 
! Emit code for non-NVIDIA compilers
# 303 "/home/runner/work/MFC/MFC/src/common/include/parallel_macros.fpp"
 
# 305 "/home/runner/work/MFC/MFC/src/common/include/parallel_macros.fpp"
# 306 "/home/runner/work/MFC/MFC/src/common/include/parallel_macros.fpp"
! New line at end of file is required for FYPP
# 2 "/home/runner/work/MFC/MFC/src/common/include/macros.fpp" 2
 
# 14 "/home/runner/work/MFC/MFC/src/common/include/macros.fpp"
 
! Caution: This macro requires the use of a binding script to set CUDA_VISIBLE_DEVICES, such that we have one GPU device per MPI
! rank. That's because for both cudaMemAdvise (preferred location) and cudaMemPrefetchAsync we use location = device_id = 0. For an
! example see misc/nvidia_uvm/bind.sh.
# 57 "/home/runner/work/MFC/MFC/src/common/include/macros.fpp"
 
! Allocate and create GPU device memory
# 77 "/home/runner/work/MFC/MFC/src/common/include/macros.fpp"
 
! Free GPU device memory and deallocate
# 85 "/home/runner/work/MFC/MFC/src/common/include/macros.fpp"
 
! Cray-specific GPU pointer setup for vector fields
# 109 "/home/runner/work/MFC/MFC/src/common/include/macros.fpp"
 
! Cray-specific GPU pointer setup for scalar fields
# 125 "/home/runner/work/MFC/MFC/src/common/include/macros.fpp"
 
! Cray-specific GPU pointer setup for acoustic source spatials
# 150 "/home/runner/work/MFC/MFC/src/common/include/macros.fpp"
 
# 156 "/home/runner/work/MFC/MFC/src/common/include/macros.fpp"
 
# 163 "/home/runner/work/MFC/MFC/src/common/include/macros.fpp"
! New line at end of file is required for FYPP
# 11 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp" 2
 
!> @brief Constructs initial condition patch geometries (lines, circles, rectangles, spheres, etc.) on the grid
module m_icpp_patches
 
    use m_patch_geometries
    use m_model  ! Subroutine(s) related to STL files
    use m_derived_types  ! Definitions of the derived types
    use m_global_parameters
    use m_constants, only: max_2d_fourier_modes, max_sph_harm_degree, small_radius, model_eqns_4eq
    use m_helper_basic
    use m_helper
    use m_mpi_common
    use m_assign_variables
    use m_mpi_common
    use m_variables_conversion
 
    implicit none
 
    private; public :: s_apply_icpp_patches
 
    real(wp)          :: x_centroid, y_centroid, z_centroid
    real(wp)          :: length_x, length_y, length_z
    integer           :: smooth_patch_id
    real(wp)          :: smooth_coeff                        !< Smoothing coefficient (mirrors ic_patch_parameters%smooth_coeff)
    real(wp)          :: eta                                 !< Pseudo volume fraction for patch boundary smoothing
    real(wp)          :: cart_y, cart_z
    type(bounds_info) :: x_boundary, y_boundary, z_boundary  !< Patch boundary locations in x, y, z
    character(len=5)  :: istr                                !< string to store int to string result for error checking
 
contains
 
    !> Dispatch each initial condition patch to its geometry-specific initialization routine.
    impure subroutine s_apply_icpp_patches(patch_id_fp, q_prim_vf)
 
        type(scalar_field), dimension(1:sys_size), intent(inout) :: q_prim_vf
 
#ifdef MFC_MIXED_PRECISION
        integer(kind=1), dimension(0:m,0:n,0:p), intent(inout) :: patch_id_fp
#else
        integer, dimension(0:m,0:n,0:p), intent(inout) :: patch_id_fp
#endif
        integer :: i
        ! Load STL/OBJ models once into the shared flat arrays if any patch is an STL/OBJ model (geometry 21)
 
        do i = 1, num_patches
            if (patch_icpp(i)%geometry == 21) then
                call s_instantiate_stl_models()
                exit
            end if
        end do
        !  3D Patch Geometries
 
        if (p > 0) then
            do i = 1, num_patches
                if (proc_rank == 0) then
                    print *, 'Processing patch', i
                end if
 
                !> ICPP Patches
                !> @{
                ! Spherical patch
                if (patch_icpp(i)%geometry == 8) then
                    call s_icpp_sphere(i, patch_id_fp, q_prim_vf)
                    ! Cuboidal patch
                else if (patch_icpp(i)%geometry == 9) then
                    call s_icpp_cuboid(i, patch_id_fp, q_prim_vf)
                    ! Cylindrical patch
                else if (patch_icpp(i)%geometry == 10) then
                    call s_icpp_cylinder(i, patch_id_fp, q_prim_vf)
                    ! Swept plane patch
                else if (patch_icpp(i)%geometry == 11) then
                    call s_icpp_sweep_plane(i, patch_id_fp, q_prim_vf)
                    ! Ellipsoidal patch
                else if (patch_icpp(i)%geometry == 12) then
                    call s_icpp_ellipsoid(i, patch_id_fp, q_prim_vf)
                    ! 3D spherical harmonic patch
                else if (patch_icpp(i)%geometry == 14) then
                    call s_icpp_3d_spherical_harmonic(i, patch_id_fp, q_prim_vf)
                    ! 3D Modified circular patch
                else if (patch_icpp(i)%geometry == 19) then
                    call s_icpp_3dvarcircle(i, patch_id_fp, q_prim_vf)
                    ! 3D STL patch
                else if (patch_icpp(i)%geometry == 21) then
                    call s_icpp_model(i, patch_id_fp, q_prim_vf)
                end if
            end do
            !> @}
 
            ! 2D Patch Geometries
        else if (n > 0) then
            do i = 1, num_patches
                if (proc_rank == 0) then
                    print *, 'Processing patch', i
                end if
 
                !> ICPP Patches
                !> @{
                ! Circular patch
                if (patch_icpp(i)%geometry == 2) then
                    call s_icpp_circle(i, patch_id_fp, q_prim_vf)
                    ! Rectangular patch
                else if (patch_icpp(i)%geometry == 3) then
                    call s_icpp_rectangle(i, patch_id_fp, q_prim_vf)
                    ! Swept line patch
                else if (patch_icpp(i)%geometry == 4) then
                    call s_icpp_sweep_line(i, patch_id_fp, q_prim_vf)
                    ! Elliptical patch
                else if (patch_icpp(i)%geometry == 5) then
                    call s_icpp_ellipse(i, patch_id_fp, q_prim_vf)
                    ! Unimplemented patch (formerly isentropic vortex)
                else if (patch_icpp(i)%geometry == 6) then
                    call s_mpi_abort('This used to be the isentropic vortex patch, ' &
                                     & // 'which no longer exists. See Examples. Exiting.')
                    ! 2D modal (Fourier) patch
                else if (patch_icpp(i)%geometry == 13) then
                    call s_icpp_2d_modal(i, patch_id_fp, q_prim_vf)
                    ! Spiral patch
                else if (patch_icpp(i)%geometry == 17) then
                    call s_icpp_spiral(i, patch_id_fp, q_prim_vf)
                    ! Modified circular patch
                else if (patch_icpp(i)%geometry == 18) then
                    call s_icpp_varcircle(i, patch_id_fp, q_prim_vf)
                    ! TaylorGreen vortex patch
                else if (patch_icpp(i)%geometry == 20) then
                    call s_icpp_2d_taylorgreen_vortex(i, patch_id_fp, q_prim_vf)
                    ! STL patch
                else if (patch_icpp(i)%geometry == 21) then
                    call s_icpp_model(i, patch_id_fp, q_prim_vf)
                end if
                !> @}
            end do
 
            ! 1D Patch Geometries
        else
            do i = 1, num_patches
                if (proc_rank == 0) then
                    print *, 'Processing patch', i
                end if
 
                ! Line segment patch
                if (patch_icpp(i)%geometry == 1) then
                    call s_icpp_line_segment(i, patch_id_fp, q_prim_vf)
                    ! 1d analytical
                else if (patch_icpp(i)%geometry == 16) then
                    call s_icpp_1d_bubble_pulse(i, patch_id_fp, q_prim_vf)
                end if
            end do
        end if
 
    end subroutine s_apply_icpp_patches
 
    !> The line segment patch is a 1D geometry that may be used, for example, in creating a Riemann problem. The geometry of the
    !! patch is well-defined when its centroid and length in the x-coordinate direction are provided. Note that the line segment
    !! patch DOES NOT allow for the smearing of its boundaries.
    subroutine s_icpp_line_segment(patch_id, patch_id_fp, q_prim_vf)
 
        integer, intent(in) :: patch_id
 
#ifdef MFC_MIXED_PRECISION
        integer(kind=1), dimension(0:m,0:n,0:p), intent(inout) :: patch_id_fp
#else
        integer, dimension(0:m,0:n,0:p), intent(inout) :: patch_id_fp
#endif
        type(scalar_field), dimension(1:sys_size), intent(inout) :: q_prim_vf
 
        ! Generic loop iterators
        integer :: i, j, k
 
        ! Placeholders for the cell boundary values
        real(wp) :: pi_inf, gamma, lit_gamma
 
    integer                                 :: xRows, yRows, nRows, iix, iiy, max_files
# 182 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    integer                                 :: f, iter, unit, unit2, idx, idy, index_x, index_y, jump, line_count
# 182 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    real(wp)                                :: x_step, y_step
# 182 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    real(wp)                                :: dummy_x, dummy_y, dummy_z, x0, y0
# 182 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    integer                                 :: global_offset_x, global_offset_y  !< MPI subdomain offset
# 182 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    real(wp)                                :: delta_x, delta_y
# 182 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    character(len=300), dimension(sys_size) :: fileNames                         !< Arrays to store all data from files
# 182 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    real(wp), allocatable                   :: stored_values(:,:,:)
# 182 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    real(wp), allocatable                   :: x_coords(:), y_coords(:)
# 182 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    logical                                 :: files_loaded = .false.
# 182 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    real(wp)                                :: domain_xstart
# 182 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    character(len=20)                       :: file_num_str                      !< For storing the file number as a string
# 182 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    integer                                 :: ios
# 182 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    integer                                 :: ios2
# 182 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 182 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    ! hcid=274 (2dHardcodedIC.fpp): full 2D field from external data, no extrusion.
# 182 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    ! Declared here (not in Hardcoded2DVariables()) so it's visible wherever
# 182 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    ! HardcodedDeallocation() is called, matching the pattern of stored_values/x_coords/
# 182 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    ! y_coords/files_loaded above.
# 182 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    real(wp), allocatable, dimension(:,:,:) :: stored_values274
# 182 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    logical                                 :: files_loaded274 = .false.
# 182 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    integer                                 :: f274, ix274, iy274, unit274, ios274
# 182 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    integer                                 :: local_ix_beg274, local_iy_beg274
# 182 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    character(len=300)                      :: fname274
# 182 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    character(len=20)                       :: file_num_str274
# 182 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    real(wp)                                :: dummy_x274, dummy_y274, dummy_val274, x0_274, y0_274, x_step274, y_step274
# 182 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    real(wp)                                :: file_dx274, file_dy274, r_align274
    ! Place any declaration of intermediate variables here
# 183 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    real(wp) :: x_mid_diffu, width_sq, profile_shape, temp, molar_mass_inv, y1, y2, y3, y4
 
        pi_inf = pi_infs(1)
        gamma = gammas(1)
        lit_gamma = gs_min(1)
        j = 0
        k = 0
 
        ! Transferring the line segment's centroid and length information
        x_centroid = patch_icpp(patch_id)%x_centroid
        length_x = patch_icpp(patch_id)%length_x
 
        ! Computing the beginning and end x-coordinates of the line segment based on its centroid and length
        x_boundary%beg = x_centroid - 0.5_wp*length_x
        x_boundary%end = x_centroid + 0.5_wp*length_x
 
        ! Set eta=1 (no smoothing for this patch type)
        eta = 1._wp
 
        ! Assign patch vars if cell is covered and patch has write permission
        do i = 0, m
            if (x_boundary%beg <= x_cc(i) .and. x_boundary%end >= x_cc(i) .and. patch_icpp(patch_id)%alter_patch(patch_id_fp(i, &
                & 0, 0))) then
                call s_assign_patch_primitive_variables(patch_id, i, 0, 0, eta, q_prim_vf, patch_id_fp)
 
 
 
                ! check if this should load a hardcoded patch
                if (patch_icpp(patch_id)%hcid /= dflt_int) then
    select case (patch_icpp(patch_id)%hcid)
# 212 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    case (150)  ! 1D Smooth Alfven Case for MHD
# 212 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! velocity
# 212 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        q_prim_vf(eqn_idx%mom%beg + 1)%sf(i, 0, 0) = 0.1_wp*sin(2._wp*pi*x_cc(i))
# 212 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        q_prim_vf(eqn_idx%mom%beg + 2)%sf(i, 0, 0) = 0.1_wp*cos(2._wp*pi*x_cc(i))
# 212 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 212 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! magnetic field
# 212 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        q_prim_vf(eqn_idx%B%end - 1)%sf(i, 0, 0) = 0.1_wp*sin(2._wp*pi*x_cc(i))
# 212 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        q_prim_vf(eqn_idx%B%end)%sf(i, 0, 0) = 0.1_wp*cos(2._wp*pi*x_cc(i))
# 212 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    case (170)  ! 1D profile from external data (e.g. Cantera, SDtoolbox)
# 212 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! This hardcoded case can be used to start a simulation with initial conditions given from a known 1D profile (e.g. Cantera,
# 212 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! SDtoolbox)
# 212 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    if (.not. files_loaded) then
# 212 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        max_files = merge(sys_size, sys_size - 1, num_dims == 1)
# 212 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        do f = 1, max_files
# 212 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            write (file_num_str, '(I0)') f
# 212 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            filenames(f) = trim(files_dir) // "/" // "prim." // trim(file_num_str) // ".00." // trim(file_extension) // ".dat"
# 212 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        end do
# 212 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 212 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! Common file reading setup
# 212 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        open (newunit=unit2, file=trim(filenames(1)), status='old', action='read', iostat=ios2)
# 212 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        if (ios2 /= 0) call s_mpi_abort("Error opening file: " // trim(filenames(1)))
# 212 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 212 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        select case (num_dims)
# 212 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        case (1, 2)  ! 1D and 2D cases are similar
# 212 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            ! Count lines
# 212 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            line_count = 0
# 212 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            do
# 212 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                read (unit2, *, iostat=ios2) dummy_x, dummy_y
# 212 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                if (ios2 /= 0) exit
# 212 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                line_count = line_count + 1
# 212 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            end do
# 212 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            close (unit2)
# 212 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 212 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            xrows = line_count
# 212 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            yrows = 1
# 212 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            index_x = 0
# 212 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            if (num_dims == 2) index_x = i
# 212 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#ifdef MFC_DEBUG
# 212 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    block
# 212 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        use iso_fortran_env, only: output_unit
# 212 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 212 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        print *, 'm_icpp_patches.fpp:212: ', '@:ALLOCATE(x_coords(xRows), stored_values(xRows, 1, sys_size))'
# 212 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 212 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        call flush (output_unit)
# 212 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    end block
# 212 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#endif
# 212 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    allocate (x_coords(xrows), stored_values(xrows, 1, sys_size))
# 212 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 212 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 212 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 212 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#if defined(MFC_OpenACC)
# 212 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
!$acc enter data create(x_coords, stored_values) 
# 212 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#elif defined(MFC_OpenMP)
# 212 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
!$omp target enter data map(always,alloc:x_coords, stored_values) 
# 212 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#endif
# 212 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 212 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            ! Read data from all files
# 212 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            do f = 1, max_files
# 212 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                open (newunit=unit, file=trim(filenames(f)), status='old', action='read', iostat=ios)
# 212 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                if (ios /= 0) call s_mpi_abort("Error opening file: " // trim(filenames(f)))
# 212 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 212 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                do iter = 1, xrows
# 212 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    read (unit, *, iostat=ios) x_coords(iter), stored_values(iter, 1, f)
# 212 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    if (ios /= 0) call s_mpi_abort("Error reading file: " // trim(filenames(f)))
# 212 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                end do
# 212 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                close (unit)
# 212 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            end do
# 212 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 212 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            ! Calculate offsets
# 212 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            domain_xstart = x_coords(1)
# 212 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            x_step = x_cc(1) - x_cc(0)
# 212 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            delta_x = merge(x_cc(0) - domain_xstart, x_cc(index_x) - domain_xstart, num_dims == 1)
# 212 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            global_offset_x = nint(abs(delta_x)/x_step)
# 212 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        case (3)  ! 3D case - determine grid structure
# 212 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            ! Find yRows by counting rows with same x
# 212 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            read (unit2, *, iostat=ios2) x0, y0, dummy_z
# 212 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            if (ios2 /= 0) call s_mpi_abort("Error reading first line")
# 212 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 212 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            yrows = 1
# 212 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            do
# 212 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                read (unit2, *, iostat=ios2) dummy_x, dummy_y, dummy_z
# 212 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                if (ios2 /= 0) exit
# 212 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                if (f_approx_equal(dummy_x, x0) .and. (.not. f_approx_equal(dummy_y, y0))) then
# 212 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    yrows = yrows + 1
# 212 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                else
# 212 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    exit
# 212 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                end if
# 212 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            end do
# 212 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            close (unit2)
# 212 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 212 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            ! Count total rows
# 212 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            open (newunit=unit2, file=trim(filenames(1)), status='old', action='read', iostat=ios2)
# 212 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            nrows = 0
# 212 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            do
# 212 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                read (unit2, *, iostat=ios2) dummy_x, dummy_y, dummy_z
# 212 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                if (ios2 /= 0) exit
# 212 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                nrows = nrows + 1
# 212 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            end do
# 212 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            close (unit2)
# 212 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 212 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            xrows = nrows/yrows
# 212 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#ifdef MFC_DEBUG
# 212 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    block
# 212 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        use iso_fortran_env, only: output_unit
# 212 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 212 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        print *, 'm_icpp_patches.fpp:212: ', '@:ALLOCATE(x_coords(nrows), y_coords(nrows), stored_values(xRows, yRows, sys_size))'
# 212 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 212 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        call flush (output_unit)
# 212 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    end block
# 212 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#endif
# 212 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    allocate (x_coords(nrows), y_coords(nrows), stored_values(xrows, yrows, sys_size))
# 212 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 212 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 212 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 212 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 212 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#if defined(MFC_OpenACC)
# 212 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
!$acc enter data create(x_coords, y_coords, stored_values) 
# 212 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#elif defined(MFC_OpenMP)
# 212 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
!$omp target enter data map(always,alloc:x_coords, y_coords, stored_values) 
# 212 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#endif
# 212 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            index_x = i
# 212 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            index_y = j
# 212 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 212 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            ! Read all files
# 212 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            do f = 1, max_files
# 212 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                open (newunit=unit, file=trim(filenames(f)), status='old', action='read', iostat=ios)
# 212 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                if (ios /= 0) then
# 212 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    if (f == 1) call s_mpi_abort("Error opening file: " // trim(filenames(f)))
# 212 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    cycle
# 212 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                end if
# 212 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 212 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                iter = 0
# 212 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                do iix = 1, xrows
# 212 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    do iiy = 1, yrows
# 212 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                        iter = iter + 1
# 212 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                        if (f == 1) then
# 212 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                            read (unit, *, iostat=ios) x_coords(iter), y_coords(iter), stored_values(iix, iiy, f)
# 212 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                        else
# 212 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                            read (unit, *, iostat=ios) dummy_x, dummy_y, stored_values(iix, iiy, f)
# 212 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                        end if
# 212 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                        if (ios /= 0) call s_mpi_abort("Error reading data")
# 212 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    end do
# 212 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                end do
# 212 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                close (unit)
# 212 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            end do
# 212 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 212 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            ! Calculate offsets
# 212 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            x_step = x_cc(1) - x_cc(0)
# 212 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            y_step = y_cc(1) - y_cc(0)
# 212 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            delta_x = x_cc(index_x) - x_coords(1)
# 212 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            delta_y = y_cc(index_y) - y_coords(1)
# 212 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            global_offset_x = nint(abs(delta_x)/x_step)
# 212 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            global_offset_y = nint(abs(delta_y)/y_step)
# 212 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        end select
# 212 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 212 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        files_loaded = .true.
# 212 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    end if
# 212 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 212 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    ! Data assignment
# 212 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    select case (num_dims)
# 212 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    case (1)
# 212 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        idx = i + 1 + global_offset_x
# 212 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! idx must land inside the file's row range: this rank's subdomain offset
# 212 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! (global_offset_x) was derived from this rank's own grid, so a miss means the
# 212 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! IC file is misaligned/mis-sized for the run grid, not a normal boundary case.
# 212 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        if (idx < 1 .or. idx > xrows) &
# 212 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            & call s_mpi_abort("Hardcoded IC extrusion: row index out of range (IC file misaligned with the run grid)")
# 212 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        do f = 1, sys_size
# 212 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(f)%sf(i, 0, 0) = stored_values(idx, 1, f)
# 212 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        end do
# 212 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    case (2)
# 212 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        idx = i + 1 + global_offset_x - index_x
# 212 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        if (idx < 1 .or. idx > xrows) &
# 212 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            & call s_mpi_abort("Hardcoded IC extrusion: row index out of range (IC file misaligned with the run grid)")
# 212 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        do f = 1, sys_size - 1
# 212 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            jump = merge(1, 0, f >= eqn_idx%mom%end)
# 212 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(f + jump)%sf(i, j, 0) = stored_values(idx, 1, f)
# 212 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        end do
# 212 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        q_prim_vf(eqn_idx%mom%end)%sf(i, j, 0) = 0.0_wp
# 212 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    case (3)
# 212 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        idx = i + 1 + global_offset_x - index_x
# 212 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        idy = j + 1 + global_offset_y - index_y
# 212 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        if (idx < 1 .or. idx > xrows .or. idy < 1 .or. idy > yrows) &
# 212 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            & call s_mpi_abort("Hardcoded IC extrusion: row/column index out of range (IC file misaligned with the run grid)")
# 212 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        do f = 1, sys_size - 1
# 212 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            jump = merge(1, 0, f >= eqn_idx%mom%end)
# 212 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(f + jump)%sf(i, j, k) = stored_values(idx, idy, f)
# 212 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        end do
# 212 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        q_prim_vf(eqn_idx%mom%end)%sf(i, j, k) = 0.0_wp
# 212 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    end select
# 212 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    case (180)  ! Shu-Osher problem
# 212 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! This is patch is hard-coded for test suite optimization used in the 1D_shuoser cases: "patch_icpp(2)%alpha_rho(1)": "1 +
# 212 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! 0.2*sin(5*x)"
# 212 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        if (patch_id == 2) then
# 212 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%cont%beg + 0)%sf(i, 0, 0) = 1 + 0.2*sin(5*x_cc(i))
# 212 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        end if
# 212 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    case (181)  ! Titarev-Torro problem
# 212 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! This is patch is hard-coded for test suite optimization used in the 1D_titarevtorro cases: "patch_icpp(2)%alpha_rho(1)":
# 212 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! "1 + 0.1*sin(20*x*pi)"
# 212 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        q_prim_vf(eqn_idx%cont%beg + 0)%sf(i, 0, 0) = 1 + 0.1*sin(20*x_cc(i)*pi)
# 212 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    case (182)  ! Multi-component diffusion
# 212 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! This patch is a hard-coded for test suite optimization (multiple component diffusion)
# 212 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        x_mid_diffu = 0.05_wp/2.0_wp
# 212 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        width_sq = (2.5_wp*10.0_wp**(-3.0_wp))**2
# 212 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        profile_shape = 1.0_wp - 0.5_wp*exp(-(x_cc(i) - x_mid_diffu)**2/width_sq)
# 212 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        q_prim_vf(eqn_idx%mom%beg)%sf(i, 0, 0) = 0.0_wp
# 212 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        q_prim_vf(eqn_idx%E)%sf(i, 0, 0) = 1.01325_wp*(10.0_wp)**5
# 212 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        q_prim_vf(eqn_idx%adv%beg)%sf(i, 0, 0) = 1.0_wp
# 212 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 212 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        y1 = (0.195_wp - 0.142_wp)*profile_shape + 0.142_wp
# 212 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        y2 = (0.0_wp - 0.1_wp)*profile_shape + 0.1_wp
# 212 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        y3 = (0.214_wp - 0.0_wp)*profile_shape + 0.0_wp
# 212 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        y4 = (0.591_wp - 0.758_wp)*profile_shape + 0.758_wp
# 212 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 212 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        q_prim_vf(eqn_idx%species%beg)%sf(i, 0, 0) = y1
# 212 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        q_prim_vf(eqn_idx%species%beg + 1)%sf(i, 0, 0) = y2
# 212 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        q_prim_vf(eqn_idx%species%beg + 2)%sf(i, 0, 0) = y3
# 212 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        q_prim_vf(eqn_idx%species%beg + 3)%sf(i, 0, 0) = y4
# 212 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 212 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        temp = (320.0_wp - 1350.0_wp)*profile_shape + 1350.0_wp
# 212 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 212 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        molar_mass_inv = y1/31.998_wp + y2/18.01508_wp + y3/16.04256_wp + y4/28.0134_wp
# 212 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 212 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        q_prim_vf(eqn_idx%cont%beg)%sf(i, 0, 0) = 1.01325_wp*(10.0_wp)**5/(temp*8.3144626_wp*1000.0_wp*molar_mass_inv)
# 212 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    case(191)  ! 1D Dual Isothermal case
# 212 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        q_prim_vf(eqn_idx%E)%sf(i, 0, 0) = 101325.0_wp
# 212 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        q_prim_vf(eqn_idx%mom%beg)%sf(i, 0, 0) = 0.0_wp
# 212 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        q_prim_vf(eqn_idx%species%beg)%sf(i, 0, 0) = 1.0_wp
# 212 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 212 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        if (x_cc(i) <= 0.025_wp) then
# 212 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            temp = 700.0_wp + ((1000.0_wp - 700.0_wp)/0.025_wp)*x_cc(i)
# 212 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        else
# 212 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            temp = 1200.0_wp + ((900.0_wp - 1000.0_wp)/0.025_wp)*(x_cc(i) - 0.025_wp)
# 212 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        end if
# 212 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 212 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        molar_mass_inv = 1.0_wp/2.01588_wp
# 212 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        q_prim_vf(eqn_idx%cont%beg)%sf(i, 0, 0) = 101325.0_wp/(temp*8.3144626_wp*1000.0_wp*molar_mass_inv)
# 212 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    case default
# 212 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        call s_int_to_str(patch_id, istr)
# 212 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        call s_mpi_abort("Invalid hcid specified for patch " // trim(istr))
# 212 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    end select
                end if
 
                ! Updating the patch identities bookkeeping variable
                if (1._wp - eta < sgm_eps) patch_id_fp(i, 0, 0) = patch_id
            end if
        end do
    if (allocated(stored_values)) then
# 219 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#ifdef MFC_DEBUG
# 219 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    block
# 219 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        use iso_fortran_env, only: output_unit
# 219 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 219 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        print *, 'm_icpp_patches.fpp:219: ', '@:DEALLOCATE(stored_values)'
# 219 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 219 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        call flush (output_unit)
# 219 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    end block
# 219 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#endif
# 219 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 219 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#if defined(MFC_OpenACC)
# 219 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
!$acc exit data delete(stored_values) 
# 219 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#elif defined(MFC_OpenMP)
# 219 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
!$omp target exit data map(release:stored_values) 
# 219 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#endif
# 219 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    deallocate (stored_values)
# 219 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#ifdef MFC_DEBUG
# 219 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    block
# 219 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        use iso_fortran_env, only: output_unit
# 219 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 219 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        print *, 'm_icpp_patches.fpp:219: ', '@:DEALLOCATE(x_coords)'
# 219 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 219 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        call flush (output_unit)
# 219 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    end block
# 219 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#endif
# 219 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 219 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#if defined(MFC_OpenACC)
# 219 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
!$acc exit data delete(x_coords) 
# 219 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#elif defined(MFC_OpenMP)
# 219 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
!$omp target exit data map(release:x_coords) 
# 219 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#endif
# 219 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    deallocate (x_coords)
# 219 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    end if
# 219 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 219 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    if (allocated(y_coords)) then
# 219 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#ifdef MFC_DEBUG
# 219 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    block
# 219 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        use iso_fortran_env, only: output_unit
# 219 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 219 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        print *, 'm_icpp_patches.fpp:219: ', '@:DEALLOCATE(y_coords)'
# 219 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 219 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        call flush (output_unit)
# 219 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    end block
# 219 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#endif
# 219 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 219 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#if defined(MFC_OpenACC)
# 219 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
!$acc exit data delete(y_coords) 
# 219 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#elif defined(MFC_OpenMP)
# 219 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
!$omp target exit data map(release:y_coords) 
# 219 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#endif
# 219 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    deallocate (y_coords)
# 219 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    end if
# 219 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 219 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    files_loaded = .false.
# 219 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 219 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    if (allocated(stored_values274)) then
# 219 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#ifdef MFC_DEBUG
# 219 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    block
# 219 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        use iso_fortran_env, only: output_unit
# 219 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 219 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        print *, 'm_icpp_patches.fpp:219: ', '@:DEALLOCATE(stored_values274)'
# 219 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 219 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        call flush (output_unit)
# 219 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    end block
# 219 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#endif
# 219 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 219 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#if defined(MFC_OpenACC)
# 219 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
!$acc exit data delete(stored_values274) 
# 219 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#elif defined(MFC_OpenMP)
# 219 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
!$omp target exit data map(release:stored_values274) 
# 219 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#endif
# 219 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    deallocate (stored_values274)
# 219 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    end if
# 219 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 219 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    files_loaded274 = .false.
 
    end subroutine s_icpp_line_segment
 
    !> The spiral patch is a 2D geometry that may be used, The geometry of the patch is well-defined when its centroid and radius
    !! are provided. Note that the circular patch DOES allow for the smoothing of its boundary.
    impure subroutine s_icpp_spiral(patch_id, patch_id_fp, q_prim_vf)
 
        integer, intent(in) :: patch_id
 
#ifdef MFC_MIXED_PRECISION
        integer(kind=1), dimension(0:m,0:n,0:p), intent(inout) :: patch_id_fp
#else
        integer, dimension(0:m,0:n,0:p), intent(inout) :: patch_id_fp
#endif
        type(scalar_field), dimension(1:sys_size), intent(inout) :: q_prim_vf
        integer                                                  :: i, j, k  !< Generic loop iterators
        real(wp)                                                 :: th, thickness, nturns, mya
        real(wp)                                                 :: spiral_x_min, spiral_x_max, spiral_y_min, spiral_y_max
 
    integer                                 :: xrows, yrows, nrows, iix, iiy, max_files
# 239 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    integer                                 :: f, iter, unit, unit2, idx, idy, index_x, index_y, jump, line_count
# 239 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    real(wp)                                :: x_step, y_step
# 239 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    real(wp)                                :: dummy_x, dummy_y, dummy_z, x0, y0
# 239 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    integer                                 :: global_offset_x, global_offset_y  !< MPI subdomain offset
# 239 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    real(wp)                                :: delta_x, delta_y
# 239 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    character(len=300), dimension(sys_size) :: filenames                         !< Arrays to store all data from files
# 239 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    real(wp), allocatable                   :: stored_values(:,:,:)
# 239 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    real(wp), allocatable                   :: x_coords(:), y_coords(:)
# 239 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    logical                                 :: files_loaded = .false.
# 239 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    real(wp)                                :: domain_xstart
# 239 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    character(len=20)                       :: file_num_str                      !< For storing the file number as a string
# 239 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    integer                                 :: ios
# 239 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    integer                                 :: ios2
# 239 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 239 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    ! hcid=274 (2dHardcodedIC.fpp): full 2D field from external data, no extrusion.
# 239 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    ! Declared here (not in Hardcoded2DVariables()) so it's visible wherever
# 239 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    ! HardcodedDeallocation() is called, matching the pattern of stored_values/x_coords/
# 239 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    ! y_coords/files_loaded above.
# 239 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    real(wp), allocatable, dimension(:,:,:) :: stored_values274
# 239 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    logical                                 :: files_loaded274 = .false.
# 239 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    integer                                 :: f274, ix274, iy274, unit274, ios274
# 239 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    integer                                 :: local_ix_beg274, local_iy_beg274
# 239 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    character(len=300)                      :: fname274
# 239 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    character(len=20)                       :: file_num_str274
# 239 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    real(wp)                                :: dummy_x274, dummy_y274, dummy_val274, x0_274, y0_274, x_step274, y_step274
# 239 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    real(wp)                                :: file_dx274, file_dy274, r_align274
    ! Place any declaration of intermediate variables here
# 240 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    real(wp) :: eps, eps_mhd, c_mhd
# 240 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    real(wp) :: r, rmax, gam, umax, p0
# 240 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    real(wp) :: rhoh, rhol, pref, pint, h, lam, wl, amp, inth, intl, alph
# 240 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    real(wp) :: factor, x1c, y1c, x2c, y2c, r1c, r2c, cvortex, u1c, u2c, v1c, v2c, rvortex
# 240 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    real(wp) :: r0, alpha, r2
# 240 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    real(wp) :: sina, cosa
# 240 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    real(wp) :: r_sq
# 240 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 240 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    ! # 283 - Gauss-averaged isentropic vortex (conserved-variable cell averages)
# 240 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    real(wp) :: gauss_xi(3), gauss_w(3), xq, yq, r2q, t_facq, wq
# 240 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    real(wp) :: rho_avg, rhou_avg, rhov_avg, e_avg
# 240 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    real(wp) :: rhoq, pq, uq, vq, eq, vortex_eps
# 240 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    integer  :: igq, jgq
# 240 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 240 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    ! # 291 - Shear/Thermal Layer Case
# 240 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    real(wp) :: delta_shear, u_max, u_mean
# 240 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    real(wp) :: t_wall, t_inf, p_atm, t_loc
# 240 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    real(wp) :: delta_th, r_mix
# 240 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    real(wp) :: y_n2, y_o2, mw_n2, mw_o2
# 240 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    real(wp) :: bottom_blend_u, bottom_blend_t
# 240 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 240 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    ! # 207
# 240 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    real(wp) :: sigma, gauss1, gauss2
# 240 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 240 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    ! # 208
# 240 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    real(wp)            :: ei, d, fsm, alpha_air, alpha_sf6
# 240 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    real(wp)            :: y_center, y_dist, wave_phase, front_shift, x_mapped, interp_wt
# 240 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    integer             :: v, idx_lo, idx_hi, idx_mid
# 240 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    real(wp), parameter :: ly_param = 0.00775735_wp
# 240 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    real(wp), parameter :: a_param = 0.1_wp*96.9880867_wp*10.0_wp**(-6.0_wp)
# 240 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    integer, parameter  :: nwaves = 6
# 240 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    real(wp), parameter :: y0_ref = 0.0_wp
# 240 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 240 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    eps = 1.e-9_wp
 
        ! Transferring the circular patch's radius, centroid, smearing patch identity and smearing coefficient information
        x_centroid = patch_icpp(patch_id)%x_centroid
        y_centroid = patch_icpp(patch_id)%y_centroid
        mya = patch_icpp(patch_id)%radius
        thickness = patch_icpp(patch_id)%length_x
        nturns = patch_icpp(patch_id)%length_y
 
        !
        logic_grid = 0
        do k = 0, int(m*91*nturns)
            th = k/real(int(m*91._wp*nturns))*nturns*2._wp*pi
 
            spiral_x_min = minval((/f_r(th, 0.0_wp, mya)*cos(th), f_r(th, thickness, mya)*cos(th)/))
            spiral_y_min = minval((/f_r(th, 0.0_wp, mya)*sin(th), f_r(th, thickness, mya)*sin(th)/))
 
            spiral_x_max = maxval((/f_r(th, 0.0_wp, mya)*cos(th), f_r(th, thickness, mya)*cos(th)/))
            spiral_y_max = maxval((/f_r(th, 0.0_wp, mya)*sin(th), f_r(th, thickness, mya)*sin(th)/))
 
            do j = 0, n; do i = 0, m
                if ((x_cc(i) > spiral_x_min) .and. (x_cc(i) < spiral_x_max) .and. (y_cc(j) > spiral_y_min) .and. (y_cc(j) &
                    & < spiral_y_max)) then
                    logic_grid(i, j, 0) = 1
                end if
            end do; end do
        end do
 
        do j = 0, n
            do i = 0, m
                if ((logic_grid(i, j, 0) == 1)) then
                    call s_assign_patch_primitive_variables(patch_id, i, j, 0, eta, q_prim_vf, patch_id_fp)
 
 
                    if (patch_icpp(patch_id)%hcid /= dflt_int) then
    select case (patch_icpp(patch_id)%hcid)  ! 2D_hardcoded_ic example case
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    case (200)  ! Two-fluid cubic interface
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        if (y_cc(j) <= (-x_cc(i)**3 + 1)**(1._wp/3._wp)) then
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%adv%beg)%sf(i, j, 0) = eps
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%adv%end)%sf(i, j, 0) = 1._wp - eps
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%cont%beg)%sf(i, j, 0) = eps*1000._wp
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%cont%end)%sf(i, j, 0) = (1._wp - eps)*1._wp
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%E)%sf(i, j, 0) = 1000._wp
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        end if
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    case (202)  ! Gresho vortex (Gouasmi et al 2022 JCP)
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        r = ((x_cc(i) - 0.5_wp)**2 + (y_cc(j) - 0.5_wp)**2)**0.5_wp
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        rmax = 0.2_wp
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        gam = 1._wp + 1._wp/fluid_pp(1)%gamma
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        umax = 2*pi*rmax*patch_icpp(patch_id)%vel(2)
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        p0 = umax**2*(1._wp/(gam*patch_icpp(patch_id)%vel(2)**2) - 0.5_wp)
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        if (r < rmax) then
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%mom%beg)%sf(i, j, 0) = -(y_cc(j) - 0.5_wp)*umax/rmax
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%mom%end)%sf(i, j, 0) = (x_cc(i) - 0.5_wp)*umax/rmax
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%E)%sf(i, j, 0) = p0 + umax**2*((r/rmax)**2._wp/2._wp)
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        else if (r < 2*rmax) then
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%mom%beg)%sf(i, j, 0) = -((y_cc(j) - 0.5_wp)/r)*umax*(2._wp - r/rmax)
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%mom%end)%sf(i, j, 0) = ((x_cc(i) - 0.5_wp)/r)*umax*(2._wp - r/rmax)
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%E)%sf(i, j, 0) = p0 + umax**2*((r/rmax)**2/2._wp + 4*(1 - (r/rmax) + log(r/rmax)))
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        else
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%mom%beg)%sf(i, j, 0) = 0._wp
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%mom%end)%sf(i, j, 0) = 0._wp
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%E)%sf(i, j, 0) = p0 + umax**2*(-2 + 4*log(2._wp))
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        end if
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    case (203)  ! Gresho vortex (Gouasmi et al 2022 JCP) with density correction
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        r = ((x_cc(i) - 0.5_wp)**2._wp + (y_cc(j) - 0.5_wp)**2)**0.5_wp
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        rmax = 0.2_wp
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        gam = 1._wp + 1._wp/fluid_pp(1)%gamma
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        umax = 2*pi*rmax*patch_icpp(patch_id)%vel(2)
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        p0 = umax**2*(1._wp/(gam*patch_icpp(patch_id)%vel(2)**2) - 0.5_wp)
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        if (r < rmax) then
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%mom%beg)%sf(i, j, 0) = -(y_cc(j) - 0.5_wp)*umax/rmax
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%mom%end)%sf(i, j, 0) = (x_cc(i) - 0.5_wp)*umax/rmax
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%E)%sf(i, j, 0) = p0 + umax**2*((r/rmax)**2._wp/2._wp)
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        else if (r < 2*rmax) then
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%mom%beg)%sf(i, j, 0) = -((y_cc(j) - 0.5_wp)/r)*umax*(2._wp - r/rmax)
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%mom%end)%sf(i, j, 0) = ((x_cc(i) - 0.5_wp)/r)*umax*(2._wp - r/rmax)
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%E)%sf(i, j, 0) = p0 + umax**2*((r/rmax)**2/2._wp + 4._wp*(1._wp - (r/rmax) + log(r/rmax)))
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        else
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%mom%beg)%sf(i, j, 0) = 0._wp
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%mom%end)%sf(i, j, 0) = 0._wp
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%E)%sf(i, j, 0) = p0 + umax**2._wp*(-2._wp + 4*log(2._wp))
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        end if
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        q_prim_vf(eqn_idx%cont%beg)%sf(i, j, 0) = q_prim_vf(eqn_idx%E)%sf(i, j, 0)**(1._wp/gam)
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    case (204)  ! Rayleigh-Taylor instability
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        rhoh = 3._wp
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        rhol = 1._wp
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        pref = 1.e5_wp
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        pint = pref
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        h = 0.7_wp
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        lam = 0.2_wp
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        wl = 2._wp*pi/lam
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        amp = 0.05_wp/wl
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        inth = amp*sin(2._wp*pi*x_cc(i)/lam - pi/2._wp) + h
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        alph = 0.5_wp*(1._wp + tanh((y_cc(j) - inth)/2.5e-3_wp))
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        if (alph < eps) alph = eps
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        if (alph > 1._wp - eps) alph = 1._wp - eps
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        if (y_cc(j) > inth) then
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%adv%beg)%sf(i, j, 0) = alph
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%adv%end)%sf(i, j, 0) = 1._wp - alph
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%cont%beg)%sf(i, j, 0) = alph*rhoh
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%cont%end)%sf(i, j, 0) = (1._wp - alph)*rhol
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%E)%sf(i, j, 0) = pref + rhoh*9.81_wp*(1.2_wp - y_cc(j))
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        else
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%adv%beg)%sf(i, j, 0) = alph
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%adv%end)%sf(i, j, 0) = 1._wp - alph
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%cont%beg)%sf(i, j, 0) = alph*rhoh
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%cont%end)%sf(i, j, 0) = (1._wp - alph)*rhol
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            pint = pref + rhoh*9.81_wp*(1.2_wp - inth)
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%E)%sf(i, j, 0) = pint + rhol*9.81_wp*(inth - y_cc(j))
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        end if
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    case (205)  ! 2D lung wave interaction problem
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        h = 0.0_wp  ! non dim origin y
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        lam = 1.0_wp  ! non dim lambda
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        amp = patch_icpp(patch_id)%a(2)  ! to be changed later!       !non dim amplitude
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        inth = amp*sin(2*pi*x_cc(i)/lam - pi/2) + h
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        if (y_cc(j) > inth) then
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%cont%beg)%sf(i, j, 0) = patch_icpp(1)%alpha_rho(1)
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%cont%end)%sf(i, j, 0) = patch_icpp(1)%alpha_rho(2)
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%E)%sf(i, j, 0) = patch_icpp(1)%pres
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%adv%beg)%sf(i, j, 0) = patch_icpp(1)%alpha(1)
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%adv%end)%sf(i, j, 0) = patch_icpp(1)%alpha(2)
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        end if
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    case (206)  ! 2D lung wave interaction problem - horizontal domain
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        h = 0.0_wp  ! non dim origin y
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        lam = 1.0_wp  ! non dim lambda
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        amp = patch_icpp(patch_id)%a(2)
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        intl = amp*sin(2*pi*y_cc(j)/lam - pi/2) + h
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        if (x_cc(i) > intl) then  ! this is the liquid
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%cont%beg)%sf(i, j, 0) = patch_icpp(1)%alpha_rho(1)
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%cont%end)%sf(i, j, 0) = patch_icpp(1)%alpha_rho(2)
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%E)%sf(i, j, 0) = patch_icpp(1)%pres
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%adv%beg)%sf(i, j, 0) = patch_icpp(1)%alpha(1)
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%adv%end)%sf(i, j, 0) = patch_icpp(1)%alpha(2)
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        end if
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    case (207)  ! Kelvin Helmholtz Instability
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        sigma = 0.05_wp/sqrt(2.0_wp)
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        gauss1 = exp(-(y_cc(j) - 0.75_wp)**2/(2.0_wp*sigma**2))
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        gauss2 = exp(-(y_cc(j) - 0.25_wp)**2/(2.0_wp*sigma**2))
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        q_prim_vf(eqn_idx%mom%beg + 1)%sf(i, j, 0) = 0.1_wp*sin(4.0_wp*pi*x_cc(i))*(gauss1 + gauss2)
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    case (208)  ! Richtmeyer Meshkov Instability
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        lam = 1.0_wp
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        eps = 1.0e-6_wp
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ei = 5.0_wp
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! Smoothening function to smooth out sharp discontinuity in the interface
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        if (x_cc(i) <= 0.7_wp*lam) then
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            d = x_cc(i) - lam*(0.4_wp - 0.1_wp*sin(2.0_wp*pi*(y_cc(j)/lam + 0.25_wp)))
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            fsm = 0.5_wp*(1.0_wp + erf(d/(ei*sqrt(dx*dy))))
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            alpha_air = eps + (1.0_wp - 2.0_wp*eps)*fsm
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            alpha_sf6 = 1.0_wp - alpha_air
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%cont%beg)%sf(i, j, 0) = alpha_sf6*5.04_wp
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%cont%end)%sf(i, j, 0) = alpha_air*1.0_wp
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%adv%beg)%sf(i, j, 0) = alpha_sf6
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%adv%end)%sf(i, j, 0) = alpha_air
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        end if
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    case (250)  ! MHD Orszag-Tang vortex
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! gamma = 5/3 rho = 25/(36*pi) p = 5/(12*pi) v = (-sin(2*pi*y), sin(2*pi*x), 0) B = (-sin(2*pi*y)/sqrt(4*pi),
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! sin(4*pi*x)/sqrt(4*pi), 0)
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        q_prim_vf(eqn_idx%mom%beg)%sf(i, j, 0) = -sin(2._wp*pi*y_cc(j))
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        q_prim_vf(eqn_idx%mom%beg + 1)%sf(i, j, 0) = sin(2._wp*pi*x_cc(i))
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        q_prim_vf(eqn_idx%B%beg)%sf(i, j, 0) = -sin(2._wp*pi*y_cc(j))/sqrt(4._wp*pi)
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        q_prim_vf(eqn_idx%B%beg + 1)%sf(i, j, 0) = sin(4._wp*pi*x_cc(i))/sqrt(4._wp*pi)
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    case (251)  ! RMHD Cylindrical Blast Wave [Mignone, 2006: Section 4.3.1]
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        if (x_cc(i)**2 + y_cc(j)**2 < 0.08_wp**2) then
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%cont%beg)%sf(i, j, 0) = 0.01
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%E)%sf(i, j, 0) = 1.0
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        else if (x_cc(i)**2 + y_cc(j)**2 <= 1._wp**2) then
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            ! Linear interpolation between r=0.08 and r=1.0
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            factor = (1.0_wp - sqrt(x_cc(i)**2 + y_cc(j)**2))/(1.0_wp - 0.08_wp)
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%cont%beg)%sf(i, j, 0) = 0.01_wp*factor + 1.e-4_wp*(1.0_wp - factor)
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%E)%sf(i, j, 0) = 1.0_wp*factor + 3.e-5_wp*(1.0_wp - factor)
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        else
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%cont%beg)%sf(i, j, 0) = 1.e-4_wp
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%E)%sf(i, j, 0) = 3.e-5_wp
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        end if
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! case 252 is for the 2D MHD Rotor problem
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    case (252)  ! 2D MHD Rotor Problem
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! Ambient conditions are set in the JSON file. This case imposes the dense, rotating cylinder.
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        !
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! gamma = 1.4 Ambient medium (r > 0.1): rho = 1, p = 1, v = 0, B = (1,0,0) Rotor (r <= 0.1): rho = 10, p = 1 v has angular
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! velocity w=20, giving v_tan=2 at r=0.1
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! Calculate distance squared from the center
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        r_sq = (x_cc(i) - 0.5_wp)**2 + (y_cc(j) - 0.5_wp)**2
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! inner radius of 0.1
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        if (r_sq <= 0.1**2) then
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            ! -- Inside the rotor -- Set density uniformly to 10
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%cont%beg)%sf(i, j, 0) = 10._wp
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            ! Set vup constant rotation of rate v=2 v_x = -omega * (y - y_c) v_y = omega * (x - x_c)
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%mom%beg)%sf(i, j, 0) = -20._wp*(y_cc(j) - 0.5_wp)
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%mom%beg + 1)%sf(i, j, 0) = 20._wp*(x_cc(i) - 0.5_wp)
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            ! taper width of 0.015
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        else if (r_sq <= 0.115**2) then
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            ! linearly smooth the function between r = 0.1 and 0.115
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%cont%beg)%sf(i, j, 0) = 1._wp + 9._wp*(0.115_wp - sqrt(r_sq))/(0.015_wp)
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%mom%beg)%sf(i, j, 0) = -(2._wp/sqrt(r_sq))*(y_cc(j) - 0.5_wp)*(0.115_wp - sqrt(r_sq))/(0.015_wp)
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%mom%beg + 1)%sf(i, j, 0) = (2._wp/sqrt(r_sq))*(x_cc(i) - 0.5_wp)*(0.115_wp - sqrt(r_sq))/(0.015_wp)
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        end if
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    case (253)  ! MHD Smooth Magnetic Vortex
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! Section 5.2 of Implicit hybridized discontinuous Galerkin methods for compressible magnetohydrodynamics C. Ciuca, P.
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! Fernandez, A. Christophe, N.C. Nguyen, J. Peraire
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! velocity
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        q_prim_vf(eqn_idx%mom%beg)%sf(i, j, 0) = 1._wp - (y_cc(j)*exp(1 - (x_cc(i)**2 + y_cc(j)**2))/(2.*pi))
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        q_prim_vf(eqn_idx%mom%beg + 1)%sf(i, j, 0) = 1._wp + (x_cc(i)*exp(1 - (x_cc(i)**2 + y_cc(j)**2))/(2.*pi))
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! magnetic field
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        q_prim_vf(eqn_idx%B%beg)%sf(i, j, 0) = -y_cc(j)*exp(1 - (x_cc(i)**2 + y_cc(j)**2))/(2.*pi)
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        q_prim_vf(eqn_idx%B%beg + 1)%sf(i, j, 0) = x_cc(i)*exp(1 - (x_cc(i)**2 + y_cc(j)**2))/(2.*pi)
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! pressure
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        q_prim_vf(eqn_idx%E)%sf(i, j, &
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                  & 0) = 1._wp + (1 - 2._wp*(x_cc(i)**2 + y_cc(j)**2))*exp(1 - (x_cc(i)**2 + y_cc(j)**2))/((2._wp*pi)**3)
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    case (260)  ! Gaussian Divergence Pulse
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! Bx(x) = 1 + C * erf((x-0.5)/\sigma) => \partialBx/\partialx = C * (2/\sqrt\pi) * exp[-((x-0.5)/\sigma)**2] * (1/\sigma)
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! Choose C = \epsilon * \sigma * \sqrt\pi / 2 => \partialBx/\partialx = \epsilon * exp[-((x-0.5)/\sigma)**2] \psi is
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! initialized to zero everywhere.
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        eps_mhd = patch_icpp(patch_id)%a(2)
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        sigma = patch_icpp(patch_id)%a(3)
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        c_mhd = eps_mhd*sigma*sqrt(pi)*0.5_wp
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! B-field
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        q_prim_vf(eqn_idx%B%beg)%sf(i, j, 0) = 1._wp + c_mhd*erf((x_cc(i) - 0.5_wp)/sigma)
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    case (261)  ! Blob
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        r0 = 1._wp/sqrt(8._wp)
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        r2 = x_cc(i)**2 + y_cc(j)**2
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        r = sqrt(r2)
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        alpha = r/r0
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        if (alpha < 1) then
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%B%beg)%sf(i, j, 0) = 1._wp/sqrt(4._wp*pi)*(alpha**8 - 2._wp*alpha**4 + 1._wp)
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            ! q_prim_vf(eqn_idx%B%beg)%sf(i,j,0) = 1._wp/sqrt(4000._wp*pi) * (4096._wp*r2**4 - 128._wp*r2**2 + 1._wp)
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            ! q_prim_vf(eqn_idx%B%beg)%sf(i,j,0) = 1._wp/(4._wp*pi) * (alpha**8 - 2._wp*alpha**4 + 1._wp)
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            ! q_prim_vf(eqn_idx%E)%sf(i,j,0) = 6._wp - q_prim_vf(eqn_idx%B%beg)%sf(i,j,0)**2/2._wp
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        end if
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    case (262)  ! Tilted 2D MHD shock-tube at \alpha = arctan2 (\approx63.4 deg)
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! rotate by \alpha = atan(2)
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        alpha = atan(2._wp)
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        cosa = cos(alpha)
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        sina = sin(alpha)
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! projection along shock normal
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        r = x_cc(i)*cosa + y_cc(j)*sina
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        if (r <= 0.5_wp) then
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            ! LEFT state: \rho=1, v\parallel=+10, v\perp=0, p=20, B\parallel=B\perp=5/\sqrt(4\pi)
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%cont%beg)%sf(i, j, 0) = 1._wp
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%mom%beg)%sf(i, j, 0) = 10._wp*cosa
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%mom%beg + 1)%sf(i, j, 0) = 10._wp*sina
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%E)%sf(i, j, 0) = 20._wp
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%B%beg)%sf(i, j, 0) = (5._wp/sqrt(4._wp*pi))*cosa - (5._wp/sqrt(4._wp*pi))*sina
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%B%beg + 1)%sf(i, j, 0) = (5._wp/sqrt(4._wp*pi))*sina + (5._wp/sqrt(4._wp*pi))*cosa
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        else
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            ! RIGHT state: \rho=1, v\parallel=-10, v\perp=0, p=1, B\parallel=B\perp=5/\sqrt(4\pi)
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%cont%beg)%sf(i, j, 0) = 1._wp
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%mom%beg)%sf(i, j, 0) = -10._wp*cosa
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%mom%beg + 1)%sf(i, j, 0) = -10._wp*sina
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%E)%sf(i, j, 0) = 1._wp
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%B%beg)%sf(i, j, 0) = (5._wp/sqrt(4._wp*pi))*cosa - (5._wp/sqrt(4._wp*pi))*sina
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%B%beg + 1)%sf(i, j, 0) = (5._wp/sqrt(4._wp*pi))*sina + (5._wp/sqrt(4._wp*pi))*cosa
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        end if
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! v^z and B^z remain zero by default
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    case (270)  ! 2D extrusion of 1D profile from external data
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! This hardcoded case extrudes a 1D profile to initialize a 2D simulation domain
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    if (.not. files_loaded) then
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        max_files = merge(sys_size, sys_size - 1, num_dims == 1)
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        do f = 1, max_files
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            write (file_num_str, '(I0)') f
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            filenames(f) = trim(files_dir) // "/" // "prim." // trim(file_num_str) // ".00." // trim(file_extension) // ".dat"
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        end do
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! Common file reading setup
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        open (newunit=unit2, file=trim(filenames(1)), status='old', action='read', iostat=ios2)
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        if (ios2 /= 0) call s_mpi_abort("Error opening file: " // trim(filenames(1)))
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        select case (num_dims)
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        case (1, 2)  ! 1D and 2D cases are similar
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            ! Count lines
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            line_count = 0
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            do
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                read (unit2, *, iostat=ios2) dummy_x, dummy_y
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                if (ios2 /= 0) exit
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                line_count = line_count + 1
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            end do
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            close (unit2)
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            xrows = line_count
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            yrows = 1
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            index_x = 0
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            if (num_dims == 2) index_x = i
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#ifdef MFC_DEBUG
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    block
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        use iso_fortran_env, only: output_unit
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        print *, 'm_icpp_patches.fpp:275: ', '@:ALLOCATE(x_coords(xRows), stored_values(xRows, 1, sys_size))'
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        call flush (output_unit)
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    end block
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#endif
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    allocate (x_coords(xrows), stored_values(xrows, 1, sys_size))
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#if defined(MFC_OpenACC)
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
!$acc enter data create(x_coords, stored_values) 
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#elif defined(MFC_OpenMP)
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
!$omp target enter data map(always,alloc:x_coords, stored_values) 
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#endif
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            ! Read data from all files
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            do f = 1, max_files
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                open (newunit=unit, file=trim(filenames(f)), status='old', action='read', iostat=ios)
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                if (ios /= 0) call s_mpi_abort("Error opening file: " // trim(filenames(f)))
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                do iter = 1, xrows
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    read (unit, *, iostat=ios) x_coords(iter), stored_values(iter, 1, f)
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    if (ios /= 0) call s_mpi_abort("Error reading file: " // trim(filenames(f)))
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                end do
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                close (unit)
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            end do
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            ! Calculate offsets
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            domain_xstart = x_coords(1)
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            x_step = x_cc(1) - x_cc(0)
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            delta_x = merge(x_cc(0) - domain_xstart, x_cc(index_x) - domain_xstart, num_dims == 1)
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            global_offset_x = nint(abs(delta_x)/x_step)
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        case (3)  ! 3D case - determine grid structure
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            ! Find yRows by counting rows with same x
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            read (unit2, *, iostat=ios2) x0, y0, dummy_z
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            if (ios2 /= 0) call s_mpi_abort("Error reading first line")
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            yrows = 1
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            do
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                read (unit2, *, iostat=ios2) dummy_x, dummy_y, dummy_z
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                if (ios2 /= 0) exit
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                if (f_approx_equal(dummy_x, x0) .and. (.not. f_approx_equal(dummy_y, y0))) then
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    yrows = yrows + 1
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                else
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    exit
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                end if
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            end do
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            close (unit2)
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            ! Count total rows
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            open (newunit=unit2, file=trim(filenames(1)), status='old', action='read', iostat=ios2)
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            nrows = 0
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            do
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                read (unit2, *, iostat=ios2) dummy_x, dummy_y, dummy_z
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                if (ios2 /= 0) exit
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                nrows = nrows + 1
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            end do
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            close (unit2)
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            xrows = nrows/yrows
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#ifdef MFC_DEBUG
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    block
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        use iso_fortran_env, only: output_unit
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        print *, 'm_icpp_patches.fpp:275: ', '@:ALLOCATE(x_coords(nrows), y_coords(nrows), stored_values(xRows, yRows, sys_size))'
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        call flush (output_unit)
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    end block
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#endif
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    allocate (x_coords(nrows), y_coords(nrows), stored_values(xrows, yrows, sys_size))
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#if defined(MFC_OpenACC)
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
!$acc enter data create(x_coords, y_coords, stored_values) 
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#elif defined(MFC_OpenMP)
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
!$omp target enter data map(always,alloc:x_coords, y_coords, stored_values) 
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#endif
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            index_x = i
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            index_y = j
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            ! Read all files
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            do f = 1, max_files
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                open (newunit=unit, file=trim(filenames(f)), status='old', action='read', iostat=ios)
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                if (ios /= 0) then
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    if (f == 1) call s_mpi_abort("Error opening file: " // trim(filenames(f)))
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    cycle
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                end if
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                iter = 0
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                do iix = 1, xrows
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    do iiy = 1, yrows
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                        iter = iter + 1
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                        if (f == 1) then
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                            read (unit, *, iostat=ios) x_coords(iter), y_coords(iter), stored_values(iix, iiy, f)
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                        else
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                            read (unit, *, iostat=ios) dummy_x, dummy_y, stored_values(iix, iiy, f)
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                        end if
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                        if (ios /= 0) call s_mpi_abort("Error reading data")
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    end do
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                end do
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                close (unit)
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            end do
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            ! Calculate offsets
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            x_step = x_cc(1) - x_cc(0)
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            y_step = y_cc(1) - y_cc(0)
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            delta_x = x_cc(index_x) - x_coords(1)
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            delta_y = y_cc(index_y) - y_coords(1)
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            global_offset_x = nint(abs(delta_x)/x_step)
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            global_offset_y = nint(abs(delta_y)/y_step)
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        end select
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        files_loaded = .true.
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    end if
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    ! Data assignment
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    select case (num_dims)
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    case (1)
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        idx = i + 1 + global_offset_x
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! idx must land inside the file's row range: this rank's subdomain offset
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! (global_offset_x) was derived from this rank's own grid, so a miss means the
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! IC file is misaligned/mis-sized for the run grid, not a normal boundary case.
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        if (idx < 1 .or. idx > xrows) &
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            & call s_mpi_abort("Hardcoded IC extrusion: row index out of range (IC file misaligned with the run grid)")
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        do f = 1, sys_size
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(f)%sf(i, 0, 0) = stored_values(idx, 1, f)
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        end do
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    case (2)
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        idx = i + 1 + global_offset_x - index_x
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        if (idx < 1 .or. idx > xrows) &
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            & call s_mpi_abort("Hardcoded IC extrusion: row index out of range (IC file misaligned with the run grid)")
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        do f = 1, sys_size - 1
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            jump = merge(1, 0, f >= eqn_idx%mom%end)
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(f + jump)%sf(i, j, 0) = stored_values(idx, 1, f)
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        end do
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        q_prim_vf(eqn_idx%mom%end)%sf(i, j, 0) = 0.0_wp
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    case (3)
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        idx = i + 1 + global_offset_x - index_x
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        idy = j + 1 + global_offset_y - index_y
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        if (idx < 1 .or. idx > xrows .or. idy < 1 .or. idy > yrows) &
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            & call s_mpi_abort("Hardcoded IC extrusion: row/column index out of range (IC file misaligned with the run grid)")
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        do f = 1, sys_size - 1
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            jump = merge(1, 0, f >= eqn_idx%mom%end)
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(f + jump)%sf(i, j, k) = stored_values(idx, idy, f)
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        end do
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        q_prim_vf(eqn_idx%mom%end)%sf(i, j, k) = 0.0_wp
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    end select
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    case (273)  ! Temporal reacting mixing layer: 2D extrusion + streamwise velocity
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! @:HardcodedReadValues() always zeros mom%end (the extruded-axis velocity).
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! The mom%beg file slot is repurposed to carry the streamwise-velocity-vs-
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! cross-stream-position profile (real cross-stream velocity is legitimately
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! zero everywhere in the unperturbed base state), so swap it into mom%end and
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! zero out mom%beg's true physical value.
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    if (.not. files_loaded) then
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        max_files = merge(sys_size, sys_size - 1, num_dims == 1)
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        do f = 1, max_files
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            write (file_num_str, '(I0)') f
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            filenames(f) = trim(files_dir) // "/" // "prim." // trim(file_num_str) // ".00." // trim(file_extension) // ".dat"
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        end do
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! Common file reading setup
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        open (newunit=unit2, file=trim(filenames(1)), status='old', action='read', iostat=ios2)
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        if (ios2 /= 0) call s_mpi_abort("Error opening file: " // trim(filenames(1)))
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        select case (num_dims)
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        case (1, 2)  ! 1D and 2D cases are similar
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            ! Count lines
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            line_count = 0
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            do
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                read (unit2, *, iostat=ios2) dummy_x, dummy_y
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                if (ios2 /= 0) exit
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                line_count = line_count + 1
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            end do
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            close (unit2)
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            xrows = line_count
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            yrows = 1
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            index_x = 0
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            if (num_dims == 2) index_x = i
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#ifdef MFC_DEBUG
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    block
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        use iso_fortran_env, only: output_unit
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        print *, 'm_icpp_patches.fpp:275: ', '@:ALLOCATE(x_coords(xRows), stored_values(xRows, 1, sys_size))'
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        call flush (output_unit)
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    end block
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#endif
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    allocate (x_coords(xrows), stored_values(xrows, 1, sys_size))
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#if defined(MFC_OpenACC)
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
!$acc enter data create(x_coords, stored_values) 
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#elif defined(MFC_OpenMP)
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
!$omp target enter data map(always,alloc:x_coords, stored_values) 
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#endif
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            ! Read data from all files
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            do f = 1, max_files
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                open (newunit=unit, file=trim(filenames(f)), status='old', action='read', iostat=ios)
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                if (ios /= 0) call s_mpi_abort("Error opening file: " // trim(filenames(f)))
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                do iter = 1, xrows
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    read (unit, *, iostat=ios) x_coords(iter), stored_values(iter, 1, f)
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    if (ios /= 0) call s_mpi_abort("Error reading file: " // trim(filenames(f)))
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                end do
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                close (unit)
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            end do
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            ! Calculate offsets
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            domain_xstart = x_coords(1)
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            x_step = x_cc(1) - x_cc(0)
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            delta_x = merge(x_cc(0) - domain_xstart, x_cc(index_x) - domain_xstart, num_dims == 1)
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            global_offset_x = nint(abs(delta_x)/x_step)
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        case (3)  ! 3D case - determine grid structure
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            ! Find yRows by counting rows with same x
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            read (unit2, *, iostat=ios2) x0, y0, dummy_z
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            if (ios2 /= 0) call s_mpi_abort("Error reading first line")
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            yrows = 1
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            do
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                read (unit2, *, iostat=ios2) dummy_x, dummy_y, dummy_z
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                if (ios2 /= 0) exit
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                if (f_approx_equal(dummy_x, x0) .and. (.not. f_approx_equal(dummy_y, y0))) then
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    yrows = yrows + 1
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                else
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    exit
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                end if
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            end do
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            close (unit2)
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            ! Count total rows
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            open (newunit=unit2, file=trim(filenames(1)), status='old', action='read', iostat=ios2)
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            nrows = 0
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            do
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                read (unit2, *, iostat=ios2) dummy_x, dummy_y, dummy_z
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                if (ios2 /= 0) exit
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                nrows = nrows + 1
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            end do
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            close (unit2)
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            xrows = nrows/yrows
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#ifdef MFC_DEBUG
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    block
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        use iso_fortran_env, only: output_unit
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        print *, 'm_icpp_patches.fpp:275: ', '@:ALLOCATE(x_coords(nrows), y_coords(nrows), stored_values(xRows, yRows, sys_size))'
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        call flush (output_unit)
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    end block
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#endif
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    allocate (x_coords(nrows), y_coords(nrows), stored_values(xrows, yrows, sys_size))
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#if defined(MFC_OpenACC)
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
!$acc enter data create(x_coords, y_coords, stored_values) 
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#elif defined(MFC_OpenMP)
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
!$omp target enter data map(always,alloc:x_coords, y_coords, stored_values) 
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#endif
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            index_x = i
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            index_y = j
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            ! Read all files
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            do f = 1, max_files
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                open (newunit=unit, file=trim(filenames(f)), status='old', action='read', iostat=ios)
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                if (ios /= 0) then
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    if (f == 1) call s_mpi_abort("Error opening file: " // trim(filenames(f)))
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    cycle
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                end if
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                iter = 0
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                do iix = 1, xrows
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    do iiy = 1, yrows
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                        iter = iter + 1
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                        if (f == 1) then
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                            read (unit, *, iostat=ios) x_coords(iter), y_coords(iter), stored_values(iix, iiy, f)
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                        else
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                            read (unit, *, iostat=ios) dummy_x, dummy_y, stored_values(iix, iiy, f)
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                        end if
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                        if (ios /= 0) call s_mpi_abort("Error reading data")
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    end do
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                end do
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                close (unit)
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            end do
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            ! Calculate offsets
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            x_step = x_cc(1) - x_cc(0)
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            y_step = y_cc(1) - y_cc(0)
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            delta_x = x_cc(index_x) - x_coords(1)
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            delta_y = y_cc(index_y) - y_coords(1)
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            global_offset_x = nint(abs(delta_x)/x_step)
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            global_offset_y = nint(abs(delta_y)/y_step)
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        end select
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        files_loaded = .true.
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    end if
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    ! Data assignment
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    select case (num_dims)
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    case (1)
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        idx = i + 1 + global_offset_x
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! idx must land inside the file's row range: this rank's subdomain offset
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! (global_offset_x) was derived from this rank's own grid, so a miss means the
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! IC file is misaligned/mis-sized for the run grid, not a normal boundary case.
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        if (idx < 1 .or. idx > xrows) &
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            & call s_mpi_abort("Hardcoded IC extrusion: row index out of range (IC file misaligned with the run grid)")
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        do f = 1, sys_size
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(f)%sf(i, 0, 0) = stored_values(idx, 1, f)
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        end do
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    case (2)
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        idx = i + 1 + global_offset_x - index_x
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        if (idx < 1 .or. idx > xrows) &
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            & call s_mpi_abort("Hardcoded IC extrusion: row index out of range (IC file misaligned with the run grid)")
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        do f = 1, sys_size - 1
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            jump = merge(1, 0, f >= eqn_idx%mom%end)
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(f + jump)%sf(i, j, 0) = stored_values(idx, 1, f)
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        end do
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        q_prim_vf(eqn_idx%mom%end)%sf(i, j, 0) = 0.0_wp
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    case (3)
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        idx = i + 1 + global_offset_x - index_x
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        idy = j + 1 + global_offset_y - index_y
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        if (idx < 1 .or. idx > xrows .or. idy < 1 .or. idy > yrows) &
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            & call s_mpi_abort("Hardcoded IC extrusion: row/column index out of range (IC file misaligned with the run grid)")
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        do f = 1, sys_size - 1
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            jump = merge(1, 0, f >= eqn_idx%mom%end)
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(f + jump)%sf(i, j, k) = stored_values(idx, idy, f)
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        end do
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        q_prim_vf(eqn_idx%mom%end)%sf(i, j, k) = 0.0_wp
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    end select
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        q_prim_vf(eqn_idx%mom%end)%sf(i, j, 0) = q_prim_vf(eqn_idx%mom%beg)%sf(i, j, 0)
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        q_prim_vf(eqn_idx%mom%beg)%sf(i, j, 0) = 0.0_wp
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    case (274)  ! Full 2D field from external data (no extrusion)
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! Unlike case(270-273), this reads a genuinely 2D (x,y) field per variable, with no
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! extrusion direction and no zeroed component -- all sys_size variables are read and
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! assigned directly. Data files must have exactly (m_glb+1)*(n_glb+1) lines per
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! variable, in x-major order (outer loop x, inner loop y), matching this rank's
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! global grid exactly -- by construction, since the IC generator derives both the
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! grid and the file contents from the same computation.
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        !
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! A local cell's global (x, y) index is derived from x_cc(i)/y_cc(j) against the
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! file's own first coordinate and this rank's uniform grid spacing -- following the
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! same pattern as case(270)'s global_offset_x/y above -- rather than from start_idx:
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! start_idx is only allocated when parallel_io=T (s_initialize_parallel_io_common
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! returns before allocating it otherwise), so a serial-IO run (the default for
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! golden-file tests) would index into an unallocated array.
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        !
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! Every rank still scans the whole file (matching case(270)'s existing per-rank-reads-
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! everything pattern), but stored_values274 only holds this rank's LOCAL (0:m, 0:n)
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! slice rather than the full global grid -- a full-grid copy on every rank would scale
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! as O(m_glb*n_glb*sys_size) per rank, which is the wrong axis to duplicate work on for
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! a genuinely 2D (not 1D-profile) field. local_ix_beg274/local_iy_beg274 (this rank's
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! global cell offset) are pinned from f274==1's very first record, before any other
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! record is read, so every subsequent record -- across all variables -- can be tested
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! against this rank's range and dropped if it falls outside it.
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        x_step274 = x_cc(1) - x_cc(0)
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        y_step274 = y_cc(1) - y_cc(0)
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        if (.not. files_loaded274) then
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#ifdef MFC_DEBUG
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    block
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        use iso_fortran_env, only: output_unit
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        print *, 'm_icpp_patches.fpp:275: ', '@:ALLOCATE(stored_values274(0:m, 0:n, sys_size))'
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        call flush (output_unit)
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    end block
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#endif
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    allocate (stored_values274(0:m, 0:n, sys_size))
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#if defined(MFC_OpenACC)
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
!$acc enter data create(stored_values274) 
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#elif defined(MFC_OpenMP)
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
!$omp target enter data map(always,alloc:stored_values274) 
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#endif
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            do f274 = 1, sys_size
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                write (file_num_str274, '(I0)') f274
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                fname274 = trim(files_dir) // "/prim." // trim(file_num_str274) // ".00." // trim(file_extension) // ".dat"
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                open (newunit=unit274, file=trim(fname274), status='old', action='read', iostat=ios274)
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                if (ios274 /= 0) call s_mpi_abort("Error opening file: " // trim(fname274))
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                do ix274 = 0, m_glb
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    do iy274 = 0, n_glb
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                        read (unit274, *, iostat=ios274) dummy_x274, dummy_y274, dummy_val274
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                        if (ios274 /= 0) call s_mpi_abort("Error reading file (fewer lines than grid?): " // trim(fname274))
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                        ! Capture the file's own origin and spacing from its first records so we can
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                        ! confirm it was sampled on this run's grid (a silent mismatch would otherwise
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                        ! read a wrong partial slice -> nonphysical field -> VCFL=Inf downstream).
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                        if (f274 == 1) then
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                            if (ix274 == 0 .and. iy274 == 0) then
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                                x0_274 = dummy_x274
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                                y0_274 = dummy_y274
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                                local_ix_beg274 = nint((x_cc(0) - x0_274)/x_step274)
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                                local_iy_beg274 = nint((y_cc(0) - y0_274)/y_step274)
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                            end if
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                            if (ix274 == 1 .and. iy274 == 0) file_dx274 = dummy_x274 - x0_274
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                            if (ix274 == 0 .and. iy274 == 1) file_dy274 = dummy_y274 - y0_274
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                        end if
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                        if (ix274 - local_ix_beg274 >= 0 .and. ix274 - local_ix_beg274 <= m .and. iy274 - local_iy_beg274 >= 0 &
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                            & .and. iy274 - local_iy_beg274 <= n) then
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                            stored_values274(ix274 - local_ix_beg274, iy274 - local_iy_beg274, f274) = dummy_val274
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                        end if
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    end do
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                end do
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                ! The file must contain exactly (m_glb+1)*(n_glb+1) records: a successful extra
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                ! read means it was generated for a larger grid and would be silently misread.
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                read (unit274, *, iostat=ios274) dummy_x274, dummy_y274
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                if (ios274 == 0) call s_mpi_abort("hcid=274 file has more lines than the grid: " // trim(fname274))
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                close (unit274)
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            end do
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            ! The run grid must be aligned with the file grid (uniform grid assumed, as in case 270).
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            ! Check alignment via the integer cell offset of this rank's first cell from the file
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            ! origin -- decomposition-safe: on every MPI rank x_cc(0) sits an integer number of cells
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            ! into the global file, so a non-integer offset means a shifted/mismatched IC. (Comparing
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            ! x0_274 to x_cc(0) directly would false-abort every rank whose subdomain doesn't start at
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            ! the global origin.) The spacing checks below must also hold.
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            r_align274 = (x_cc(0) - x0_274)/x_step274
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            if (abs(r_align274 - nint(r_align274)) > 1.e-6_wp) &
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                & call s_mpi_abort("hcid=274 file x-grid is misaligned with the run grid; regenerate the IC for this grid.")
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            if (m_glb >= 1) then
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                if (abs(file_dx274 - x_step274) > 1.e-6_wp*abs(x_step274)) &
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    & call s_mpi_abort("hcid=274 file x-spacing does not match the grid; regenerate the IC for this grid.")
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            end if
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            if (n_glb >= 1) then
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                r_align274 = (y_cc(0) - y0_274)/y_step274
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                if (abs(r_align274 - nint(r_align274)) > 1.e-6_wp) &
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    & call s_mpi_abort("hcid=274 file y-grid is misaligned with the run grid; regenerate the IC for this grid.")
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                if (abs(file_dy274 - y_step274) > 1.e-6_wp*abs(y_step274)) &
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    & call s_mpi_abort("hcid=274 file y-spacing does not match the grid; regenerate the IC for this grid.")
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            end if
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            files_loaded274 = .true.
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        end if
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! Alignment is verified above (or this rank would already have aborted), so the local
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! cell (i, j) maps to stored_values274(i, j, :) directly -- no re-derivation needed.
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        do f274 = 1, sys_size
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(f274)%sf(i, j, 0) = stored_values274(i, j, f274)
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        end do
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    case (271)  ! Premixed Flame Vortices Interaction
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    if (.not. files_loaded) then
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        max_files = merge(sys_size, sys_size - 1, num_dims == 1)
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        do f = 1, max_files
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            write (file_num_str, '(I0)') f
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            filenames(f) = trim(files_dir) // "/" // "prim." // trim(file_num_str) // ".00." // trim(file_extension) // ".dat"
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        end do
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! Common file reading setup
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        open (newunit=unit2, file=trim(filenames(1)), status='old', action='read', iostat=ios2)
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        if (ios2 /= 0) call s_mpi_abort("Error opening file: " // trim(filenames(1)))
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        select case (num_dims)
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        case (1, 2)  ! 1D and 2D cases are similar
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            ! Count lines
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            line_count = 0
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            do
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                read (unit2, *, iostat=ios2) dummy_x, dummy_y
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                if (ios2 /= 0) exit
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                line_count = line_count + 1
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            end do
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            close (unit2)
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            xrows = line_count
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            yrows = 1
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            index_x = 0
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            if (num_dims == 2) index_x = i
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#ifdef MFC_DEBUG
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    block
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        use iso_fortran_env, only: output_unit
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        print *, 'm_icpp_patches.fpp:275: ', '@:ALLOCATE(x_coords(xRows), stored_values(xRows, 1, sys_size))'
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        call flush (output_unit)
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    end block
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#endif
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    allocate (x_coords(xrows), stored_values(xrows, 1, sys_size))
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#if defined(MFC_OpenACC)
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
!$acc enter data create(x_coords, stored_values) 
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#elif defined(MFC_OpenMP)
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
!$omp target enter data map(always,alloc:x_coords, stored_values) 
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#endif
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            ! Read data from all files
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            do f = 1, max_files
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                open (newunit=unit, file=trim(filenames(f)), status='old', action='read', iostat=ios)
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                if (ios /= 0) call s_mpi_abort("Error opening file: " // trim(filenames(f)))
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                do iter = 1, xrows
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    read (unit, *, iostat=ios) x_coords(iter), stored_values(iter, 1, f)
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    if (ios /= 0) call s_mpi_abort("Error reading file: " // trim(filenames(f)))
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                end do
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                close (unit)
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            end do
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            ! Calculate offsets
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            domain_xstart = x_coords(1)
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            x_step = x_cc(1) - x_cc(0)
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            delta_x = merge(x_cc(0) - domain_xstart, x_cc(index_x) - domain_xstart, num_dims == 1)
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            global_offset_x = nint(abs(delta_x)/x_step)
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        case (3)  ! 3D case - determine grid structure
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            ! Find yRows by counting rows with same x
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            read (unit2, *, iostat=ios2) x0, y0, dummy_z
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            if (ios2 /= 0) call s_mpi_abort("Error reading first line")
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            yrows = 1
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            do
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                read (unit2, *, iostat=ios2) dummy_x, dummy_y, dummy_z
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                if (ios2 /= 0) exit
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                if (f_approx_equal(dummy_x, x0) .and. (.not. f_approx_equal(dummy_y, y0))) then
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    yrows = yrows + 1
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                else
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    exit
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                end if
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            end do
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            close (unit2)
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            ! Count total rows
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            open (newunit=unit2, file=trim(filenames(1)), status='old', action='read', iostat=ios2)
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            nrows = 0
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            do
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                read (unit2, *, iostat=ios2) dummy_x, dummy_y, dummy_z
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                if (ios2 /= 0) exit
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                nrows = nrows + 1
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            end do
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            close (unit2)
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            xrows = nrows/yrows
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#ifdef MFC_DEBUG
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    block
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        use iso_fortran_env, only: output_unit
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        print *, 'm_icpp_patches.fpp:275: ', '@:ALLOCATE(x_coords(nrows), y_coords(nrows), stored_values(xRows, yRows, sys_size))'
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        call flush (output_unit)
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    end block
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#endif
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    allocate (x_coords(nrows), y_coords(nrows), stored_values(xrows, yrows, sys_size))
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#if defined(MFC_OpenACC)
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
!$acc enter data create(x_coords, y_coords, stored_values) 
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#elif defined(MFC_OpenMP)
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
!$omp target enter data map(always,alloc:x_coords, y_coords, stored_values) 
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#endif
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            index_x = i
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            index_y = j
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            ! Read all files
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            do f = 1, max_files
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                open (newunit=unit, file=trim(filenames(f)), status='old', action='read', iostat=ios)
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                if (ios /= 0) then
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    if (f == 1) call s_mpi_abort("Error opening file: " // trim(filenames(f)))
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    cycle
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                end if
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                iter = 0
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                do iix = 1, xrows
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    do iiy = 1, yrows
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                        iter = iter + 1
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                        if (f == 1) then
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                            read (unit, *, iostat=ios) x_coords(iter), y_coords(iter), stored_values(iix, iiy, f)
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                        else
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                            read (unit, *, iostat=ios) dummy_x, dummy_y, stored_values(iix, iiy, f)
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                        end if
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                        if (ios /= 0) call s_mpi_abort("Error reading data")
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    end do
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                end do
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                close (unit)
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            end do
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            ! Calculate offsets
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            x_step = x_cc(1) - x_cc(0)
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            y_step = y_cc(1) - y_cc(0)
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            delta_x = x_cc(index_x) - x_coords(1)
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            delta_y = y_cc(index_y) - y_coords(1)
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            global_offset_x = nint(abs(delta_x)/x_step)
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            global_offset_y = nint(abs(delta_y)/y_step)
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        end select
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        files_loaded = .true.
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    end if
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    ! Data assignment
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    select case (num_dims)
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    case (1)
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        idx = i + 1 + global_offset_x
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! idx must land inside the file's row range: this rank's subdomain offset
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! (global_offset_x) was derived from this rank's own grid, so a miss means the
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! IC file is misaligned/mis-sized for the run grid, not a normal boundary case.
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        if (idx < 1 .or. idx > xrows) &
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            & call s_mpi_abort("Hardcoded IC extrusion: row index out of range (IC file misaligned with the run grid)")
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        do f = 1, sys_size
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(f)%sf(i, 0, 0) = stored_values(idx, 1, f)
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        end do
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    case (2)
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        idx = i + 1 + global_offset_x - index_x
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        if (idx < 1 .or. idx > xrows) &
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            & call s_mpi_abort("Hardcoded IC extrusion: row index out of range (IC file misaligned with the run grid)")
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        do f = 1, sys_size - 1
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            jump = merge(1, 0, f >= eqn_idx%mom%end)
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(f + jump)%sf(i, j, 0) = stored_values(idx, 1, f)
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        end do
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        q_prim_vf(eqn_idx%mom%end)%sf(i, j, 0) = 0.0_wp
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    case (3)
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        idx = i + 1 + global_offset_x - index_x
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        idy = j + 1 + global_offset_y - index_y
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        if (idx < 1 .or. idx > xrows .or. idy < 1 .or. idy > yrows) &
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            & call s_mpi_abort("Hardcoded IC extrusion: row/column index out of range (IC file misaligned with the run grid)")
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        do f = 1, sys_size - 1
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            jump = merge(1, 0, f >= eqn_idx%mom%end)
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(f + jump)%sf(i, j, k) = stored_values(idx, idy, f)
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        end do
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        q_prim_vf(eqn_idx%mom%end)%sf(i, j, k) = 0.0_wp
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    end select
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        x1c = 0.0027_wp
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        y1c = 0.005_wp
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        x2c = 0.0027_wp
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        y2c = 0.003_wp
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        r1c = (x_cc(i) - x1c)**(2.0_wp) + (y_cc(j) - y1c)**(2.0_wp)
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        r2c = (x_cc(i) - x2c)**(2.0_wp) + (y_cc(j) - y2c)**(2.0_wp)
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        rvortex = 0.0005_wp
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        cvortex = 6000.0_wp
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        u1c = -cvortex*((y_cc(j) - y1c))*exp(-r1c/(2.0_wp*rvortex**2.0_wp))
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        v1c = cvortex*((x_cc(i) - x1c))*exp(-r1c/(2.0_wp*rvortex**2.0_wp))
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        u2c = cvortex*((y_cc(j) - y2c))*exp(-r2c/(2.0_wp*rvortex**2.0_wp))
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        v2c = -cvortex*((x_cc(i) - x2c))*exp(-r2c/(2.0_wp*rvortex**2.0_wp))
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        q_prim_vf(eqn_idx%mom%beg)%sf(i, j, 0) = q_prim_vf(eqn_idx%mom%beg)%sf(i, j, 0) + u1c + u2c
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        q_prim_vf(eqn_idx%mom%beg + 1)%sf(i, j, 0) = v1c + v2c
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    case (272)  ! Premixed Flame Instability
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    if (.not. files_loaded) then
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        max_files = merge(sys_size, sys_size - 1, num_dims == 1)
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        do f = 1, max_files
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            write (file_num_str, '(I0)') f
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            filenames(f) = trim(files_dir) // "/" // "prim." // trim(file_num_str) // ".00." // trim(file_extension) // ".dat"
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        end do
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! Common file reading setup
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        open (newunit=unit2, file=trim(filenames(1)), status='old', action='read', iostat=ios2)
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        if (ios2 /= 0) call s_mpi_abort("Error opening file: " // trim(filenames(1)))
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        select case (num_dims)
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        case (1, 2)  ! 1D and 2D cases are similar
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            ! Count lines
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            line_count = 0
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            do
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                read (unit2, *, iostat=ios2) dummy_x, dummy_y
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                if (ios2 /= 0) exit
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                line_count = line_count + 1
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            end do
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            close (unit2)
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            xrows = line_count
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            yrows = 1
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            index_x = 0
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            if (num_dims == 2) index_x = i
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#ifdef MFC_DEBUG
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    block
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        use iso_fortran_env, only: output_unit
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        print *, 'm_icpp_patches.fpp:275: ', '@:ALLOCATE(x_coords(xRows), stored_values(xRows, 1, sys_size))'
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        call flush (output_unit)
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    end block
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#endif
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    allocate (x_coords(xrows), stored_values(xrows, 1, sys_size))
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#if defined(MFC_OpenACC)
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
!$acc enter data create(x_coords, stored_values) 
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#elif defined(MFC_OpenMP)
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
!$omp target enter data map(always,alloc:x_coords, stored_values) 
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#endif
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            ! Read data from all files
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            do f = 1, max_files
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                open (newunit=unit, file=trim(filenames(f)), status='old', action='read', iostat=ios)
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                if (ios /= 0) call s_mpi_abort("Error opening file: " // trim(filenames(f)))
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                do iter = 1, xrows
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    read (unit, *, iostat=ios) x_coords(iter), stored_values(iter, 1, f)
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    if (ios /= 0) call s_mpi_abort("Error reading file: " // trim(filenames(f)))
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                end do
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                close (unit)
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            end do
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            ! Calculate offsets
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            domain_xstart = x_coords(1)
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            x_step = x_cc(1) - x_cc(0)
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            delta_x = merge(x_cc(0) - domain_xstart, x_cc(index_x) - domain_xstart, num_dims == 1)
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            global_offset_x = nint(abs(delta_x)/x_step)
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        case (3)  ! 3D case - determine grid structure
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            ! Find yRows by counting rows with same x
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            read (unit2, *, iostat=ios2) x0, y0, dummy_z
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            if (ios2 /= 0) call s_mpi_abort("Error reading first line")
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            yrows = 1
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            do
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                read (unit2, *, iostat=ios2) dummy_x, dummy_y, dummy_z
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                if (ios2 /= 0) exit
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                if (f_approx_equal(dummy_x, x0) .and. (.not. f_approx_equal(dummy_y, y0))) then
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    yrows = yrows + 1
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                else
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    exit
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                end if
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            end do
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            close (unit2)
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            ! Count total rows
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            open (newunit=unit2, file=trim(filenames(1)), status='old', action='read', iostat=ios2)
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            nrows = 0
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            do
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                read (unit2, *, iostat=ios2) dummy_x, dummy_y, dummy_z
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                if (ios2 /= 0) exit
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                nrows = nrows + 1
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            end do
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            close (unit2)
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            xrows = nrows/yrows
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#ifdef MFC_DEBUG
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    block
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        use iso_fortran_env, only: output_unit
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        print *, 'm_icpp_patches.fpp:275: ', '@:ALLOCATE(x_coords(nrows), y_coords(nrows), stored_values(xRows, yRows, sys_size))'
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        call flush (output_unit)
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    end block
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#endif
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    allocate (x_coords(nrows), y_coords(nrows), stored_values(xrows, yrows, sys_size))
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#if defined(MFC_OpenACC)
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
!$acc enter data create(x_coords, y_coords, stored_values) 
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#elif defined(MFC_OpenMP)
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
!$omp target enter data map(always,alloc:x_coords, y_coords, stored_values) 
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#endif
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            index_x = i
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            index_y = j
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            ! Read all files
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            do f = 1, max_files
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                open (newunit=unit, file=trim(filenames(f)), status='old', action='read', iostat=ios)
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                if (ios /= 0) then
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    if (f == 1) call s_mpi_abort("Error opening file: " // trim(filenames(f)))
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    cycle
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                end if
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                iter = 0
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                do iix = 1, xrows
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    do iiy = 1, yrows
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                        iter = iter + 1
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                        if (f == 1) then
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                            read (unit, *, iostat=ios) x_coords(iter), y_coords(iter), stored_values(iix, iiy, f)
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                        else
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                            read (unit, *, iostat=ios) dummy_x, dummy_y, stored_values(iix, iiy, f)
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                        end if
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                        if (ios /= 0) call s_mpi_abort("Error reading data")
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    end do
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                end do
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                close (unit)
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            end do
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            ! Calculate offsets
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            x_step = x_cc(1) - x_cc(0)
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            y_step = y_cc(1) - y_cc(0)
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            delta_x = x_cc(index_x) - x_coords(1)
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            delta_y = y_cc(index_y) - y_coords(1)
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            global_offset_x = nint(abs(delta_x)/x_step)
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            global_offset_y = nint(abs(delta_y)/y_step)
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        end select
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        files_loaded = .true.
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    end if
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    ! Data assignment
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    select case (num_dims)
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    case (1)
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        idx = i + 1 + global_offset_x
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! idx must land inside the file's row range: this rank's subdomain offset
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! (global_offset_x) was derived from this rank's own grid, so a miss means the
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! IC file is misaligned/mis-sized for the run grid, not a normal boundary case.
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        if (idx < 1 .or. idx > xrows) &
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            & call s_mpi_abort("Hardcoded IC extrusion: row index out of range (IC file misaligned with the run grid)")
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        do f = 1, sys_size
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(f)%sf(i, 0, 0) = stored_values(idx, 1, f)
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        end do
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    case (2)
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        idx = i + 1 + global_offset_x - index_x
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        if (idx < 1 .or. idx > xrows) &
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            & call s_mpi_abort("Hardcoded IC extrusion: row index out of range (IC file misaligned with the run grid)")
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        do f = 1, sys_size - 1
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            jump = merge(1, 0, f >= eqn_idx%mom%end)
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(f + jump)%sf(i, j, 0) = stored_values(idx, 1, f)
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        end do
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        q_prim_vf(eqn_idx%mom%end)%sf(i, j, 0) = 0.0_wp
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    case (3)
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        idx = i + 1 + global_offset_x - index_x
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        idy = j + 1 + global_offset_y - index_y
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        if (idx < 1 .or. idx > xrows .or. idy < 1 .or. idy > yrows) &
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            & call s_mpi_abort("Hardcoded IC extrusion: row/column index out of range (IC file misaligned with the run grid)")
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        do f = 1, sys_size - 1
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            jump = merge(1, 0, f >= eqn_idx%mom%end)
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(f + jump)%sf(i, j, k) = stored_values(idx, idy, f)
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        end do
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        q_prim_vf(eqn_idx%mom%end)%sf(i, j, k) = 0.0_wp
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    end select
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        y_center = y0_ref
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        y_dist = y_cc(j) - y_center
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        wave_phase = 2.0_wp*pi*nwaves*(y_dist/ly_param)
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        front_shift = a_param*sin(wave_phase)
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        x_mapped = x_cc(i) - front_shift
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        if (x_mapped <= x_coords(1)) then
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            do v = 1, sys_size - 1
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                q_prim_vf(v + merge(1, 0, v >= eqn_idx%mom%end))%sf(i, j, 0) = stored_values(1, 1, v)
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            end do
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%mom%end)%sf(i, j, 0) = 0.0_wp
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        else if (x_mapped >= x_coords(xrows)) then
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            do v = 1, sys_size - 1
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                q_prim_vf(v + merge(1, 0, v >= eqn_idx%mom%end))%sf(i, j, 0) = stored_values(xrows, 1, v)
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            end do
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%mom%end)%sf(i, j, 0) = 0.0_wp
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        else
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            idx_lo = 1; idx_hi = xrows
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            do while (idx_hi - idx_lo > 1)
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                idx_mid = (idx_lo + idx_hi)/2
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                if (x_coords(idx_mid) <= x_mapped) then
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    idx_lo = idx_mid
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                else
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    idx_hi = idx_mid
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                end if
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            end do
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            interp_wt = (x_mapped - x_coords(idx_lo))/(x_coords(idx_hi) - x_coords(idx_lo))  ! weight in [0,1)
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            do v = 1, sys_size - 1
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                q_prim_vf(v + merge(1, 0, v >= eqn_idx%mom%end))%sf(i, j, 0) = (1.0_wp - interp_wt)*stored_values(idx_lo, 1, &
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                          & v) + interp_wt*stored_values(idx_hi, 1, v)
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            end do
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%mom%end)%sf(i, j, 0) = 0.0_wp
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        end if
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    case (280)  ! Isentropic vortex
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! This is patch is hard-coded for test suite optimization used in the 2D_isentropicvortex case: This analytic patch uses
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! geometry 2
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        if (patch_id == 1) then
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%E)%sf(i, j, &
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                      & 0) = 1.0*(1.0 - (1.0/1.0)*(5.0/(2.0*pi))*(5.0/(8.0*1.0*(1.4 + 1.0)*pi))*exp(2.0*1.0*(1.0 - (x_cc(i) &
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                      & - patch_icpp(1)%x_centroid)**2.0 - (y_cc(j) - patch_icpp(1)%y_centroid)**2.0)))**(1.4 + 1.0)
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%cont%beg + 0)%sf(i, j, &
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                      & 0) = 1.0*(1.0 - (1.0/1.0)*(5.0/(2.0*pi))*(5.0/(8.0*1.0*(1.4 + 1.0)*pi))*exp(2.0*1.0*(1.0 - (x_cc(i) &
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                      & - patch_icpp(1)%x_centroid)**2.0 - (y_cc(j) - patch_icpp(1)%y_centroid)**2.0)))**1.4
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%mom%beg + 0)%sf(i, j, &
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                      & 0) = patch_icpp(1)%vel(1) + (y_cc(j) - patch_icpp(1)%y_centroid)*(5.0/(2.0*pi))*exp(1.0*(1.0 - (x_cc(i) &
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                      & - patch_icpp(1)%x_centroid)**2.0 - (y_cc(j) - patch_icpp(1)%y_centroid)**2.0))
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%mom%beg + 1)%sf(i, j, &
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                      & 0) = patch_icpp(1)%vel(2) - (x_cc(i) - patch_icpp(1)%x_centroid)*(5.0/(2.0*pi))*exp(1.0*(1.0 - (x_cc(i) &
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                      & - patch_icpp(1)%x_centroid)**2.0 - (y_cc(j) - patch_icpp(1)%y_centroid)**2.0))
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        end if
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    case (281)  ! Acoustic pulse
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! This is patch is hard-coded for test suite optimization used in the 2D_acoustic_pulse case: This analytic patch uses
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! geometry 2
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        if (patch_id == 2) then
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%E)%sf(i, j, &
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                      & 0) = 101325*(1 - 0.5*(1.4 - 1)*(0.4)**2*exp(0.5*(1 - sqrt(x_cc(i)**2 + y_cc(j)**2))))**(1.4/(1.4 - 1))
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%cont%beg + 0)%sf(i, j, &
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                      & 0) = 1*(1 - 0.5*(1.4 - 1)*(0.4)**2*exp(0.5*(1 - sqrt(x_cc(i)**2 + y_cc(j)**2))))**(1/(1.4 - 1))
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        end if
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    case (282)  ! Zero-circulation vortex
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! This is patch is hard-coded for test suite optimization used in the 2D_zero_circ_vortex case: This analytic patch uses
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! geometry 2
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        if (patch_id == 2) then
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%E)%sf(i, j, &
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                      & 0) = 101325*(1 - 0.5*(1.4 - 1)*(0.1/0.3)**2*exp(0.5*(1 - sqrt(x_cc(i)**2 + y_cc(j)**2))))**(1.4/(1.4 - 1))
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%cont%beg + 0)%sf(i, j, &
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                      & 0) = 1*(1 - 0.5*(1.4 - 1)*(0.1/0.3)**2*exp(0.5*(1 - sqrt(x_cc(i)**2 + y_cc(j)**2))))**(1/(1.4 - 1))
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%mom%beg + 0)%sf(i, j, &
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                      & 0) = 112.99092883944267*(1 - (0.1/0.3))*y_cc(j)*exp(0.5*(1 - sqrt(x_cc(i)**2 + y_cc(j)**2)))
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%mom%beg + 1)%sf(i, j, &
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                      & 0) = 112.99092883944267*((0.1/0.3))*x_cc(i)*exp(0.5*(1 - sqrt(x_cc(i)**2 + y_cc(j)**2)))
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        end if
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    case (283)  ! Isentropic vortex: conserved-variable GL cell averages (3-pt tensor product)
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! GL averages of conserved variables (rho, rho*u, rho*v, E) eliminate the O(h^2) error that primitive-variable averaging
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! introduces through the nonlinear prim->cons conversion: cell_avg(rho*u) != cell_avg(rho)*cell_avg(u) by O(h^2). We back
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! out primitive values that reproduce the conserved averages exactly. Vortex strength eps is read from
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! patch_icpp(patch_id)%epsilon; defaults to 5.
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        if (patch_id == 1) then
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            vortex_eps = merge(patch_icpp(patch_id)%epsilon, 5._wp, patch_icpp(patch_id)%epsilon > 0._wp)
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            gauss_xi = [-sqrt(3._wp/5._wp), 0._wp, sqrt(3._wp/5._wp)]
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            gauss_w = [5._wp/9._wp, 8._wp/9._wp, 5._wp/9._wp]
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            rho_avg = 0._wp; rhou_avg = 0._wp; rhov_avg = 0._wp; e_avg = 0._wp
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            do igq = 1, 3
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                do jgq = 1, 3
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    xq = x_cc(i) + gauss_xi(igq)*(x_cb(i) - x_cb(i - 1))*0.5_wp
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    yq = y_cc(j) + gauss_xi(jgq)*(y_cb(j) - y_cb(j - 1))*0.5_wp
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    r2q = (xq - patch_icpp(patch_id)%x_centroid)**2._wp + (yq - patch_icpp(patch_id)%y_centroid)**2._wp
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    t_facq = 1._wp - (vortex_eps/(2._wp*pi))*(vortex_eps/(8._wp*(1.4_wp + 1._wp)*pi))*exp(2._wp*(1._wp - r2q))
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    wq = gauss_w(igq)*gauss_w(jgq)
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    rhoq = t_facq**1.4_wp
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    pq = t_facq**2.4_wp
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    uq = patch_icpp(patch_id)%vel(1) + (yq - patch_icpp(patch_id)%y_centroid)*(vortex_eps/(2._wp*pi))*exp(1._wp &
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                                    & - r2q)
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    vq = patch_icpp(patch_id)%vel(2) - (xq - patch_icpp(patch_id)%x_centroid)*(vortex_eps/(2._wp*pi))*exp(1._wp &
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                                    & - r2q)
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    eq = pq/0.4_wp + 0.5_wp*rhoq*(uq**2 + vq**2)
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    rho_avg = rho_avg + wq*rhoq
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    rhou_avg = rhou_avg + wq*(rhoq*uq)
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    rhov_avg = rhov_avg + wq*(rhoq*vq)
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    e_avg = e_avg + wq*eq
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                end do
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            end do
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            rho_avg = rho_avg*0.25_wp
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            rhou_avg = rhou_avg*0.25_wp
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            rhov_avg = rhov_avg*0.25_wp
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            e_avg = e_avg*0.25_wp
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            ! Back out primitive vars so prim->cons conversion recovers the conserved averages
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%cont%beg)%sf(i, j, 0) = rho_avg
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%mom%beg + 0)%sf(i, j, 0) = rhou_avg/rho_avg
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%mom%beg + 1)%sf(i, j, 0) = rhov_avg/rho_avg
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%E)%sf(i, j, 0) = (e_avg - 0.5_wp*(rhou_avg**2 + rhov_avg**2)/rho_avg)*0.4_wp
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        end if
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    case (291)  ! Isothermal Flat Plate
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        t_inf = 1125.0_wp
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        t_wall = 600.0_wp
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        p_atm = 101325.0_wp
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! Boundary/Shear Layer thicknesses
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        delta_th = 0.0003_wp  ! Thermal BL thickness
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        delta_shear = 8e-3_wp  ! Velocity BL thickness
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        u_max = 50.0_wp  ! Freestream Velocity (m/s)
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        mw_n2 = 28.0134e-3_wp
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        mw_o2 = 31.999e-3_wp
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        y_n2 = 0.767_wp
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        y_o2 = 0.233_wp
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        r_mix = 8.314462618_wp*((y_n2/mw_n2) + (y_o2/mw_o2))
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        bottom_blend_u = tanh(y_cc(j)/delta_shear)
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        bottom_blend_t = tanh(y_cc(j)/delta_th)
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        u_mean = u_max*bottom_blend_u
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        t_loc = t_wall + (t_inf - t_wall)*bottom_blend_t
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        q_prim_vf(eqn_idx%cont%beg)%sf(i, j, 0) = p_atm/(r_mix*t_loc)
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        q_prim_vf(eqn_idx%mom%beg)%sf(i, j, 0) = u_mean
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        q_prim_vf(eqn_idx%mom%end)%sf(i, j, 0) = 0.0_wp
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        q_prim_vf(eqn_idx%E)%sf(i, j, 0) = p_atm
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        q_prim_vf(eqn_idx%species%beg)%sf(i, j, 0) = y_o2
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        q_prim_vf(eqn_idx%species%end)%sf(i, j, 0) = y_n2
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    case default
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        if (proc_rank == 0) then
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            call s_int_to_str(patch_id, istr)
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            call s_mpi_abort("Invalid hcid specified for patch " // trim(istr))
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        end if
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    end select
                    end if
 
                    ! Updating the patch identities bookkeeping variable
                    if (1._wp - eta < sgm_eps) patch_id_fp(i, j, 0) = patch_id
                end if
            end do
        end do
    if (allocated(stored_values)) then
# 283 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#ifdef MFC_DEBUG
# 283 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    block
# 283 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        use iso_fortran_env, only: output_unit
# 283 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 283 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        print *, 'm_icpp_patches.fpp:283: ', '@:DEALLOCATE(stored_values)'
# 283 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 283 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        call flush (output_unit)
# 283 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    end block
# 283 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#endif
# 283 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 283 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#if defined(MFC_OpenACC)
# 283 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
!$acc exit data delete(stored_values) 
# 283 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#elif defined(MFC_OpenMP)
# 283 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
!$omp target exit data map(release:stored_values) 
# 283 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#endif
# 283 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    deallocate (stored_values)
# 283 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#ifdef MFC_DEBUG
# 283 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    block
# 283 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        use iso_fortran_env, only: output_unit
# 283 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 283 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        print *, 'm_icpp_patches.fpp:283: ', '@:DEALLOCATE(x_coords)'
# 283 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 283 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        call flush (output_unit)
# 283 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    end block
# 283 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#endif
# 283 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 283 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#if defined(MFC_OpenACC)
# 283 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
!$acc exit data delete(x_coords) 
# 283 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#elif defined(MFC_OpenMP)
# 283 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
!$omp target exit data map(release:x_coords) 
# 283 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#endif
# 283 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    deallocate (x_coords)
# 283 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    end if
# 283 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 283 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    if (allocated(y_coords)) then
# 283 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#ifdef MFC_DEBUG
# 283 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    block
# 283 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        use iso_fortran_env, only: output_unit
# 283 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 283 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        print *, 'm_icpp_patches.fpp:283: ', '@:DEALLOCATE(y_coords)'
# 283 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 283 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        call flush (output_unit)
# 283 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    end block
# 283 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#endif
# 283 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 283 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#if defined(MFC_OpenACC)
# 283 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
!$acc exit data delete(y_coords) 
# 283 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#elif defined(MFC_OpenMP)
# 283 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
!$omp target exit data map(release:y_coords) 
# 283 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#endif
# 283 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    deallocate (y_coords)
# 283 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    end if
# 283 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 283 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    files_loaded = .false.
# 283 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 283 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    if (allocated(stored_values274)) then
# 283 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#ifdef MFC_DEBUG
# 283 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    block
# 283 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        use iso_fortran_env, only: output_unit
# 283 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 283 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        print *, 'm_icpp_patches.fpp:283: ', '@:DEALLOCATE(stored_values274)'
# 283 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 283 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        call flush (output_unit)
# 283 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    end block
# 283 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#endif
# 283 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 283 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#if defined(MFC_OpenACC)
# 283 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
!$acc exit data delete(stored_values274) 
# 283 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#elif defined(MFC_OpenMP)
# 283 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
!$omp target exit data map(release:stored_values274) 
# 283 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#endif
# 283 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    deallocate (stored_values274)
# 283 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    end if
# 283 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 283 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    files_loaded274 = .false.
 
    end subroutine s_icpp_spiral
 
    !> The circular patch is a 2D geometry that may be used, for example, in creating a bubble or a droplet. The geometry of the
    !! patch is well-defined when its centroid and radius are provided. Note that the circular patch DOES allow for the smoothing of
    !! its boundary.
    subroutine s_icpp_circle(patch_id, patch_id_fp, q_prim_vf)
 
        integer, intent(in) :: patch_id
 
#ifdef MFC_MIXED_PRECISION
        integer(kind=1), dimension(0:m,0:n,0:p), intent(inout) :: patch_id_fp
#else
        integer, dimension(0:m,0:n,0:p), intent(inout) :: patch_id_fp
#endif
        type(scalar_field), dimension(1:sys_size), intent(inout) :: q_prim_vf
        real(wp)                                                 :: radius
        integer                                                  :: i, j, k  !< Generic loop iterators
 
    integer                                 :: xRows, yRows, nRows, iix, iiy, max_files
# 303 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    integer                                 :: f, iter, unit, unit2, idx, idy, index_x, index_y, jump, line_count
# 303 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    real(wp)                                :: x_step, y_step
# 303 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    real(wp)                                :: dummy_x, dummy_y, dummy_z, x0, y0
# 303 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    integer                                 :: global_offset_x, global_offset_y  !< MPI subdomain offset
# 303 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    real(wp)                                :: delta_x, delta_y
# 303 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    character(len=300), dimension(sys_size) :: fileNames                         !< Arrays to store all data from files
# 303 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    real(wp), allocatable                   :: stored_values(:,:,:)
# 303 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    real(wp), allocatable                   :: x_coords(:), y_coords(:)
# 303 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    logical                                 :: files_loaded = .false.
# 303 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    real(wp)                                :: domain_xstart
# 303 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    character(len=20)                       :: file_num_str                      !< For storing the file number as a string
# 303 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    integer                                 :: ios
# 303 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    integer                                 :: ios2
# 303 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 303 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    ! hcid=274 (2dHardcodedIC.fpp): full 2D field from external data, no extrusion.
# 303 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    ! Declared here (not in Hardcoded2DVariables()) so it's visible wherever
# 303 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    ! HardcodedDeallocation() is called, matching the pattern of stored_values/x_coords/
# 303 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    ! y_coords/files_loaded above.
# 303 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    real(wp), allocatable, dimension(:,:,:) :: stored_values274
# 303 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    logical                                 :: files_loaded274 = .false.
# 303 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    integer                                 :: f274, ix274, iy274, unit274, ios274
# 303 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    integer                                 :: local_ix_beg274, local_iy_beg274
# 303 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    character(len=300)                      :: fname274
# 303 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    character(len=20)                       :: file_num_str274
# 303 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    real(wp)                                :: dummy_x274, dummy_y274, dummy_val274, x0_274, y0_274, x_step274, y_step274
# 303 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    real(wp)                                :: file_dx274, file_dy274, r_align274
    ! Place any declaration of intermediate variables here
# 304 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    real(wp) :: eps, eps_mhd, C_mhd
# 304 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    real(wp) :: r, rmax, gam, umax, p0
# 304 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    real(wp) :: rhoH, rhoL, pRef, pInt, h, lam, wl, amp, intH, intL, alph
# 304 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    real(wp) :: factor, x1c, y1c, x2c, y2c, r1c, r2c, cvortex, u1c, u2c, v1c, v2c, rvortex
# 304 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    real(wp) :: r0, alpha, r2
# 304 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    real(wp) :: sinA, cosA
# 304 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    real(wp) :: r_sq
# 304 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 304 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    ! # 283 - Gauss-averaged isentropic vortex (conserved-variable cell averages)
# 304 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    real(wp) :: gauss_xi(3), gauss_w(3), xq, yq, r2q, T_facq, wq
# 304 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    real(wp) :: rho_avg, rhou_avg, rhov_avg, E_avg
# 304 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    real(wp) :: rhoq, pq, uq, vq, Eq, vortex_eps
# 304 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    integer  :: igq, jgq
# 304 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 304 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    ! # 291 - Shear/Thermal Layer Case
# 304 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    real(wp) :: delta_shear, u_max, u_mean
# 304 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    real(wp) :: T_wall, T_inf, P_atm, T_loc
# 304 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    real(wp) :: delta_th, R_mix
# 304 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    real(wp) :: Y_N2, Y_O2, MW_N2, MW_O2
# 304 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    real(wp) :: bottom_blend_u, bottom_blend_T
# 304 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 304 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    ! # 207
# 304 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    real(wp) :: sigma, gauss1, gauss2
# 304 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 304 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    ! # 208
# 304 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    real(wp)            :: ei, d, fsm, alpha_air, alpha_sf6
# 304 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    real(wp)            :: y_center, y_dist, wave_phase, front_shift, x_mapped, interp_wt
# 304 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    integer             :: v, idx_lo, idx_hi, idx_mid
# 304 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    real(wp), parameter :: Ly_param = 0.00775735_wp
# 304 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    real(wp), parameter :: A_param = 0.1_wp*96.9880867_wp*10.0_wp**(-6.0_wp)
# 304 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    integer, parameter  :: Nwaves = 6
# 304 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    real(wp), parameter :: y0_ref = 0.0_wp
# 304 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 304 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    eps = 1.e-9_wp
 
        ! Transferring the circular patch's radius, centroid, smearing patch identity and smearing coefficient information
 
        x_centroid = patch_icpp(patch_id)%x_centroid
        y_centroid = patch_icpp(patch_id)%y_centroid
        radius = patch_icpp(patch_id)%radius
        smooth_patch_id = patch_icpp(patch_id)%smooth_patch_id
        smooth_coeff = patch_icpp(patch_id)%smooth_coeff
 
        ! Initialize eta=1; modified if smoothing is enabled
        eta = 1._wp
 
        ! Assign patch vars if cell is covered and patch has write permission
 
        do j = 0, n
            do i = 0, m
                if (patch_icpp(patch_id)%smoothen) then
                    ! Smooth Heaviside via hyperbolic tangent; smooth_coeff controls interface sharpness
                    eta = tanh(smooth_coeff/min(dx, &
                               & dy)*(sqrt((x_cc(i) - x_centroid)**2 + (y_cc(j) - y_centroid)**2) - radius))*(-0.5_wp) + 0.5_wp
                end if
 
                if ((f_is_inside_cylinder(x_cc(i) - x_centroid, y_cc(j) - y_centroid, 0._wp, radius, &
                    & 0._wp) .and. patch_icpp(patch_id)%alter_patch(patch_id_fp(i, j, 0))) .or. patch_id_fp(i, j, &
                    & 0) == smooth_patch_id) then
                    call s_assign_patch_primitive_variables(patch_id, i, j, 0, eta, q_prim_vf, patch_id_fp)
 
 
                    if (patch_icpp(patch_id)%hcid /= dflt_int) then
    select case (patch_icpp(patch_id)%hcid)  ! 2D_hardcoded_ic example case
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    case (200)  ! Two-fluid cubic interface
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        if (y_cc(j) <= (-x_cc(i)**3 + 1)**(1._wp/3._wp)) then
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%adv%beg)%sf(i, j, 0) = eps
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%adv%end)%sf(i, j, 0) = 1._wp - eps
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%cont%beg)%sf(i, j, 0) = eps*1000._wp
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%cont%end)%sf(i, j, 0) = (1._wp - eps)*1._wp
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%E)%sf(i, j, 0) = 1000._wp
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        end if
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    case (202)  ! Gresho vortex (Gouasmi et al 2022 JCP)
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        r = ((x_cc(i) - 0.5_wp)**2 + (y_cc(j) - 0.5_wp)**2)**0.5_wp
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        rmax = 0.2_wp
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        gam = 1._wp + 1._wp/fluid_pp(1)%gamma
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        umax = 2*pi*rmax*patch_icpp(patch_id)%vel(2)
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        p0 = umax**2*(1._wp/(gam*patch_icpp(patch_id)%vel(2)**2) - 0.5_wp)
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        if (r < rmax) then
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%mom%beg)%sf(i, j, 0) = -(y_cc(j) - 0.5_wp)*umax/rmax
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%mom%end)%sf(i, j, 0) = (x_cc(i) - 0.5_wp)*umax/rmax
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%E)%sf(i, j, 0) = p0 + umax**2*((r/rmax)**2._wp/2._wp)
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        else if (r < 2*rmax) then
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%mom%beg)%sf(i, j, 0) = -((y_cc(j) - 0.5_wp)/r)*umax*(2._wp - r/rmax)
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%mom%end)%sf(i, j, 0) = ((x_cc(i) - 0.5_wp)/r)*umax*(2._wp - r/rmax)
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%E)%sf(i, j, 0) = p0 + umax**2*((r/rmax)**2/2._wp + 4*(1 - (r/rmax) + log(r/rmax)))
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        else
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%mom%beg)%sf(i, j, 0) = 0._wp
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%mom%end)%sf(i, j, 0) = 0._wp
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%E)%sf(i, j, 0) = p0 + umax**2*(-2 + 4*log(2._wp))
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        end if
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    case (203)  ! Gresho vortex (Gouasmi et al 2022 JCP) with density correction
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        r = ((x_cc(i) - 0.5_wp)**2._wp + (y_cc(j) - 0.5_wp)**2)**0.5_wp
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        rmax = 0.2_wp
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        gam = 1._wp + 1._wp/fluid_pp(1)%gamma
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        umax = 2*pi*rmax*patch_icpp(patch_id)%vel(2)
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        p0 = umax**2*(1._wp/(gam*patch_icpp(patch_id)%vel(2)**2) - 0.5_wp)
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        if (r < rmax) then
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%mom%beg)%sf(i, j, 0) = -(y_cc(j) - 0.5_wp)*umax/rmax
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%mom%end)%sf(i, j, 0) = (x_cc(i) - 0.5_wp)*umax/rmax
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%E)%sf(i, j, 0) = p0 + umax**2*((r/rmax)**2._wp/2._wp)
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        else if (r < 2*rmax) then
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%mom%beg)%sf(i, j, 0) = -((y_cc(j) - 0.5_wp)/r)*umax*(2._wp - r/rmax)
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%mom%end)%sf(i, j, 0) = ((x_cc(i) - 0.5_wp)/r)*umax*(2._wp - r/rmax)
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%E)%sf(i, j, 0) = p0 + umax**2*((r/rmax)**2/2._wp + 4._wp*(1._wp - (r/rmax) + log(r/rmax)))
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        else
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%mom%beg)%sf(i, j, 0) = 0._wp
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%mom%end)%sf(i, j, 0) = 0._wp
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%E)%sf(i, j, 0) = p0 + umax**2._wp*(-2._wp + 4*log(2._wp))
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        end if
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        q_prim_vf(eqn_idx%cont%beg)%sf(i, j, 0) = q_prim_vf(eqn_idx%E)%sf(i, j, 0)**(1._wp/gam)
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    case (204)  ! Rayleigh-Taylor instability
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        rhoh = 3._wp
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        rhol = 1._wp
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        pref = 1.e5_wp
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        pint = pref
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        h = 0.7_wp
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        lam = 0.2_wp
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        wl = 2._wp*pi/lam
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        amp = 0.05_wp/wl
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        inth = amp*sin(2._wp*pi*x_cc(i)/lam - pi/2._wp) + h
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        alph = 0.5_wp*(1._wp + tanh((y_cc(j) - inth)/2.5e-3_wp))
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        if (alph < eps) alph = eps
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        if (alph > 1._wp - eps) alph = 1._wp - eps
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        if (y_cc(j) > inth) then
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%adv%beg)%sf(i, j, 0) = alph
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%adv%end)%sf(i, j, 0) = 1._wp - alph
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%cont%beg)%sf(i, j, 0) = alph*rhoh
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%cont%end)%sf(i, j, 0) = (1._wp - alph)*rhol
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%E)%sf(i, j, 0) = pref + rhoh*9.81_wp*(1.2_wp - y_cc(j))
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        else
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%adv%beg)%sf(i, j, 0) = alph
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%adv%end)%sf(i, j, 0) = 1._wp - alph
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%cont%beg)%sf(i, j, 0) = alph*rhoh
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%cont%end)%sf(i, j, 0) = (1._wp - alph)*rhol
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            pint = pref + rhoh*9.81_wp*(1.2_wp - inth)
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%E)%sf(i, j, 0) = pint + rhol*9.81_wp*(inth - y_cc(j))
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        end if
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    case (205)  ! 2D lung wave interaction problem
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        h = 0.0_wp  ! non dim origin y
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        lam = 1.0_wp  ! non dim lambda
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        amp = patch_icpp(patch_id)%a(2)  ! to be changed later!       !non dim amplitude
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        inth = amp*sin(2*pi*x_cc(i)/lam - pi/2) + h
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        if (y_cc(j) > inth) then
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%cont%beg)%sf(i, j, 0) = patch_icpp(1)%alpha_rho(1)
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%cont%end)%sf(i, j, 0) = patch_icpp(1)%alpha_rho(2)
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%E)%sf(i, j, 0) = patch_icpp(1)%pres
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%adv%beg)%sf(i, j, 0) = patch_icpp(1)%alpha(1)
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%adv%end)%sf(i, j, 0) = patch_icpp(1)%alpha(2)
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        end if
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    case (206)  ! 2D lung wave interaction problem - horizontal domain
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        h = 0.0_wp  ! non dim origin y
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        lam = 1.0_wp  ! non dim lambda
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        amp = patch_icpp(patch_id)%a(2)
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        intl = amp*sin(2*pi*y_cc(j)/lam - pi/2) + h
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        if (x_cc(i) > intl) then  ! this is the liquid
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%cont%beg)%sf(i, j, 0) = patch_icpp(1)%alpha_rho(1)
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%cont%end)%sf(i, j, 0) = patch_icpp(1)%alpha_rho(2)
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%E)%sf(i, j, 0) = patch_icpp(1)%pres
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%adv%beg)%sf(i, j, 0) = patch_icpp(1)%alpha(1)
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%adv%end)%sf(i, j, 0) = patch_icpp(1)%alpha(2)
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        end if
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    case (207)  ! Kelvin Helmholtz Instability
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        sigma = 0.05_wp/sqrt(2.0_wp)
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        gauss1 = exp(-(y_cc(j) - 0.75_wp)**2/(2.0_wp*sigma**2))
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        gauss2 = exp(-(y_cc(j) - 0.25_wp)**2/(2.0_wp*sigma**2))
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        q_prim_vf(eqn_idx%mom%beg + 1)%sf(i, j, 0) = 0.1_wp*sin(4.0_wp*pi*x_cc(i))*(gauss1 + gauss2)
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    case (208)  ! Richtmeyer Meshkov Instability
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        lam = 1.0_wp
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        eps = 1.0e-6_wp
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ei = 5.0_wp
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! Smoothening function to smooth out sharp discontinuity in the interface
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        if (x_cc(i) <= 0.7_wp*lam) then
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            d = x_cc(i) - lam*(0.4_wp - 0.1_wp*sin(2.0_wp*pi*(y_cc(j)/lam + 0.25_wp)))
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            fsm = 0.5_wp*(1.0_wp + erf(d/(ei*sqrt(dx*dy))))
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            alpha_air = eps + (1.0_wp - 2.0_wp*eps)*fsm
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            alpha_sf6 = 1.0_wp - alpha_air
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%cont%beg)%sf(i, j, 0) = alpha_sf6*5.04_wp
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%cont%end)%sf(i, j, 0) = alpha_air*1.0_wp
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%adv%beg)%sf(i, j, 0) = alpha_sf6
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%adv%end)%sf(i, j, 0) = alpha_air
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        end if
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    case (250)  ! MHD Orszag-Tang vortex
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! gamma = 5/3 rho = 25/(36*pi) p = 5/(12*pi) v = (-sin(2*pi*y), sin(2*pi*x), 0) B = (-sin(2*pi*y)/sqrt(4*pi),
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! sin(4*pi*x)/sqrt(4*pi), 0)
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        q_prim_vf(eqn_idx%mom%beg)%sf(i, j, 0) = -sin(2._wp*pi*y_cc(j))
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        q_prim_vf(eqn_idx%mom%beg + 1)%sf(i, j, 0) = sin(2._wp*pi*x_cc(i))
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        q_prim_vf(eqn_idx%B%beg)%sf(i, j, 0) = -sin(2._wp*pi*y_cc(j))/sqrt(4._wp*pi)
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        q_prim_vf(eqn_idx%B%beg + 1)%sf(i, j, 0) = sin(4._wp*pi*x_cc(i))/sqrt(4._wp*pi)
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    case (251)  ! RMHD Cylindrical Blast Wave [Mignone, 2006: Section 4.3.1]
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        if (x_cc(i)**2 + y_cc(j)**2 < 0.08_wp**2) then
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%cont%beg)%sf(i, j, 0) = 0.01
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%E)%sf(i, j, 0) = 1.0
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        else if (x_cc(i)**2 + y_cc(j)**2 <= 1._wp**2) then
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            ! Linear interpolation between r=0.08 and r=1.0
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            factor = (1.0_wp - sqrt(x_cc(i)**2 + y_cc(j)**2))/(1.0_wp - 0.08_wp)
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%cont%beg)%sf(i, j, 0) = 0.01_wp*factor + 1.e-4_wp*(1.0_wp - factor)
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%E)%sf(i, j, 0) = 1.0_wp*factor + 3.e-5_wp*(1.0_wp - factor)
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        else
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%cont%beg)%sf(i, j, 0) = 1.e-4_wp
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%E)%sf(i, j, 0) = 3.e-5_wp
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        end if
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! case 252 is for the 2D MHD Rotor problem
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    case (252)  ! 2D MHD Rotor Problem
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! Ambient conditions are set in the JSON file. This case imposes the dense, rotating cylinder.
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        !
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! gamma = 1.4 Ambient medium (r > 0.1): rho = 1, p = 1, v = 0, B = (1,0,0) Rotor (r <= 0.1): rho = 10, p = 1 v has angular
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! velocity w=20, giving v_tan=2 at r=0.1
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! Calculate distance squared from the center
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        r_sq = (x_cc(i) - 0.5_wp)**2 + (y_cc(j) - 0.5_wp)**2
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! inner radius of 0.1
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        if (r_sq <= 0.1**2) then
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            ! -- Inside the rotor -- Set density uniformly to 10
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%cont%beg)%sf(i, j, 0) = 10._wp
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            ! Set vup constant rotation of rate v=2 v_x = -omega * (y - y_c) v_y = omega * (x - x_c)
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%mom%beg)%sf(i, j, 0) = -20._wp*(y_cc(j) - 0.5_wp)
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%mom%beg + 1)%sf(i, j, 0) = 20._wp*(x_cc(i) - 0.5_wp)
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            ! taper width of 0.015
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        else if (r_sq <= 0.115**2) then
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            ! linearly smooth the function between r = 0.1 and 0.115
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%cont%beg)%sf(i, j, 0) = 1._wp + 9._wp*(0.115_wp - sqrt(r_sq))/(0.015_wp)
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%mom%beg)%sf(i, j, 0) = -(2._wp/sqrt(r_sq))*(y_cc(j) - 0.5_wp)*(0.115_wp - sqrt(r_sq))/(0.015_wp)
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%mom%beg + 1)%sf(i, j, 0) = (2._wp/sqrt(r_sq))*(x_cc(i) - 0.5_wp)*(0.115_wp - sqrt(r_sq))/(0.015_wp)
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        end if
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    case (253)  ! MHD Smooth Magnetic Vortex
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! Section 5.2 of Implicit hybridized discontinuous Galerkin methods for compressible magnetohydrodynamics C. Ciuca, P.
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! Fernandez, A. Christophe, N.C. Nguyen, J. Peraire
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! velocity
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        q_prim_vf(eqn_idx%mom%beg)%sf(i, j, 0) = 1._wp - (y_cc(j)*exp(1 - (x_cc(i)**2 + y_cc(j)**2))/(2.*pi))
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        q_prim_vf(eqn_idx%mom%beg + 1)%sf(i, j, 0) = 1._wp + (x_cc(i)*exp(1 - (x_cc(i)**2 + y_cc(j)**2))/(2.*pi))
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! magnetic field
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        q_prim_vf(eqn_idx%B%beg)%sf(i, j, 0) = -y_cc(j)*exp(1 - (x_cc(i)**2 + y_cc(j)**2))/(2.*pi)
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        q_prim_vf(eqn_idx%B%beg + 1)%sf(i, j, 0) = x_cc(i)*exp(1 - (x_cc(i)**2 + y_cc(j)**2))/(2.*pi)
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! pressure
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        q_prim_vf(eqn_idx%E)%sf(i, j, &
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                  & 0) = 1._wp + (1 - 2._wp*(x_cc(i)**2 + y_cc(j)**2))*exp(1 - (x_cc(i)**2 + y_cc(j)**2))/((2._wp*pi)**3)
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    case (260)  ! Gaussian Divergence Pulse
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! Bx(x) = 1 + C * erf((x-0.5)/\sigma) => \partialBx/\partialx = C * (2/\sqrt\pi) * exp[-((x-0.5)/\sigma)**2] * (1/\sigma)
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! Choose C = \epsilon * \sigma * \sqrt\pi / 2 => \partialBx/\partialx = \epsilon * exp[-((x-0.5)/\sigma)**2] \psi is
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! initialized to zero everywhere.
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        eps_mhd = patch_icpp(patch_id)%a(2)
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        sigma = patch_icpp(patch_id)%a(3)
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        c_mhd = eps_mhd*sigma*sqrt(pi)*0.5_wp
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! B-field
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        q_prim_vf(eqn_idx%B%beg)%sf(i, j, 0) = 1._wp + c_mhd*erf((x_cc(i) - 0.5_wp)/sigma)
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    case (261)  ! Blob
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        r0 = 1._wp/sqrt(8._wp)
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        r2 = x_cc(i)**2 + y_cc(j)**2
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        r = sqrt(r2)
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        alpha = r/r0
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        if (alpha < 1) then
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%B%beg)%sf(i, j, 0) = 1._wp/sqrt(4._wp*pi)*(alpha**8 - 2._wp*alpha**4 + 1._wp)
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            ! q_prim_vf(eqn_idx%B%beg)%sf(i,j,0) = 1._wp/sqrt(4000._wp*pi) * (4096._wp*r2**4 - 128._wp*r2**2 + 1._wp)
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            ! q_prim_vf(eqn_idx%B%beg)%sf(i,j,0) = 1._wp/(4._wp*pi) * (alpha**8 - 2._wp*alpha**4 + 1._wp)
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            ! q_prim_vf(eqn_idx%E)%sf(i,j,0) = 6._wp - q_prim_vf(eqn_idx%B%beg)%sf(i,j,0)**2/2._wp
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        end if
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    case (262)  ! Tilted 2D MHD shock-tube at \alpha = arctan2 (\approx63.4 deg)
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! rotate by \alpha = atan(2)
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        alpha = atan(2._wp)
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        cosa = cos(alpha)
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        sina = sin(alpha)
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! projection along shock normal
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        r = x_cc(i)*cosa + y_cc(j)*sina
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        if (r <= 0.5_wp) then
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            ! LEFT state: \rho=1, v\parallel=+10, v\perp=0, p=20, B\parallel=B\perp=5/\sqrt(4\pi)
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%cont%beg)%sf(i, j, 0) = 1._wp
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%mom%beg)%sf(i, j, 0) = 10._wp*cosa
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%mom%beg + 1)%sf(i, j, 0) = 10._wp*sina
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%E)%sf(i, j, 0) = 20._wp
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%B%beg)%sf(i, j, 0) = (5._wp/sqrt(4._wp*pi))*cosa - (5._wp/sqrt(4._wp*pi))*sina
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%B%beg + 1)%sf(i, j, 0) = (5._wp/sqrt(4._wp*pi))*sina + (5._wp/sqrt(4._wp*pi))*cosa
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        else
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            ! RIGHT state: \rho=1, v\parallel=-10, v\perp=0, p=1, B\parallel=B\perp=5/\sqrt(4\pi)
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%cont%beg)%sf(i, j, 0) = 1._wp
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%mom%beg)%sf(i, j, 0) = -10._wp*cosa
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%mom%beg + 1)%sf(i, j, 0) = -10._wp*sina
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%E)%sf(i, j, 0) = 1._wp
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%B%beg)%sf(i, j, 0) = (5._wp/sqrt(4._wp*pi))*cosa - (5._wp/sqrt(4._wp*pi))*sina
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%B%beg + 1)%sf(i, j, 0) = (5._wp/sqrt(4._wp*pi))*sina + (5._wp/sqrt(4._wp*pi))*cosa
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        end if
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! v^z and B^z remain zero by default
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    case (270)  ! 2D extrusion of 1D profile from external data
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! This hardcoded case extrudes a 1D profile to initialize a 2D simulation domain
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    if (.not. files_loaded) then
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        max_files = merge(sys_size, sys_size - 1, num_dims == 1)
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        do f = 1, max_files
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            write (file_num_str, '(I0)') f
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            filenames(f) = trim(files_dir) // "/" // "prim." // trim(file_num_str) // ".00." // trim(file_extension) // ".dat"
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        end do
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! Common file reading setup
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        open (newunit=unit2, file=trim(filenames(1)), status='old', action='read', iostat=ios2)
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        if (ios2 /= 0) call s_mpi_abort("Error opening file: " // trim(filenames(1)))
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        select case (num_dims)
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        case (1, 2)  ! 1D and 2D cases are similar
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            ! Count lines
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            line_count = 0
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            do
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                read (unit2, *, iostat=ios2) dummy_x, dummy_y
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                if (ios2 /= 0) exit
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                line_count = line_count + 1
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            end do
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            close (unit2)
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            xrows = line_count
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            yrows = 1
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            index_x = 0
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            if (num_dims == 2) index_x = i
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#ifdef MFC_DEBUG
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    block
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        use iso_fortran_env, only: output_unit
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        print *, 'm_icpp_patches.fpp:334: ', '@:ALLOCATE(x_coords(xRows), stored_values(xRows, 1, sys_size))'
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        call flush (output_unit)
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    end block
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#endif
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    allocate (x_coords(xrows), stored_values(xrows, 1, sys_size))
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#if defined(MFC_OpenACC)
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
!$acc enter data create(x_coords, stored_values) 
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#elif defined(MFC_OpenMP)
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
!$omp target enter data map(always,alloc:x_coords, stored_values) 
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#endif
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            ! Read data from all files
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            do f = 1, max_files
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                open (newunit=unit, file=trim(filenames(f)), status='old', action='read', iostat=ios)
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                if (ios /= 0) call s_mpi_abort("Error opening file: " // trim(filenames(f)))
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                do iter = 1, xrows
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    read (unit, *, iostat=ios) x_coords(iter), stored_values(iter, 1, f)
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    if (ios /= 0) call s_mpi_abort("Error reading file: " // trim(filenames(f)))
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                end do
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                close (unit)
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            end do
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            ! Calculate offsets
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            domain_xstart = x_coords(1)
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            x_step = x_cc(1) - x_cc(0)
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            delta_x = merge(x_cc(0) - domain_xstart, x_cc(index_x) - domain_xstart, num_dims == 1)
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            global_offset_x = nint(abs(delta_x)/x_step)
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        case (3)  ! 3D case - determine grid structure
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            ! Find yRows by counting rows with same x
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            read (unit2, *, iostat=ios2) x0, y0, dummy_z
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            if (ios2 /= 0) call s_mpi_abort("Error reading first line")
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            yrows = 1
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            do
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                read (unit2, *, iostat=ios2) dummy_x, dummy_y, dummy_z
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                if (ios2 /= 0) exit
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                if (f_approx_equal(dummy_x, x0) .and. (.not. f_approx_equal(dummy_y, y0))) then
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    yrows = yrows + 1
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                else
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    exit
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                end if
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            end do
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            close (unit2)
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            ! Count total rows
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            open (newunit=unit2, file=trim(filenames(1)), status='old', action='read', iostat=ios2)
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            nrows = 0
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            do
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                read (unit2, *, iostat=ios2) dummy_x, dummy_y, dummy_z
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                if (ios2 /= 0) exit
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                nrows = nrows + 1
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            end do
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            close (unit2)
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            xrows = nrows/yrows
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#ifdef MFC_DEBUG
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    block
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        use iso_fortran_env, only: output_unit
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        print *, 'm_icpp_patches.fpp:334: ', '@:ALLOCATE(x_coords(nrows), y_coords(nrows), stored_values(xRows, yRows, sys_size))'
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        call flush (output_unit)
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    end block
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#endif
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    allocate (x_coords(nrows), y_coords(nrows), stored_values(xrows, yrows, sys_size))
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#if defined(MFC_OpenACC)
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
!$acc enter data create(x_coords, y_coords, stored_values) 
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#elif defined(MFC_OpenMP)
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
!$omp target enter data map(always,alloc:x_coords, y_coords, stored_values) 
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#endif
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            index_x = i
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            index_y = j
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            ! Read all files
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            do f = 1, max_files
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                open (newunit=unit, file=trim(filenames(f)), status='old', action='read', iostat=ios)
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                if (ios /= 0) then
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    if (f == 1) call s_mpi_abort("Error opening file: " // trim(filenames(f)))
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    cycle
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                end if
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                iter = 0
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                do iix = 1, xrows
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    do iiy = 1, yrows
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                        iter = iter + 1
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                        if (f == 1) then
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                            read (unit, *, iostat=ios) x_coords(iter), y_coords(iter), stored_values(iix, iiy, f)
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                        else
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                            read (unit, *, iostat=ios) dummy_x, dummy_y, stored_values(iix, iiy, f)
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                        end if
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                        if (ios /= 0) call s_mpi_abort("Error reading data")
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    end do
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                end do
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                close (unit)
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            end do
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            ! Calculate offsets
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            x_step = x_cc(1) - x_cc(0)
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            y_step = y_cc(1) - y_cc(0)
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            delta_x = x_cc(index_x) - x_coords(1)
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            delta_y = y_cc(index_y) - y_coords(1)
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            global_offset_x = nint(abs(delta_x)/x_step)
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            global_offset_y = nint(abs(delta_y)/y_step)
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        end select
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        files_loaded = .true.
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    end if
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    ! Data assignment
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    select case (num_dims)
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    case (1)
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        idx = i + 1 + global_offset_x
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! idx must land inside the file's row range: this rank's subdomain offset
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! (global_offset_x) was derived from this rank's own grid, so a miss means the
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! IC file is misaligned/mis-sized for the run grid, not a normal boundary case.
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        if (idx < 1 .or. idx > xrows) &
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            & call s_mpi_abort("Hardcoded IC extrusion: row index out of range (IC file misaligned with the run grid)")
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        do f = 1, sys_size
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(f)%sf(i, 0, 0) = stored_values(idx, 1, f)
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        end do
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    case (2)
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        idx = i + 1 + global_offset_x - index_x
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        if (idx < 1 .or. idx > xrows) &
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            & call s_mpi_abort("Hardcoded IC extrusion: row index out of range (IC file misaligned with the run grid)")
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        do f = 1, sys_size - 1
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            jump = merge(1, 0, f >= eqn_idx%mom%end)
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(f + jump)%sf(i, j, 0) = stored_values(idx, 1, f)
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        end do
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        q_prim_vf(eqn_idx%mom%end)%sf(i, j, 0) = 0.0_wp
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    case (3)
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        idx = i + 1 + global_offset_x - index_x
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        idy = j + 1 + global_offset_y - index_y
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        if (idx < 1 .or. idx > xrows .or. idy < 1 .or. idy > yrows) &
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            & call s_mpi_abort("Hardcoded IC extrusion: row/column index out of range (IC file misaligned with the run grid)")
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        do f = 1, sys_size - 1
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            jump = merge(1, 0, f >= eqn_idx%mom%end)
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(f + jump)%sf(i, j, k) = stored_values(idx, idy, f)
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        end do
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        q_prim_vf(eqn_idx%mom%end)%sf(i, j, k) = 0.0_wp
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    end select
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    case (273)  ! Temporal reacting mixing layer: 2D extrusion + streamwise velocity
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! @:HardcodedReadValues() always zeros mom%end (the extruded-axis velocity).
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! The mom%beg file slot is repurposed to carry the streamwise-velocity-vs-
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! cross-stream-position profile (real cross-stream velocity is legitimately
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! zero everywhere in the unperturbed base state), so swap it into mom%end and
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! zero out mom%beg's true physical value.
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    if (.not. files_loaded) then
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        max_files = merge(sys_size, sys_size - 1, num_dims == 1)
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        do f = 1, max_files
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            write (file_num_str, '(I0)') f
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            filenames(f) = trim(files_dir) // "/" // "prim." // trim(file_num_str) // ".00." // trim(file_extension) // ".dat"
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        end do
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! Common file reading setup
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        open (newunit=unit2, file=trim(filenames(1)), status='old', action='read', iostat=ios2)
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        if (ios2 /= 0) call s_mpi_abort("Error opening file: " // trim(filenames(1)))
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        select case (num_dims)
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        case (1, 2)  ! 1D and 2D cases are similar
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            ! Count lines
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            line_count = 0
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            do
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                read (unit2, *, iostat=ios2) dummy_x, dummy_y
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                if (ios2 /= 0) exit
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                line_count = line_count + 1
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            end do
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            close (unit2)
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            xrows = line_count
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            yrows = 1
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            index_x = 0
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            if (num_dims == 2) index_x = i
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#ifdef MFC_DEBUG
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    block
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        use iso_fortran_env, only: output_unit
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        print *, 'm_icpp_patches.fpp:334: ', '@:ALLOCATE(x_coords(xRows), stored_values(xRows, 1, sys_size))'
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        call flush (output_unit)
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    end block
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#endif
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    allocate (x_coords(xrows), stored_values(xrows, 1, sys_size))
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#if defined(MFC_OpenACC)
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
!$acc enter data create(x_coords, stored_values) 
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#elif defined(MFC_OpenMP)
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
!$omp target enter data map(always,alloc:x_coords, stored_values) 
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#endif
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            ! Read data from all files
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            do f = 1, max_files
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                open (newunit=unit, file=trim(filenames(f)), status='old', action='read', iostat=ios)
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                if (ios /= 0) call s_mpi_abort("Error opening file: " // trim(filenames(f)))
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                do iter = 1, xrows
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    read (unit, *, iostat=ios) x_coords(iter), stored_values(iter, 1, f)
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    if (ios /= 0) call s_mpi_abort("Error reading file: " // trim(filenames(f)))
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                end do
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                close (unit)
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            end do
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            ! Calculate offsets
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            domain_xstart = x_coords(1)
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            x_step = x_cc(1) - x_cc(0)
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            delta_x = merge(x_cc(0) - domain_xstart, x_cc(index_x) - domain_xstart, num_dims == 1)
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            global_offset_x = nint(abs(delta_x)/x_step)
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        case (3)  ! 3D case - determine grid structure
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            ! Find yRows by counting rows with same x
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            read (unit2, *, iostat=ios2) x0, y0, dummy_z
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            if (ios2 /= 0) call s_mpi_abort("Error reading first line")
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            yrows = 1
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            do
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                read (unit2, *, iostat=ios2) dummy_x, dummy_y, dummy_z
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                if (ios2 /= 0) exit
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                if (f_approx_equal(dummy_x, x0) .and. (.not. f_approx_equal(dummy_y, y0))) then
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    yrows = yrows + 1
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                else
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    exit
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                end if
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            end do
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            close (unit2)
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            ! Count total rows
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            open (newunit=unit2, file=trim(filenames(1)), status='old', action='read', iostat=ios2)
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            nrows = 0
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            do
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                read (unit2, *, iostat=ios2) dummy_x, dummy_y, dummy_z
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                if (ios2 /= 0) exit
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                nrows = nrows + 1
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            end do
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            close (unit2)
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            xrows = nrows/yrows
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#ifdef MFC_DEBUG
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    block
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        use iso_fortran_env, only: output_unit
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        print *, 'm_icpp_patches.fpp:334: ', '@:ALLOCATE(x_coords(nrows), y_coords(nrows), stored_values(xRows, yRows, sys_size))'
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        call flush (output_unit)
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    end block
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#endif
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    allocate (x_coords(nrows), y_coords(nrows), stored_values(xrows, yrows, sys_size))
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#if defined(MFC_OpenACC)
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
!$acc enter data create(x_coords, y_coords, stored_values) 
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#elif defined(MFC_OpenMP)
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
!$omp target enter data map(always,alloc:x_coords, y_coords, stored_values) 
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#endif
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            index_x = i
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            index_y = j
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            ! Read all files
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            do f = 1, max_files
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                open (newunit=unit, file=trim(filenames(f)), status='old', action='read', iostat=ios)
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                if (ios /= 0) then
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    if (f == 1) call s_mpi_abort("Error opening file: " // trim(filenames(f)))
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    cycle
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                end if
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                iter = 0
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                do iix = 1, xrows
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    do iiy = 1, yrows
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                        iter = iter + 1
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                        if (f == 1) then
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                            read (unit, *, iostat=ios) x_coords(iter), y_coords(iter), stored_values(iix, iiy, f)
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                        else
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                            read (unit, *, iostat=ios) dummy_x, dummy_y, stored_values(iix, iiy, f)
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                        end if
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                        if (ios /= 0) call s_mpi_abort("Error reading data")
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    end do
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                end do
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                close (unit)
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            end do
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            ! Calculate offsets
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            x_step = x_cc(1) - x_cc(0)
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            y_step = y_cc(1) - y_cc(0)
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            delta_x = x_cc(index_x) - x_coords(1)
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            delta_y = y_cc(index_y) - y_coords(1)
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            global_offset_x = nint(abs(delta_x)/x_step)
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            global_offset_y = nint(abs(delta_y)/y_step)
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        end select
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        files_loaded = .true.
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    end if
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    ! Data assignment
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    select case (num_dims)
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    case (1)
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        idx = i + 1 + global_offset_x
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! idx must land inside the file's row range: this rank's subdomain offset
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! (global_offset_x) was derived from this rank's own grid, so a miss means the
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! IC file is misaligned/mis-sized for the run grid, not a normal boundary case.
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        if (idx < 1 .or. idx > xrows) &
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            & call s_mpi_abort("Hardcoded IC extrusion: row index out of range (IC file misaligned with the run grid)")
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        do f = 1, sys_size
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(f)%sf(i, 0, 0) = stored_values(idx, 1, f)
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        end do
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    case (2)
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        idx = i + 1 + global_offset_x - index_x
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        if (idx < 1 .or. idx > xrows) &
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            & call s_mpi_abort("Hardcoded IC extrusion: row index out of range (IC file misaligned with the run grid)")
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        do f = 1, sys_size - 1
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            jump = merge(1, 0, f >= eqn_idx%mom%end)
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(f + jump)%sf(i, j, 0) = stored_values(idx, 1, f)
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        end do
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        q_prim_vf(eqn_idx%mom%end)%sf(i, j, 0) = 0.0_wp
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    case (3)
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        idx = i + 1 + global_offset_x - index_x
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        idy = j + 1 + global_offset_y - index_y
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        if (idx < 1 .or. idx > xrows .or. idy < 1 .or. idy > yrows) &
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            & call s_mpi_abort("Hardcoded IC extrusion: row/column index out of range (IC file misaligned with the run grid)")
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        do f = 1, sys_size - 1
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            jump = merge(1, 0, f >= eqn_idx%mom%end)
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(f + jump)%sf(i, j, k) = stored_values(idx, idy, f)
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        end do
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        q_prim_vf(eqn_idx%mom%end)%sf(i, j, k) = 0.0_wp
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    end select
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        q_prim_vf(eqn_idx%mom%end)%sf(i, j, 0) = q_prim_vf(eqn_idx%mom%beg)%sf(i, j, 0)
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        q_prim_vf(eqn_idx%mom%beg)%sf(i, j, 0) = 0.0_wp
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    case (274)  ! Full 2D field from external data (no extrusion)
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! Unlike case(270-273), this reads a genuinely 2D (x,y) field per variable, with no
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! extrusion direction and no zeroed component -- all sys_size variables are read and
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! assigned directly. Data files must have exactly (m_glb+1)*(n_glb+1) lines per
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! variable, in x-major order (outer loop x, inner loop y), matching this rank's
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! global grid exactly -- by construction, since the IC generator derives both the
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! grid and the file contents from the same computation.
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        !
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! A local cell's global (x, y) index is derived from x_cc(i)/y_cc(j) against the
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! file's own first coordinate and this rank's uniform grid spacing -- following the
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! same pattern as case(270)'s global_offset_x/y above -- rather than from start_idx:
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! start_idx is only allocated when parallel_io=T (s_initialize_parallel_io_common
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! returns before allocating it otherwise), so a serial-IO run (the default for
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! golden-file tests) would index into an unallocated array.
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        !
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! Every rank still scans the whole file (matching case(270)'s existing per-rank-reads-
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! everything pattern), but stored_values274 only holds this rank's LOCAL (0:m, 0:n)
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! slice rather than the full global grid -- a full-grid copy on every rank would scale
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! as O(m_glb*n_glb*sys_size) per rank, which is the wrong axis to duplicate work on for
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! a genuinely 2D (not 1D-profile) field. local_ix_beg274/local_iy_beg274 (this rank's
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! global cell offset) are pinned from f274==1's very first record, before any other
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! record is read, so every subsequent record -- across all variables -- can be tested
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! against this rank's range and dropped if it falls outside it.
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        x_step274 = x_cc(1) - x_cc(0)
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        y_step274 = y_cc(1) - y_cc(0)
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        if (.not. files_loaded274) then
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#ifdef MFC_DEBUG
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    block
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        use iso_fortran_env, only: output_unit
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        print *, 'm_icpp_patches.fpp:334: ', '@:ALLOCATE(stored_values274(0:m, 0:n, sys_size))'
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        call flush (output_unit)
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    end block
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#endif
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    allocate (stored_values274(0:m, 0:n, sys_size))
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#if defined(MFC_OpenACC)
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
!$acc enter data create(stored_values274) 
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#elif defined(MFC_OpenMP)
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
!$omp target enter data map(always,alloc:stored_values274) 
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#endif
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            do f274 = 1, sys_size
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                write (file_num_str274, '(I0)') f274
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                fname274 = trim(files_dir) // "/prim." // trim(file_num_str274) // ".00." // trim(file_extension) // ".dat"
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                open (newunit=unit274, file=trim(fname274), status='old', action='read', iostat=ios274)
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                if (ios274 /= 0) call s_mpi_abort("Error opening file: " // trim(fname274))
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                do ix274 = 0, m_glb
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    do iy274 = 0, n_glb
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                        read (unit274, *, iostat=ios274) dummy_x274, dummy_y274, dummy_val274
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                        if (ios274 /= 0) call s_mpi_abort("Error reading file (fewer lines than grid?): " // trim(fname274))
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                        ! Capture the file's own origin and spacing from its first records so we can
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                        ! confirm it was sampled on this run's grid (a silent mismatch would otherwise
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                        ! read a wrong partial slice -> nonphysical field -> VCFL=Inf downstream).
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                        if (f274 == 1) then
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                            if (ix274 == 0 .and. iy274 == 0) then
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                                x0_274 = dummy_x274
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                                y0_274 = dummy_y274
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                                local_ix_beg274 = nint((x_cc(0) - x0_274)/x_step274)
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                                local_iy_beg274 = nint((y_cc(0) - y0_274)/y_step274)
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                            end if
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                            if (ix274 == 1 .and. iy274 == 0) file_dx274 = dummy_x274 - x0_274
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                            if (ix274 == 0 .and. iy274 == 1) file_dy274 = dummy_y274 - y0_274
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                        end if
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                        if (ix274 - local_ix_beg274 >= 0 .and. ix274 - local_ix_beg274 <= m .and. iy274 - local_iy_beg274 >= 0 &
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                            & .and. iy274 - local_iy_beg274 <= n) then
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                            stored_values274(ix274 - local_ix_beg274, iy274 - local_iy_beg274, f274) = dummy_val274
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                        end if
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    end do
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                end do
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                ! The file must contain exactly (m_glb+1)*(n_glb+1) records: a successful extra
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                ! read means it was generated for a larger grid and would be silently misread.
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                read (unit274, *, iostat=ios274) dummy_x274, dummy_y274
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                if (ios274 == 0) call s_mpi_abort("hcid=274 file has more lines than the grid: " // trim(fname274))
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                close (unit274)
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            end do
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            ! The run grid must be aligned with the file grid (uniform grid assumed, as in case 270).
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            ! Check alignment via the integer cell offset of this rank's first cell from the file
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            ! origin -- decomposition-safe: on every MPI rank x_cc(0) sits an integer number of cells
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            ! into the global file, so a non-integer offset means a shifted/mismatched IC. (Comparing
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            ! x0_274 to x_cc(0) directly would false-abort every rank whose subdomain doesn't start at
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            ! the global origin.) The spacing checks below must also hold.
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            r_align274 = (x_cc(0) - x0_274)/x_step274
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            if (abs(r_align274 - nint(r_align274)) > 1.e-6_wp) &
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                & call s_mpi_abort("hcid=274 file x-grid is misaligned with the run grid; regenerate the IC for this grid.")
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            if (m_glb >= 1) then
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                if (abs(file_dx274 - x_step274) > 1.e-6_wp*abs(x_step274)) &
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    & call s_mpi_abort("hcid=274 file x-spacing does not match the grid; regenerate the IC for this grid.")
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            end if
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            if (n_glb >= 1) then
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                r_align274 = (y_cc(0) - y0_274)/y_step274
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                if (abs(r_align274 - nint(r_align274)) > 1.e-6_wp) &
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    & call s_mpi_abort("hcid=274 file y-grid is misaligned with the run grid; regenerate the IC for this grid.")
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                if (abs(file_dy274 - y_step274) > 1.e-6_wp*abs(y_step274)) &
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    & call s_mpi_abort("hcid=274 file y-spacing does not match the grid; regenerate the IC for this grid.")
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            end if
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            files_loaded274 = .true.
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        end if
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! Alignment is verified above (or this rank would already have aborted), so the local
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! cell (i, j) maps to stored_values274(i, j, :) directly -- no re-derivation needed.
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        do f274 = 1, sys_size
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(f274)%sf(i, j, 0) = stored_values274(i, j, f274)
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        end do
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    case (271)  ! Premixed Flame Vortices Interaction
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    if (.not. files_loaded) then
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        max_files = merge(sys_size, sys_size - 1, num_dims == 1)
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        do f = 1, max_files
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            write (file_num_str, '(I0)') f
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            filenames(f) = trim(files_dir) // "/" // "prim." // trim(file_num_str) // ".00." // trim(file_extension) // ".dat"
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        end do
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! Common file reading setup
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        open (newunit=unit2, file=trim(filenames(1)), status='old', action='read', iostat=ios2)
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        if (ios2 /= 0) call s_mpi_abort("Error opening file: " // trim(filenames(1)))
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        select case (num_dims)
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        case (1, 2)  ! 1D and 2D cases are similar
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            ! Count lines
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            line_count = 0
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            do
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                read (unit2, *, iostat=ios2) dummy_x, dummy_y
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                if (ios2 /= 0) exit
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                line_count = line_count + 1
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            end do
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            close (unit2)
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            xrows = line_count
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            yrows = 1
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            index_x = 0
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            if (num_dims == 2) index_x = i
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#ifdef MFC_DEBUG
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    block
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        use iso_fortran_env, only: output_unit
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        print *, 'm_icpp_patches.fpp:334: ', '@:ALLOCATE(x_coords(xRows), stored_values(xRows, 1, sys_size))'
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        call flush (output_unit)
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    end block
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#endif
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    allocate (x_coords(xrows), stored_values(xrows, 1, sys_size))
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#if defined(MFC_OpenACC)
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
!$acc enter data create(x_coords, stored_values) 
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#elif defined(MFC_OpenMP)
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
!$omp target enter data map(always,alloc:x_coords, stored_values) 
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#endif
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            ! Read data from all files
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            do f = 1, max_files
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                open (newunit=unit, file=trim(filenames(f)), status='old', action='read', iostat=ios)
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                if (ios /= 0) call s_mpi_abort("Error opening file: " // trim(filenames(f)))
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                do iter = 1, xrows
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    read (unit, *, iostat=ios) x_coords(iter), stored_values(iter, 1, f)
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    if (ios /= 0) call s_mpi_abort("Error reading file: " // trim(filenames(f)))
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                end do
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                close (unit)
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            end do
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            ! Calculate offsets
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            domain_xstart = x_coords(1)
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            x_step = x_cc(1) - x_cc(0)
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            delta_x = merge(x_cc(0) - domain_xstart, x_cc(index_x) - domain_xstart, num_dims == 1)
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            global_offset_x = nint(abs(delta_x)/x_step)
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        case (3)  ! 3D case - determine grid structure
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            ! Find yRows by counting rows with same x
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            read (unit2, *, iostat=ios2) x0, y0, dummy_z
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            if (ios2 /= 0) call s_mpi_abort("Error reading first line")
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            yrows = 1
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            do
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                read (unit2, *, iostat=ios2) dummy_x, dummy_y, dummy_z
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                if (ios2 /= 0) exit
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                if (f_approx_equal(dummy_x, x0) .and. (.not. f_approx_equal(dummy_y, y0))) then
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    yrows = yrows + 1
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                else
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    exit
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                end if
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            end do
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            close (unit2)
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            ! Count total rows
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            open (newunit=unit2, file=trim(filenames(1)), status='old', action='read', iostat=ios2)
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            nrows = 0
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            do
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                read (unit2, *, iostat=ios2) dummy_x, dummy_y, dummy_z
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                if (ios2 /= 0) exit
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                nrows = nrows + 1
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            end do
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            close (unit2)
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            xrows = nrows/yrows
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#ifdef MFC_DEBUG
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    block
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        use iso_fortran_env, only: output_unit
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        print *, 'm_icpp_patches.fpp:334: ', '@:ALLOCATE(x_coords(nrows), y_coords(nrows), stored_values(xRows, yRows, sys_size))'
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        call flush (output_unit)
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    end block
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#endif
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    allocate (x_coords(nrows), y_coords(nrows), stored_values(xrows, yrows, sys_size))
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#if defined(MFC_OpenACC)
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
!$acc enter data create(x_coords, y_coords, stored_values) 
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#elif defined(MFC_OpenMP)
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
!$omp target enter data map(always,alloc:x_coords, y_coords, stored_values) 
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#endif
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            index_x = i
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            index_y = j
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            ! Read all files
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            do f = 1, max_files
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                open (newunit=unit, file=trim(filenames(f)), status='old', action='read', iostat=ios)
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                if (ios /= 0) then
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    if (f == 1) call s_mpi_abort("Error opening file: " // trim(filenames(f)))
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    cycle
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                end if
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                iter = 0
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                do iix = 1, xrows
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    do iiy = 1, yrows
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                        iter = iter + 1
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                        if (f == 1) then
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                            read (unit, *, iostat=ios) x_coords(iter), y_coords(iter), stored_values(iix, iiy, f)
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                        else
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                            read (unit, *, iostat=ios) dummy_x, dummy_y, stored_values(iix, iiy, f)
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                        end if
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                        if (ios /= 0) call s_mpi_abort("Error reading data")
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    end do
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                end do
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                close (unit)
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            end do
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            ! Calculate offsets
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            x_step = x_cc(1) - x_cc(0)
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            y_step = y_cc(1) - y_cc(0)
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            delta_x = x_cc(index_x) - x_coords(1)
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            delta_y = y_cc(index_y) - y_coords(1)
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            global_offset_x = nint(abs(delta_x)/x_step)
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            global_offset_y = nint(abs(delta_y)/y_step)
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        end select
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        files_loaded = .true.
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    end if
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    ! Data assignment
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    select case (num_dims)
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    case (1)
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        idx = i + 1 + global_offset_x
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! idx must land inside the file's row range: this rank's subdomain offset
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! (global_offset_x) was derived from this rank's own grid, so a miss means the
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! IC file is misaligned/mis-sized for the run grid, not a normal boundary case.
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        if (idx < 1 .or. idx > xrows) &
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            & call s_mpi_abort("Hardcoded IC extrusion: row index out of range (IC file misaligned with the run grid)")
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        do f = 1, sys_size
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(f)%sf(i, 0, 0) = stored_values(idx, 1, f)
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        end do
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    case (2)
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        idx = i + 1 + global_offset_x - index_x
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        if (idx < 1 .or. idx > xrows) &
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            & call s_mpi_abort("Hardcoded IC extrusion: row index out of range (IC file misaligned with the run grid)")
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        do f = 1, sys_size - 1
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            jump = merge(1, 0, f >= eqn_idx%mom%end)
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(f + jump)%sf(i, j, 0) = stored_values(idx, 1, f)
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        end do
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        q_prim_vf(eqn_idx%mom%end)%sf(i, j, 0) = 0.0_wp
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    case (3)
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        idx = i + 1 + global_offset_x - index_x
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        idy = j + 1 + global_offset_y - index_y
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        if (idx < 1 .or. idx > xrows .or. idy < 1 .or. idy > yrows) &
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            & call s_mpi_abort("Hardcoded IC extrusion: row/column index out of range (IC file misaligned with the run grid)")
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        do f = 1, sys_size - 1
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            jump = merge(1, 0, f >= eqn_idx%mom%end)
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(f + jump)%sf(i, j, k) = stored_values(idx, idy, f)
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        end do
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        q_prim_vf(eqn_idx%mom%end)%sf(i, j, k) = 0.0_wp
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    end select
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        x1c = 0.0027_wp
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        y1c = 0.005_wp
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        x2c = 0.0027_wp
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        y2c = 0.003_wp
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        r1c = (x_cc(i) - x1c)**(2.0_wp) + (y_cc(j) - y1c)**(2.0_wp)
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        r2c = (x_cc(i) - x2c)**(2.0_wp) + (y_cc(j) - y2c)**(2.0_wp)
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        rvortex = 0.0005_wp
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        cvortex = 6000.0_wp
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        u1c = -cvortex*((y_cc(j) - y1c))*exp(-r1c/(2.0_wp*rvortex**2.0_wp))
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        v1c = cvortex*((x_cc(i) - x1c))*exp(-r1c/(2.0_wp*rvortex**2.0_wp))
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        u2c = cvortex*((y_cc(j) - y2c))*exp(-r2c/(2.0_wp*rvortex**2.0_wp))
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        v2c = -cvortex*((x_cc(i) - x2c))*exp(-r2c/(2.0_wp*rvortex**2.0_wp))
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        q_prim_vf(eqn_idx%mom%beg)%sf(i, j, 0) = q_prim_vf(eqn_idx%mom%beg)%sf(i, j, 0) + u1c + u2c
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        q_prim_vf(eqn_idx%mom%beg + 1)%sf(i, j, 0) = v1c + v2c
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    case (272)  ! Premixed Flame Instability
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    if (.not. files_loaded) then
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        max_files = merge(sys_size, sys_size - 1, num_dims == 1)
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        do f = 1, max_files
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            write (file_num_str, '(I0)') f
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            filenames(f) = trim(files_dir) // "/" // "prim." // trim(file_num_str) // ".00." // trim(file_extension) // ".dat"
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        end do
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! Common file reading setup
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        open (newunit=unit2, file=trim(filenames(1)), status='old', action='read', iostat=ios2)
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        if (ios2 /= 0) call s_mpi_abort("Error opening file: " // trim(filenames(1)))
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        select case (num_dims)
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        case (1, 2)  ! 1D and 2D cases are similar
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            ! Count lines
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            line_count = 0
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            do
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                read (unit2, *, iostat=ios2) dummy_x, dummy_y
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                if (ios2 /= 0) exit
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                line_count = line_count + 1
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            end do
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            close (unit2)
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            xrows = line_count
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            yrows = 1
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            index_x = 0
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            if (num_dims == 2) index_x = i
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#ifdef MFC_DEBUG
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    block
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        use iso_fortran_env, only: output_unit
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        print *, 'm_icpp_patches.fpp:334: ', '@:ALLOCATE(x_coords(xRows), stored_values(xRows, 1, sys_size))'
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        call flush (output_unit)
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    end block
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#endif
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    allocate (x_coords(xrows), stored_values(xrows, 1, sys_size))
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#if defined(MFC_OpenACC)
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
!$acc enter data create(x_coords, stored_values) 
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#elif defined(MFC_OpenMP)
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
!$omp target enter data map(always,alloc:x_coords, stored_values) 
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#endif
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            ! Read data from all files
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            do f = 1, max_files
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                open (newunit=unit, file=trim(filenames(f)), status='old', action='read', iostat=ios)
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                if (ios /= 0) call s_mpi_abort("Error opening file: " // trim(filenames(f)))
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                do iter = 1, xrows
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    read (unit, *, iostat=ios) x_coords(iter), stored_values(iter, 1, f)
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    if (ios /= 0) call s_mpi_abort("Error reading file: " // trim(filenames(f)))
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                end do
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                close (unit)
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            end do
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            ! Calculate offsets
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            domain_xstart = x_coords(1)
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            x_step = x_cc(1) - x_cc(0)
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            delta_x = merge(x_cc(0) - domain_xstart, x_cc(index_x) - domain_xstart, num_dims == 1)
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            global_offset_x = nint(abs(delta_x)/x_step)
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        case (3)  ! 3D case - determine grid structure
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            ! Find yRows by counting rows with same x
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            read (unit2, *, iostat=ios2) x0, y0, dummy_z
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            if (ios2 /= 0) call s_mpi_abort("Error reading first line")
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            yrows = 1
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            do
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                read (unit2, *, iostat=ios2) dummy_x, dummy_y, dummy_z
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                if (ios2 /= 0) exit
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                if (f_approx_equal(dummy_x, x0) .and. (.not. f_approx_equal(dummy_y, y0))) then
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    yrows = yrows + 1
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                else
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    exit
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                end if
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            end do
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            close (unit2)
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            ! Count total rows
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            open (newunit=unit2, file=trim(filenames(1)), status='old', action='read', iostat=ios2)
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            nrows = 0
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            do
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                read (unit2, *, iostat=ios2) dummy_x, dummy_y, dummy_z
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                if (ios2 /= 0) exit
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                nrows = nrows + 1
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            end do
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            close (unit2)
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            xrows = nrows/yrows
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#ifdef MFC_DEBUG
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    block
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        use iso_fortran_env, only: output_unit
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        print *, 'm_icpp_patches.fpp:334: ', '@:ALLOCATE(x_coords(nrows), y_coords(nrows), stored_values(xRows, yRows, sys_size))'
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        call flush (output_unit)
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    end block
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#endif
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    allocate (x_coords(nrows), y_coords(nrows), stored_values(xrows, yrows, sys_size))
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#if defined(MFC_OpenACC)
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
!$acc enter data create(x_coords, y_coords, stored_values) 
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#elif defined(MFC_OpenMP)
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
!$omp target enter data map(always,alloc:x_coords, y_coords, stored_values) 
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#endif
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            index_x = i
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            index_y = j
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            ! Read all files
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            do f = 1, max_files
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                open (newunit=unit, file=trim(filenames(f)), status='old', action='read', iostat=ios)
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                if (ios /= 0) then
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    if (f == 1) call s_mpi_abort("Error opening file: " // trim(filenames(f)))
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    cycle
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                end if
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                iter = 0
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                do iix = 1, xrows
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    do iiy = 1, yrows
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                        iter = iter + 1
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                        if (f == 1) then
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                            read (unit, *, iostat=ios) x_coords(iter), y_coords(iter), stored_values(iix, iiy, f)
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                        else
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                            read (unit, *, iostat=ios) dummy_x, dummy_y, stored_values(iix, iiy, f)
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                        end if
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                        if (ios /= 0) call s_mpi_abort("Error reading data")
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    end do
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                end do
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                close (unit)
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            end do
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            ! Calculate offsets
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            x_step = x_cc(1) - x_cc(0)
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            y_step = y_cc(1) - y_cc(0)
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            delta_x = x_cc(index_x) - x_coords(1)
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            delta_y = y_cc(index_y) - y_coords(1)
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            global_offset_x = nint(abs(delta_x)/x_step)
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            global_offset_y = nint(abs(delta_y)/y_step)
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        end select
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        files_loaded = .true.
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    end if
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    ! Data assignment
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    select case (num_dims)
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    case (1)
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        idx = i + 1 + global_offset_x
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! idx must land inside the file's row range: this rank's subdomain offset
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! (global_offset_x) was derived from this rank's own grid, so a miss means the
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! IC file is misaligned/mis-sized for the run grid, not a normal boundary case.
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        if (idx < 1 .or. idx > xrows) &
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            & call s_mpi_abort("Hardcoded IC extrusion: row index out of range (IC file misaligned with the run grid)")
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        do f = 1, sys_size
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(f)%sf(i, 0, 0) = stored_values(idx, 1, f)
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        end do
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    case (2)
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        idx = i + 1 + global_offset_x - index_x
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        if (idx < 1 .or. idx > xrows) &
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            & call s_mpi_abort("Hardcoded IC extrusion: row index out of range (IC file misaligned with the run grid)")
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        do f = 1, sys_size - 1
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            jump = merge(1, 0, f >= eqn_idx%mom%end)
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(f + jump)%sf(i, j, 0) = stored_values(idx, 1, f)
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        end do
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        q_prim_vf(eqn_idx%mom%end)%sf(i, j, 0) = 0.0_wp
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    case (3)
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        idx = i + 1 + global_offset_x - index_x
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        idy = j + 1 + global_offset_y - index_y
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        if (idx < 1 .or. idx > xrows .or. idy < 1 .or. idy > yrows) &
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            & call s_mpi_abort("Hardcoded IC extrusion: row/column index out of range (IC file misaligned with the run grid)")
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        do f = 1, sys_size - 1
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            jump = merge(1, 0, f >= eqn_idx%mom%end)
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(f + jump)%sf(i, j, k) = stored_values(idx, idy, f)
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        end do
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        q_prim_vf(eqn_idx%mom%end)%sf(i, j, k) = 0.0_wp
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    end select
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        y_center = y0_ref
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        y_dist = y_cc(j) - y_center
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        wave_phase = 2.0_wp*pi*nwaves*(y_dist/ly_param)
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        front_shift = a_param*sin(wave_phase)
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        x_mapped = x_cc(i) - front_shift
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        if (x_mapped <= x_coords(1)) then
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            do v = 1, sys_size - 1
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                q_prim_vf(v + merge(1, 0, v >= eqn_idx%mom%end))%sf(i, j, 0) = stored_values(1, 1, v)
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            end do
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%mom%end)%sf(i, j, 0) = 0.0_wp
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        else if (x_mapped >= x_coords(xrows)) then
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            do v = 1, sys_size - 1
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                q_prim_vf(v + merge(1, 0, v >= eqn_idx%mom%end))%sf(i, j, 0) = stored_values(xrows, 1, v)
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            end do
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%mom%end)%sf(i, j, 0) = 0.0_wp
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        else
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            idx_lo = 1; idx_hi = xrows
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            do while (idx_hi - idx_lo > 1)
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                idx_mid = (idx_lo + idx_hi)/2
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                if (x_coords(idx_mid) <= x_mapped) then
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    idx_lo = idx_mid
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                else
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    idx_hi = idx_mid
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                end if
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            end do
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            interp_wt = (x_mapped - x_coords(idx_lo))/(x_coords(idx_hi) - x_coords(idx_lo))  ! weight in [0,1)
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            do v = 1, sys_size - 1
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                q_prim_vf(v + merge(1, 0, v >= eqn_idx%mom%end))%sf(i, j, 0) = (1.0_wp - interp_wt)*stored_values(idx_lo, 1, &
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                          & v) + interp_wt*stored_values(idx_hi, 1, v)
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            end do
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%mom%end)%sf(i, j, 0) = 0.0_wp
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        end if
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    case (280)  ! Isentropic vortex
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! This is patch is hard-coded for test suite optimization used in the 2D_isentropicvortex case: This analytic patch uses
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! geometry 2
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        if (patch_id == 1) then
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%E)%sf(i, j, &
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                      & 0) = 1.0*(1.0 - (1.0/1.0)*(5.0/(2.0*pi))*(5.0/(8.0*1.0*(1.4 + 1.0)*pi))*exp(2.0*1.0*(1.0 - (x_cc(i) &
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                      & - patch_icpp(1)%x_centroid)**2.0 - (y_cc(j) - patch_icpp(1)%y_centroid)**2.0)))**(1.4 + 1.0)
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%cont%beg + 0)%sf(i, j, &
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                      & 0) = 1.0*(1.0 - (1.0/1.0)*(5.0/(2.0*pi))*(5.0/(8.0*1.0*(1.4 + 1.0)*pi))*exp(2.0*1.0*(1.0 - (x_cc(i) &
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                      & - patch_icpp(1)%x_centroid)**2.0 - (y_cc(j) - patch_icpp(1)%y_centroid)**2.0)))**1.4
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%mom%beg + 0)%sf(i, j, &
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                      & 0) = patch_icpp(1)%vel(1) + (y_cc(j) - patch_icpp(1)%y_centroid)*(5.0/(2.0*pi))*exp(1.0*(1.0 - (x_cc(i) &
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                      & - patch_icpp(1)%x_centroid)**2.0 - (y_cc(j) - patch_icpp(1)%y_centroid)**2.0))
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%mom%beg + 1)%sf(i, j, &
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                      & 0) = patch_icpp(1)%vel(2) - (x_cc(i) - patch_icpp(1)%x_centroid)*(5.0/(2.0*pi))*exp(1.0*(1.0 - (x_cc(i) &
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                      & - patch_icpp(1)%x_centroid)**2.0 - (y_cc(j) - patch_icpp(1)%y_centroid)**2.0))
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        end if
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    case (281)  ! Acoustic pulse
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! This is patch is hard-coded for test suite optimization used in the 2D_acoustic_pulse case: This analytic patch uses
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! geometry 2
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        if (patch_id == 2) then
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%E)%sf(i, j, &
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                      & 0) = 101325*(1 - 0.5*(1.4 - 1)*(0.4)**2*exp(0.5*(1 - sqrt(x_cc(i)**2 + y_cc(j)**2))))**(1.4/(1.4 - 1))
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%cont%beg + 0)%sf(i, j, &
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                      & 0) = 1*(1 - 0.5*(1.4 - 1)*(0.4)**2*exp(0.5*(1 - sqrt(x_cc(i)**2 + y_cc(j)**2))))**(1/(1.4 - 1))
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        end if
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    case (282)  ! Zero-circulation vortex
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! This is patch is hard-coded for test suite optimization used in the 2D_zero_circ_vortex case: This analytic patch uses
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! geometry 2
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        if (patch_id == 2) then
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%E)%sf(i, j, &
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                      & 0) = 101325*(1 - 0.5*(1.4 - 1)*(0.1/0.3)**2*exp(0.5*(1 - sqrt(x_cc(i)**2 + y_cc(j)**2))))**(1.4/(1.4 - 1))
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%cont%beg + 0)%sf(i, j, &
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                      & 0) = 1*(1 - 0.5*(1.4 - 1)*(0.1/0.3)**2*exp(0.5*(1 - sqrt(x_cc(i)**2 + y_cc(j)**2))))**(1/(1.4 - 1))
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%mom%beg + 0)%sf(i, j, &
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                      & 0) = 112.99092883944267*(1 - (0.1/0.3))*y_cc(j)*exp(0.5*(1 - sqrt(x_cc(i)**2 + y_cc(j)**2)))
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%mom%beg + 1)%sf(i, j, &
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                      & 0) = 112.99092883944267*((0.1/0.3))*x_cc(i)*exp(0.5*(1 - sqrt(x_cc(i)**2 + y_cc(j)**2)))
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        end if
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    case (283)  ! Isentropic vortex: conserved-variable GL cell averages (3-pt tensor product)
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! GL averages of conserved variables (rho, rho*u, rho*v, E) eliminate the O(h^2) error that primitive-variable averaging
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! introduces through the nonlinear prim->cons conversion: cell_avg(rho*u) != cell_avg(rho)*cell_avg(u) by O(h^2). We back
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! out primitive values that reproduce the conserved averages exactly. Vortex strength eps is read from
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! patch_icpp(patch_id)%epsilon; defaults to 5.
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        if (patch_id == 1) then
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            vortex_eps = merge(patch_icpp(patch_id)%epsilon, 5._wp, patch_icpp(patch_id)%epsilon > 0._wp)
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            gauss_xi = [-sqrt(3._wp/5._wp), 0._wp, sqrt(3._wp/5._wp)]
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            gauss_w = [5._wp/9._wp, 8._wp/9._wp, 5._wp/9._wp]
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            rho_avg = 0._wp; rhou_avg = 0._wp; rhov_avg = 0._wp; e_avg = 0._wp
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            do igq = 1, 3
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                do jgq = 1, 3
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    xq = x_cc(i) + gauss_xi(igq)*(x_cb(i) - x_cb(i - 1))*0.5_wp
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    yq = y_cc(j) + gauss_xi(jgq)*(y_cb(j) - y_cb(j - 1))*0.5_wp
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    r2q = (xq - patch_icpp(patch_id)%x_centroid)**2._wp + (yq - patch_icpp(patch_id)%y_centroid)**2._wp
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    t_facq = 1._wp - (vortex_eps/(2._wp*pi))*(vortex_eps/(8._wp*(1.4_wp + 1._wp)*pi))*exp(2._wp*(1._wp - r2q))
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    wq = gauss_w(igq)*gauss_w(jgq)
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    rhoq = t_facq**1.4_wp
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    pq = t_facq**2.4_wp
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    uq = patch_icpp(patch_id)%vel(1) + (yq - patch_icpp(patch_id)%y_centroid)*(vortex_eps/(2._wp*pi))*exp(1._wp &
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                                    & - r2q)
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    vq = patch_icpp(patch_id)%vel(2) - (xq - patch_icpp(patch_id)%x_centroid)*(vortex_eps/(2._wp*pi))*exp(1._wp &
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                                    & - r2q)
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    eq = pq/0.4_wp + 0.5_wp*rhoq*(uq**2 + vq**2)
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    rho_avg = rho_avg + wq*rhoq
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    rhou_avg = rhou_avg + wq*(rhoq*uq)
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    rhov_avg = rhov_avg + wq*(rhoq*vq)
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    e_avg = e_avg + wq*eq
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                end do
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            end do
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            rho_avg = rho_avg*0.25_wp
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            rhou_avg = rhou_avg*0.25_wp
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            rhov_avg = rhov_avg*0.25_wp
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            e_avg = e_avg*0.25_wp
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            ! Back out primitive vars so prim->cons conversion recovers the conserved averages
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%cont%beg)%sf(i, j, 0) = rho_avg
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%mom%beg + 0)%sf(i, j, 0) = rhou_avg/rho_avg
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%mom%beg + 1)%sf(i, j, 0) = rhov_avg/rho_avg
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%E)%sf(i, j, 0) = (e_avg - 0.5_wp*(rhou_avg**2 + rhov_avg**2)/rho_avg)*0.4_wp
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        end if
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    case (291)  ! Isothermal Flat Plate
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        t_inf = 1125.0_wp
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        t_wall = 600.0_wp
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        p_atm = 101325.0_wp
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! Boundary/Shear Layer thicknesses
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        delta_th = 0.0003_wp  ! Thermal BL thickness
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        delta_shear = 8e-3_wp  ! Velocity BL thickness
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        u_max = 50.0_wp  ! Freestream Velocity (m/s)
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        mw_n2 = 28.0134e-3_wp
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        mw_o2 = 31.999e-3_wp
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        y_n2 = 0.767_wp
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        y_o2 = 0.233_wp
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        r_mix = 8.314462618_wp*((y_n2/mw_n2) + (y_o2/mw_o2))
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        bottom_blend_u = tanh(y_cc(j)/delta_shear)
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        bottom_blend_t = tanh(y_cc(j)/delta_th)
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        u_mean = u_max*bottom_blend_u
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        t_loc = t_wall + (t_inf - t_wall)*bottom_blend_t
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        q_prim_vf(eqn_idx%cont%beg)%sf(i, j, 0) = p_atm/(r_mix*t_loc)
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        q_prim_vf(eqn_idx%mom%beg)%sf(i, j, 0) = u_mean
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        q_prim_vf(eqn_idx%mom%end)%sf(i, j, 0) = 0.0_wp
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        q_prim_vf(eqn_idx%E)%sf(i, j, 0) = p_atm
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        q_prim_vf(eqn_idx%species%beg)%sf(i, j, 0) = y_o2
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        q_prim_vf(eqn_idx%species%end)%sf(i, j, 0) = y_n2
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    case default
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        if (proc_rank == 0) then
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            call s_int_to_str(patch_id, istr)
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            call s_mpi_abort("Invalid hcid specified for patch " // trim(istr))
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        end if
# 334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    end select
                    end if
                end if
            end do
        end do
    if (allocated(stored_values)) then
# 339 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#ifdef MFC_DEBUG
# 339 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    block
# 339 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        use iso_fortran_env, only: output_unit
# 339 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 339 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        print *, 'm_icpp_patches.fpp:339: ', '@:DEALLOCATE(stored_values)'
# 339 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 339 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        call flush (output_unit)
# 339 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    end block
# 339 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#endif
# 339 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 339 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#if defined(MFC_OpenACC)
# 339 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
!$acc exit data delete(stored_values) 
# 339 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#elif defined(MFC_OpenMP)
# 339 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
!$omp target exit data map(release:stored_values) 
# 339 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#endif
# 339 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    deallocate (stored_values)
# 339 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#ifdef MFC_DEBUG
# 339 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    block
# 339 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        use iso_fortran_env, only: output_unit
# 339 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 339 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        print *, 'm_icpp_patches.fpp:339: ', '@:DEALLOCATE(x_coords)'
# 339 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 339 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        call flush (output_unit)
# 339 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    end block
# 339 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#endif
# 339 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 339 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#if defined(MFC_OpenACC)
# 339 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
!$acc exit data delete(x_coords) 
# 339 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#elif defined(MFC_OpenMP)
# 339 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
!$omp target exit data map(release:x_coords) 
# 339 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#endif
# 339 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    deallocate (x_coords)
# 339 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    end if
# 339 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 339 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    if (allocated(y_coords)) then
# 339 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#ifdef MFC_DEBUG
# 339 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    block
# 339 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        use iso_fortran_env, only: output_unit
# 339 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 339 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        print *, 'm_icpp_patches.fpp:339: ', '@:DEALLOCATE(y_coords)'
# 339 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 339 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        call flush (output_unit)
# 339 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    end block
# 339 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#endif
# 339 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 339 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#if defined(MFC_OpenACC)
# 339 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
!$acc exit data delete(y_coords) 
# 339 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#elif defined(MFC_OpenMP)
# 339 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
!$omp target exit data map(release:y_coords) 
# 339 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#endif
# 339 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    deallocate (y_coords)
# 339 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    end if
# 339 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 339 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    files_loaded = .false.
# 339 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 339 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    if (allocated(stored_values274)) then
# 339 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#ifdef MFC_DEBUG
# 339 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    block
# 339 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        use iso_fortran_env, only: output_unit
# 339 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 339 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        print *, 'm_icpp_patches.fpp:339: ', '@:DEALLOCATE(stored_values274)'
# 339 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 339 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        call flush (output_unit)
# 339 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    end block
# 339 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#endif
# 339 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 339 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#if defined(MFC_OpenACC)
# 339 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
!$acc exit data delete(stored_values274) 
# 339 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#elif defined(MFC_OpenMP)
# 339 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
!$omp target exit data map(release:stored_values274) 
# 339 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#endif
# 339 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    deallocate (stored_values274)
# 339 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    end if
# 339 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 339 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    files_loaded274 = .false.
 
    end subroutine s_icpp_circle
 
    !> The varcircle patch is a 2D geometry that may be used . It generatres an annulus
    subroutine s_icpp_varcircle(patch_id, patch_id_fp, q_prim_vf)
 
        ! Patch identifier
        integer, intent(in) :: patch_id
 
#ifdef MFC_MIXED_PRECISION
        integer(kind=1), dimension(0:m,0:n,0:p), intent(inout) :: patch_id_fp
#else
        integer, dimension(0:m,0:n,0:p), intent(inout) :: patch_id_fp
#endif
        type(scalar_field), dimension(1:sys_size), intent(inout) :: q_prim_vf
 
        ! Generic loop iterators
        integer  :: i, j, k
        real(wp) :: radius, myr, thickness
 
    integer                                 :: xRows, yRows, nRows, iix, iiy, max_files
# 360 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    integer                                 :: f, iter, unit, unit2, idx, idy, index_x, index_y, jump, line_count
# 360 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    real(wp)                                :: x_step, y_step
# 360 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    real(wp)                                :: dummy_x, dummy_y, dummy_z, x0, y0
# 360 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    integer                                 :: global_offset_x, global_offset_y  !< MPI subdomain offset
# 360 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    real(wp)                                :: delta_x, delta_y
# 360 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    character(len=300), dimension(sys_size) :: fileNames                         !< Arrays to store all data from files
# 360 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    real(wp), allocatable                   :: stored_values(:,:,:)
# 360 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    real(wp), allocatable                   :: x_coords(:), y_coords(:)
# 360 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    logical                                 :: files_loaded = .false.
# 360 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    real(wp)                                :: domain_xstart
# 360 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    character(len=20)                       :: file_num_str                      !< For storing the file number as a string
# 360 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    integer                                 :: ios
# 360 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    integer                                 :: ios2
# 360 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 360 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    ! hcid=274 (2dHardcodedIC.fpp): full 2D field from external data, no extrusion.
# 360 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    ! Declared here (not in Hardcoded2DVariables()) so it's visible wherever
# 360 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    ! HardcodedDeallocation() is called, matching the pattern of stored_values/x_coords/
# 360 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    ! y_coords/files_loaded above.
# 360 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    real(wp), allocatable, dimension(:,:,:) :: stored_values274
# 360 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    logical                                 :: files_loaded274 = .false.
# 360 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    integer                                 :: f274, ix274, iy274, unit274, ios274
# 360 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    integer                                 :: local_ix_beg274, local_iy_beg274
# 360 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    character(len=300)                      :: fname274
# 360 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    character(len=20)                       :: file_num_str274
# 360 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    real(wp)                                :: dummy_x274, dummy_y274, dummy_val274, x0_274, y0_274, x_step274, y_step274
# 360 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    real(wp)                                :: file_dx274, file_dy274, r_align274
    ! Place any declaration of intermediate variables here
# 361 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    real(wp) :: eps, eps_mhd, C_mhd
# 361 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    real(wp) :: r, rmax, gam, umax, p0
# 361 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    real(wp) :: rhoH, rhoL, pRef, pInt, h, lam, wl, amp, intH, intL, alph
# 361 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    real(wp) :: factor, x1c, y1c, x2c, y2c, r1c, r2c, cvortex, u1c, u2c, v1c, v2c, rvortex
# 361 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    real(wp) :: r0, alpha, r2
# 361 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    real(wp) :: sinA, cosA
# 361 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    real(wp) :: r_sq
# 361 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 361 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    ! # 283 - Gauss-averaged isentropic vortex (conserved-variable cell averages)
# 361 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    real(wp) :: gauss_xi(3), gauss_w(3), xq, yq, r2q, T_facq, wq
# 361 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    real(wp) :: rho_avg, rhou_avg, rhov_avg, E_avg
# 361 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    real(wp) :: rhoq, pq, uq, vq, Eq, vortex_eps
# 361 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    integer  :: igq, jgq
# 361 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 361 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    ! # 291 - Shear/Thermal Layer Case
# 361 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    real(wp) :: delta_shear, u_max, u_mean
# 361 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    real(wp) :: T_wall, T_inf, P_atm, T_loc
# 361 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    real(wp) :: delta_th, R_mix
# 361 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    real(wp) :: Y_N2, Y_O2, MW_N2, MW_O2
# 361 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    real(wp) :: bottom_blend_u, bottom_blend_T
# 361 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 361 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    ! # 207
# 361 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    real(wp) :: sigma, gauss1, gauss2
# 361 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 361 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    ! # 208
# 361 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    real(wp)            :: ei, d, fsm, alpha_air, alpha_sf6
# 361 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    real(wp)            :: y_center, y_dist, wave_phase, front_shift, x_mapped, interp_wt
# 361 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    integer             :: v, idx_lo, idx_hi, idx_mid
# 361 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    real(wp), parameter :: Ly_param = 0.00775735_wp
# 361 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    real(wp), parameter :: A_param = 0.1_wp*96.9880867_wp*10.0_wp**(-6.0_wp)
# 361 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    integer, parameter  :: Nwaves = 6
# 361 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    real(wp), parameter :: y0_ref = 0.0_wp
# 361 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 361 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    eps = 1.e-9_wp
 
        ! Transferring the circular patch's radius, centroid, smearing patch identity and smearing coefficient information
        x_centroid = patch_icpp(patch_id)%x_centroid
        y_centroid = patch_icpp(patch_id)%y_centroid
        radius = patch_icpp(patch_id)%radius
        smooth_patch_id = patch_icpp(patch_id)%smooth_patch_id
        smooth_coeff = patch_icpp(patch_id)%smooth_coeff
        thickness = patch_icpp(patch_id)%epsilon
 
        ! Initialize eta=1; modified if smoothing is enabled
        eta = 1._wp
 
        ! Assign patch vars if cell is covered and patch has write permission
        do j = 0, n
            do i = 0, m
                myr = sqrt((x_cc(i) - x_centroid)**2 + (y_cc(j) - y_centroid)**2)
 
                if (myr <= radius + thickness/2._wp .and. myr >= radius - thickness/2._wp &
                    & .and. patch_icpp(patch_id)%alter_patch(patch_id_fp(i, j, 0))) then
                    call s_assign_patch_primitive_variables(patch_id, i, j, 0, eta, q_prim_vf, patch_id_fp)
 
 
                    if (patch_icpp(patch_id)%hcid /= dflt_int) then
    select case (patch_icpp(patch_id)%hcid)  ! 2D_hardcoded_ic example case
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    case (200)  ! Two-fluid cubic interface
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        if (y_cc(j) <= (-x_cc(i)**3 + 1)**(1._wp/3._wp)) then
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%adv%beg)%sf(i, j, 0) = eps
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%adv%end)%sf(i, j, 0) = 1._wp - eps
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%cont%beg)%sf(i, j, 0) = eps*1000._wp
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%cont%end)%sf(i, j, 0) = (1._wp - eps)*1._wp
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%E)%sf(i, j, 0) = 1000._wp
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        end if
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    case (202)  ! Gresho vortex (Gouasmi et al 2022 JCP)
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        r = ((x_cc(i) - 0.5_wp)**2 + (y_cc(j) - 0.5_wp)**2)**0.5_wp
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        rmax = 0.2_wp
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        gam = 1._wp + 1._wp/fluid_pp(1)%gamma
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        umax = 2*pi*rmax*patch_icpp(patch_id)%vel(2)
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        p0 = umax**2*(1._wp/(gam*patch_icpp(patch_id)%vel(2)**2) - 0.5_wp)
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        if (r < rmax) then
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%mom%beg)%sf(i, j, 0) = -(y_cc(j) - 0.5_wp)*umax/rmax
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%mom%end)%sf(i, j, 0) = (x_cc(i) - 0.5_wp)*umax/rmax
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%E)%sf(i, j, 0) = p0 + umax**2*((r/rmax)**2._wp/2._wp)
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        else if (r < 2*rmax) then
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%mom%beg)%sf(i, j, 0) = -((y_cc(j) - 0.5_wp)/r)*umax*(2._wp - r/rmax)
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%mom%end)%sf(i, j, 0) = ((x_cc(i) - 0.5_wp)/r)*umax*(2._wp - r/rmax)
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%E)%sf(i, j, 0) = p0 + umax**2*((r/rmax)**2/2._wp + 4*(1 - (r/rmax) + log(r/rmax)))
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        else
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%mom%beg)%sf(i, j, 0) = 0._wp
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%mom%end)%sf(i, j, 0) = 0._wp
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%E)%sf(i, j, 0) = p0 + umax**2*(-2 + 4*log(2._wp))
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        end if
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    case (203)  ! Gresho vortex (Gouasmi et al 2022 JCP) with density correction
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        r = ((x_cc(i) - 0.5_wp)**2._wp + (y_cc(j) - 0.5_wp)**2)**0.5_wp
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        rmax = 0.2_wp
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        gam = 1._wp + 1._wp/fluid_pp(1)%gamma
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        umax = 2*pi*rmax*patch_icpp(patch_id)%vel(2)
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        p0 = umax**2*(1._wp/(gam*patch_icpp(patch_id)%vel(2)**2) - 0.5_wp)
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        if (r < rmax) then
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%mom%beg)%sf(i, j, 0) = -(y_cc(j) - 0.5_wp)*umax/rmax
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%mom%end)%sf(i, j, 0) = (x_cc(i) - 0.5_wp)*umax/rmax
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%E)%sf(i, j, 0) = p0 + umax**2*((r/rmax)**2._wp/2._wp)
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        else if (r < 2*rmax) then
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%mom%beg)%sf(i, j, 0) = -((y_cc(j) - 0.5_wp)/r)*umax*(2._wp - r/rmax)
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%mom%end)%sf(i, j, 0) = ((x_cc(i) - 0.5_wp)/r)*umax*(2._wp - r/rmax)
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%E)%sf(i, j, 0) = p0 + umax**2*((r/rmax)**2/2._wp + 4._wp*(1._wp - (r/rmax) + log(r/rmax)))
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        else
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%mom%beg)%sf(i, j, 0) = 0._wp
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%mom%end)%sf(i, j, 0) = 0._wp
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%E)%sf(i, j, 0) = p0 + umax**2._wp*(-2._wp + 4*log(2._wp))
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        end if
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        q_prim_vf(eqn_idx%cont%beg)%sf(i, j, 0) = q_prim_vf(eqn_idx%E)%sf(i, j, 0)**(1._wp/gam)
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    case (204)  ! Rayleigh-Taylor instability
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        rhoh = 3._wp
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        rhol = 1._wp
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        pref = 1.e5_wp
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        pint = pref
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        h = 0.7_wp
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        lam = 0.2_wp
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        wl = 2._wp*pi/lam
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        amp = 0.05_wp/wl
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        inth = amp*sin(2._wp*pi*x_cc(i)/lam - pi/2._wp) + h
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        alph = 0.5_wp*(1._wp + tanh((y_cc(j) - inth)/2.5e-3_wp))
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        if (alph < eps) alph = eps
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        if (alph > 1._wp - eps) alph = 1._wp - eps
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        if (y_cc(j) > inth) then
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%adv%beg)%sf(i, j, 0) = alph
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%adv%end)%sf(i, j, 0) = 1._wp - alph
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%cont%beg)%sf(i, j, 0) = alph*rhoh
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%cont%end)%sf(i, j, 0) = (1._wp - alph)*rhol
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%E)%sf(i, j, 0) = pref + rhoh*9.81_wp*(1.2_wp - y_cc(j))
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        else
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%adv%beg)%sf(i, j, 0) = alph
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%adv%end)%sf(i, j, 0) = 1._wp - alph
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%cont%beg)%sf(i, j, 0) = alph*rhoh
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%cont%end)%sf(i, j, 0) = (1._wp - alph)*rhol
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            pint = pref + rhoh*9.81_wp*(1.2_wp - inth)
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%E)%sf(i, j, 0) = pint + rhol*9.81_wp*(inth - y_cc(j))
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        end if
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    case (205)  ! 2D lung wave interaction problem
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        h = 0.0_wp  ! non dim origin y
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        lam = 1.0_wp  ! non dim lambda
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        amp = patch_icpp(patch_id)%a(2)  ! to be changed later!       !non dim amplitude
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        inth = amp*sin(2*pi*x_cc(i)/lam - pi/2) + h
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        if (y_cc(j) > inth) then
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%cont%beg)%sf(i, j, 0) = patch_icpp(1)%alpha_rho(1)
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%cont%end)%sf(i, j, 0) = patch_icpp(1)%alpha_rho(2)
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%E)%sf(i, j, 0) = patch_icpp(1)%pres
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%adv%beg)%sf(i, j, 0) = patch_icpp(1)%alpha(1)
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%adv%end)%sf(i, j, 0) = patch_icpp(1)%alpha(2)
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        end if
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    case (206)  ! 2D lung wave interaction problem - horizontal domain
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        h = 0.0_wp  ! non dim origin y
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        lam = 1.0_wp  ! non dim lambda
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        amp = patch_icpp(patch_id)%a(2)
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        intl = amp*sin(2*pi*y_cc(j)/lam - pi/2) + h
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        if (x_cc(i) > intl) then  ! this is the liquid
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%cont%beg)%sf(i, j, 0) = patch_icpp(1)%alpha_rho(1)
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%cont%end)%sf(i, j, 0) = patch_icpp(1)%alpha_rho(2)
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%E)%sf(i, j, 0) = patch_icpp(1)%pres
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%adv%beg)%sf(i, j, 0) = patch_icpp(1)%alpha(1)
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%adv%end)%sf(i, j, 0) = patch_icpp(1)%alpha(2)
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        end if
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    case (207)  ! Kelvin Helmholtz Instability
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        sigma = 0.05_wp/sqrt(2.0_wp)
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        gauss1 = exp(-(y_cc(j) - 0.75_wp)**2/(2.0_wp*sigma**2))
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        gauss2 = exp(-(y_cc(j) - 0.25_wp)**2/(2.0_wp*sigma**2))
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        q_prim_vf(eqn_idx%mom%beg + 1)%sf(i, j, 0) = 0.1_wp*sin(4.0_wp*pi*x_cc(i))*(gauss1 + gauss2)
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    case (208)  ! Richtmeyer Meshkov Instability
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        lam = 1.0_wp
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        eps = 1.0e-6_wp
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ei = 5.0_wp
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! Smoothening function to smooth out sharp discontinuity in the interface
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        if (x_cc(i) <= 0.7_wp*lam) then
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            d = x_cc(i) - lam*(0.4_wp - 0.1_wp*sin(2.0_wp*pi*(y_cc(j)/lam + 0.25_wp)))
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            fsm = 0.5_wp*(1.0_wp + erf(d/(ei*sqrt(dx*dy))))
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            alpha_air = eps + (1.0_wp - 2.0_wp*eps)*fsm
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            alpha_sf6 = 1.0_wp - alpha_air
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%cont%beg)%sf(i, j, 0) = alpha_sf6*5.04_wp
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%cont%end)%sf(i, j, 0) = alpha_air*1.0_wp
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%adv%beg)%sf(i, j, 0) = alpha_sf6
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%adv%end)%sf(i, j, 0) = alpha_air
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        end if
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    case (250)  ! MHD Orszag-Tang vortex
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! gamma = 5/3 rho = 25/(36*pi) p = 5/(12*pi) v = (-sin(2*pi*y), sin(2*pi*x), 0) B = (-sin(2*pi*y)/sqrt(4*pi),
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! sin(4*pi*x)/sqrt(4*pi), 0)
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        q_prim_vf(eqn_idx%mom%beg)%sf(i, j, 0) = -sin(2._wp*pi*y_cc(j))
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        q_prim_vf(eqn_idx%mom%beg + 1)%sf(i, j, 0) = sin(2._wp*pi*x_cc(i))
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        q_prim_vf(eqn_idx%B%beg)%sf(i, j, 0) = -sin(2._wp*pi*y_cc(j))/sqrt(4._wp*pi)
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        q_prim_vf(eqn_idx%B%beg + 1)%sf(i, j, 0) = sin(4._wp*pi*x_cc(i))/sqrt(4._wp*pi)
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    case (251)  ! RMHD Cylindrical Blast Wave [Mignone, 2006: Section 4.3.1]
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        if (x_cc(i)**2 + y_cc(j)**2 < 0.08_wp**2) then
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%cont%beg)%sf(i, j, 0) = 0.01
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%E)%sf(i, j, 0) = 1.0
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        else if (x_cc(i)**2 + y_cc(j)**2 <= 1._wp**2) then
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            ! Linear interpolation between r=0.08 and r=1.0
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            factor = (1.0_wp - sqrt(x_cc(i)**2 + y_cc(j)**2))/(1.0_wp - 0.08_wp)
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%cont%beg)%sf(i, j, 0) = 0.01_wp*factor + 1.e-4_wp*(1.0_wp - factor)
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%E)%sf(i, j, 0) = 1.0_wp*factor + 3.e-5_wp*(1.0_wp - factor)
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        else
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%cont%beg)%sf(i, j, 0) = 1.e-4_wp
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%E)%sf(i, j, 0) = 3.e-5_wp
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        end if
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! case 252 is for the 2D MHD Rotor problem
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    case (252)  ! 2D MHD Rotor Problem
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! Ambient conditions are set in the JSON file. This case imposes the dense, rotating cylinder.
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        !
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! gamma = 1.4 Ambient medium (r > 0.1): rho = 1, p = 1, v = 0, B = (1,0,0) Rotor (r <= 0.1): rho = 10, p = 1 v has angular
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! velocity w=20, giving v_tan=2 at r=0.1
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! Calculate distance squared from the center
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        r_sq = (x_cc(i) - 0.5_wp)**2 + (y_cc(j) - 0.5_wp)**2
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! inner radius of 0.1
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        if (r_sq <= 0.1**2) then
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            ! -- Inside the rotor -- Set density uniformly to 10
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%cont%beg)%sf(i, j, 0) = 10._wp
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            ! Set vup constant rotation of rate v=2 v_x = -omega * (y - y_c) v_y = omega * (x - x_c)
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%mom%beg)%sf(i, j, 0) = -20._wp*(y_cc(j) - 0.5_wp)
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%mom%beg + 1)%sf(i, j, 0) = 20._wp*(x_cc(i) - 0.5_wp)
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            ! taper width of 0.015
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        else if (r_sq <= 0.115**2) then
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            ! linearly smooth the function between r = 0.1 and 0.115
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%cont%beg)%sf(i, j, 0) = 1._wp + 9._wp*(0.115_wp - sqrt(r_sq))/(0.015_wp)
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%mom%beg)%sf(i, j, 0) = -(2._wp/sqrt(r_sq))*(y_cc(j) - 0.5_wp)*(0.115_wp - sqrt(r_sq))/(0.015_wp)
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%mom%beg + 1)%sf(i, j, 0) = (2._wp/sqrt(r_sq))*(x_cc(i) - 0.5_wp)*(0.115_wp - sqrt(r_sq))/(0.015_wp)
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        end if
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    case (253)  ! MHD Smooth Magnetic Vortex
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! Section 5.2 of Implicit hybridized discontinuous Galerkin methods for compressible magnetohydrodynamics C. Ciuca, P.
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! Fernandez, A. Christophe, N.C. Nguyen, J. Peraire
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! velocity
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        q_prim_vf(eqn_idx%mom%beg)%sf(i, j, 0) = 1._wp - (y_cc(j)*exp(1 - (x_cc(i)**2 + y_cc(j)**2))/(2.*pi))
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        q_prim_vf(eqn_idx%mom%beg + 1)%sf(i, j, 0) = 1._wp + (x_cc(i)*exp(1 - (x_cc(i)**2 + y_cc(j)**2))/(2.*pi))
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! magnetic field
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        q_prim_vf(eqn_idx%B%beg)%sf(i, j, 0) = -y_cc(j)*exp(1 - (x_cc(i)**2 + y_cc(j)**2))/(2.*pi)
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        q_prim_vf(eqn_idx%B%beg + 1)%sf(i, j, 0) = x_cc(i)*exp(1 - (x_cc(i)**2 + y_cc(j)**2))/(2.*pi)
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! pressure
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        q_prim_vf(eqn_idx%E)%sf(i, j, &
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                  & 0) = 1._wp + (1 - 2._wp*(x_cc(i)**2 + y_cc(j)**2))*exp(1 - (x_cc(i)**2 + y_cc(j)**2))/((2._wp*pi)**3)
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    case (260)  ! Gaussian Divergence Pulse
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! Bx(x) = 1 + C * erf((x-0.5)/\sigma) => \partialBx/\partialx = C * (2/\sqrt\pi) * exp[-((x-0.5)/\sigma)**2] * (1/\sigma)
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! Choose C = \epsilon * \sigma * \sqrt\pi / 2 => \partialBx/\partialx = \epsilon * exp[-((x-0.5)/\sigma)**2] \psi is
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! initialized to zero everywhere.
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        eps_mhd = patch_icpp(patch_id)%a(2)
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        sigma = patch_icpp(patch_id)%a(3)
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        c_mhd = eps_mhd*sigma*sqrt(pi)*0.5_wp
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! B-field
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        q_prim_vf(eqn_idx%B%beg)%sf(i, j, 0) = 1._wp + c_mhd*erf((x_cc(i) - 0.5_wp)/sigma)
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    case (261)  ! Blob
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        r0 = 1._wp/sqrt(8._wp)
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        r2 = x_cc(i)**2 + y_cc(j)**2
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        r = sqrt(r2)
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        alpha = r/r0
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        if (alpha < 1) then
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%B%beg)%sf(i, j, 0) = 1._wp/sqrt(4._wp*pi)*(alpha**8 - 2._wp*alpha**4 + 1._wp)
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            ! q_prim_vf(eqn_idx%B%beg)%sf(i,j,0) = 1._wp/sqrt(4000._wp*pi) * (4096._wp*r2**4 - 128._wp*r2**2 + 1._wp)
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            ! q_prim_vf(eqn_idx%B%beg)%sf(i,j,0) = 1._wp/(4._wp*pi) * (alpha**8 - 2._wp*alpha**4 + 1._wp)
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            ! q_prim_vf(eqn_idx%E)%sf(i,j,0) = 6._wp - q_prim_vf(eqn_idx%B%beg)%sf(i,j,0)**2/2._wp
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        end if
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    case (262)  ! Tilted 2D MHD shock-tube at \alpha = arctan2 (\approx63.4 deg)
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! rotate by \alpha = atan(2)
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        alpha = atan(2._wp)
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        cosa = cos(alpha)
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        sina = sin(alpha)
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! projection along shock normal
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        r = x_cc(i)*cosa + y_cc(j)*sina
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        if (r <= 0.5_wp) then
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            ! LEFT state: \rho=1, v\parallel=+10, v\perp=0, p=20, B\parallel=B\perp=5/\sqrt(4\pi)
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%cont%beg)%sf(i, j, 0) = 1._wp
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%mom%beg)%sf(i, j, 0) = 10._wp*cosa
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%mom%beg + 1)%sf(i, j, 0) = 10._wp*sina
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%E)%sf(i, j, 0) = 20._wp
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%B%beg)%sf(i, j, 0) = (5._wp/sqrt(4._wp*pi))*cosa - (5._wp/sqrt(4._wp*pi))*sina
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%B%beg + 1)%sf(i, j, 0) = (5._wp/sqrt(4._wp*pi))*sina + (5._wp/sqrt(4._wp*pi))*cosa
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        else
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            ! RIGHT state: \rho=1, v\parallel=-10, v\perp=0, p=1, B\parallel=B\perp=5/\sqrt(4\pi)
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%cont%beg)%sf(i, j, 0) = 1._wp
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%mom%beg)%sf(i, j, 0) = -10._wp*cosa
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%mom%beg + 1)%sf(i, j, 0) = -10._wp*sina
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%E)%sf(i, j, 0) = 1._wp
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%B%beg)%sf(i, j, 0) = (5._wp/sqrt(4._wp*pi))*cosa - (5._wp/sqrt(4._wp*pi))*sina
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%B%beg + 1)%sf(i, j, 0) = (5._wp/sqrt(4._wp*pi))*sina + (5._wp/sqrt(4._wp*pi))*cosa
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        end if
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! v^z and B^z remain zero by default
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    case (270)  ! 2D extrusion of 1D profile from external data
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! This hardcoded case extrudes a 1D profile to initialize a 2D simulation domain
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    if (.not. files_loaded) then
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        max_files = merge(sys_size, sys_size - 1, num_dims == 1)
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        do f = 1, max_files
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            write (file_num_str, '(I0)') f
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            filenames(f) = trim(files_dir) // "/" // "prim." // trim(file_num_str) // ".00." // trim(file_extension) // ".dat"
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        end do
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! Common file reading setup
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        open (newunit=unit2, file=trim(filenames(1)), status='old', action='read', iostat=ios2)
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        if (ios2 /= 0) call s_mpi_abort("Error opening file: " // trim(filenames(1)))
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        select case (num_dims)
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        case (1, 2)  ! 1D and 2D cases are similar
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            ! Count lines
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            line_count = 0
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            do
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                read (unit2, *, iostat=ios2) dummy_x, dummy_y
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                if (ios2 /= 0) exit
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                line_count = line_count + 1
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            end do
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            close (unit2)
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            xrows = line_count
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            yrows = 1
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            index_x = 0
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            if (num_dims == 2) index_x = i
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#ifdef MFC_DEBUG
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    block
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        use iso_fortran_env, only: output_unit
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        print *, 'm_icpp_patches.fpp:385: ', '@:ALLOCATE(x_coords(xRows), stored_values(xRows, 1, sys_size))'
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        call flush (output_unit)
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    end block
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#endif
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    allocate (x_coords(xrows), stored_values(xrows, 1, sys_size))
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#if defined(MFC_OpenACC)
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
!$acc enter data create(x_coords, stored_values) 
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#elif defined(MFC_OpenMP)
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
!$omp target enter data map(always,alloc:x_coords, stored_values) 
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#endif
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            ! Read data from all files
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            do f = 1, max_files
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                open (newunit=unit, file=trim(filenames(f)), status='old', action='read', iostat=ios)
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                if (ios /= 0) call s_mpi_abort("Error opening file: " // trim(filenames(f)))
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                do iter = 1, xrows
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    read (unit, *, iostat=ios) x_coords(iter), stored_values(iter, 1, f)
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    if (ios /= 0) call s_mpi_abort("Error reading file: " // trim(filenames(f)))
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                end do
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                close (unit)
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            end do
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            ! Calculate offsets
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            domain_xstart = x_coords(1)
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            x_step = x_cc(1) - x_cc(0)
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            delta_x = merge(x_cc(0) - domain_xstart, x_cc(index_x) - domain_xstart, num_dims == 1)
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            global_offset_x = nint(abs(delta_x)/x_step)
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        case (3)  ! 3D case - determine grid structure
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            ! Find yRows by counting rows with same x
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            read (unit2, *, iostat=ios2) x0, y0, dummy_z
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            if (ios2 /= 0) call s_mpi_abort("Error reading first line")
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            yrows = 1
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            do
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                read (unit2, *, iostat=ios2) dummy_x, dummy_y, dummy_z
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                if (ios2 /= 0) exit
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                if (f_approx_equal(dummy_x, x0) .and. (.not. f_approx_equal(dummy_y, y0))) then
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    yrows = yrows + 1
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                else
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    exit
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                end if
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            end do
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            close (unit2)
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            ! Count total rows
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            open (newunit=unit2, file=trim(filenames(1)), status='old', action='read', iostat=ios2)
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            nrows = 0
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            do
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                read (unit2, *, iostat=ios2) dummy_x, dummy_y, dummy_z
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                if (ios2 /= 0) exit
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                nrows = nrows + 1
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            end do
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            close (unit2)
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            xrows = nrows/yrows
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#ifdef MFC_DEBUG
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    block
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        use iso_fortran_env, only: output_unit
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        print *, 'm_icpp_patches.fpp:385: ', '@:ALLOCATE(x_coords(nrows), y_coords(nrows), stored_values(xRows, yRows, sys_size))'
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        call flush (output_unit)
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    end block
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#endif
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    allocate (x_coords(nrows), y_coords(nrows), stored_values(xrows, yrows, sys_size))
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#if defined(MFC_OpenACC)
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
!$acc enter data create(x_coords, y_coords, stored_values) 
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#elif defined(MFC_OpenMP)
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
!$omp target enter data map(always,alloc:x_coords, y_coords, stored_values) 
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#endif
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            index_x = i
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            index_y = j
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            ! Read all files
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            do f = 1, max_files
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                open (newunit=unit, file=trim(filenames(f)), status='old', action='read', iostat=ios)
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                if (ios /= 0) then
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    if (f == 1) call s_mpi_abort("Error opening file: " // trim(filenames(f)))
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    cycle
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                end if
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                iter = 0
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                do iix = 1, xrows
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    do iiy = 1, yrows
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                        iter = iter + 1
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                        if (f == 1) then
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                            read (unit, *, iostat=ios) x_coords(iter), y_coords(iter), stored_values(iix, iiy, f)
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                        else
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                            read (unit, *, iostat=ios) dummy_x, dummy_y, stored_values(iix, iiy, f)
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                        end if
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                        if (ios /= 0) call s_mpi_abort("Error reading data")
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    end do
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                end do
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                close (unit)
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            end do
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            ! Calculate offsets
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            x_step = x_cc(1) - x_cc(0)
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            y_step = y_cc(1) - y_cc(0)
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            delta_x = x_cc(index_x) - x_coords(1)
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            delta_y = y_cc(index_y) - y_coords(1)
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            global_offset_x = nint(abs(delta_x)/x_step)
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            global_offset_y = nint(abs(delta_y)/y_step)
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        end select
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        files_loaded = .true.
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    end if
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    ! Data assignment
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    select case (num_dims)
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    case (1)
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        idx = i + 1 + global_offset_x
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! idx must land inside the file's row range: this rank's subdomain offset
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! (global_offset_x) was derived from this rank's own grid, so a miss means the
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! IC file is misaligned/mis-sized for the run grid, not a normal boundary case.
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        if (idx < 1 .or. idx > xrows) &
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            & call s_mpi_abort("Hardcoded IC extrusion: row index out of range (IC file misaligned with the run grid)")
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        do f = 1, sys_size
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(f)%sf(i, 0, 0) = stored_values(idx, 1, f)
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        end do
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    case (2)
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        idx = i + 1 + global_offset_x - index_x
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        if (idx < 1 .or. idx > xrows) &
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            & call s_mpi_abort("Hardcoded IC extrusion: row index out of range (IC file misaligned with the run grid)")
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        do f = 1, sys_size - 1
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            jump = merge(1, 0, f >= eqn_idx%mom%end)
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(f + jump)%sf(i, j, 0) = stored_values(idx, 1, f)
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        end do
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        q_prim_vf(eqn_idx%mom%end)%sf(i, j, 0) = 0.0_wp
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    case (3)
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        idx = i + 1 + global_offset_x - index_x
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        idy = j + 1 + global_offset_y - index_y
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        if (idx < 1 .or. idx > xrows .or. idy < 1 .or. idy > yrows) &
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            & call s_mpi_abort("Hardcoded IC extrusion: row/column index out of range (IC file misaligned with the run grid)")
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        do f = 1, sys_size - 1
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            jump = merge(1, 0, f >= eqn_idx%mom%end)
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(f + jump)%sf(i, j, k) = stored_values(idx, idy, f)
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        end do
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        q_prim_vf(eqn_idx%mom%end)%sf(i, j, k) = 0.0_wp
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    end select
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    case (273)  ! Temporal reacting mixing layer: 2D extrusion + streamwise velocity
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! @:HardcodedReadValues() always zeros mom%end (the extruded-axis velocity).
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! The mom%beg file slot is repurposed to carry the streamwise-velocity-vs-
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! cross-stream-position profile (real cross-stream velocity is legitimately
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! zero everywhere in the unperturbed base state), so swap it into mom%end and
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! zero out mom%beg's true physical value.
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    if (.not. files_loaded) then
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        max_files = merge(sys_size, sys_size - 1, num_dims == 1)
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        do f = 1, max_files
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            write (file_num_str, '(I0)') f
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            filenames(f) = trim(files_dir) // "/" // "prim." // trim(file_num_str) // ".00." // trim(file_extension) // ".dat"
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        end do
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! Common file reading setup
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        open (newunit=unit2, file=trim(filenames(1)), status='old', action='read', iostat=ios2)
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        if (ios2 /= 0) call s_mpi_abort("Error opening file: " // trim(filenames(1)))
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        select case (num_dims)
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        case (1, 2)  ! 1D and 2D cases are similar
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            ! Count lines
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            line_count = 0
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            do
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                read (unit2, *, iostat=ios2) dummy_x, dummy_y
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                if (ios2 /= 0) exit
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                line_count = line_count + 1
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            end do
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            close (unit2)
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            xrows = line_count
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            yrows = 1
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            index_x = 0
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            if (num_dims == 2) index_x = i
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#ifdef MFC_DEBUG
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    block
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        use iso_fortran_env, only: output_unit
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        print *, 'm_icpp_patches.fpp:385: ', '@:ALLOCATE(x_coords(xRows), stored_values(xRows, 1, sys_size))'
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        call flush (output_unit)
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    end block
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#endif
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    allocate (x_coords(xrows), stored_values(xrows, 1, sys_size))
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#if defined(MFC_OpenACC)
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
!$acc enter data create(x_coords, stored_values) 
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#elif defined(MFC_OpenMP)
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
!$omp target enter data map(always,alloc:x_coords, stored_values) 
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#endif
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            ! Read data from all files
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            do f = 1, max_files
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                open (newunit=unit, file=trim(filenames(f)), status='old', action='read', iostat=ios)
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                if (ios /= 0) call s_mpi_abort("Error opening file: " // trim(filenames(f)))
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                do iter = 1, xrows
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    read (unit, *, iostat=ios) x_coords(iter), stored_values(iter, 1, f)
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    if (ios /= 0) call s_mpi_abort("Error reading file: " // trim(filenames(f)))
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                end do
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                close (unit)
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            end do
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            ! Calculate offsets
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            domain_xstart = x_coords(1)
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            x_step = x_cc(1) - x_cc(0)
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            delta_x = merge(x_cc(0) - domain_xstart, x_cc(index_x) - domain_xstart, num_dims == 1)
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            global_offset_x = nint(abs(delta_x)/x_step)
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        case (3)  ! 3D case - determine grid structure
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            ! Find yRows by counting rows with same x
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            read (unit2, *, iostat=ios2) x0, y0, dummy_z
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            if (ios2 /= 0) call s_mpi_abort("Error reading first line")
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            yrows = 1
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            do
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                read (unit2, *, iostat=ios2) dummy_x, dummy_y, dummy_z
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                if (ios2 /= 0) exit
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                if (f_approx_equal(dummy_x, x0) .and. (.not. f_approx_equal(dummy_y, y0))) then
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    yrows = yrows + 1
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                else
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    exit
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                end if
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            end do
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            close (unit2)
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            ! Count total rows
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            open (newunit=unit2, file=trim(filenames(1)), status='old', action='read', iostat=ios2)
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            nrows = 0
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            do
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                read (unit2, *, iostat=ios2) dummy_x, dummy_y, dummy_z
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                if (ios2 /= 0) exit
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                nrows = nrows + 1
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            end do
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            close (unit2)
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            xrows = nrows/yrows
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#ifdef MFC_DEBUG
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    block
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        use iso_fortran_env, only: output_unit
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        print *, 'm_icpp_patches.fpp:385: ', '@:ALLOCATE(x_coords(nrows), y_coords(nrows), stored_values(xRows, yRows, sys_size))'
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        call flush (output_unit)
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    end block
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#endif
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    allocate (x_coords(nrows), y_coords(nrows), stored_values(xrows, yrows, sys_size))
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#if defined(MFC_OpenACC)
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
!$acc enter data create(x_coords, y_coords, stored_values) 
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#elif defined(MFC_OpenMP)
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
!$omp target enter data map(always,alloc:x_coords, y_coords, stored_values) 
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#endif
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            index_x = i
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            index_y = j
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            ! Read all files
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            do f = 1, max_files
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                open (newunit=unit, file=trim(filenames(f)), status='old', action='read', iostat=ios)
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                if (ios /= 0) then
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    if (f == 1) call s_mpi_abort("Error opening file: " // trim(filenames(f)))
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    cycle
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                end if
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                iter = 0
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                do iix = 1, xrows
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    do iiy = 1, yrows
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                        iter = iter + 1
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                        if (f == 1) then
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                            read (unit, *, iostat=ios) x_coords(iter), y_coords(iter), stored_values(iix, iiy, f)
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                        else
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                            read (unit, *, iostat=ios) dummy_x, dummy_y, stored_values(iix, iiy, f)
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                        end if
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                        if (ios /= 0) call s_mpi_abort("Error reading data")
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    end do
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                end do
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                close (unit)
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            end do
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            ! Calculate offsets
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            x_step = x_cc(1) - x_cc(0)
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            y_step = y_cc(1) - y_cc(0)
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            delta_x = x_cc(index_x) - x_coords(1)
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            delta_y = y_cc(index_y) - y_coords(1)
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            global_offset_x = nint(abs(delta_x)/x_step)
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            global_offset_y = nint(abs(delta_y)/y_step)
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        end select
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        files_loaded = .true.
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    end if
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    ! Data assignment
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    select case (num_dims)
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    case (1)
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        idx = i + 1 + global_offset_x
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! idx must land inside the file's row range: this rank's subdomain offset
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! (global_offset_x) was derived from this rank's own grid, so a miss means the
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! IC file is misaligned/mis-sized for the run grid, not a normal boundary case.
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        if (idx < 1 .or. idx > xrows) &
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            & call s_mpi_abort("Hardcoded IC extrusion: row index out of range (IC file misaligned with the run grid)")
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        do f = 1, sys_size
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(f)%sf(i, 0, 0) = stored_values(idx, 1, f)
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        end do
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    case (2)
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        idx = i + 1 + global_offset_x - index_x
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        if (idx < 1 .or. idx > xrows) &
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            & call s_mpi_abort("Hardcoded IC extrusion: row index out of range (IC file misaligned with the run grid)")
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        do f = 1, sys_size - 1
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            jump = merge(1, 0, f >= eqn_idx%mom%end)
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(f + jump)%sf(i, j, 0) = stored_values(idx, 1, f)
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        end do
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        q_prim_vf(eqn_idx%mom%end)%sf(i, j, 0) = 0.0_wp
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    case (3)
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        idx = i + 1 + global_offset_x - index_x
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        idy = j + 1 + global_offset_y - index_y
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        if (idx < 1 .or. idx > xrows .or. idy < 1 .or. idy > yrows) &
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            & call s_mpi_abort("Hardcoded IC extrusion: row/column index out of range (IC file misaligned with the run grid)")
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        do f = 1, sys_size - 1
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            jump = merge(1, 0, f >= eqn_idx%mom%end)
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(f + jump)%sf(i, j, k) = stored_values(idx, idy, f)
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        end do
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        q_prim_vf(eqn_idx%mom%end)%sf(i, j, k) = 0.0_wp
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    end select
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        q_prim_vf(eqn_idx%mom%end)%sf(i, j, 0) = q_prim_vf(eqn_idx%mom%beg)%sf(i, j, 0)
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        q_prim_vf(eqn_idx%mom%beg)%sf(i, j, 0) = 0.0_wp
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    case (274)  ! Full 2D field from external data (no extrusion)
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! Unlike case(270-273), this reads a genuinely 2D (x,y) field per variable, with no
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! extrusion direction and no zeroed component -- all sys_size variables are read and
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! assigned directly. Data files must have exactly (m_glb+1)*(n_glb+1) lines per
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! variable, in x-major order (outer loop x, inner loop y), matching this rank's
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! global grid exactly -- by construction, since the IC generator derives both the
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! grid and the file contents from the same computation.
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        !
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! A local cell's global (x, y) index is derived from x_cc(i)/y_cc(j) against the
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! file's own first coordinate and this rank's uniform grid spacing -- following the
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! same pattern as case(270)'s global_offset_x/y above -- rather than from start_idx:
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! start_idx is only allocated when parallel_io=T (s_initialize_parallel_io_common
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! returns before allocating it otherwise), so a serial-IO run (the default for
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! golden-file tests) would index into an unallocated array.
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        !
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! Every rank still scans the whole file (matching case(270)'s existing per-rank-reads-
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! everything pattern), but stored_values274 only holds this rank's LOCAL (0:m, 0:n)
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! slice rather than the full global grid -- a full-grid copy on every rank would scale
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! as O(m_glb*n_glb*sys_size) per rank, which is the wrong axis to duplicate work on for
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! a genuinely 2D (not 1D-profile) field. local_ix_beg274/local_iy_beg274 (this rank's
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! global cell offset) are pinned from f274==1's very first record, before any other
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! record is read, so every subsequent record -- across all variables -- can be tested
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! against this rank's range and dropped if it falls outside it.
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        x_step274 = x_cc(1) - x_cc(0)
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        y_step274 = y_cc(1) - y_cc(0)
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        if (.not. files_loaded274) then
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#ifdef MFC_DEBUG
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    block
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        use iso_fortran_env, only: output_unit
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        print *, 'm_icpp_patches.fpp:385: ', '@:ALLOCATE(stored_values274(0:m, 0:n, sys_size))'
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        call flush (output_unit)
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    end block
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#endif
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    allocate (stored_values274(0:m, 0:n, sys_size))
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#if defined(MFC_OpenACC)
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
!$acc enter data create(stored_values274) 
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#elif defined(MFC_OpenMP)
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
!$omp target enter data map(always,alloc:stored_values274) 
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#endif
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            do f274 = 1, sys_size
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                write (file_num_str274, '(I0)') f274
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                fname274 = trim(files_dir) // "/prim." // trim(file_num_str274) // ".00." // trim(file_extension) // ".dat"
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                open (newunit=unit274, file=trim(fname274), status='old', action='read', iostat=ios274)
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                if (ios274 /= 0) call s_mpi_abort("Error opening file: " // trim(fname274))
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                do ix274 = 0, m_glb
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    do iy274 = 0, n_glb
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                        read (unit274, *, iostat=ios274) dummy_x274, dummy_y274, dummy_val274
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                        if (ios274 /= 0) call s_mpi_abort("Error reading file (fewer lines than grid?): " // trim(fname274))
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                        ! Capture the file's own origin and spacing from its first records so we can
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                        ! confirm it was sampled on this run's grid (a silent mismatch would otherwise
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                        ! read a wrong partial slice -> nonphysical field -> VCFL=Inf downstream).
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                        if (f274 == 1) then
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                            if (ix274 == 0 .and. iy274 == 0) then
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                                x0_274 = dummy_x274
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                                y0_274 = dummy_y274
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                                local_ix_beg274 = nint((x_cc(0) - x0_274)/x_step274)
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                                local_iy_beg274 = nint((y_cc(0) - y0_274)/y_step274)
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                            end if
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                            if (ix274 == 1 .and. iy274 == 0) file_dx274 = dummy_x274 - x0_274
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                            if (ix274 == 0 .and. iy274 == 1) file_dy274 = dummy_y274 - y0_274
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                        end if
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                        if (ix274 - local_ix_beg274 >= 0 .and. ix274 - local_ix_beg274 <= m .and. iy274 - local_iy_beg274 >= 0 &
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                            & .and. iy274 - local_iy_beg274 <= n) then
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                            stored_values274(ix274 - local_ix_beg274, iy274 - local_iy_beg274, f274) = dummy_val274
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                        end if
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    end do
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                end do
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                ! The file must contain exactly (m_glb+1)*(n_glb+1) records: a successful extra
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                ! read means it was generated for a larger grid and would be silently misread.
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                read (unit274, *, iostat=ios274) dummy_x274, dummy_y274
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                if (ios274 == 0) call s_mpi_abort("hcid=274 file has more lines than the grid: " // trim(fname274))
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                close (unit274)
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            end do
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            ! The run grid must be aligned with the file grid (uniform grid assumed, as in case 270).
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            ! Check alignment via the integer cell offset of this rank's first cell from the file
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            ! origin -- decomposition-safe: on every MPI rank x_cc(0) sits an integer number of cells
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            ! into the global file, so a non-integer offset means a shifted/mismatched IC. (Comparing
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            ! x0_274 to x_cc(0) directly would false-abort every rank whose subdomain doesn't start at
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            ! the global origin.) The spacing checks below must also hold.
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            r_align274 = (x_cc(0) - x0_274)/x_step274
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            if (abs(r_align274 - nint(r_align274)) > 1.e-6_wp) &
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                & call s_mpi_abort("hcid=274 file x-grid is misaligned with the run grid; regenerate the IC for this grid.")
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            if (m_glb >= 1) then
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                if (abs(file_dx274 - x_step274) > 1.e-6_wp*abs(x_step274)) &
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    & call s_mpi_abort("hcid=274 file x-spacing does not match the grid; regenerate the IC for this grid.")
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            end if
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            if (n_glb >= 1) then
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                r_align274 = (y_cc(0) - y0_274)/y_step274
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                if (abs(r_align274 - nint(r_align274)) > 1.e-6_wp) &
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    & call s_mpi_abort("hcid=274 file y-grid is misaligned with the run grid; regenerate the IC for this grid.")
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                if (abs(file_dy274 - y_step274) > 1.e-6_wp*abs(y_step274)) &
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    & call s_mpi_abort("hcid=274 file y-spacing does not match the grid; regenerate the IC for this grid.")
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            end if
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            files_loaded274 = .true.
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        end if
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! Alignment is verified above (or this rank would already have aborted), so the local
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! cell (i, j) maps to stored_values274(i, j, :) directly -- no re-derivation needed.
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        do f274 = 1, sys_size
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(f274)%sf(i, j, 0) = stored_values274(i, j, f274)
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        end do
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    case (271)  ! Premixed Flame Vortices Interaction
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    if (.not. files_loaded) then
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        max_files = merge(sys_size, sys_size - 1, num_dims == 1)
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        do f = 1, max_files
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            write (file_num_str, '(I0)') f
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            filenames(f) = trim(files_dir) // "/" // "prim." // trim(file_num_str) // ".00." // trim(file_extension) // ".dat"
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        end do
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! Common file reading setup
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        open (newunit=unit2, file=trim(filenames(1)), status='old', action='read', iostat=ios2)
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        if (ios2 /= 0) call s_mpi_abort("Error opening file: " // trim(filenames(1)))
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        select case (num_dims)
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        case (1, 2)  ! 1D and 2D cases are similar
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            ! Count lines
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            line_count = 0
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            do
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                read (unit2, *, iostat=ios2) dummy_x, dummy_y
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                if (ios2 /= 0) exit
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                line_count = line_count + 1
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            end do
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            close (unit2)
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            xrows = line_count
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            yrows = 1
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            index_x = 0
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            if (num_dims == 2) index_x = i
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#ifdef MFC_DEBUG
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    block
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        use iso_fortran_env, only: output_unit
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        print *, 'm_icpp_patches.fpp:385: ', '@:ALLOCATE(x_coords(xRows), stored_values(xRows, 1, sys_size))'
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        call flush (output_unit)
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    end block
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#endif
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    allocate (x_coords(xrows), stored_values(xrows, 1, sys_size))
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#if defined(MFC_OpenACC)
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
!$acc enter data create(x_coords, stored_values) 
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#elif defined(MFC_OpenMP)
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
!$omp target enter data map(always,alloc:x_coords, stored_values) 
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#endif
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            ! Read data from all files
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            do f = 1, max_files
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                open (newunit=unit, file=trim(filenames(f)), status='old', action='read', iostat=ios)
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                if (ios /= 0) call s_mpi_abort("Error opening file: " // trim(filenames(f)))
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                do iter = 1, xrows
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    read (unit, *, iostat=ios) x_coords(iter), stored_values(iter, 1, f)
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    if (ios /= 0) call s_mpi_abort("Error reading file: " // trim(filenames(f)))
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                end do
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                close (unit)
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            end do
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            ! Calculate offsets
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            domain_xstart = x_coords(1)
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            x_step = x_cc(1) - x_cc(0)
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            delta_x = merge(x_cc(0) - domain_xstart, x_cc(index_x) - domain_xstart, num_dims == 1)
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            global_offset_x = nint(abs(delta_x)/x_step)
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        case (3)  ! 3D case - determine grid structure
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            ! Find yRows by counting rows with same x
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            read (unit2, *, iostat=ios2) x0, y0, dummy_z
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            if (ios2 /= 0) call s_mpi_abort("Error reading first line")
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            yrows = 1
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            do
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                read (unit2, *, iostat=ios2) dummy_x, dummy_y, dummy_z
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                if (ios2 /= 0) exit
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                if (f_approx_equal(dummy_x, x0) .and. (.not. f_approx_equal(dummy_y, y0))) then
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    yrows = yrows + 1
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                else
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    exit
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                end if
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            end do
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            close (unit2)
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            ! Count total rows
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            open (newunit=unit2, file=trim(filenames(1)), status='old', action='read', iostat=ios2)
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            nrows = 0
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            do
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                read (unit2, *, iostat=ios2) dummy_x, dummy_y, dummy_z
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                if (ios2 /= 0) exit
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                nrows = nrows + 1
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            end do
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            close (unit2)
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            xrows = nrows/yrows
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#ifdef MFC_DEBUG
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    block
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        use iso_fortran_env, only: output_unit
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        print *, 'm_icpp_patches.fpp:385: ', '@:ALLOCATE(x_coords(nrows), y_coords(nrows), stored_values(xRows, yRows, sys_size))'
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        call flush (output_unit)
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    end block
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#endif
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    allocate (x_coords(nrows), y_coords(nrows), stored_values(xrows, yrows, sys_size))
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#if defined(MFC_OpenACC)
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
!$acc enter data create(x_coords, y_coords, stored_values) 
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#elif defined(MFC_OpenMP)
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
!$omp target enter data map(always,alloc:x_coords, y_coords, stored_values) 
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#endif
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            index_x = i
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            index_y = j
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            ! Read all files
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            do f = 1, max_files
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                open (newunit=unit, file=trim(filenames(f)), status='old', action='read', iostat=ios)
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                if (ios /= 0) then
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    if (f == 1) call s_mpi_abort("Error opening file: " // trim(filenames(f)))
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    cycle
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                end if
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                iter = 0
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                do iix = 1, xrows
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    do iiy = 1, yrows
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                        iter = iter + 1
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                        if (f == 1) then
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                            read (unit, *, iostat=ios) x_coords(iter), y_coords(iter), stored_values(iix, iiy, f)
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                        else
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                            read (unit, *, iostat=ios) dummy_x, dummy_y, stored_values(iix, iiy, f)
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                        end if
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                        if (ios /= 0) call s_mpi_abort("Error reading data")
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    end do
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                end do
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                close (unit)
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            end do
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            ! Calculate offsets
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            x_step = x_cc(1) - x_cc(0)
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            y_step = y_cc(1) - y_cc(0)
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            delta_x = x_cc(index_x) - x_coords(1)
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            delta_y = y_cc(index_y) - y_coords(1)
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            global_offset_x = nint(abs(delta_x)/x_step)
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            global_offset_y = nint(abs(delta_y)/y_step)
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        end select
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        files_loaded = .true.
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    end if
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    ! Data assignment
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    select case (num_dims)
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    case (1)
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        idx = i + 1 + global_offset_x
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! idx must land inside the file's row range: this rank's subdomain offset
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! (global_offset_x) was derived from this rank's own grid, so a miss means the
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! IC file is misaligned/mis-sized for the run grid, not a normal boundary case.
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        if (idx < 1 .or. idx > xrows) &
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            & call s_mpi_abort("Hardcoded IC extrusion: row index out of range (IC file misaligned with the run grid)")
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        do f = 1, sys_size
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(f)%sf(i, 0, 0) = stored_values(idx, 1, f)
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        end do
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    case (2)
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        idx = i + 1 + global_offset_x - index_x
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        if (idx < 1 .or. idx > xrows) &
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            & call s_mpi_abort("Hardcoded IC extrusion: row index out of range (IC file misaligned with the run grid)")
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        do f = 1, sys_size - 1
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            jump = merge(1, 0, f >= eqn_idx%mom%end)
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(f + jump)%sf(i, j, 0) = stored_values(idx, 1, f)
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        end do
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        q_prim_vf(eqn_idx%mom%end)%sf(i, j, 0) = 0.0_wp
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    case (3)
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        idx = i + 1 + global_offset_x - index_x
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        idy = j + 1 + global_offset_y - index_y
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        if (idx < 1 .or. idx > xrows .or. idy < 1 .or. idy > yrows) &
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            & call s_mpi_abort("Hardcoded IC extrusion: row/column index out of range (IC file misaligned with the run grid)")
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        do f = 1, sys_size - 1
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            jump = merge(1, 0, f >= eqn_idx%mom%end)
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(f + jump)%sf(i, j, k) = stored_values(idx, idy, f)
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        end do
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        q_prim_vf(eqn_idx%mom%end)%sf(i, j, k) = 0.0_wp
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    end select
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        x1c = 0.0027_wp
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        y1c = 0.005_wp
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        x2c = 0.0027_wp
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        y2c = 0.003_wp
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        r1c = (x_cc(i) - x1c)**(2.0_wp) + (y_cc(j) - y1c)**(2.0_wp)
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        r2c = (x_cc(i) - x2c)**(2.0_wp) + (y_cc(j) - y2c)**(2.0_wp)
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        rvortex = 0.0005_wp
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        cvortex = 6000.0_wp
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        u1c = -cvortex*((y_cc(j) - y1c))*exp(-r1c/(2.0_wp*rvortex**2.0_wp))
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        v1c = cvortex*((x_cc(i) - x1c))*exp(-r1c/(2.0_wp*rvortex**2.0_wp))
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        u2c = cvortex*((y_cc(j) - y2c))*exp(-r2c/(2.0_wp*rvortex**2.0_wp))
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        v2c = -cvortex*((x_cc(i) - x2c))*exp(-r2c/(2.0_wp*rvortex**2.0_wp))
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        q_prim_vf(eqn_idx%mom%beg)%sf(i, j, 0) = q_prim_vf(eqn_idx%mom%beg)%sf(i, j, 0) + u1c + u2c
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        q_prim_vf(eqn_idx%mom%beg + 1)%sf(i, j, 0) = v1c + v2c
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    case (272)  ! Premixed Flame Instability
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    if (.not. files_loaded) then
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        max_files = merge(sys_size, sys_size - 1, num_dims == 1)
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        do f = 1, max_files
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            write (file_num_str, '(I0)') f
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            filenames(f) = trim(files_dir) // "/" // "prim." // trim(file_num_str) // ".00." // trim(file_extension) // ".dat"
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        end do
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! Common file reading setup
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        open (newunit=unit2, file=trim(filenames(1)), status='old', action='read', iostat=ios2)
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        if (ios2 /= 0) call s_mpi_abort("Error opening file: " // trim(filenames(1)))
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        select case (num_dims)
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        case (1, 2)  ! 1D and 2D cases are similar
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            ! Count lines
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            line_count = 0
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            do
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                read (unit2, *, iostat=ios2) dummy_x, dummy_y
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                if (ios2 /= 0) exit
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                line_count = line_count + 1
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            end do
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            close (unit2)
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            xrows = line_count
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            yrows = 1
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            index_x = 0
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            if (num_dims == 2) index_x = i
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#ifdef MFC_DEBUG
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    block
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        use iso_fortran_env, only: output_unit
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        print *, 'm_icpp_patches.fpp:385: ', '@:ALLOCATE(x_coords(xRows), stored_values(xRows, 1, sys_size))'
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        call flush (output_unit)
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    end block
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#endif
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    allocate (x_coords(xrows), stored_values(xrows, 1, sys_size))
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#if defined(MFC_OpenACC)
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
!$acc enter data create(x_coords, stored_values) 
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#elif defined(MFC_OpenMP)
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
!$omp target enter data map(always,alloc:x_coords, stored_values) 
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#endif
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            ! Read data from all files
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            do f = 1, max_files
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                open (newunit=unit, file=trim(filenames(f)), status='old', action='read', iostat=ios)
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                if (ios /= 0) call s_mpi_abort("Error opening file: " // trim(filenames(f)))
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                do iter = 1, xrows
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    read (unit, *, iostat=ios) x_coords(iter), stored_values(iter, 1, f)
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    if (ios /= 0) call s_mpi_abort("Error reading file: " // trim(filenames(f)))
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                end do
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                close (unit)
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            end do
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            ! Calculate offsets
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            domain_xstart = x_coords(1)
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            x_step = x_cc(1) - x_cc(0)
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            delta_x = merge(x_cc(0) - domain_xstart, x_cc(index_x) - domain_xstart, num_dims == 1)
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            global_offset_x = nint(abs(delta_x)/x_step)
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        case (3)  ! 3D case - determine grid structure
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            ! Find yRows by counting rows with same x
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            read (unit2, *, iostat=ios2) x0, y0, dummy_z
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            if (ios2 /= 0) call s_mpi_abort("Error reading first line")
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            yrows = 1
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            do
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                read (unit2, *, iostat=ios2) dummy_x, dummy_y, dummy_z
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                if (ios2 /= 0) exit
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                if (f_approx_equal(dummy_x, x0) .and. (.not. f_approx_equal(dummy_y, y0))) then
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    yrows = yrows + 1
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                else
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    exit
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                end if
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            end do
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            close (unit2)
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            ! Count total rows
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            open (newunit=unit2, file=trim(filenames(1)), status='old', action='read', iostat=ios2)
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            nrows = 0
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            do
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                read (unit2, *, iostat=ios2) dummy_x, dummy_y, dummy_z
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                if (ios2 /= 0) exit
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                nrows = nrows + 1
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            end do
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            close (unit2)
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            xrows = nrows/yrows
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#ifdef MFC_DEBUG
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    block
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        use iso_fortran_env, only: output_unit
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        print *, 'm_icpp_patches.fpp:385: ', '@:ALLOCATE(x_coords(nrows), y_coords(nrows), stored_values(xRows, yRows, sys_size))'
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        call flush (output_unit)
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    end block
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#endif
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    allocate (x_coords(nrows), y_coords(nrows), stored_values(xrows, yrows, sys_size))
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#if defined(MFC_OpenACC)
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
!$acc enter data create(x_coords, y_coords, stored_values) 
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#elif defined(MFC_OpenMP)
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
!$omp target enter data map(always,alloc:x_coords, y_coords, stored_values) 
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#endif
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            index_x = i
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            index_y = j
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            ! Read all files
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            do f = 1, max_files
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                open (newunit=unit, file=trim(filenames(f)), status='old', action='read', iostat=ios)
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                if (ios /= 0) then
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    if (f == 1) call s_mpi_abort("Error opening file: " // trim(filenames(f)))
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    cycle
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                end if
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                iter = 0
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                do iix = 1, xrows
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    do iiy = 1, yrows
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                        iter = iter + 1
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                        if (f == 1) then
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                            read (unit, *, iostat=ios) x_coords(iter), y_coords(iter), stored_values(iix, iiy, f)
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                        else
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                            read (unit, *, iostat=ios) dummy_x, dummy_y, stored_values(iix, iiy, f)
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                        end if
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                        if (ios /= 0) call s_mpi_abort("Error reading data")
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    end do
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                end do
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                close (unit)
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            end do
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            ! Calculate offsets
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            x_step = x_cc(1) - x_cc(0)
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            y_step = y_cc(1) - y_cc(0)
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            delta_x = x_cc(index_x) - x_coords(1)
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            delta_y = y_cc(index_y) - y_coords(1)
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            global_offset_x = nint(abs(delta_x)/x_step)
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            global_offset_y = nint(abs(delta_y)/y_step)
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        end select
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        files_loaded = .true.
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    end if
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    ! Data assignment
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    select case (num_dims)
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    case (1)
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        idx = i + 1 + global_offset_x
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! idx must land inside the file's row range: this rank's subdomain offset
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! (global_offset_x) was derived from this rank's own grid, so a miss means the
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! IC file is misaligned/mis-sized for the run grid, not a normal boundary case.
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        if (idx < 1 .or. idx > xrows) &
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            & call s_mpi_abort("Hardcoded IC extrusion: row index out of range (IC file misaligned with the run grid)")
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        do f = 1, sys_size
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(f)%sf(i, 0, 0) = stored_values(idx, 1, f)
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        end do
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    case (2)
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        idx = i + 1 + global_offset_x - index_x
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        if (idx < 1 .or. idx > xrows) &
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            & call s_mpi_abort("Hardcoded IC extrusion: row index out of range (IC file misaligned with the run grid)")
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        do f = 1, sys_size - 1
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            jump = merge(1, 0, f >= eqn_idx%mom%end)
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(f + jump)%sf(i, j, 0) = stored_values(idx, 1, f)
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        end do
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        q_prim_vf(eqn_idx%mom%end)%sf(i, j, 0) = 0.0_wp
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    case (3)
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        idx = i + 1 + global_offset_x - index_x
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        idy = j + 1 + global_offset_y - index_y
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        if (idx < 1 .or. idx > xrows .or. idy < 1 .or. idy > yrows) &
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            & call s_mpi_abort("Hardcoded IC extrusion: row/column index out of range (IC file misaligned with the run grid)")
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        do f = 1, sys_size - 1
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            jump = merge(1, 0, f >= eqn_idx%mom%end)
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(f + jump)%sf(i, j, k) = stored_values(idx, idy, f)
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        end do
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        q_prim_vf(eqn_idx%mom%end)%sf(i, j, k) = 0.0_wp
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    end select
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        y_center = y0_ref
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        y_dist = y_cc(j) - y_center
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        wave_phase = 2.0_wp*pi*nwaves*(y_dist/ly_param)
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        front_shift = a_param*sin(wave_phase)
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        x_mapped = x_cc(i) - front_shift
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        if (x_mapped <= x_coords(1)) then
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            do v = 1, sys_size - 1
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                q_prim_vf(v + merge(1, 0, v >= eqn_idx%mom%end))%sf(i, j, 0) = stored_values(1, 1, v)
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            end do
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%mom%end)%sf(i, j, 0) = 0.0_wp
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        else if (x_mapped >= x_coords(xrows)) then
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            do v = 1, sys_size - 1
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                q_prim_vf(v + merge(1, 0, v >= eqn_idx%mom%end))%sf(i, j, 0) = stored_values(xrows, 1, v)
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            end do
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%mom%end)%sf(i, j, 0) = 0.0_wp
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        else
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            idx_lo = 1; idx_hi = xrows
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            do while (idx_hi - idx_lo > 1)
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                idx_mid = (idx_lo + idx_hi)/2
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                if (x_coords(idx_mid) <= x_mapped) then
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    idx_lo = idx_mid
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                else
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    idx_hi = idx_mid
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                end if
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            end do
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            interp_wt = (x_mapped - x_coords(idx_lo))/(x_coords(idx_hi) - x_coords(idx_lo))  ! weight in [0,1)
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            do v = 1, sys_size - 1
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                q_prim_vf(v + merge(1, 0, v >= eqn_idx%mom%end))%sf(i, j, 0) = (1.0_wp - interp_wt)*stored_values(idx_lo, 1, &
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                          & v) + interp_wt*stored_values(idx_hi, 1, v)
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            end do
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%mom%end)%sf(i, j, 0) = 0.0_wp
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        end if
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    case (280)  ! Isentropic vortex
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! This is patch is hard-coded for test suite optimization used in the 2D_isentropicvortex case: This analytic patch uses
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! geometry 2
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        if (patch_id == 1) then
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%E)%sf(i, j, &
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                      & 0) = 1.0*(1.0 - (1.0/1.0)*(5.0/(2.0*pi))*(5.0/(8.0*1.0*(1.4 + 1.0)*pi))*exp(2.0*1.0*(1.0 - (x_cc(i) &
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                      & - patch_icpp(1)%x_centroid)**2.0 - (y_cc(j) - patch_icpp(1)%y_centroid)**2.0)))**(1.4 + 1.0)
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%cont%beg + 0)%sf(i, j, &
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                      & 0) = 1.0*(1.0 - (1.0/1.0)*(5.0/(2.0*pi))*(5.0/(8.0*1.0*(1.4 + 1.0)*pi))*exp(2.0*1.0*(1.0 - (x_cc(i) &
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                      & - patch_icpp(1)%x_centroid)**2.0 - (y_cc(j) - patch_icpp(1)%y_centroid)**2.0)))**1.4
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%mom%beg + 0)%sf(i, j, &
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                      & 0) = patch_icpp(1)%vel(1) + (y_cc(j) - patch_icpp(1)%y_centroid)*(5.0/(2.0*pi))*exp(1.0*(1.0 - (x_cc(i) &
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                      & - patch_icpp(1)%x_centroid)**2.0 - (y_cc(j) - patch_icpp(1)%y_centroid)**2.0))
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%mom%beg + 1)%sf(i, j, &
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                      & 0) = patch_icpp(1)%vel(2) - (x_cc(i) - patch_icpp(1)%x_centroid)*(5.0/(2.0*pi))*exp(1.0*(1.0 - (x_cc(i) &
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                      & - patch_icpp(1)%x_centroid)**2.0 - (y_cc(j) - patch_icpp(1)%y_centroid)**2.0))
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        end if
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    case (281)  ! Acoustic pulse
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! This is patch is hard-coded for test suite optimization used in the 2D_acoustic_pulse case: This analytic patch uses
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! geometry 2
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        if (patch_id == 2) then
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%E)%sf(i, j, &
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                      & 0) = 101325*(1 - 0.5*(1.4 - 1)*(0.4)**2*exp(0.5*(1 - sqrt(x_cc(i)**2 + y_cc(j)**2))))**(1.4/(1.4 - 1))
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%cont%beg + 0)%sf(i, j, &
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                      & 0) = 1*(1 - 0.5*(1.4 - 1)*(0.4)**2*exp(0.5*(1 - sqrt(x_cc(i)**2 + y_cc(j)**2))))**(1/(1.4 - 1))
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        end if
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    case (282)  ! Zero-circulation vortex
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! This is patch is hard-coded for test suite optimization used in the 2D_zero_circ_vortex case: This analytic patch uses
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! geometry 2
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        if (patch_id == 2) then
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%E)%sf(i, j, &
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                      & 0) = 101325*(1 - 0.5*(1.4 - 1)*(0.1/0.3)**2*exp(0.5*(1 - sqrt(x_cc(i)**2 + y_cc(j)**2))))**(1.4/(1.4 - 1))
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%cont%beg + 0)%sf(i, j, &
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                      & 0) = 1*(1 - 0.5*(1.4 - 1)*(0.1/0.3)**2*exp(0.5*(1 - sqrt(x_cc(i)**2 + y_cc(j)**2))))**(1/(1.4 - 1))
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%mom%beg + 0)%sf(i, j, &
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                      & 0) = 112.99092883944267*(1 - (0.1/0.3))*y_cc(j)*exp(0.5*(1 - sqrt(x_cc(i)**2 + y_cc(j)**2)))
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%mom%beg + 1)%sf(i, j, &
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                      & 0) = 112.99092883944267*((0.1/0.3))*x_cc(i)*exp(0.5*(1 - sqrt(x_cc(i)**2 + y_cc(j)**2)))
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        end if
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    case (283)  ! Isentropic vortex: conserved-variable GL cell averages (3-pt tensor product)
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! GL averages of conserved variables (rho, rho*u, rho*v, E) eliminate the O(h^2) error that primitive-variable averaging
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! introduces through the nonlinear prim->cons conversion: cell_avg(rho*u) != cell_avg(rho)*cell_avg(u) by O(h^2). We back
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! out primitive values that reproduce the conserved averages exactly. Vortex strength eps is read from
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! patch_icpp(patch_id)%epsilon; defaults to 5.
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        if (patch_id == 1) then
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            vortex_eps = merge(patch_icpp(patch_id)%epsilon, 5._wp, patch_icpp(patch_id)%epsilon > 0._wp)
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            gauss_xi = [-sqrt(3._wp/5._wp), 0._wp, sqrt(3._wp/5._wp)]
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            gauss_w = [5._wp/9._wp, 8._wp/9._wp, 5._wp/9._wp]
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            rho_avg = 0._wp; rhou_avg = 0._wp; rhov_avg = 0._wp; e_avg = 0._wp
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            do igq = 1, 3
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                do jgq = 1, 3
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    xq = x_cc(i) + gauss_xi(igq)*(x_cb(i) - x_cb(i - 1))*0.5_wp
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    yq = y_cc(j) + gauss_xi(jgq)*(y_cb(j) - y_cb(j - 1))*0.5_wp
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    r2q = (xq - patch_icpp(patch_id)%x_centroid)**2._wp + (yq - patch_icpp(patch_id)%y_centroid)**2._wp
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    t_facq = 1._wp - (vortex_eps/(2._wp*pi))*(vortex_eps/(8._wp*(1.4_wp + 1._wp)*pi))*exp(2._wp*(1._wp - r2q))
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    wq = gauss_w(igq)*gauss_w(jgq)
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    rhoq = t_facq**1.4_wp
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    pq = t_facq**2.4_wp
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    uq = patch_icpp(patch_id)%vel(1) + (yq - patch_icpp(patch_id)%y_centroid)*(vortex_eps/(2._wp*pi))*exp(1._wp &
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                                    & - r2q)
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    vq = patch_icpp(patch_id)%vel(2) - (xq - patch_icpp(patch_id)%x_centroid)*(vortex_eps/(2._wp*pi))*exp(1._wp &
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                                    & - r2q)
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    eq = pq/0.4_wp + 0.5_wp*rhoq*(uq**2 + vq**2)
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    rho_avg = rho_avg + wq*rhoq
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    rhou_avg = rhou_avg + wq*(rhoq*uq)
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    rhov_avg = rhov_avg + wq*(rhoq*vq)
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    e_avg = e_avg + wq*eq
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                end do
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            end do
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            rho_avg = rho_avg*0.25_wp
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            rhou_avg = rhou_avg*0.25_wp
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            rhov_avg = rhov_avg*0.25_wp
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            e_avg = e_avg*0.25_wp
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            ! Back out primitive vars so prim->cons conversion recovers the conserved averages
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%cont%beg)%sf(i, j, 0) = rho_avg
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%mom%beg + 0)%sf(i, j, 0) = rhou_avg/rho_avg
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%mom%beg + 1)%sf(i, j, 0) = rhov_avg/rho_avg
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%E)%sf(i, j, 0) = (e_avg - 0.5_wp*(rhou_avg**2 + rhov_avg**2)/rho_avg)*0.4_wp
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        end if
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    case (291)  ! Isothermal Flat Plate
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        t_inf = 1125.0_wp
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        t_wall = 600.0_wp
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        p_atm = 101325.0_wp
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! Boundary/Shear Layer thicknesses
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        delta_th = 0.0003_wp  ! Thermal BL thickness
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        delta_shear = 8e-3_wp  ! Velocity BL thickness
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        u_max = 50.0_wp  ! Freestream Velocity (m/s)
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        mw_n2 = 28.0134e-3_wp
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        mw_o2 = 31.999e-3_wp
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        y_n2 = 0.767_wp
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        y_o2 = 0.233_wp
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        r_mix = 8.314462618_wp*((y_n2/mw_n2) + (y_o2/mw_o2))
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        bottom_blend_u = tanh(y_cc(j)/delta_shear)
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        bottom_blend_t = tanh(y_cc(j)/delta_th)
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        u_mean = u_max*bottom_blend_u
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        t_loc = t_wall + (t_inf - t_wall)*bottom_blend_t
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        q_prim_vf(eqn_idx%cont%beg)%sf(i, j, 0) = p_atm/(r_mix*t_loc)
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        q_prim_vf(eqn_idx%mom%beg)%sf(i, j, 0) = u_mean
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        q_prim_vf(eqn_idx%mom%end)%sf(i, j, 0) = 0.0_wp
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        q_prim_vf(eqn_idx%E)%sf(i, j, 0) = p_atm
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        q_prim_vf(eqn_idx%species%beg)%sf(i, j, 0) = y_o2
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        q_prim_vf(eqn_idx%species%end)%sf(i, j, 0) = y_n2
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    case default
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        if (proc_rank == 0) then
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            call s_int_to_str(patch_id, istr)
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            call s_mpi_abort("Invalid hcid specified for patch " // trim(istr))
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        end if
# 385 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    end select
                    end if
 
                    ! Updating the patch identities bookkeeping variable
                    if (1._wp - eta < sgm_eps) patch_id_fp(i, j, 0) = patch_id
 
                    q_prim_vf(eqn_idx%alf)%sf(i, j, &
                              & 0) = patch_icpp(patch_id)%alpha(1)*exp(-0.5_wp*((myr - radius)**2._wp)/(thickness/3._wp)**2._wp)
                end if
            end do
        end do
    if (allocated(stored_values)) then
# 396 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#ifdef MFC_DEBUG
# 396 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    block
# 396 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        use iso_fortran_env, only: output_unit
# 396 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 396 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        print *, 'm_icpp_patches.fpp:396: ', '@:DEALLOCATE(stored_values)'
# 396 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 396 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        call flush (output_unit)
# 396 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    end block
# 396 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#endif
# 396 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 396 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#if defined(MFC_OpenACC)
# 396 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
!$acc exit data delete(stored_values) 
# 396 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#elif defined(MFC_OpenMP)
# 396 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
!$omp target exit data map(release:stored_values) 
# 396 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#endif
# 396 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    deallocate (stored_values)
# 396 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#ifdef MFC_DEBUG
# 396 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    block
# 396 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        use iso_fortran_env, only: output_unit
# 396 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 396 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        print *, 'm_icpp_patches.fpp:396: ', '@:DEALLOCATE(x_coords)'
# 396 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 396 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        call flush (output_unit)
# 396 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    end block
# 396 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#endif
# 396 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 396 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#if defined(MFC_OpenACC)
# 396 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
!$acc exit data delete(x_coords) 
# 396 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#elif defined(MFC_OpenMP)
# 396 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
!$omp target exit data map(release:x_coords) 
# 396 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#endif
# 396 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    deallocate (x_coords)
# 396 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    end if
# 396 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 396 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    if (allocated(y_coords)) then
# 396 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#ifdef MFC_DEBUG
# 396 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    block
# 396 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        use iso_fortran_env, only: output_unit
# 396 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 396 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        print *, 'm_icpp_patches.fpp:396: ', '@:DEALLOCATE(y_coords)'
# 396 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 396 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        call flush (output_unit)
# 396 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    end block
# 396 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#endif
# 396 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 396 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#if defined(MFC_OpenACC)
# 396 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
!$acc exit data delete(y_coords) 
# 396 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#elif defined(MFC_OpenMP)
# 396 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
!$omp target exit data map(release:y_coords) 
# 396 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#endif
# 396 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    deallocate (y_coords)
# 396 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    end if
# 396 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 396 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    files_loaded = .false.
# 396 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 396 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    if (allocated(stored_values274)) then
# 396 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#ifdef MFC_DEBUG
# 396 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    block
# 396 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        use iso_fortran_env, only: output_unit
# 396 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 396 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        print *, 'm_icpp_patches.fpp:396: ', '@:DEALLOCATE(stored_values274)'
# 396 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 396 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        call flush (output_unit)
# 396 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    end block
# 396 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#endif
# 396 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 396 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#if defined(MFC_OpenACC)
# 396 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
!$acc exit data delete(stored_values274) 
# 396 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#elif defined(MFC_OpenMP)
# 396 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
!$omp target exit data map(release:stored_values274) 
# 396 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#endif
# 396 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    deallocate (stored_values274)
# 396 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    end if
# 396 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 396 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    files_loaded274 = .false.
 
    end subroutine s_icpp_varcircle
 
    !> Initialize a 3D variable-thickness circular annulus patch extruded along the z-axis.
    subroutine s_icpp_3dvarcircle(patch_id, patch_id_fp, q_prim_vf)
 
        ! Patch identifier
        integer, intent(in) :: patch_id
 
#ifdef MFC_MIXED_PRECISION
        integer(kind=1), dimension(0:m,0:n,0:p), intent(inout) :: patch_id_fp
#else
        integer, dimension(0:m,0:n,0:p), intent(inout) :: patch_id_fp
#endif
        type(scalar_field), dimension(1:sys_size), intent(inout) :: q_prim_vf
 
        ! Generic loop iterators
        integer  :: i, j, k
        real(wp) :: radius, myr, thickness
 
    integer                                 :: xRows, yRows, nRows, iix, iiy, max_files
# 417 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    integer                                 :: f, iter, unit, unit2, idx, idy, index_x, index_y, jump, line_count
# 417 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    real(wp)                                :: x_step, y_step
# 417 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    real(wp)                                :: dummy_x, dummy_y, dummy_z, x0, y0
# 417 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    integer                                 :: global_offset_x, global_offset_y  !< MPI subdomain offset
# 417 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    real(wp)                                :: delta_x, delta_y
# 417 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    character(len=300), dimension(sys_size) :: fileNames                         !< Arrays to store all data from files
# 417 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    real(wp), allocatable                   :: stored_values(:,:,:)
# 417 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    real(wp), allocatable                   :: x_coords(:), y_coords(:)
# 417 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    logical                                 :: files_loaded = .false.
# 417 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    real(wp)                                :: domain_xstart
# 417 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    character(len=20)                       :: file_num_str                      !< For storing the file number as a string
# 417 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    integer                                 :: ios
# 417 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    integer                                 :: ios2
# 417 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 417 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    ! hcid=274 (2dHardcodedIC.fpp): full 2D field from external data, no extrusion.
# 417 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    ! Declared here (not in Hardcoded2DVariables()) so it's visible wherever
# 417 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    ! HardcodedDeallocation() is called, matching the pattern of stored_values/x_coords/
# 417 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    ! y_coords/files_loaded above.
# 417 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    real(wp), allocatable, dimension(:,:,:) :: stored_values274
# 417 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    logical                                 :: files_loaded274 = .false.
# 417 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    integer                                 :: f274, ix274, iy274, unit274, ios274
# 417 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    integer                                 :: local_ix_beg274, local_iy_beg274
# 417 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    character(len=300)                      :: fname274
# 417 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    character(len=20)                       :: file_num_str274
# 417 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    real(wp)                                :: dummy_x274, dummy_y274, dummy_val274, x0_274, y0_274, x_step274, y_step274
# 417 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    real(wp)                                :: file_dx274, file_dy274, r_align274
    ! Place any declaration of intermediate variables here
# 418 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    real(wp) :: rhoH, rhoL, pRef, pInt, h, lam, wl, amp, intH, alph, Mach
# 418 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    real(wp) :: eps
# 418 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 418 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    ! IGR Jets Arrays to stor position and radii of jets from input file
# 418 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    real(wp), dimension(:), allocatable :: y_th_arr, z_th_arr, r_th_arr
# 418 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    ! Variables to describe initial condition of jet
# 418 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    real(wp)                              :: r, ux_th, ux_am, p_th, p_am, rho_th, rho_am, y_th, z_th, r_th, eps_smooth
# 418 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    real(wp)                              :: rcut, xcut  !< Intermediate variables for creating smooth initial condition
# 418 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    real(wp), dimension(0:n,0:p)          :: rcut_arr
# 418 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    integer                               :: l, q, s     !< Iterators for reading input files
# 418 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    integer                               :: start, end  !< Ints to keep track of position in file
# 418 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    character(len=100000)                 :: line  ! String to store line in file
# 418 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    character(len=25)                     :: value       !< String to store value in line
# 418 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    integer                               :: NJet        !< Number of jets
# 418 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    real(wp), allocatable, dimension(:,:) :: ih  ! Array to store interface height in
# 418 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    logical                               :: file_exist  ! Flag to check if file exists
# 418 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 418 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    eps = 1e-9_wp
# 418 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 418 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    if (patch_icpp(patch_id)%hcid == 303) then  ! IGR Multijet
# 418 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        eps_smooth = 3._wp
# 418 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        inquire (file="njet.txt", exist=file_exist)
# 418 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        if (file_exist) then
# 418 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            open (unit=10, file="njet.txt", status="old", action="read")
# 418 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            read (10, *) njet
# 418 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            close (10)
# 418 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        else
# 418 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            call s_mpi_abort("Error: njet.txt file specified for hcid=303 does not exist")
# 418 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        end if
# 418 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 418 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#ifdef MFC_DEBUG
# 418 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    block
# 418 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        use iso_fortran_env, only: output_unit
# 418 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 418 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        print *, 'm_icpp_patches.fpp:418: ', '@:ALLOCATE(y_th_arr(0:NJet - 1))'
# 418 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 418 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        call flush (output_unit)
# 418 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    end block
# 418 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#endif
# 418 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    allocate (y_th_arr(0:njet - 1))
# 418 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 418 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 418 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#if defined(MFC_OpenACC)
# 418 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
!$acc enter data create(y_th_arr) 
# 418 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#elif defined(MFC_OpenMP)
# 418 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
!$omp target enter data map(always,alloc:y_th_arr) 
# 418 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#endif
# 418 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#ifdef MFC_DEBUG
# 418 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    block
# 418 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        use iso_fortran_env, only: output_unit
# 418 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 418 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        print *, 'm_icpp_patches.fpp:418: ', '@:ALLOCATE(z_th_arr(0:NJet - 1))'
# 418 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 418 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        call flush (output_unit)
# 418 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    end block
# 418 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#endif
# 418 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    allocate (z_th_arr(0:njet - 1))
# 418 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 418 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 418 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#if defined(MFC_OpenACC)
# 418 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
!$acc enter data create(z_th_arr) 
# 418 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#elif defined(MFC_OpenMP)
# 418 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
!$omp target enter data map(always,alloc:z_th_arr) 
# 418 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#endif
# 418 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#ifdef MFC_DEBUG
# 418 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    block
# 418 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        use iso_fortran_env, only: output_unit
# 418 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 418 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        print *, 'm_icpp_patches.fpp:418: ', '@:ALLOCATE(r_th_arr(0:NJet - 1))'
# 418 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 418 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        call flush (output_unit)
# 418 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    end block
# 418 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#endif
# 418 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    allocate (r_th_arr(0:njet - 1))
# 418 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 418 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 418 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#if defined(MFC_OpenACC)
# 418 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
!$acc enter data create(r_th_arr) 
# 418 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#elif defined(MFC_OpenMP)
# 418 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
!$omp target enter data map(always,alloc:r_th_arr) 
# 418 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#endif
# 418 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 418 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        inquire (file="jets.csv", exist=file_exist)
# 418 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        if (file_exist) then
# 418 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            open (unit=10, file="jets.csv", status="old", action="read")
# 418 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            do q = 0, njet - 1
# 418 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                read (10, '(A)') line  ! Read a full line as a string
# 418 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                start = 1
# 418 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 418 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                do l = 0, 2
# 418 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    end = index(line(start:), ',')  ! Find the next comma
# 418 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    if (end == 0) then
# 418 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                        value = trim(adjustl(line(start:)))  ! Last value in the line
# 418 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    else
# 418 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                        value = trim(adjustl(line(start:start + end - 2)))  ! Extract substring
# 418 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                        start = start + end  ! Move to next value
# 418 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    end if
# 418 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    if (l == 0) then
# 418 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                        read (value, *) y_th_arr(q)  ! Convert string to numeric value
# 418 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    else if (l == 1) then
# 418 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                        read (value, *) z_th_arr(q)
# 418 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    else
# 418 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                        read (value, *) r_th_arr(q)
# 418 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    end if
# 418 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                end do
# 418 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            end do
# 418 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            close (10)
# 418 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 418 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            do q = 0, p
# 418 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                do l = 0, n
# 418 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    rcut = 0._wp
# 418 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    do s = 0, njet - 1
# 418 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                        r = sqrt((y_cc(l) - y_th_arr(s))**2._wp + (z_cc(q) - z_th_arr(s))**2._wp)
# 418 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                        rcut = rcut + f_cut_on(r - r_th_arr(s), eps_smooth)
# 418 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    end do
# 418 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    rcut_arr(l, q) = rcut
# 418 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                end do
# 418 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            end do
# 418 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        else
# 418 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            call s_mpi_abort("Error: jets.csv file specified for hcid=303 does not exist")
# 418 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        end if
# 418 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    end if
# 418 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 418 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    if (patch_icpp(patch_id)%hcid == 304) then  ! 3D Cartesian interface from file
# 418 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#ifdef MFC_DEBUG
# 418 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    block
# 418 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        use iso_fortran_env, only: output_unit
# 418 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 418 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        print *, 'm_icpp_patches.fpp:418: ', '@:ALLOCATE(ih(0:n_glb, 0:p_glb))'
# 418 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 418 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        call flush (output_unit)
# 418 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    end block
# 418 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#endif
# 418 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    allocate (ih(0:n_glb, 0:p_glb))
# 418 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 418 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 418 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#if defined(MFC_OpenACC)
# 418 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
!$acc enter data create(ih) 
# 418 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#elif defined(MFC_OpenMP)
# 418 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
!$omp target enter data map(always,alloc:ih) 
# 418 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#endif
# 418 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 418 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        if (interface_file == '.') then
# 418 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            call s_mpi_abort("Error: interface_file must be specified for hcid=304")
# 418 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        else
# 418 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            inquire (file=trim(interface_file), exist=file_exist)
# 418 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            if (file_exist) then
# 418 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                open (unit=10, file=trim(interface_file), status="old", action="read")
# 418 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                do i = 0, n_glb
# 418 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    read (10, '(A)') line  ! Read a full line as a string
# 418 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    start = 1
# 418 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 418 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    do j = 0, p_glb
# 418 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                        end = index(line(start:), ',')  ! Find the next comma
# 418 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                        if (end == 0) then
# 418 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                            value = trim(adjustl(line(start:)))  ! Last value in the line
# 418 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                        else
# 418 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                            value = trim(adjustl(line(start:start + end - 2)))  ! Extract substring
# 418 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                            start = start + end  ! Move to next value
# 418 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                        end if
# 418 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                        read (value, *) ih(i, j)  ! Convert string to numeric value
# 418 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                        if (.not. f_is_default(normmag)) ih(i, j) = ih(i, j)*normmag
# 418 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                        if (.not. f_is_default(normfac)) ih(i, j) = ih(i, j) + normfac
# 418 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    end do
# 418 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                end do
# 418 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                close (10)
# 418 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            else
# 418 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                call s_mpi_abort("Error: interface_file specified for hcid=304 does not exist")
# 418 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            end if
# 418 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        end if
# 418 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    end if
# 418 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 418 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    if (patch_icpp(patch_id)%hcid == 305) then  ! 3D Axisymmetric interface from file
# 418 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#ifdef MFC_DEBUG
# 418 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    block
# 418 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        use iso_fortran_env, only: output_unit
# 418 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 418 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        print *, 'm_icpp_patches.fpp:418: ', '@:ALLOCATE(ih(0:n_glb, 0:0))'
# 418 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 418 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        call flush (output_unit)
# 418 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    end block
# 418 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#endif
# 418 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    allocate (ih(0:n_glb, 0:0))
# 418 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 418 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 418 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#if defined(MFC_OpenACC)
# 418 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
!$acc enter data create(ih) 
# 418 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#elif defined(MFC_OpenMP)
# 418 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
!$omp target enter data map(always,alloc:ih) 
# 418 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#endif
# 418 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        if (interface_file == '.') then
# 418 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            call s_mpi_abort("Error: interface_file must be specified for hcid=305")
# 418 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        else
# 418 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            inquire (file=trim(interface_file), exist=file_exist)
# 418 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            if (file_exist) then
# 418 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                open (unit=10, file=trim(interface_file), status="old", action="read")
# 418 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                do i = 0, n_glb
# 418 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    read (10, '(A)') line  ! Read a full line as a string
# 418 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    value = trim(line)
# 418 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    read (value, *) ih(i, 0)  ! Convert string to numeric value
# 418 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    if (.not. f_is_default(normmag)) ih(i, 0) = ih(i, 0)*normmag
# 418 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    if (.not. f_is_default(normfac)) ih(i, 0) = ih(i, 0) + normfac
# 418 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                end do
# 418 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                close (10)
# 418 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            else
# 418 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                call s_mpi_abort("Error: interface_file specified for hcid=305 does not exist")
# 418 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            end if
# 418 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        end if
# 418 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    end if
 
        ! Transferring the circular patch's radius, centroid, smearing patch identity and smearing coefficient information
        x_centroid = patch_icpp(patch_id)%x_centroid
        y_centroid = patch_icpp(patch_id)%y_centroid
        z_centroid = patch_icpp(patch_id)%z_centroid
        length_z = patch_icpp(patch_id)%length_z
        radius = patch_icpp(patch_id)%radius
        smooth_patch_id = patch_icpp(patch_id)%smooth_patch_id
        smooth_coeff = patch_icpp(patch_id)%smooth_coeff
        thickness = patch_icpp(patch_id)%epsilon
 
        ! Initialize eta=1; modified if smoothing is enabled
        eta = 1._wp
 
        ! write for all z
 
        ! Assign patch vars if cell is covered and patch has write permission
        do k = 0, p
            do j = 0, n
                do i = 0, m
                    myr = sqrt((x_cc(i) - x_centroid)**2 + (y_cc(j) - y_centroid)**2)
 
                    if (myr <= radius + thickness/2._wp .and. myr >= radius - thickness/2._wp &
                        & .and. patch_icpp(patch_id)%alter_patch(patch_id_fp(i, j, k))) then
                        call s_assign_patch_primitive_variables(patch_id, i, j, k, eta, q_prim_vf, patch_id_fp)
 
 
                        if (patch_icpp(patch_id)%hcid /= dflt_int) then
    select case (patch_icpp(patch_id)%hcid)
# 447 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    case (300)  ! Rayleigh-Taylor instability
# 447 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        rhoh = 3._wp
# 447 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        rhol = 1._wp
# 447 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        pref = 1.e5_wp
# 447 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        pint = pref
# 447 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        h = 0.7_wp
# 447 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        lam = 0.2_wp
# 447 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        wl = 2._wp*pi/lam
# 447 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        amp = 0.025_wp/wl
# 447 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 447 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        inth = amp*(sin(2._wp*pi*x_cc(i)/lam - pi/2._wp) + sin(2._wp*pi*z_cc(k)/lam - pi/2._wp)) + h
# 447 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 447 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        alph = 5.e-1_wp*(1._wp + tanh((y_cc(j) - inth)/2.5e-3_wp))
# 447 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 447 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        if (alph < eps) alph = eps
# 447 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        if (alph > 1._wp - eps) alph = 1._wp - eps
# 447 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 447 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        if (y_cc(j) > inth) then
# 447 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%adv%beg)%sf(i, j, k) = alph
# 447 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%adv%end)%sf(i, j, k) = 1._wp - alph
# 447 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%cont%beg)%sf(i, j, k) = alph*rhoh
# 447 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%cont%end)%sf(i, j, k) = (1._wp - alph)*rhol
# 447 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%E)%sf(i, j, k) = pref + rhoh*9.81_wp*(1.2_wp - y_cc(j))
# 447 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        else
# 447 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%adv%beg)%sf(i, j, k) = alph
# 447 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%adv%end)%sf(i, j, k) = 1._wp - alph
# 447 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%cont%beg)%sf(i, j, k) = alph*rhoh
# 447 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%cont%end)%sf(i, j, k) = (1._wp - alph)*rhol
# 447 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            pint = pref + rhoh*9.81_wp*(1.2_wp - inth)
# 447 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%E)%sf(i, j, k) = pint + rhol*9.81_wp*(inth - y_cc(j))
# 447 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        end if
# 447 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    case (301)  ! (3D lung geometry in X direction, |sin(*)+sin(*)|)
# 447 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        h = 0.0_wp
# 447 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        lam = 1.0_wp
# 447 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        amp = patch_icpp(patch_id)%a(2)
# 447 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        inth = amp*abs((sin(2*pi*y_cc(j)/lam - pi/2) + sin(2*pi*z_cc(k)/lam - pi/2)) + h)
# 447 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        if (x_cc(i) > inth) then
# 447 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%cont%beg)%sf(i, j, k) = patch_icpp(1)%alpha_rho(1)
# 447 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%cont%end)%sf(i, j, k) = patch_icpp(1)%alpha_rho(2)
# 447 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%E)%sf(i, j, k) = patch_icpp(1)%pres
# 447 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%adv%beg)%sf(i, j, k) = patch_icpp(1)%alpha(1)
# 447 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%adv%end)%sf(i, j, k) = patch_icpp(1)%alpha(2)
# 447 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        end if
# 447 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    case (302)  ! 3D Jet with IGR
# 447 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ux_th = 10*sqrt(1.4*0.4)
# 447 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ux_am = 0.0*sqrt(1.4)
# 447 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        p_th = 2.0_wp
# 447 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        p_am = 1.0_wp
# 447 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        rho_th = 1._wp
# 447 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        rho_am = 1._wp
# 447 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        y_th = 0.0_wp
# 447 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        z_th = 0.0_wp
# 447 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        r_th = 1._wp
# 447 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        eps_smooth = 1._wp
# 447 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        eps = 1e-6
# 447 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 447 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        r = sqrt((y_cc(j) - y_th)**2._wp + (z_cc(k) - z_th)**2._wp)
# 447 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        rcut = f_cut_on(r - r_th, eps_smooth)
# 447 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        xcut = f_cut_on(x_cc(i), eps_smooth)
# 447 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 447 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        q_prim_vf(eqn_idx%mom%beg)%sf(i, j, k) = ux_th*rcut*xcut + ux_am
# 447 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        q_prim_vf(eqn_idx%mom%beg + 1)%sf(i, j, k) = 0._wp
# 447 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        q_prim_vf(eqn_idx%mom%end)%sf(i, j, k) = 0._wp
# 447 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 447 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        if (num_fluids == 1) then
# 447 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%cont%beg)%sf(i, j, k) = (rho_th - rho_am)*rcut*xcut + rho_am
# 447 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        else
# 447 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%adv%beg)%sf(i, j, k) = (1._wp - 2._wp*eps)*rcut*xcut + eps
# 447 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%cont%beg)%sf(i, j, k) = rho_th*q_prim_vf(eqn_idx%adv%beg)%sf(i, j, k)
# 447 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%cont%end)%sf(i, j, k) = rho_am*(1._wp - q_prim_vf(eqn_idx%adv%beg)%sf(i, j, k))
# 447 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        end if
# 447 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 447 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        q_prim_vf(eqn_idx%E)%sf(i, j, k) = p_th*rcut*xcut + p_am
# 447 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    case (303)  ! 3D Multijet
# 447 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        eps_smooth = 3.0_wp
# 447 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ux_th = 10*sqrt(1.4*0.4)
# 447 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ux_am = 2.5*sqrt(1.4*0.4)
# 447 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        p_th = 0.8_wp
# 447 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        p_am = 0.4_wp
# 447 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        rho_th = 1._wp
# 447 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        rho_am = 1._wp
# 447 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        eps = 1e-6
# 447 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 447 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        rcut = rcut_arr(j, k)
# 447 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        xcut = f_cut_on(x_cc(i), eps_smooth)
# 447 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 447 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        q_prim_vf(eqn_idx%mom%beg)%sf(i, j, k) = ux_th*rcut*xcut + ux_am
# 447 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        q_prim_vf(eqn_idx%mom%beg + 1)%sf(i, j, k) = 0._wp
# 447 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        q_prim_vf(eqn_idx%mom%end)%sf(i, j, k) = 0._wp
# 447 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 447 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        if (num_fluids == 1) then
# 447 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%cont%beg)%sf(i, j, k) = (rho_th - rho_am)*rcut*xcut + rho_am
# 447 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        else
# 447 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%adv%beg)%sf(i, j, k) = (1._wp - 2._wp*eps)*rcut*xcut + eps
# 447 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%cont%beg)%sf(i, j, k) = rho_th*q_prim_vf(eqn_idx%adv%beg)%sf(i, j, k)
# 447 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%cont%end)%sf(i, j, k) = rho_am*(1._wp - q_prim_vf(eqn_idx%adv%beg)%sf(i, j, k))
# 447 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        end if
# 447 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 447 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        q_prim_vf(eqn_idx%E)%sf(i, j, k) = p_th*rcut*xcut + p_am
# 447 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    case (304)  ! 3D Interface from file cartesian
# 447 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        alph = 0.5_wp*(1 + (1._wp - 2._wp*eps)*tanh((ih(start_idx(2) + j, start_idx(3) + k) - x_cc(i))*(0.5_wp/dx)))
# 447 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 447 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        q_prim_vf(eqn_idx%adv%beg)%sf(i, j, k) = alph
# 447 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        q_prim_vf(eqn_idx%adv%end)%sf(i, j, k) = 1._wp - alph
# 447 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 447 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        q_prim_vf(eqn_idx%cont%beg)%sf(i, j, k) = q_prim_vf(eqn_idx%adv%beg)%sf(i, j, k)*(950._wp/1000._wp)
# 447 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        q_prim_vf(eqn_idx%cont%end)%sf(i, j, k) = q_prim_vf(eqn_idx%adv%end)%sf(i, j, k)*(1._wp/1000._wp)
# 447 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 447 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        q_prim_vf(eqn_idx%E)%sf(i, j, k) = p0_ic + (q_prim_vf(eqn_idx%cont%beg)%sf(i, j, k) + q_prim_vf(eqn_idx%cont%end)%sf(i, &
# 447 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                  & j, k))*g0_ic*(ih(start_idx(2) + j, start_idx(3) + k) - x_cc(i))
# 447 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 447 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        if (surface_tension) q_prim_vf(eqn_idx%c)%sf(i, j, k) = alph
# 447 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    case (305)  ! 3D Interface from file axisymmetric
# 447 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        alph = 0.5_wp*(1 + (1._wp - 2._wp*eps)*tanh((ih(start_idx(2) + j, 0) - x_cc(i))*(0.01_wp/dx)))
# 447 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 447 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        q_prim_vf(eqn_idx%adv%beg)%sf(i, j, k) = alph
# 447 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        q_prim_vf(eqn_idx%adv%end)%sf(i, j, k) = 1._wp - alph
# 447 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 447 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        q_prim_vf(eqn_idx%cont%beg)%sf(i, j, k) = q_prim_vf(eqn_idx%adv%beg)%sf(i, j, k)*1._wp
# 447 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        q_prim_vf(eqn_idx%cont%end)%sf(i, j, k) = q_prim_vf(eqn_idx%adv%end)%sf(i, j, k)*(1._wp/950._wp)
# 447 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 447 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        q_prim_vf(eqn_idx%E)%sf(i, j, k) = p0_ic + (q_prim_vf(eqn_idx%cont%beg)%sf(i, j, k) + q_prim_vf(eqn_idx%cont%end)%sf(i, &
# 447 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                  & j, k))*g0_ic*(ih(start_idx(1) + i, start_idx(3) + k) - y_cc(j))
# 447 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 447 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        if (surface_tension) q_prim_vf(eqn_idx%c)%sf(i, j, k) = alph
# 447 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    case (370)  ! 3D extrusion of 2D profile from external data
# 447 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! This hardcoded case extrudes a 2D profile to initialize a 3D simulation domain
# 447 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    if (.not. files_loaded) then
# 447 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        max_files = merge(sys_size, sys_size - 1, num_dims == 1)
# 447 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        do f = 1, max_files
# 447 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            write (file_num_str, '(I0)') f
# 447 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            filenames(f) = trim(files_dir) // "/" // "prim." // trim(file_num_str) // ".00." // trim(file_extension) // ".dat"
# 447 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        end do
# 447 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 447 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! Common file reading setup
# 447 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        open (newunit=unit2, file=trim(filenames(1)), status='old', action='read', iostat=ios2)
# 447 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        if (ios2 /= 0) call s_mpi_abort("Error opening file: " // trim(filenames(1)))
# 447 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 447 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        select case (num_dims)
# 447 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        case (1, 2)  ! 1D and 2D cases are similar
# 447 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            ! Count lines
# 447 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            line_count = 0
# 447 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            do
# 447 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                read (unit2, *, iostat=ios2) dummy_x, dummy_y
# 447 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                if (ios2 /= 0) exit
# 447 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                line_count = line_count + 1
# 447 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            end do
# 447 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            close (unit2)
# 447 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 447 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            xrows = line_count
# 447 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            yrows = 1
# 447 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            index_x = 0
# 447 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            if (num_dims == 2) index_x = i
# 447 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#ifdef MFC_DEBUG
# 447 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    block
# 447 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        use iso_fortran_env, only: output_unit
# 447 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 447 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        print *, 'm_icpp_patches.fpp:447: ', '@:ALLOCATE(x_coords(xRows), stored_values(xRows, 1, sys_size))'
# 447 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 447 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        call flush (output_unit)
# 447 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    end block
# 447 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#endif
# 447 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    allocate (x_coords(xrows), stored_values(xrows, 1, sys_size))
# 447 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 447 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 447 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 447 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#if defined(MFC_OpenACC)
# 447 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
!$acc enter data create(x_coords, stored_values) 
# 447 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#elif defined(MFC_OpenMP)
# 447 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
!$omp target enter data map(always,alloc:x_coords, stored_values) 
# 447 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#endif
# 447 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 447 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            ! Read data from all files
# 447 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            do f = 1, max_files
# 447 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                open (newunit=unit, file=trim(filenames(f)), status='old', action='read', iostat=ios)
# 447 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                if (ios /= 0) call s_mpi_abort("Error opening file: " // trim(filenames(f)))
# 447 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 447 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                do iter = 1, xrows
# 447 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    read (unit, *, iostat=ios) x_coords(iter), stored_values(iter, 1, f)
# 447 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    if (ios /= 0) call s_mpi_abort("Error reading file: " // trim(filenames(f)))
# 447 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                end do
# 447 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                close (unit)
# 447 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            end do
# 447 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 447 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            ! Calculate offsets
# 447 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            domain_xstart = x_coords(1)
# 447 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            x_step = x_cc(1) - x_cc(0)
# 447 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            delta_x = merge(x_cc(0) - domain_xstart, x_cc(index_x) - domain_xstart, num_dims == 1)
# 447 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            global_offset_x = nint(abs(delta_x)/x_step)
# 447 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        case (3)  ! 3D case - determine grid structure
# 447 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            ! Find yRows by counting rows with same x
# 447 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            read (unit2, *, iostat=ios2) x0, y0, dummy_z
# 447 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            if (ios2 /= 0) call s_mpi_abort("Error reading first line")
# 447 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 447 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            yrows = 1
# 447 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            do
# 447 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                read (unit2, *, iostat=ios2) dummy_x, dummy_y, dummy_z
# 447 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                if (ios2 /= 0) exit
# 447 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                if (f_approx_equal(dummy_x, x0) .and. (.not. f_approx_equal(dummy_y, y0))) then
# 447 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    yrows = yrows + 1
# 447 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                else
# 447 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    exit
# 447 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                end if
# 447 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            end do
# 447 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            close (unit2)
# 447 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 447 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            ! Count total rows
# 447 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            open (newunit=unit2, file=trim(filenames(1)), status='old', action='read', iostat=ios2)
# 447 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            nrows = 0
# 447 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            do
# 447 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                read (unit2, *, iostat=ios2) dummy_x, dummy_y, dummy_z
# 447 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                if (ios2 /= 0) exit
# 447 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                nrows = nrows + 1
# 447 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            end do
# 447 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            close (unit2)
# 447 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 447 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            xrows = nrows/yrows
# 447 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#ifdef MFC_DEBUG
# 447 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    block
# 447 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        use iso_fortran_env, only: output_unit
# 447 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 447 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        print *, 'm_icpp_patches.fpp:447: ', '@:ALLOCATE(x_coords(nrows), y_coords(nrows), stored_values(xRows, yRows, sys_size))'
# 447 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 447 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        call flush (output_unit)
# 447 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    end block
# 447 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#endif
# 447 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    allocate (x_coords(nrows), y_coords(nrows), stored_values(xrows, yrows, sys_size))
# 447 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 447 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 447 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 447 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 447 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#if defined(MFC_OpenACC)
# 447 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
!$acc enter data create(x_coords, y_coords, stored_values) 
# 447 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#elif defined(MFC_OpenMP)
# 447 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
!$omp target enter data map(always,alloc:x_coords, y_coords, stored_values) 
# 447 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#endif
# 447 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            index_x = i
# 447 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            index_y = j
# 447 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 447 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            ! Read all files
# 447 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            do f = 1, max_files
# 447 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                open (newunit=unit, file=trim(filenames(f)), status='old', action='read', iostat=ios)
# 447 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                if (ios /= 0) then
# 447 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    if (f == 1) call s_mpi_abort("Error opening file: " // trim(filenames(f)))
# 447 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    cycle
# 447 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                end if
# 447 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 447 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                iter = 0
# 447 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                do iix = 1, xrows
# 447 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    do iiy = 1, yrows
# 447 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                        iter = iter + 1
# 447 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                        if (f == 1) then
# 447 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                            read (unit, *, iostat=ios) x_coords(iter), y_coords(iter), stored_values(iix, iiy, f)
# 447 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                        else
# 447 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                            read (unit, *, iostat=ios) dummy_x, dummy_y, stored_values(iix, iiy, f)
# 447 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                        end if
# 447 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                        if (ios /= 0) call s_mpi_abort("Error reading data")
# 447 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    end do
# 447 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                end do
# 447 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                close (unit)
# 447 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            end do
# 447 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 447 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            ! Calculate offsets
# 447 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            x_step = x_cc(1) - x_cc(0)
# 447 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            y_step = y_cc(1) - y_cc(0)
# 447 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            delta_x = x_cc(index_x) - x_coords(1)
# 447 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            delta_y = y_cc(index_y) - y_coords(1)
# 447 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            global_offset_x = nint(abs(delta_x)/x_step)
# 447 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            global_offset_y = nint(abs(delta_y)/y_step)
# 447 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        end select
# 447 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 447 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        files_loaded = .true.
# 447 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    end if
# 447 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 447 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    ! Data assignment
# 447 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    select case (num_dims)
# 447 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    case (1)
# 447 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        idx = i + 1 + global_offset_x
# 447 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! idx must land inside the file's row range: this rank's subdomain offset
# 447 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! (global_offset_x) was derived from this rank's own grid, so a miss means the
# 447 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! IC file is misaligned/mis-sized for the run grid, not a normal boundary case.
# 447 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        if (idx < 1 .or. idx > xrows) &
# 447 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            & call s_mpi_abort("Hardcoded IC extrusion: row index out of range (IC file misaligned with the run grid)")
# 447 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        do f = 1, sys_size
# 447 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(f)%sf(i, 0, 0) = stored_values(idx, 1, f)
# 447 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        end do
# 447 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    case (2)
# 447 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        idx = i + 1 + global_offset_x - index_x
# 447 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        if (idx < 1 .or. idx > xrows) &
# 447 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            & call s_mpi_abort("Hardcoded IC extrusion: row index out of range (IC file misaligned with the run grid)")
# 447 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        do f = 1, sys_size - 1
# 447 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            jump = merge(1, 0, f >= eqn_idx%mom%end)
# 447 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(f + jump)%sf(i, j, 0) = stored_values(idx, 1, f)
# 447 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        end do
# 447 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        q_prim_vf(eqn_idx%mom%end)%sf(i, j, 0) = 0.0_wp
# 447 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    case (3)
# 447 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        idx = i + 1 + global_offset_x - index_x
# 447 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        idy = j + 1 + global_offset_y - index_y
# 447 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        if (idx < 1 .or. idx > xrows .or. idy < 1 .or. idy > yrows) &
# 447 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            & call s_mpi_abort("Hardcoded IC extrusion: row/column index out of range (IC file misaligned with the run grid)")
# 447 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        do f = 1, sys_size - 1
# 447 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            jump = merge(1, 0, f >= eqn_idx%mom%end)
# 447 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(f + jump)%sf(i, j, k) = stored_values(idx, idy, f)
# 447 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        end do
# 447 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        q_prim_vf(eqn_idx%mom%end)%sf(i, j, k) = 0.0_wp
# 447 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    end select
# 447 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    case (380)  ! Taylor-Green vortex
# 447 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! This is patch is hard-coded for test suite optimization used in the 3D_TaylorGreenVortex case: This analytic patch used
# 447 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! geometry 9
# 447 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        mach = 0.1
# 447 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        if (patch_id == 1) then
# 447 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%E)%sf(i, j, &
# 447 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                      & k) = 101325 + (mach**2*376.636429464809**2/16)*(cos(2*x_cc(i)/1) + cos(2*y_cc(j)/1))*(cos(2*z_cc(k)/1) + 2)
# 447 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%mom%beg + 0)%sf(i, j, k) = mach*376.636429464809*sin(x_cc(i)/1)*cos(y_cc(j)/1)*sin(z_cc(k)/1)
# 447 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%mom%beg + 1)%sf(i, j, k) = -mach*376.636429464809*cos(x_cc(i)/1)*sin(y_cc(j)/1)*sin(z_cc(k)/1)
# 447 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        end if
# 447 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    case default
# 447 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        call s_int_to_str(patch_id, istr)
# 447 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        call s_mpi_abort("Invalid hcid specified for patch " // trim(istr))
# 447 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    end select
                        end if
 
                        ! Updating the patch identities bookkeeping variable
                        if (1._wp - eta < sgm_eps) patch_id_fp(i, j, k) = patch_id
 
                        q_prim_vf(eqn_idx%alf)%sf(i, j, &
                                  & k) = patch_icpp(patch_id)%alpha(1)*exp(-0.5_wp*((myr - radius)**2._wp)/(thickness/3._wp)**2._wp)
                    end if
                end do
            end do
        end do
    if (allocated(stored_values)) then
# 459 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#ifdef MFC_DEBUG
# 459 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    block
# 459 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        use iso_fortran_env, only: output_unit
# 459 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 459 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        print *, 'm_icpp_patches.fpp:459: ', '@:DEALLOCATE(stored_values)'
# 459 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 459 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        call flush (output_unit)
# 459 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    end block
# 459 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#endif
# 459 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 459 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#if defined(MFC_OpenACC)
# 459 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
!$acc exit data delete(stored_values) 
# 459 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#elif defined(MFC_OpenMP)
# 459 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
!$omp target exit data map(release:stored_values) 
# 459 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#endif
# 459 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    deallocate (stored_values)
# 459 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#ifdef MFC_DEBUG
# 459 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    block
# 459 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        use iso_fortran_env, only: output_unit
# 459 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 459 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        print *, 'm_icpp_patches.fpp:459: ', '@:DEALLOCATE(x_coords)'
# 459 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 459 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        call flush (output_unit)
# 459 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    end block
# 459 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#endif
# 459 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 459 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#if defined(MFC_OpenACC)
# 459 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
!$acc exit data delete(x_coords) 
# 459 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#elif defined(MFC_OpenMP)
# 459 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
!$omp target exit data map(release:x_coords) 
# 459 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#endif
# 459 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    deallocate (x_coords)
# 459 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    end if
# 459 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 459 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    if (allocated(y_coords)) then
# 459 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#ifdef MFC_DEBUG
# 459 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    block
# 459 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        use iso_fortran_env, only: output_unit
# 459 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 459 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        print *, 'm_icpp_patches.fpp:459: ', '@:DEALLOCATE(y_coords)'
# 459 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 459 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        call flush (output_unit)
# 459 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    end block
# 459 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#endif
# 459 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 459 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#if defined(MFC_OpenACC)
# 459 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
!$acc exit data delete(y_coords) 
# 459 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#elif defined(MFC_OpenMP)
# 459 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
!$omp target exit data map(release:y_coords) 
# 459 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#endif
# 459 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    deallocate (y_coords)
# 459 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    end if
# 459 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 459 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    files_loaded = .false.
# 459 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 459 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    if (allocated(stored_values274)) then
# 459 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#ifdef MFC_DEBUG
# 459 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    block
# 459 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        use iso_fortran_env, only: output_unit
# 459 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 459 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        print *, 'm_icpp_patches.fpp:459: ', '@:DEALLOCATE(stored_values274)'
# 459 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 459 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        call flush (output_unit)
# 459 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    end block
# 459 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#endif
# 459 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 459 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#if defined(MFC_OpenACC)
# 459 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
!$acc exit data delete(stored_values274) 
# 459 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#elif defined(MFC_OpenMP)
# 459 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
!$omp target exit data map(release:stored_values274) 
# 459 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#endif
# 459 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    deallocate (stored_values274)
# 459 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    end if
# 459 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 459 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    files_loaded274 = .false.
 
    end subroutine s_icpp_3dvarcircle
 
    !> The elliptical patch is a 2D geometry. The geometry of the patch is well-defined when its centroid and radii are provided.
    !! Note that the elliptical patch DOES allow for the smoothing of its boundary
    subroutine s_icpp_ellipse(patch_id, patch_id_fp, q_prim_vf)
 
        integer, intent(in) :: patch_id
 
#ifdef MFC_MIXED_PRECISION
        integer(kind=1), dimension(0:m,0:n,0:p), intent(inout) :: patch_id_fp
#else
        integer, dimension(0:m,0:n,0:p), intent(inout) :: patch_id_fp
#endif
        type(scalar_field), dimension(1:sys_size), intent(inout) :: q_prim_vf
        integer                                                  :: i, j, k  !< Generic loop operators
        real(wp)                                                 :: a, b
 
    integer                                 :: xRows, yRows, nRows, iix, iiy, max_files
# 478 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    integer                                 :: f, iter, unit, unit2, idx, idy, index_x, index_y, jump, line_count
# 478 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    real(wp)                                :: x_step, y_step
# 478 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    real(wp)                                :: dummy_x, dummy_y, dummy_z, x0, y0
# 478 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    integer                                 :: global_offset_x, global_offset_y  !< MPI subdomain offset
# 478 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    real(wp)                                :: delta_x, delta_y
# 478 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    character(len=300), dimension(sys_size) :: fileNames                         !< Arrays to store all data from files
# 478 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    real(wp), allocatable                   :: stored_values(:,:,:)
# 478 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    real(wp), allocatable                   :: x_coords(:), y_coords(:)
# 478 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    logical                                 :: files_loaded = .false.
# 478 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    real(wp)                                :: domain_xstart
# 478 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    character(len=20)                       :: file_num_str                      !< For storing the file number as a string
# 478 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    integer                                 :: ios
# 478 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    integer                                 :: ios2
# 478 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 478 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    ! hcid=274 (2dHardcodedIC.fpp): full 2D field from external data, no extrusion.
# 478 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    ! Declared here (not in Hardcoded2DVariables()) so it's visible wherever
# 478 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    ! HardcodedDeallocation() is called, matching the pattern of stored_values/x_coords/
# 478 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    ! y_coords/files_loaded above.
# 478 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    real(wp), allocatable, dimension(:,:,:) :: stored_values274
# 478 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    logical                                 :: files_loaded274 = .false.
# 478 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    integer                                 :: f274, ix274, iy274, unit274, ios274
# 478 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    integer                                 :: local_ix_beg274, local_iy_beg274
# 478 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    character(len=300)                      :: fname274
# 478 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    character(len=20)                       :: file_num_str274
# 478 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    real(wp)                                :: dummy_x274, dummy_y274, dummy_val274, x0_274, y0_274, x_step274, y_step274
# 478 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    real(wp)                                :: file_dx274, file_dy274, r_align274
    ! Place any declaration of intermediate variables here
# 479 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    real(wp) :: eps, eps_mhd, C_mhd
# 479 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    real(wp) :: r, rmax, gam, umax, p0
# 479 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    real(wp) :: rhoH, rhoL, pRef, pInt, h, lam, wl, amp, intH, intL, alph
# 479 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    real(wp) :: factor, x1c, y1c, x2c, y2c, r1c, r2c, cvortex, u1c, u2c, v1c, v2c, rvortex
# 479 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    real(wp) :: r0, alpha, r2
# 479 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    real(wp) :: sinA, cosA
# 479 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    real(wp) :: r_sq
# 479 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 479 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    ! # 283 - Gauss-averaged isentropic vortex (conserved-variable cell averages)
# 479 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    real(wp) :: gauss_xi(3), gauss_w(3), xq, yq, r2q, T_facq, wq
# 479 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    real(wp) :: rho_avg, rhou_avg, rhov_avg, E_avg
# 479 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    real(wp) :: rhoq, pq, uq, vq, Eq, vortex_eps
# 479 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    integer  :: igq, jgq
# 479 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 479 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    ! # 291 - Shear/Thermal Layer Case
# 479 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    real(wp) :: delta_shear, u_max, u_mean
# 479 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    real(wp) :: T_wall, T_inf, P_atm, T_loc
# 479 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    real(wp) :: delta_th, R_mix
# 479 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    real(wp) :: Y_N2, Y_O2, MW_N2, MW_O2
# 479 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    real(wp) :: bottom_blend_u, bottom_blend_T
# 479 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 479 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    ! # 207
# 479 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    real(wp) :: sigma, gauss1, gauss2
# 479 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 479 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    ! # 208
# 479 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    real(wp)            :: ei, d, fsm, alpha_air, alpha_sf6
# 479 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    real(wp)            :: y_center, y_dist, wave_phase, front_shift, x_mapped, interp_wt
# 479 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    integer             :: v, idx_lo, idx_hi, idx_mid
# 479 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    real(wp), parameter :: Ly_param = 0.00775735_wp
# 479 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    real(wp), parameter :: A_param = 0.1_wp*96.9880867_wp*10.0_wp**(-6.0_wp)
# 479 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    integer, parameter  :: Nwaves = 6
# 479 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    real(wp), parameter :: y0_ref = 0.0_wp
# 479 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 479 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    eps = 1.e-9_wp
 
        ! Transferring the elliptical patch's radii, centroid, smearing patch identity, and smearing coefficient information
        x_centroid = patch_icpp(patch_id)%x_centroid
        y_centroid = patch_icpp(patch_id)%y_centroid
        a = patch_icpp(patch_id)%radii(1)
        b = patch_icpp(patch_id)%radii(2)
        smooth_patch_id = patch_icpp(patch_id)%smooth_patch_id
        smooth_coeff = patch_icpp(patch_id)%smooth_coeff
 
        ! Initialize eta=1; modified if smoothing is enabled
        eta = 1._wp
 
        ! Assign patch vars if cell is covered and patch has write permission
        do j = 0, n
            do i = 0, m
                if (patch_icpp(patch_id)%smoothen) then
                    eta = tanh(smooth_coeff/min(dx, &
                               & dy)*(sqrt(((x_cc(i) - x_centroid)/a)**2 + ((y_cc(j) - y_centroid)/b)**2) - 1._wp))*(-0.5_wp) &
                               & + 0.5_wp
                end if
 
                if ((f_is_inside_ellipse(x_cc(i) - x_centroid, y_cc(j) - y_centroid, [2._wp*a, 2._wp*b, &
                    & 0._wp]) .and. patch_icpp(patch_id)%alter_patch(patch_id_fp(i, j, 0))) .or. patch_id_fp(i, j, &
                    & 0) == smooth_patch_id) then
                    call s_assign_patch_primitive_variables(patch_id, i, j, 0, eta, q_prim_vf, patch_id_fp)
 
 
                    if (patch_icpp(patch_id)%hcid /= dflt_int) then
    select case (patch_icpp(patch_id)%hcid)  ! 2D_hardcoded_ic example case
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    case (200)  ! Two-fluid cubic interface
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        if (y_cc(j) <= (-x_cc(i)**3 + 1)**(1._wp/3._wp)) then
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%adv%beg)%sf(i, j, 0) = eps
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%adv%end)%sf(i, j, 0) = 1._wp - eps
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%cont%beg)%sf(i, j, 0) = eps*1000._wp
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%cont%end)%sf(i, j, 0) = (1._wp - eps)*1._wp
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%E)%sf(i, j, 0) = 1000._wp
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        end if
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    case (202)  ! Gresho vortex (Gouasmi et al 2022 JCP)
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        r = ((x_cc(i) - 0.5_wp)**2 + (y_cc(j) - 0.5_wp)**2)**0.5_wp
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        rmax = 0.2_wp
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        gam = 1._wp + 1._wp/fluid_pp(1)%gamma
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        umax = 2*pi*rmax*patch_icpp(patch_id)%vel(2)
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        p0 = umax**2*(1._wp/(gam*patch_icpp(patch_id)%vel(2)**2) - 0.5_wp)
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        if (r < rmax) then
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%mom%beg)%sf(i, j, 0) = -(y_cc(j) - 0.5_wp)*umax/rmax
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%mom%end)%sf(i, j, 0) = (x_cc(i) - 0.5_wp)*umax/rmax
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%E)%sf(i, j, 0) = p0 + umax**2*((r/rmax)**2._wp/2._wp)
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        else if (r < 2*rmax) then
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%mom%beg)%sf(i, j, 0) = -((y_cc(j) - 0.5_wp)/r)*umax*(2._wp - r/rmax)
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%mom%end)%sf(i, j, 0) = ((x_cc(i) - 0.5_wp)/r)*umax*(2._wp - r/rmax)
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%E)%sf(i, j, 0) = p0 + umax**2*((r/rmax)**2/2._wp + 4*(1 - (r/rmax) + log(r/rmax)))
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        else
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%mom%beg)%sf(i, j, 0) = 0._wp
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%mom%end)%sf(i, j, 0) = 0._wp
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%E)%sf(i, j, 0) = p0 + umax**2*(-2 + 4*log(2._wp))
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        end if
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    case (203)  ! Gresho vortex (Gouasmi et al 2022 JCP) with density correction
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        r = ((x_cc(i) - 0.5_wp)**2._wp + (y_cc(j) - 0.5_wp)**2)**0.5_wp
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        rmax = 0.2_wp
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        gam = 1._wp + 1._wp/fluid_pp(1)%gamma
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        umax = 2*pi*rmax*patch_icpp(patch_id)%vel(2)
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        p0 = umax**2*(1._wp/(gam*patch_icpp(patch_id)%vel(2)**2) - 0.5_wp)
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        if (r < rmax) then
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%mom%beg)%sf(i, j, 0) = -(y_cc(j) - 0.5_wp)*umax/rmax
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%mom%end)%sf(i, j, 0) = (x_cc(i) - 0.5_wp)*umax/rmax
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%E)%sf(i, j, 0) = p0 + umax**2*((r/rmax)**2._wp/2._wp)
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        else if (r < 2*rmax) then
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%mom%beg)%sf(i, j, 0) = -((y_cc(j) - 0.5_wp)/r)*umax*(2._wp - r/rmax)
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%mom%end)%sf(i, j, 0) = ((x_cc(i) - 0.5_wp)/r)*umax*(2._wp - r/rmax)
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%E)%sf(i, j, 0) = p0 + umax**2*((r/rmax)**2/2._wp + 4._wp*(1._wp - (r/rmax) + log(r/rmax)))
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        else
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%mom%beg)%sf(i, j, 0) = 0._wp
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%mom%end)%sf(i, j, 0) = 0._wp
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%E)%sf(i, j, 0) = p0 + umax**2._wp*(-2._wp + 4*log(2._wp))
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        end if
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        q_prim_vf(eqn_idx%cont%beg)%sf(i, j, 0) = q_prim_vf(eqn_idx%E)%sf(i, j, 0)**(1._wp/gam)
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    case (204)  ! Rayleigh-Taylor instability
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        rhoh = 3._wp
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        rhol = 1._wp
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        pref = 1.e5_wp
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        pint = pref
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        h = 0.7_wp
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        lam = 0.2_wp
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        wl = 2._wp*pi/lam
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        amp = 0.05_wp/wl
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        inth = amp*sin(2._wp*pi*x_cc(i)/lam - pi/2._wp) + h
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        alph = 0.5_wp*(1._wp + tanh((y_cc(j) - inth)/2.5e-3_wp))
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        if (alph < eps) alph = eps
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        if (alph > 1._wp - eps) alph = 1._wp - eps
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        if (y_cc(j) > inth) then
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%adv%beg)%sf(i, j, 0) = alph
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%adv%end)%sf(i, j, 0) = 1._wp - alph
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%cont%beg)%sf(i, j, 0) = alph*rhoh
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%cont%end)%sf(i, j, 0) = (1._wp - alph)*rhol
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%E)%sf(i, j, 0) = pref + rhoh*9.81_wp*(1.2_wp - y_cc(j))
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        else
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%adv%beg)%sf(i, j, 0) = alph
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%adv%end)%sf(i, j, 0) = 1._wp - alph
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%cont%beg)%sf(i, j, 0) = alph*rhoh
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%cont%end)%sf(i, j, 0) = (1._wp - alph)*rhol
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            pint = pref + rhoh*9.81_wp*(1.2_wp - inth)
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%E)%sf(i, j, 0) = pint + rhol*9.81_wp*(inth - y_cc(j))
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        end if
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    case (205)  ! 2D lung wave interaction problem
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        h = 0.0_wp  ! non dim origin y
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        lam = 1.0_wp  ! non dim lambda
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        amp = patch_icpp(patch_id)%a(2)  ! to be changed later!       !non dim amplitude
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        inth = amp*sin(2*pi*x_cc(i)/lam - pi/2) + h
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        if (y_cc(j) > inth) then
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%cont%beg)%sf(i, j, 0) = patch_icpp(1)%alpha_rho(1)
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%cont%end)%sf(i, j, 0) = patch_icpp(1)%alpha_rho(2)
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%E)%sf(i, j, 0) = patch_icpp(1)%pres
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%adv%beg)%sf(i, j, 0) = patch_icpp(1)%alpha(1)
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%adv%end)%sf(i, j, 0) = patch_icpp(1)%alpha(2)
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        end if
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    case (206)  ! 2D lung wave interaction problem - horizontal domain
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        h = 0.0_wp  ! non dim origin y
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        lam = 1.0_wp  ! non dim lambda
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        amp = patch_icpp(patch_id)%a(2)
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        intl = amp*sin(2*pi*y_cc(j)/lam - pi/2) + h
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        if (x_cc(i) > intl) then  ! this is the liquid
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%cont%beg)%sf(i, j, 0) = patch_icpp(1)%alpha_rho(1)
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%cont%end)%sf(i, j, 0) = patch_icpp(1)%alpha_rho(2)
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%E)%sf(i, j, 0) = patch_icpp(1)%pres
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%adv%beg)%sf(i, j, 0) = patch_icpp(1)%alpha(1)
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%adv%end)%sf(i, j, 0) = patch_icpp(1)%alpha(2)
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        end if
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    case (207)  ! Kelvin Helmholtz Instability
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        sigma = 0.05_wp/sqrt(2.0_wp)
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        gauss1 = exp(-(y_cc(j) - 0.75_wp)**2/(2.0_wp*sigma**2))
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        gauss2 = exp(-(y_cc(j) - 0.25_wp)**2/(2.0_wp*sigma**2))
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        q_prim_vf(eqn_idx%mom%beg + 1)%sf(i, j, 0) = 0.1_wp*sin(4.0_wp*pi*x_cc(i))*(gauss1 + gauss2)
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    case (208)  ! Richtmeyer Meshkov Instability
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        lam = 1.0_wp
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        eps = 1.0e-6_wp
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ei = 5.0_wp
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! Smoothening function to smooth out sharp discontinuity in the interface
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        if (x_cc(i) <= 0.7_wp*lam) then
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            d = x_cc(i) - lam*(0.4_wp - 0.1_wp*sin(2.0_wp*pi*(y_cc(j)/lam + 0.25_wp)))
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            fsm = 0.5_wp*(1.0_wp + erf(d/(ei*sqrt(dx*dy))))
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            alpha_air = eps + (1.0_wp - 2.0_wp*eps)*fsm
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            alpha_sf6 = 1.0_wp - alpha_air
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%cont%beg)%sf(i, j, 0) = alpha_sf6*5.04_wp
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%cont%end)%sf(i, j, 0) = alpha_air*1.0_wp
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%adv%beg)%sf(i, j, 0) = alpha_sf6
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%adv%end)%sf(i, j, 0) = alpha_air
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        end if
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    case (250)  ! MHD Orszag-Tang vortex
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! gamma = 5/3 rho = 25/(36*pi) p = 5/(12*pi) v = (-sin(2*pi*y), sin(2*pi*x), 0) B = (-sin(2*pi*y)/sqrt(4*pi),
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! sin(4*pi*x)/sqrt(4*pi), 0)
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        q_prim_vf(eqn_idx%mom%beg)%sf(i, j, 0) = -sin(2._wp*pi*y_cc(j))
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        q_prim_vf(eqn_idx%mom%beg + 1)%sf(i, j, 0) = sin(2._wp*pi*x_cc(i))
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        q_prim_vf(eqn_idx%B%beg)%sf(i, j, 0) = -sin(2._wp*pi*y_cc(j))/sqrt(4._wp*pi)
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        q_prim_vf(eqn_idx%B%beg + 1)%sf(i, j, 0) = sin(4._wp*pi*x_cc(i))/sqrt(4._wp*pi)
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    case (251)  ! RMHD Cylindrical Blast Wave [Mignone, 2006: Section 4.3.1]
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        if (x_cc(i)**2 + y_cc(j)**2 < 0.08_wp**2) then
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%cont%beg)%sf(i, j, 0) = 0.01
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%E)%sf(i, j, 0) = 1.0
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        else if (x_cc(i)**2 + y_cc(j)**2 <= 1._wp**2) then
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            ! Linear interpolation between r=0.08 and r=1.0
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            factor = (1.0_wp - sqrt(x_cc(i)**2 + y_cc(j)**2))/(1.0_wp - 0.08_wp)
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%cont%beg)%sf(i, j, 0) = 0.01_wp*factor + 1.e-4_wp*(1.0_wp - factor)
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%E)%sf(i, j, 0) = 1.0_wp*factor + 3.e-5_wp*(1.0_wp - factor)
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        else
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%cont%beg)%sf(i, j, 0) = 1.e-4_wp
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%E)%sf(i, j, 0) = 3.e-5_wp
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        end if
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! case 252 is for the 2D MHD Rotor problem
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    case (252)  ! 2D MHD Rotor Problem
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! Ambient conditions are set in the JSON file. This case imposes the dense, rotating cylinder.
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        !
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! gamma = 1.4 Ambient medium (r > 0.1): rho = 1, p = 1, v = 0, B = (1,0,0) Rotor (r <= 0.1): rho = 10, p = 1 v has angular
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! velocity w=20, giving v_tan=2 at r=0.1
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! Calculate distance squared from the center
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        r_sq = (x_cc(i) - 0.5_wp)**2 + (y_cc(j) - 0.5_wp)**2
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! inner radius of 0.1
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        if (r_sq <= 0.1**2) then
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            ! -- Inside the rotor -- Set density uniformly to 10
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%cont%beg)%sf(i, j, 0) = 10._wp
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            ! Set vup constant rotation of rate v=2 v_x = -omega * (y - y_c) v_y = omega * (x - x_c)
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%mom%beg)%sf(i, j, 0) = -20._wp*(y_cc(j) - 0.5_wp)
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%mom%beg + 1)%sf(i, j, 0) = 20._wp*(x_cc(i) - 0.5_wp)
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            ! taper width of 0.015
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        else if (r_sq <= 0.115**2) then
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            ! linearly smooth the function between r = 0.1 and 0.115
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%cont%beg)%sf(i, j, 0) = 1._wp + 9._wp*(0.115_wp - sqrt(r_sq))/(0.015_wp)
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%mom%beg)%sf(i, j, 0) = -(2._wp/sqrt(r_sq))*(y_cc(j) - 0.5_wp)*(0.115_wp - sqrt(r_sq))/(0.015_wp)
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%mom%beg + 1)%sf(i, j, 0) = (2._wp/sqrt(r_sq))*(x_cc(i) - 0.5_wp)*(0.115_wp - sqrt(r_sq))/(0.015_wp)
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        end if
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    case (253)  ! MHD Smooth Magnetic Vortex
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! Section 5.2 of Implicit hybridized discontinuous Galerkin methods for compressible magnetohydrodynamics C. Ciuca, P.
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! Fernandez, A. Christophe, N.C. Nguyen, J. Peraire
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! velocity
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        q_prim_vf(eqn_idx%mom%beg)%sf(i, j, 0) = 1._wp - (y_cc(j)*exp(1 - (x_cc(i)**2 + y_cc(j)**2))/(2.*pi))
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        q_prim_vf(eqn_idx%mom%beg + 1)%sf(i, j, 0) = 1._wp + (x_cc(i)*exp(1 - (x_cc(i)**2 + y_cc(j)**2))/(2.*pi))
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! magnetic field
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        q_prim_vf(eqn_idx%B%beg)%sf(i, j, 0) = -y_cc(j)*exp(1 - (x_cc(i)**2 + y_cc(j)**2))/(2.*pi)
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        q_prim_vf(eqn_idx%B%beg + 1)%sf(i, j, 0) = x_cc(i)*exp(1 - (x_cc(i)**2 + y_cc(j)**2))/(2.*pi)
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! pressure
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        q_prim_vf(eqn_idx%E)%sf(i, j, &
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                  & 0) = 1._wp + (1 - 2._wp*(x_cc(i)**2 + y_cc(j)**2))*exp(1 - (x_cc(i)**2 + y_cc(j)**2))/((2._wp*pi)**3)
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    case (260)  ! Gaussian Divergence Pulse
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! Bx(x) = 1 + C * erf((x-0.5)/\sigma) => \partialBx/\partialx = C * (2/\sqrt\pi) * exp[-((x-0.5)/\sigma)**2] * (1/\sigma)
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! Choose C = \epsilon * \sigma * \sqrt\pi / 2 => \partialBx/\partialx = \epsilon * exp[-((x-0.5)/\sigma)**2] \psi is
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! initialized to zero everywhere.
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        eps_mhd = patch_icpp(patch_id)%a(2)
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        sigma = patch_icpp(patch_id)%a(3)
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        c_mhd = eps_mhd*sigma*sqrt(pi)*0.5_wp
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! B-field
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        q_prim_vf(eqn_idx%B%beg)%sf(i, j, 0) = 1._wp + c_mhd*erf((x_cc(i) - 0.5_wp)/sigma)
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    case (261)  ! Blob
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        r0 = 1._wp/sqrt(8._wp)
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        r2 = x_cc(i)**2 + y_cc(j)**2
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        r = sqrt(r2)
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        alpha = r/r0
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        if (alpha < 1) then
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%B%beg)%sf(i, j, 0) = 1._wp/sqrt(4._wp*pi)*(alpha**8 - 2._wp*alpha**4 + 1._wp)
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            ! q_prim_vf(eqn_idx%B%beg)%sf(i,j,0) = 1._wp/sqrt(4000._wp*pi) * (4096._wp*r2**4 - 128._wp*r2**2 + 1._wp)
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            ! q_prim_vf(eqn_idx%B%beg)%sf(i,j,0) = 1._wp/(4._wp*pi) * (alpha**8 - 2._wp*alpha**4 + 1._wp)
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            ! q_prim_vf(eqn_idx%E)%sf(i,j,0) = 6._wp - q_prim_vf(eqn_idx%B%beg)%sf(i,j,0)**2/2._wp
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        end if
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    case (262)  ! Tilted 2D MHD shock-tube at \alpha = arctan2 (\approx63.4 deg)
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! rotate by \alpha = atan(2)
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        alpha = atan(2._wp)
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        cosa = cos(alpha)
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        sina = sin(alpha)
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! projection along shock normal
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        r = x_cc(i)*cosa + y_cc(j)*sina
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        if (r <= 0.5_wp) then
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            ! LEFT state: \rho=1, v\parallel=+10, v\perp=0, p=20, B\parallel=B\perp=5/\sqrt(4\pi)
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%cont%beg)%sf(i, j, 0) = 1._wp
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%mom%beg)%sf(i, j, 0) = 10._wp*cosa
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%mom%beg + 1)%sf(i, j, 0) = 10._wp*sina
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%E)%sf(i, j, 0) = 20._wp
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%B%beg)%sf(i, j, 0) = (5._wp/sqrt(4._wp*pi))*cosa - (5._wp/sqrt(4._wp*pi))*sina
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%B%beg + 1)%sf(i, j, 0) = (5._wp/sqrt(4._wp*pi))*sina + (5._wp/sqrt(4._wp*pi))*cosa
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        else
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            ! RIGHT state: \rho=1, v\parallel=-10, v\perp=0, p=1, B\parallel=B\perp=5/\sqrt(4\pi)
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%cont%beg)%sf(i, j, 0) = 1._wp
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%mom%beg)%sf(i, j, 0) = -10._wp*cosa
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%mom%beg + 1)%sf(i, j, 0) = -10._wp*sina
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%E)%sf(i, j, 0) = 1._wp
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%B%beg)%sf(i, j, 0) = (5._wp/sqrt(4._wp*pi))*cosa - (5._wp/sqrt(4._wp*pi))*sina
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%B%beg + 1)%sf(i, j, 0) = (5._wp/sqrt(4._wp*pi))*sina + (5._wp/sqrt(4._wp*pi))*cosa
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        end if
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! v^z and B^z remain zero by default
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    case (270)  ! 2D extrusion of 1D profile from external data
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! This hardcoded case extrudes a 1D profile to initialize a 2D simulation domain
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    if (.not. files_loaded) then
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        max_files = merge(sys_size, sys_size - 1, num_dims == 1)
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        do f = 1, max_files
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            write (file_num_str, '(I0)') f
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            filenames(f) = trim(files_dir) // "/" // "prim." // trim(file_num_str) // ".00." // trim(file_extension) // ".dat"
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        end do
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! Common file reading setup
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        open (newunit=unit2, file=trim(filenames(1)), status='old', action='read', iostat=ios2)
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        if (ios2 /= 0) call s_mpi_abort("Error opening file: " // trim(filenames(1)))
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        select case (num_dims)
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        case (1, 2)  ! 1D and 2D cases are similar
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            ! Count lines
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            line_count = 0
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            do
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                read (unit2, *, iostat=ios2) dummy_x, dummy_y
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                if (ios2 /= 0) exit
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                line_count = line_count + 1
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            end do
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            close (unit2)
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            xrows = line_count
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            yrows = 1
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            index_x = 0
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            if (num_dims == 2) index_x = i
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#ifdef MFC_DEBUG
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    block
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        use iso_fortran_env, only: output_unit
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        print *, 'm_icpp_patches.fpp:508: ', '@:ALLOCATE(x_coords(xRows), stored_values(xRows, 1, sys_size))'
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        call flush (output_unit)
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    end block
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#endif
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    allocate (x_coords(xrows), stored_values(xrows, 1, sys_size))
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#if defined(MFC_OpenACC)
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
!$acc enter data create(x_coords, stored_values) 
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#elif defined(MFC_OpenMP)
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
!$omp target enter data map(always,alloc:x_coords, stored_values) 
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#endif
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            ! Read data from all files
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            do f = 1, max_files
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                open (newunit=unit, file=trim(filenames(f)), status='old', action='read', iostat=ios)
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                if (ios /= 0) call s_mpi_abort("Error opening file: " // trim(filenames(f)))
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                do iter = 1, xrows
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    read (unit, *, iostat=ios) x_coords(iter), stored_values(iter, 1, f)
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    if (ios /= 0) call s_mpi_abort("Error reading file: " // trim(filenames(f)))
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                end do
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                close (unit)
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            end do
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            ! Calculate offsets
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            domain_xstart = x_coords(1)
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            x_step = x_cc(1) - x_cc(0)
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            delta_x = merge(x_cc(0) - domain_xstart, x_cc(index_x) - domain_xstart, num_dims == 1)
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            global_offset_x = nint(abs(delta_x)/x_step)
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        case (3)  ! 3D case - determine grid structure
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            ! Find yRows by counting rows with same x
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            read (unit2, *, iostat=ios2) x0, y0, dummy_z
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            if (ios2 /= 0) call s_mpi_abort("Error reading first line")
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            yrows = 1
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            do
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                read (unit2, *, iostat=ios2) dummy_x, dummy_y, dummy_z
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                if (ios2 /= 0) exit
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                if (f_approx_equal(dummy_x, x0) .and. (.not. f_approx_equal(dummy_y, y0))) then
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    yrows = yrows + 1
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                else
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    exit
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                end if
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            end do
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            close (unit2)
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            ! Count total rows
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            open (newunit=unit2, file=trim(filenames(1)), status='old', action='read', iostat=ios2)
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            nrows = 0
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            do
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                read (unit2, *, iostat=ios2) dummy_x, dummy_y, dummy_z
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                if (ios2 /= 0) exit
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                nrows = nrows + 1
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            end do
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            close (unit2)
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            xrows = nrows/yrows
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#ifdef MFC_DEBUG
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    block
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        use iso_fortran_env, only: output_unit
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        print *, 'm_icpp_patches.fpp:508: ', '@:ALLOCATE(x_coords(nrows), y_coords(nrows), stored_values(xRows, yRows, sys_size))'
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        call flush (output_unit)
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    end block
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#endif
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    allocate (x_coords(nrows), y_coords(nrows), stored_values(xrows, yrows, sys_size))
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#if defined(MFC_OpenACC)
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
!$acc enter data create(x_coords, y_coords, stored_values) 
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#elif defined(MFC_OpenMP)
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
!$omp target enter data map(always,alloc:x_coords, y_coords, stored_values) 
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#endif
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            index_x = i
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            index_y = j
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            ! Read all files
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            do f = 1, max_files
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                open (newunit=unit, file=trim(filenames(f)), status='old', action='read', iostat=ios)
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                if (ios /= 0) then
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    if (f == 1) call s_mpi_abort("Error opening file: " // trim(filenames(f)))
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    cycle
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                end if
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                iter = 0
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                do iix = 1, xrows
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    do iiy = 1, yrows
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                        iter = iter + 1
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                        if (f == 1) then
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                            read (unit, *, iostat=ios) x_coords(iter), y_coords(iter), stored_values(iix, iiy, f)
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                        else
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                            read (unit, *, iostat=ios) dummy_x, dummy_y, stored_values(iix, iiy, f)
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                        end if
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                        if (ios /= 0) call s_mpi_abort("Error reading data")
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    end do
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                end do
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                close (unit)
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            end do
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            ! Calculate offsets
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            x_step = x_cc(1) - x_cc(0)
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            y_step = y_cc(1) - y_cc(0)
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            delta_x = x_cc(index_x) - x_coords(1)
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            delta_y = y_cc(index_y) - y_coords(1)
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            global_offset_x = nint(abs(delta_x)/x_step)
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            global_offset_y = nint(abs(delta_y)/y_step)
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        end select
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        files_loaded = .true.
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    end if
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    ! Data assignment
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    select case (num_dims)
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    case (1)
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        idx = i + 1 + global_offset_x
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! idx must land inside the file's row range: this rank's subdomain offset
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! (global_offset_x) was derived from this rank's own grid, so a miss means the
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! IC file is misaligned/mis-sized for the run grid, not a normal boundary case.
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        if (idx < 1 .or. idx > xrows) &
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            & call s_mpi_abort("Hardcoded IC extrusion: row index out of range (IC file misaligned with the run grid)")
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        do f = 1, sys_size
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(f)%sf(i, 0, 0) = stored_values(idx, 1, f)
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        end do
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    case (2)
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        idx = i + 1 + global_offset_x - index_x
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        if (idx < 1 .or. idx > xrows) &
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            & call s_mpi_abort("Hardcoded IC extrusion: row index out of range (IC file misaligned with the run grid)")
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        do f = 1, sys_size - 1
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            jump = merge(1, 0, f >= eqn_idx%mom%end)
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(f + jump)%sf(i, j, 0) = stored_values(idx, 1, f)
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        end do
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        q_prim_vf(eqn_idx%mom%end)%sf(i, j, 0) = 0.0_wp
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    case (3)
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        idx = i + 1 + global_offset_x - index_x
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        idy = j + 1 + global_offset_y - index_y
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        if (idx < 1 .or. idx > xrows .or. idy < 1 .or. idy > yrows) &
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            & call s_mpi_abort("Hardcoded IC extrusion: row/column index out of range (IC file misaligned with the run grid)")
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        do f = 1, sys_size - 1
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            jump = merge(1, 0, f >= eqn_idx%mom%end)
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(f + jump)%sf(i, j, k) = stored_values(idx, idy, f)
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        end do
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        q_prim_vf(eqn_idx%mom%end)%sf(i, j, k) = 0.0_wp
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    end select
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    case (273)  ! Temporal reacting mixing layer: 2D extrusion + streamwise velocity
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! @:HardcodedReadValues() always zeros mom%end (the extruded-axis velocity).
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! The mom%beg file slot is repurposed to carry the streamwise-velocity-vs-
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! cross-stream-position profile (real cross-stream velocity is legitimately
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! zero everywhere in the unperturbed base state), so swap it into mom%end and
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! zero out mom%beg's true physical value.
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    if (.not. files_loaded) then
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        max_files = merge(sys_size, sys_size - 1, num_dims == 1)
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        do f = 1, max_files
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            write (file_num_str, '(I0)') f
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            filenames(f) = trim(files_dir) // "/" // "prim." // trim(file_num_str) // ".00." // trim(file_extension) // ".dat"
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        end do
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! Common file reading setup
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        open (newunit=unit2, file=trim(filenames(1)), status='old', action='read', iostat=ios2)
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        if (ios2 /= 0) call s_mpi_abort("Error opening file: " // trim(filenames(1)))
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        select case (num_dims)
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        case (1, 2)  ! 1D and 2D cases are similar
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            ! Count lines
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            line_count = 0
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            do
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                read (unit2, *, iostat=ios2) dummy_x, dummy_y
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                if (ios2 /= 0) exit
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                line_count = line_count + 1
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            end do
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            close (unit2)
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            xrows = line_count
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            yrows = 1
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            index_x = 0
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            if (num_dims == 2) index_x = i
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#ifdef MFC_DEBUG
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    block
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        use iso_fortran_env, only: output_unit
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        print *, 'm_icpp_patches.fpp:508: ', '@:ALLOCATE(x_coords(xRows), stored_values(xRows, 1, sys_size))'
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        call flush (output_unit)
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    end block
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#endif
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    allocate (x_coords(xrows), stored_values(xrows, 1, sys_size))
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#if defined(MFC_OpenACC)
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
!$acc enter data create(x_coords, stored_values) 
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#elif defined(MFC_OpenMP)
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
!$omp target enter data map(always,alloc:x_coords, stored_values) 
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#endif
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            ! Read data from all files
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            do f = 1, max_files
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                open (newunit=unit, file=trim(filenames(f)), status='old', action='read', iostat=ios)
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                if (ios /= 0) call s_mpi_abort("Error opening file: " // trim(filenames(f)))
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                do iter = 1, xrows
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    read (unit, *, iostat=ios) x_coords(iter), stored_values(iter, 1, f)
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    if (ios /= 0) call s_mpi_abort("Error reading file: " // trim(filenames(f)))
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                end do
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                close (unit)
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            end do
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            ! Calculate offsets
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            domain_xstart = x_coords(1)
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            x_step = x_cc(1) - x_cc(0)
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            delta_x = merge(x_cc(0) - domain_xstart, x_cc(index_x) - domain_xstart, num_dims == 1)
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            global_offset_x = nint(abs(delta_x)/x_step)
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        case (3)  ! 3D case - determine grid structure
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            ! Find yRows by counting rows with same x
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            read (unit2, *, iostat=ios2) x0, y0, dummy_z
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            if (ios2 /= 0) call s_mpi_abort("Error reading first line")
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            yrows = 1
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            do
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                read (unit2, *, iostat=ios2) dummy_x, dummy_y, dummy_z
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                if (ios2 /= 0) exit
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                if (f_approx_equal(dummy_x, x0) .and. (.not. f_approx_equal(dummy_y, y0))) then
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    yrows = yrows + 1
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                else
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    exit
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                end if
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            end do
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            close (unit2)
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            ! Count total rows
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            open (newunit=unit2, file=trim(filenames(1)), status='old', action='read', iostat=ios2)
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            nrows = 0
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            do
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                read (unit2, *, iostat=ios2) dummy_x, dummy_y, dummy_z
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                if (ios2 /= 0) exit
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                nrows = nrows + 1
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            end do
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            close (unit2)
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            xrows = nrows/yrows
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#ifdef MFC_DEBUG
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    block
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        use iso_fortran_env, only: output_unit
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        print *, 'm_icpp_patches.fpp:508: ', '@:ALLOCATE(x_coords(nrows), y_coords(nrows), stored_values(xRows, yRows, sys_size))'
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        call flush (output_unit)
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    end block
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#endif
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    allocate (x_coords(nrows), y_coords(nrows), stored_values(xrows, yrows, sys_size))
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#if defined(MFC_OpenACC)
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
!$acc enter data create(x_coords, y_coords, stored_values) 
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#elif defined(MFC_OpenMP)
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
!$omp target enter data map(always,alloc:x_coords, y_coords, stored_values) 
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#endif
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            index_x = i
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            index_y = j
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            ! Read all files
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            do f = 1, max_files
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                open (newunit=unit, file=trim(filenames(f)), status='old', action='read', iostat=ios)
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                if (ios /= 0) then
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    if (f == 1) call s_mpi_abort("Error opening file: " // trim(filenames(f)))
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    cycle
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                end if
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                iter = 0
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                do iix = 1, xrows
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    do iiy = 1, yrows
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                        iter = iter + 1
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                        if (f == 1) then
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                            read (unit, *, iostat=ios) x_coords(iter), y_coords(iter), stored_values(iix, iiy, f)
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                        else
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                            read (unit, *, iostat=ios) dummy_x, dummy_y, stored_values(iix, iiy, f)
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                        end if
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                        if (ios /= 0) call s_mpi_abort("Error reading data")
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    end do
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                end do
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                close (unit)
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            end do
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            ! Calculate offsets
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            x_step = x_cc(1) - x_cc(0)
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            y_step = y_cc(1) - y_cc(0)
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            delta_x = x_cc(index_x) - x_coords(1)
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            delta_y = y_cc(index_y) - y_coords(1)
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            global_offset_x = nint(abs(delta_x)/x_step)
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            global_offset_y = nint(abs(delta_y)/y_step)
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        end select
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        files_loaded = .true.
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    end if
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    ! Data assignment
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    select case (num_dims)
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    case (1)
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        idx = i + 1 + global_offset_x
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! idx must land inside the file's row range: this rank's subdomain offset
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! (global_offset_x) was derived from this rank's own grid, so a miss means the
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! IC file is misaligned/mis-sized for the run grid, not a normal boundary case.
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        if (idx < 1 .or. idx > xrows) &
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            & call s_mpi_abort("Hardcoded IC extrusion: row index out of range (IC file misaligned with the run grid)")
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        do f = 1, sys_size
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(f)%sf(i, 0, 0) = stored_values(idx, 1, f)
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        end do
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    case (2)
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        idx = i + 1 + global_offset_x - index_x
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        if (idx < 1 .or. idx > xrows) &
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            & call s_mpi_abort("Hardcoded IC extrusion: row index out of range (IC file misaligned with the run grid)")
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        do f = 1, sys_size - 1
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            jump = merge(1, 0, f >= eqn_idx%mom%end)
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(f + jump)%sf(i, j, 0) = stored_values(idx, 1, f)
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        end do
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        q_prim_vf(eqn_idx%mom%end)%sf(i, j, 0) = 0.0_wp
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    case (3)
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        idx = i + 1 + global_offset_x - index_x
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        idy = j + 1 + global_offset_y - index_y
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        if (idx < 1 .or. idx > xrows .or. idy < 1 .or. idy > yrows) &
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            & call s_mpi_abort("Hardcoded IC extrusion: row/column index out of range (IC file misaligned with the run grid)")
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        do f = 1, sys_size - 1
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            jump = merge(1, 0, f >= eqn_idx%mom%end)
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(f + jump)%sf(i, j, k) = stored_values(idx, idy, f)
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        end do
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        q_prim_vf(eqn_idx%mom%end)%sf(i, j, k) = 0.0_wp
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    end select
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        q_prim_vf(eqn_idx%mom%end)%sf(i, j, 0) = q_prim_vf(eqn_idx%mom%beg)%sf(i, j, 0)
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        q_prim_vf(eqn_idx%mom%beg)%sf(i, j, 0) = 0.0_wp
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    case (274)  ! Full 2D field from external data (no extrusion)
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! Unlike case(270-273), this reads a genuinely 2D (x,y) field per variable, with no
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! extrusion direction and no zeroed component -- all sys_size variables are read and
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! assigned directly. Data files must have exactly (m_glb+1)*(n_glb+1) lines per
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! variable, in x-major order (outer loop x, inner loop y), matching this rank's
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! global grid exactly -- by construction, since the IC generator derives both the
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! grid and the file contents from the same computation.
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        !
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! A local cell's global (x, y) index is derived from x_cc(i)/y_cc(j) against the
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! file's own first coordinate and this rank's uniform grid spacing -- following the
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! same pattern as case(270)'s global_offset_x/y above -- rather than from start_idx:
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! start_idx is only allocated when parallel_io=T (s_initialize_parallel_io_common
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! returns before allocating it otherwise), so a serial-IO run (the default for
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! golden-file tests) would index into an unallocated array.
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        !
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! Every rank still scans the whole file (matching case(270)'s existing per-rank-reads-
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! everything pattern), but stored_values274 only holds this rank's LOCAL (0:m, 0:n)
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! slice rather than the full global grid -- a full-grid copy on every rank would scale
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! as O(m_glb*n_glb*sys_size) per rank, which is the wrong axis to duplicate work on for
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! a genuinely 2D (not 1D-profile) field. local_ix_beg274/local_iy_beg274 (this rank's
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! global cell offset) are pinned from f274==1's very first record, before any other
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! record is read, so every subsequent record -- across all variables -- can be tested
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! against this rank's range and dropped if it falls outside it.
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        x_step274 = x_cc(1) - x_cc(0)
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        y_step274 = y_cc(1) - y_cc(0)
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        if (.not. files_loaded274) then
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#ifdef MFC_DEBUG
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    block
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        use iso_fortran_env, only: output_unit
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        print *, 'm_icpp_patches.fpp:508: ', '@:ALLOCATE(stored_values274(0:m, 0:n, sys_size))'
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        call flush (output_unit)
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    end block
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#endif
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    allocate (stored_values274(0:m, 0:n, sys_size))
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#if defined(MFC_OpenACC)
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
!$acc enter data create(stored_values274) 
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#elif defined(MFC_OpenMP)
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
!$omp target enter data map(always,alloc:stored_values274) 
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#endif
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            do f274 = 1, sys_size
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                write (file_num_str274, '(I0)') f274
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                fname274 = trim(files_dir) // "/prim." // trim(file_num_str274) // ".00." // trim(file_extension) // ".dat"
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                open (newunit=unit274, file=trim(fname274), status='old', action='read', iostat=ios274)
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                if (ios274 /= 0) call s_mpi_abort("Error opening file: " // trim(fname274))
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                do ix274 = 0, m_glb
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    do iy274 = 0, n_glb
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                        read (unit274, *, iostat=ios274) dummy_x274, dummy_y274, dummy_val274
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                        if (ios274 /= 0) call s_mpi_abort("Error reading file (fewer lines than grid?): " // trim(fname274))
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                        ! Capture the file's own origin and spacing from its first records so we can
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                        ! confirm it was sampled on this run's grid (a silent mismatch would otherwise
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                        ! read a wrong partial slice -> nonphysical field -> VCFL=Inf downstream).
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                        if (f274 == 1) then
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                            if (ix274 == 0 .and. iy274 == 0) then
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                                x0_274 = dummy_x274
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                                y0_274 = dummy_y274
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                                local_ix_beg274 = nint((x_cc(0) - x0_274)/x_step274)
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                                local_iy_beg274 = nint((y_cc(0) - y0_274)/y_step274)
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                            end if
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                            if (ix274 == 1 .and. iy274 == 0) file_dx274 = dummy_x274 - x0_274
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                            if (ix274 == 0 .and. iy274 == 1) file_dy274 = dummy_y274 - y0_274
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                        end if
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                        if (ix274 - local_ix_beg274 >= 0 .and. ix274 - local_ix_beg274 <= m .and. iy274 - local_iy_beg274 >= 0 &
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                            & .and. iy274 - local_iy_beg274 <= n) then
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                            stored_values274(ix274 - local_ix_beg274, iy274 - local_iy_beg274, f274) = dummy_val274
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                        end if
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    end do
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                end do
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                ! The file must contain exactly (m_glb+1)*(n_glb+1) records: a successful extra
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                ! read means it was generated for a larger grid and would be silently misread.
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                read (unit274, *, iostat=ios274) dummy_x274, dummy_y274
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                if (ios274 == 0) call s_mpi_abort("hcid=274 file has more lines than the grid: " // trim(fname274))
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                close (unit274)
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            end do
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            ! The run grid must be aligned with the file grid (uniform grid assumed, as in case 270).
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            ! Check alignment via the integer cell offset of this rank's first cell from the file
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            ! origin -- decomposition-safe: on every MPI rank x_cc(0) sits an integer number of cells
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            ! into the global file, so a non-integer offset means a shifted/mismatched IC. (Comparing
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            ! x0_274 to x_cc(0) directly would false-abort every rank whose subdomain doesn't start at
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            ! the global origin.) The spacing checks below must also hold.
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            r_align274 = (x_cc(0) - x0_274)/x_step274
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            if (abs(r_align274 - nint(r_align274)) > 1.e-6_wp) &
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                & call s_mpi_abort("hcid=274 file x-grid is misaligned with the run grid; regenerate the IC for this grid.")
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            if (m_glb >= 1) then
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                if (abs(file_dx274 - x_step274) > 1.e-6_wp*abs(x_step274)) &
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    & call s_mpi_abort("hcid=274 file x-spacing does not match the grid; regenerate the IC for this grid.")
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            end if
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            if (n_glb >= 1) then
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                r_align274 = (y_cc(0) - y0_274)/y_step274
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                if (abs(r_align274 - nint(r_align274)) > 1.e-6_wp) &
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    & call s_mpi_abort("hcid=274 file y-grid is misaligned with the run grid; regenerate the IC for this grid.")
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                if (abs(file_dy274 - y_step274) > 1.e-6_wp*abs(y_step274)) &
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    & call s_mpi_abort("hcid=274 file y-spacing does not match the grid; regenerate the IC for this grid.")
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            end if
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            files_loaded274 = .true.
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        end if
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! Alignment is verified above (or this rank would already have aborted), so the local
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! cell (i, j) maps to stored_values274(i, j, :) directly -- no re-derivation needed.
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        do f274 = 1, sys_size
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(f274)%sf(i, j, 0) = stored_values274(i, j, f274)
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        end do
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    case (271)  ! Premixed Flame Vortices Interaction
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    if (.not. files_loaded) then
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        max_files = merge(sys_size, sys_size - 1, num_dims == 1)
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        do f = 1, max_files
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            write (file_num_str, '(I0)') f
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            filenames(f) = trim(files_dir) // "/" // "prim." // trim(file_num_str) // ".00." // trim(file_extension) // ".dat"
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        end do
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! Common file reading setup
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        open (newunit=unit2, file=trim(filenames(1)), status='old', action='read', iostat=ios2)
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        if (ios2 /= 0) call s_mpi_abort("Error opening file: " // trim(filenames(1)))
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        select case (num_dims)
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        case (1, 2)  ! 1D and 2D cases are similar
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            ! Count lines
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            line_count = 0
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            do
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                read (unit2, *, iostat=ios2) dummy_x, dummy_y
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                if (ios2 /= 0) exit
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                line_count = line_count + 1
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            end do
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            close (unit2)
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            xrows = line_count
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            yrows = 1
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            index_x = 0
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            if (num_dims == 2) index_x = i
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#ifdef MFC_DEBUG
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    block
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        use iso_fortran_env, only: output_unit
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        print *, 'm_icpp_patches.fpp:508: ', '@:ALLOCATE(x_coords(xRows), stored_values(xRows, 1, sys_size))'
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        call flush (output_unit)
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    end block
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#endif
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    allocate (x_coords(xrows), stored_values(xrows, 1, sys_size))
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#if defined(MFC_OpenACC)
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
!$acc enter data create(x_coords, stored_values) 
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#elif defined(MFC_OpenMP)
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
!$omp target enter data map(always,alloc:x_coords, stored_values) 
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#endif
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            ! Read data from all files
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            do f = 1, max_files
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                open (newunit=unit, file=trim(filenames(f)), status='old', action='read', iostat=ios)
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                if (ios /= 0) call s_mpi_abort("Error opening file: " // trim(filenames(f)))
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                do iter = 1, xrows
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    read (unit, *, iostat=ios) x_coords(iter), stored_values(iter, 1, f)
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    if (ios /= 0) call s_mpi_abort("Error reading file: " // trim(filenames(f)))
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                end do
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                close (unit)
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            end do
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            ! Calculate offsets
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            domain_xstart = x_coords(1)
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            x_step = x_cc(1) - x_cc(0)
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            delta_x = merge(x_cc(0) - domain_xstart, x_cc(index_x) - domain_xstart, num_dims == 1)
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            global_offset_x = nint(abs(delta_x)/x_step)
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        case (3)  ! 3D case - determine grid structure
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            ! Find yRows by counting rows with same x
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            read (unit2, *, iostat=ios2) x0, y0, dummy_z
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            if (ios2 /= 0) call s_mpi_abort("Error reading first line")
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            yrows = 1
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            do
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                read (unit2, *, iostat=ios2) dummy_x, dummy_y, dummy_z
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                if (ios2 /= 0) exit
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                if (f_approx_equal(dummy_x, x0) .and. (.not. f_approx_equal(dummy_y, y0))) then
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    yrows = yrows + 1
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                else
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    exit
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                end if
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            end do
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            close (unit2)
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            ! Count total rows
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            open (newunit=unit2, file=trim(filenames(1)), status='old', action='read', iostat=ios2)
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            nrows = 0
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            do
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                read (unit2, *, iostat=ios2) dummy_x, dummy_y, dummy_z
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                if (ios2 /= 0) exit
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                nrows = nrows + 1
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            end do
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            close (unit2)
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            xrows = nrows/yrows
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#ifdef MFC_DEBUG
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    block
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        use iso_fortran_env, only: output_unit
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        print *, 'm_icpp_patches.fpp:508: ', '@:ALLOCATE(x_coords(nrows), y_coords(nrows), stored_values(xRows, yRows, sys_size))'
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        call flush (output_unit)
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    end block
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#endif
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    allocate (x_coords(nrows), y_coords(nrows), stored_values(xrows, yrows, sys_size))
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#if defined(MFC_OpenACC)
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
!$acc enter data create(x_coords, y_coords, stored_values) 
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#elif defined(MFC_OpenMP)
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
!$omp target enter data map(always,alloc:x_coords, y_coords, stored_values) 
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#endif
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            index_x = i
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            index_y = j
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            ! Read all files
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            do f = 1, max_files
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                open (newunit=unit, file=trim(filenames(f)), status='old', action='read', iostat=ios)
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                if (ios /= 0) then
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    if (f == 1) call s_mpi_abort("Error opening file: " // trim(filenames(f)))
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    cycle
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                end if
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                iter = 0
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                do iix = 1, xrows
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    do iiy = 1, yrows
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                        iter = iter + 1
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                        if (f == 1) then
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                            read (unit, *, iostat=ios) x_coords(iter), y_coords(iter), stored_values(iix, iiy, f)
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                        else
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                            read (unit, *, iostat=ios) dummy_x, dummy_y, stored_values(iix, iiy, f)
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                        end if
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                        if (ios /= 0) call s_mpi_abort("Error reading data")
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    end do
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                end do
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                close (unit)
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            end do
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            ! Calculate offsets
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            x_step = x_cc(1) - x_cc(0)
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            y_step = y_cc(1) - y_cc(0)
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            delta_x = x_cc(index_x) - x_coords(1)
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            delta_y = y_cc(index_y) - y_coords(1)
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            global_offset_x = nint(abs(delta_x)/x_step)
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            global_offset_y = nint(abs(delta_y)/y_step)
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        end select
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        files_loaded = .true.
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    end if
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    ! Data assignment
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    select case (num_dims)
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    case (1)
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        idx = i + 1 + global_offset_x
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! idx must land inside the file's row range: this rank's subdomain offset
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! (global_offset_x) was derived from this rank's own grid, so a miss means the
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! IC file is misaligned/mis-sized for the run grid, not a normal boundary case.
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        if (idx < 1 .or. idx > xrows) &
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            & call s_mpi_abort("Hardcoded IC extrusion: row index out of range (IC file misaligned with the run grid)")
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        do f = 1, sys_size
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(f)%sf(i, 0, 0) = stored_values(idx, 1, f)
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        end do
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    case (2)
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        idx = i + 1 + global_offset_x - index_x
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        if (idx < 1 .or. idx > xrows) &
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            & call s_mpi_abort("Hardcoded IC extrusion: row index out of range (IC file misaligned with the run grid)")
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        do f = 1, sys_size - 1
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            jump = merge(1, 0, f >= eqn_idx%mom%end)
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(f + jump)%sf(i, j, 0) = stored_values(idx, 1, f)
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        end do
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        q_prim_vf(eqn_idx%mom%end)%sf(i, j, 0) = 0.0_wp
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    case (3)
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        idx = i + 1 + global_offset_x - index_x
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        idy = j + 1 + global_offset_y - index_y
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        if (idx < 1 .or. idx > xrows .or. idy < 1 .or. idy > yrows) &
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            & call s_mpi_abort("Hardcoded IC extrusion: row/column index out of range (IC file misaligned with the run grid)")
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        do f = 1, sys_size - 1
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            jump = merge(1, 0, f >= eqn_idx%mom%end)
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(f + jump)%sf(i, j, k) = stored_values(idx, idy, f)
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        end do
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        q_prim_vf(eqn_idx%mom%end)%sf(i, j, k) = 0.0_wp
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    end select
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        x1c = 0.0027_wp
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        y1c = 0.005_wp
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        x2c = 0.0027_wp
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        y2c = 0.003_wp
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        r1c = (x_cc(i) - x1c)**(2.0_wp) + (y_cc(j) - y1c)**(2.0_wp)
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        r2c = (x_cc(i) - x2c)**(2.0_wp) + (y_cc(j) - y2c)**(2.0_wp)
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        rvortex = 0.0005_wp
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        cvortex = 6000.0_wp
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        u1c = -cvortex*((y_cc(j) - y1c))*exp(-r1c/(2.0_wp*rvortex**2.0_wp))
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        v1c = cvortex*((x_cc(i) - x1c))*exp(-r1c/(2.0_wp*rvortex**2.0_wp))
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        u2c = cvortex*((y_cc(j) - y2c))*exp(-r2c/(2.0_wp*rvortex**2.0_wp))
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        v2c = -cvortex*((x_cc(i) - x2c))*exp(-r2c/(2.0_wp*rvortex**2.0_wp))
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        q_prim_vf(eqn_idx%mom%beg)%sf(i, j, 0) = q_prim_vf(eqn_idx%mom%beg)%sf(i, j, 0) + u1c + u2c
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        q_prim_vf(eqn_idx%mom%beg + 1)%sf(i, j, 0) = v1c + v2c
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    case (272)  ! Premixed Flame Instability
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    if (.not. files_loaded) then
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        max_files = merge(sys_size, sys_size - 1, num_dims == 1)
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        do f = 1, max_files
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            write (file_num_str, '(I0)') f
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            filenames(f) = trim(files_dir) // "/" // "prim." // trim(file_num_str) // ".00." // trim(file_extension) // ".dat"
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        end do
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! Common file reading setup
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        open (newunit=unit2, file=trim(filenames(1)), status='old', action='read', iostat=ios2)
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        if (ios2 /= 0) call s_mpi_abort("Error opening file: " // trim(filenames(1)))
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        select case (num_dims)
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        case (1, 2)  ! 1D and 2D cases are similar
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            ! Count lines
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            line_count = 0
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            do
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                read (unit2, *, iostat=ios2) dummy_x, dummy_y
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                if (ios2 /= 0) exit
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                line_count = line_count + 1
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            end do
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            close (unit2)
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            xrows = line_count
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            yrows = 1
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            index_x = 0
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            if (num_dims == 2) index_x = i
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#ifdef MFC_DEBUG
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    block
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        use iso_fortran_env, only: output_unit
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        print *, 'm_icpp_patches.fpp:508: ', '@:ALLOCATE(x_coords(xRows), stored_values(xRows, 1, sys_size))'
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        call flush (output_unit)
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    end block
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#endif
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    allocate (x_coords(xrows), stored_values(xrows, 1, sys_size))
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#if defined(MFC_OpenACC)
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
!$acc enter data create(x_coords, stored_values) 
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#elif defined(MFC_OpenMP)
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
!$omp target enter data map(always,alloc:x_coords, stored_values) 
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#endif
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            ! Read data from all files
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            do f = 1, max_files
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                open (newunit=unit, file=trim(filenames(f)), status='old', action='read', iostat=ios)
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                if (ios /= 0) call s_mpi_abort("Error opening file: " // trim(filenames(f)))
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                do iter = 1, xrows
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    read (unit, *, iostat=ios) x_coords(iter), stored_values(iter, 1, f)
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    if (ios /= 0) call s_mpi_abort("Error reading file: " // trim(filenames(f)))
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                end do
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                close (unit)
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            end do
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            ! Calculate offsets
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            domain_xstart = x_coords(1)
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            x_step = x_cc(1) - x_cc(0)
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            delta_x = merge(x_cc(0) - domain_xstart, x_cc(index_x) - domain_xstart, num_dims == 1)
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            global_offset_x = nint(abs(delta_x)/x_step)
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        case (3)  ! 3D case - determine grid structure
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            ! Find yRows by counting rows with same x
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            read (unit2, *, iostat=ios2) x0, y0, dummy_z
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            if (ios2 /= 0) call s_mpi_abort("Error reading first line")
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            yrows = 1
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            do
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                read (unit2, *, iostat=ios2) dummy_x, dummy_y, dummy_z
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                if (ios2 /= 0) exit
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                if (f_approx_equal(dummy_x, x0) .and. (.not. f_approx_equal(dummy_y, y0))) then
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    yrows = yrows + 1
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                else
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    exit
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                end if
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            end do
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            close (unit2)
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            ! Count total rows
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            open (newunit=unit2, file=trim(filenames(1)), status='old', action='read', iostat=ios2)
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            nrows = 0
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            do
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                read (unit2, *, iostat=ios2) dummy_x, dummy_y, dummy_z
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                if (ios2 /= 0) exit
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                nrows = nrows + 1
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            end do
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            close (unit2)
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            xrows = nrows/yrows
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#ifdef MFC_DEBUG
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    block
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        use iso_fortran_env, only: output_unit
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        print *, 'm_icpp_patches.fpp:508: ', '@:ALLOCATE(x_coords(nrows), y_coords(nrows), stored_values(xRows, yRows, sys_size))'
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        call flush (output_unit)
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    end block
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#endif
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    allocate (x_coords(nrows), y_coords(nrows), stored_values(xrows, yrows, sys_size))
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#if defined(MFC_OpenACC)
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
!$acc enter data create(x_coords, y_coords, stored_values) 
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#elif defined(MFC_OpenMP)
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
!$omp target enter data map(always,alloc:x_coords, y_coords, stored_values) 
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#endif
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            index_x = i
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            index_y = j
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            ! Read all files
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            do f = 1, max_files
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                open (newunit=unit, file=trim(filenames(f)), status='old', action='read', iostat=ios)
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                if (ios /= 0) then
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    if (f == 1) call s_mpi_abort("Error opening file: " // trim(filenames(f)))
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    cycle
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                end if
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                iter = 0
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                do iix = 1, xrows
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    do iiy = 1, yrows
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                        iter = iter + 1
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                        if (f == 1) then
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                            read (unit, *, iostat=ios) x_coords(iter), y_coords(iter), stored_values(iix, iiy, f)
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                        else
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                            read (unit, *, iostat=ios) dummy_x, dummy_y, stored_values(iix, iiy, f)
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                        end if
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                        if (ios /= 0) call s_mpi_abort("Error reading data")
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    end do
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                end do
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                close (unit)
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            end do
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            ! Calculate offsets
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            x_step = x_cc(1) - x_cc(0)
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            y_step = y_cc(1) - y_cc(0)
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            delta_x = x_cc(index_x) - x_coords(1)
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            delta_y = y_cc(index_y) - y_coords(1)
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            global_offset_x = nint(abs(delta_x)/x_step)
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            global_offset_y = nint(abs(delta_y)/y_step)
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        end select
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        files_loaded = .true.
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    end if
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    ! Data assignment
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    select case (num_dims)
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    case (1)
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        idx = i + 1 + global_offset_x
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! idx must land inside the file's row range: this rank's subdomain offset
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! (global_offset_x) was derived from this rank's own grid, so a miss means the
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! IC file is misaligned/mis-sized for the run grid, not a normal boundary case.
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        if (idx < 1 .or. idx > xrows) &
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            & call s_mpi_abort("Hardcoded IC extrusion: row index out of range (IC file misaligned with the run grid)")
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        do f = 1, sys_size
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(f)%sf(i, 0, 0) = stored_values(idx, 1, f)
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        end do
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    case (2)
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        idx = i + 1 + global_offset_x - index_x
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        if (idx < 1 .or. idx > xrows) &
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            & call s_mpi_abort("Hardcoded IC extrusion: row index out of range (IC file misaligned with the run grid)")
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        do f = 1, sys_size - 1
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            jump = merge(1, 0, f >= eqn_idx%mom%end)
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(f + jump)%sf(i, j, 0) = stored_values(idx, 1, f)
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        end do
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        q_prim_vf(eqn_idx%mom%end)%sf(i, j, 0) = 0.0_wp
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    case (3)
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        idx = i + 1 + global_offset_x - index_x
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        idy = j + 1 + global_offset_y - index_y
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        if (idx < 1 .or. idx > xrows .or. idy < 1 .or. idy > yrows) &
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            & call s_mpi_abort("Hardcoded IC extrusion: row/column index out of range (IC file misaligned with the run grid)")
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        do f = 1, sys_size - 1
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            jump = merge(1, 0, f >= eqn_idx%mom%end)
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(f + jump)%sf(i, j, k) = stored_values(idx, idy, f)
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        end do
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        q_prim_vf(eqn_idx%mom%end)%sf(i, j, k) = 0.0_wp
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    end select
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        y_center = y0_ref
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        y_dist = y_cc(j) - y_center
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        wave_phase = 2.0_wp*pi*nwaves*(y_dist/ly_param)
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        front_shift = a_param*sin(wave_phase)
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        x_mapped = x_cc(i) - front_shift
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        if (x_mapped <= x_coords(1)) then
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            do v = 1, sys_size - 1
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                q_prim_vf(v + merge(1, 0, v >= eqn_idx%mom%end))%sf(i, j, 0) = stored_values(1, 1, v)
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            end do
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%mom%end)%sf(i, j, 0) = 0.0_wp
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        else if (x_mapped >= x_coords(xrows)) then
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            do v = 1, sys_size - 1
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                q_prim_vf(v + merge(1, 0, v >= eqn_idx%mom%end))%sf(i, j, 0) = stored_values(xrows, 1, v)
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            end do
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%mom%end)%sf(i, j, 0) = 0.0_wp
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        else
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            idx_lo = 1; idx_hi = xrows
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            do while (idx_hi - idx_lo > 1)
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                idx_mid = (idx_lo + idx_hi)/2
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                if (x_coords(idx_mid) <= x_mapped) then
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    idx_lo = idx_mid
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                else
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    idx_hi = idx_mid
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                end if
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            end do
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            interp_wt = (x_mapped - x_coords(idx_lo))/(x_coords(idx_hi) - x_coords(idx_lo))  ! weight in [0,1)
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            do v = 1, sys_size - 1
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                q_prim_vf(v + merge(1, 0, v >= eqn_idx%mom%end))%sf(i, j, 0) = (1.0_wp - interp_wt)*stored_values(idx_lo, 1, &
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                          & v) + interp_wt*stored_values(idx_hi, 1, v)
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            end do
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%mom%end)%sf(i, j, 0) = 0.0_wp
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        end if
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    case (280)  ! Isentropic vortex
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! This is patch is hard-coded for test suite optimization used in the 2D_isentropicvortex case: This analytic patch uses
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! geometry 2
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        if (patch_id == 1) then
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%E)%sf(i, j, &
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                      & 0) = 1.0*(1.0 - (1.0/1.0)*(5.0/(2.0*pi))*(5.0/(8.0*1.0*(1.4 + 1.0)*pi))*exp(2.0*1.0*(1.0 - (x_cc(i) &
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                      & - patch_icpp(1)%x_centroid)**2.0 - (y_cc(j) - patch_icpp(1)%y_centroid)**2.0)))**(1.4 + 1.0)
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%cont%beg + 0)%sf(i, j, &
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                      & 0) = 1.0*(1.0 - (1.0/1.0)*(5.0/(2.0*pi))*(5.0/(8.0*1.0*(1.4 + 1.0)*pi))*exp(2.0*1.0*(1.0 - (x_cc(i) &
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                      & - patch_icpp(1)%x_centroid)**2.0 - (y_cc(j) - patch_icpp(1)%y_centroid)**2.0)))**1.4
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%mom%beg + 0)%sf(i, j, &
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                      & 0) = patch_icpp(1)%vel(1) + (y_cc(j) - patch_icpp(1)%y_centroid)*(5.0/(2.0*pi))*exp(1.0*(1.0 - (x_cc(i) &
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                      & - patch_icpp(1)%x_centroid)**2.0 - (y_cc(j) - patch_icpp(1)%y_centroid)**2.0))
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%mom%beg + 1)%sf(i, j, &
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                      & 0) = patch_icpp(1)%vel(2) - (x_cc(i) - patch_icpp(1)%x_centroid)*(5.0/(2.0*pi))*exp(1.0*(1.0 - (x_cc(i) &
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                      & - patch_icpp(1)%x_centroid)**2.0 - (y_cc(j) - patch_icpp(1)%y_centroid)**2.0))
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        end if
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    case (281)  ! Acoustic pulse
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! This is patch is hard-coded for test suite optimization used in the 2D_acoustic_pulse case: This analytic patch uses
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! geometry 2
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        if (patch_id == 2) then
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%E)%sf(i, j, &
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                      & 0) = 101325*(1 - 0.5*(1.4 - 1)*(0.4)**2*exp(0.5*(1 - sqrt(x_cc(i)**2 + y_cc(j)**2))))**(1.4/(1.4 - 1))
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%cont%beg + 0)%sf(i, j, &
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                      & 0) = 1*(1 - 0.5*(1.4 - 1)*(0.4)**2*exp(0.5*(1 - sqrt(x_cc(i)**2 + y_cc(j)**2))))**(1/(1.4 - 1))
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        end if
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    case (282)  ! Zero-circulation vortex
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! This is patch is hard-coded for test suite optimization used in the 2D_zero_circ_vortex case: This analytic patch uses
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! geometry 2
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        if (patch_id == 2) then
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%E)%sf(i, j, &
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                      & 0) = 101325*(1 - 0.5*(1.4 - 1)*(0.1/0.3)**2*exp(0.5*(1 - sqrt(x_cc(i)**2 + y_cc(j)**2))))**(1.4/(1.4 - 1))
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%cont%beg + 0)%sf(i, j, &
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                      & 0) = 1*(1 - 0.5*(1.4 - 1)*(0.1/0.3)**2*exp(0.5*(1 - sqrt(x_cc(i)**2 + y_cc(j)**2))))**(1/(1.4 - 1))
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%mom%beg + 0)%sf(i, j, &
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                      & 0) = 112.99092883944267*(1 - (0.1/0.3))*y_cc(j)*exp(0.5*(1 - sqrt(x_cc(i)**2 + y_cc(j)**2)))
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%mom%beg + 1)%sf(i, j, &
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                      & 0) = 112.99092883944267*((0.1/0.3))*x_cc(i)*exp(0.5*(1 - sqrt(x_cc(i)**2 + y_cc(j)**2)))
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        end if
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    case (283)  ! Isentropic vortex: conserved-variable GL cell averages (3-pt tensor product)
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! GL averages of conserved variables (rho, rho*u, rho*v, E) eliminate the O(h^2) error that primitive-variable averaging
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! introduces through the nonlinear prim->cons conversion: cell_avg(rho*u) != cell_avg(rho)*cell_avg(u) by O(h^2). We back
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! out primitive values that reproduce the conserved averages exactly. Vortex strength eps is read from
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! patch_icpp(patch_id)%epsilon; defaults to 5.
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        if (patch_id == 1) then
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            vortex_eps = merge(patch_icpp(patch_id)%epsilon, 5._wp, patch_icpp(patch_id)%epsilon > 0._wp)
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            gauss_xi = [-sqrt(3._wp/5._wp), 0._wp, sqrt(3._wp/5._wp)]
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            gauss_w = [5._wp/9._wp, 8._wp/9._wp, 5._wp/9._wp]
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            rho_avg = 0._wp; rhou_avg = 0._wp; rhov_avg = 0._wp; e_avg = 0._wp
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            do igq = 1, 3
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                do jgq = 1, 3
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    xq = x_cc(i) + gauss_xi(igq)*(x_cb(i) - x_cb(i - 1))*0.5_wp
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    yq = y_cc(j) + gauss_xi(jgq)*(y_cb(j) - y_cb(j - 1))*0.5_wp
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    r2q = (xq - patch_icpp(patch_id)%x_centroid)**2._wp + (yq - patch_icpp(patch_id)%y_centroid)**2._wp
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    t_facq = 1._wp - (vortex_eps/(2._wp*pi))*(vortex_eps/(8._wp*(1.4_wp + 1._wp)*pi))*exp(2._wp*(1._wp - r2q))
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    wq = gauss_w(igq)*gauss_w(jgq)
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    rhoq = t_facq**1.4_wp
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    pq = t_facq**2.4_wp
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    uq = patch_icpp(patch_id)%vel(1) + (yq - patch_icpp(patch_id)%y_centroid)*(vortex_eps/(2._wp*pi))*exp(1._wp &
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                                    & - r2q)
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    vq = patch_icpp(patch_id)%vel(2) - (xq - patch_icpp(patch_id)%x_centroid)*(vortex_eps/(2._wp*pi))*exp(1._wp &
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                                    & - r2q)
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    eq = pq/0.4_wp + 0.5_wp*rhoq*(uq**2 + vq**2)
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    rho_avg = rho_avg + wq*rhoq
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    rhou_avg = rhou_avg + wq*(rhoq*uq)
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    rhov_avg = rhov_avg + wq*(rhoq*vq)
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    e_avg = e_avg + wq*eq
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                end do
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            end do
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            rho_avg = rho_avg*0.25_wp
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            rhou_avg = rhou_avg*0.25_wp
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            rhov_avg = rhov_avg*0.25_wp
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            e_avg = e_avg*0.25_wp
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            ! Back out primitive vars so prim->cons conversion recovers the conserved averages
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%cont%beg)%sf(i, j, 0) = rho_avg
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%mom%beg + 0)%sf(i, j, 0) = rhou_avg/rho_avg
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%mom%beg + 1)%sf(i, j, 0) = rhov_avg/rho_avg
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%E)%sf(i, j, 0) = (e_avg - 0.5_wp*(rhou_avg**2 + rhov_avg**2)/rho_avg)*0.4_wp
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        end if
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    case (291)  ! Isothermal Flat Plate
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        t_inf = 1125.0_wp
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        t_wall = 600.0_wp
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        p_atm = 101325.0_wp
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! Boundary/Shear Layer thicknesses
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        delta_th = 0.0003_wp  ! Thermal BL thickness
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        delta_shear = 8e-3_wp  ! Velocity BL thickness
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        u_max = 50.0_wp  ! Freestream Velocity (m/s)
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        mw_n2 = 28.0134e-3_wp
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        mw_o2 = 31.999e-3_wp
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        y_n2 = 0.767_wp
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        y_o2 = 0.233_wp
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        r_mix = 8.314462618_wp*((y_n2/mw_n2) + (y_o2/mw_o2))
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        bottom_blend_u = tanh(y_cc(j)/delta_shear)
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        bottom_blend_t = tanh(y_cc(j)/delta_th)
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        u_mean = u_max*bottom_blend_u
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        t_loc = t_wall + (t_inf - t_wall)*bottom_blend_t
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        q_prim_vf(eqn_idx%cont%beg)%sf(i, j, 0) = p_atm/(r_mix*t_loc)
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        q_prim_vf(eqn_idx%mom%beg)%sf(i, j, 0) = u_mean
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        q_prim_vf(eqn_idx%mom%end)%sf(i, j, 0) = 0.0_wp
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        q_prim_vf(eqn_idx%E)%sf(i, j, 0) = p_atm
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        q_prim_vf(eqn_idx%species%beg)%sf(i, j, 0) = y_o2
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        q_prim_vf(eqn_idx%species%end)%sf(i, j, 0) = y_n2
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    case default
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        if (proc_rank == 0) then
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            call s_int_to_str(patch_id, istr)
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            call s_mpi_abort("Invalid hcid specified for patch " // trim(istr))
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        end if
# 508 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    end select
                    end if
 
                    ! Updating the patch identities bookkeeping variable
                    if (1._wp - eta < sgm_eps) patch_id_fp(i, j, 0) = patch_id
                end if
            end do
        end do
    if (allocated(stored_values)) then
# 516 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#ifdef MFC_DEBUG
# 516 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    block
# 516 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        use iso_fortran_env, only: output_unit
# 516 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 516 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        print *, 'm_icpp_patches.fpp:516: ', '@:DEALLOCATE(stored_values)'
# 516 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 516 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        call flush (output_unit)
# 516 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    end block
# 516 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#endif
# 516 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 516 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#if defined(MFC_OpenACC)
# 516 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
!$acc exit data delete(stored_values) 
# 516 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#elif defined(MFC_OpenMP)
# 516 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
!$omp target exit data map(release:stored_values) 
# 516 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#endif
# 516 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    deallocate (stored_values)
# 516 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#ifdef MFC_DEBUG
# 516 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    block
# 516 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        use iso_fortran_env, only: output_unit
# 516 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 516 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        print *, 'm_icpp_patches.fpp:516: ', '@:DEALLOCATE(x_coords)'
# 516 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 516 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        call flush (output_unit)
# 516 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    end block
# 516 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#endif
# 516 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 516 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#if defined(MFC_OpenACC)
# 516 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
!$acc exit data delete(x_coords) 
# 516 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#elif defined(MFC_OpenMP)
# 516 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
!$omp target exit data map(release:x_coords) 
# 516 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#endif
# 516 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    deallocate (x_coords)
# 516 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    end if
# 516 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 516 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    if (allocated(y_coords)) then
# 516 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#ifdef MFC_DEBUG
# 516 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    block
# 516 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        use iso_fortran_env, only: output_unit
# 516 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 516 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        print *, 'm_icpp_patches.fpp:516: ', '@:DEALLOCATE(y_coords)'
# 516 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 516 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        call flush (output_unit)
# 516 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    end block
# 516 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#endif
# 516 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 516 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#if defined(MFC_OpenACC)
# 516 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
!$acc exit data delete(y_coords) 
# 516 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#elif defined(MFC_OpenMP)
# 516 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
!$omp target exit data map(release:y_coords) 
# 516 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#endif
# 516 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    deallocate (y_coords)
# 516 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    end if
# 516 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 516 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    files_loaded = .false.
# 516 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 516 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    if (allocated(stored_values274)) then
# 516 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#ifdef MFC_DEBUG
# 516 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    block
# 516 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        use iso_fortran_env, only: output_unit
# 516 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 516 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        print *, 'm_icpp_patches.fpp:516: ', '@:DEALLOCATE(stored_values274)'
# 516 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 516 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        call flush (output_unit)
# 516 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    end block
# 516 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#endif
# 516 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 516 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#if defined(MFC_OpenACC)
# 516 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
!$acc exit data delete(stored_values274) 
# 516 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#elif defined(MFC_OpenMP)
# 516 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
!$omp target exit data map(release:stored_values274) 
# 516 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#endif
# 516 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    deallocate (stored_values274)
# 516 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    end if
# 516 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 516 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    files_loaded274 = .false.
 
    end subroutine s_icpp_ellipse
 
    !> The ellipsoidal patch is a 3D geometry. The geometry of the patch is well-defined when its centroid and radii are provided.
    !! Note that the ellipsoidal patch DOES allow for the smoothing of its boundary
    subroutine s_icpp_ellipsoid(patch_id, patch_id_fp, q_prim_vf)
 
        ! Patch identifier
        integer, intent(in) :: patch_id
 
#ifdef MFC_MIXED_PRECISION
        integer(kind=1), dimension(0:m,0:n,0:p), intent(inout) :: patch_id_fp
#else
        integer, dimension(0:m,0:n,0:p), intent(inout) :: patch_id_fp
#endif
        type(scalar_field), dimension(1:sys_size), intent(inout) :: q_prim_vf
 
        ! Generic loop iterators
        integer  :: i, j, k
        real(wp) :: a, b, c
 
    integer                                 :: xRows, yRows, nRows, iix, iiy, max_files
# 538 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    integer                                 :: f, iter, unit, unit2, idx, idy, index_x, index_y, jump, line_count
# 538 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    real(wp)                                :: x_step, y_step
# 538 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    real(wp)                                :: dummy_x, dummy_y, dummy_z, x0, y0
# 538 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    integer                                 :: global_offset_x, global_offset_y  !< MPI subdomain offset
# 538 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    real(wp)                                :: delta_x, delta_y
# 538 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    character(len=300), dimension(sys_size) :: fileNames                         !< Arrays to store all data from files
# 538 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    real(wp), allocatable                   :: stored_values(:,:,:)
# 538 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    real(wp), allocatable                   :: x_coords(:), y_coords(:)
# 538 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    logical                                 :: files_loaded = .false.
# 538 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    real(wp)                                :: domain_xstart
# 538 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    character(len=20)                       :: file_num_str                      !< For storing the file number as a string
# 538 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    integer                                 :: ios
# 538 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    integer                                 :: ios2
# 538 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 538 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    ! hcid=274 (2dHardcodedIC.fpp): full 2D field from external data, no extrusion.
# 538 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    ! Declared here (not in Hardcoded2DVariables()) so it's visible wherever
# 538 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    ! HardcodedDeallocation() is called, matching the pattern of stored_values/x_coords/
# 538 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    ! y_coords/files_loaded above.
# 538 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    real(wp), allocatable, dimension(:,:,:) :: stored_values274
# 538 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    logical                                 :: files_loaded274 = .false.
# 538 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    integer                                 :: f274, ix274, iy274, unit274, ios274
# 538 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    integer                                 :: local_ix_beg274, local_iy_beg274
# 538 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    character(len=300)                      :: fname274
# 538 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    character(len=20)                       :: file_num_str274
# 538 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    real(wp)                                :: dummy_x274, dummy_y274, dummy_val274, x0_274, y0_274, x_step274, y_step274
# 538 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    real(wp)                                :: file_dx274, file_dy274, r_align274
    ! Place any declaration of intermediate variables here
# 539 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    real(wp) :: rhoH, rhoL, pRef, pInt, h, lam, wl, amp, intH, alph, Mach
# 539 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    real(wp) :: eps
# 539 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 539 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    ! IGR Jets Arrays to stor position and radii of jets from input file
# 539 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    real(wp), dimension(:), allocatable :: y_th_arr, z_th_arr, r_th_arr
# 539 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    ! Variables to describe initial condition of jet
# 539 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    real(wp)                              :: r, ux_th, ux_am, p_th, p_am, rho_th, rho_am, y_th, z_th, r_th, eps_smooth
# 539 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    real(wp)                              :: rcut, xcut  !< Intermediate variables for creating smooth initial condition
# 539 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    real(wp), dimension(0:n,0:p)          :: rcut_arr
# 539 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    integer                               :: l, q, s     !< Iterators for reading input files
# 539 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    integer                               :: start, end  !< Ints to keep track of position in file
# 539 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    character(len=100000)                 :: line  ! String to store line in file
# 539 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    character(len=25)                     :: value       !< String to store value in line
# 539 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    integer                               :: NJet        !< Number of jets
# 539 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    real(wp), allocatable, dimension(:,:) :: ih  ! Array to store interface height in
# 539 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    logical                               :: file_exist  ! Flag to check if file exists
# 539 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 539 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    eps = 1e-9_wp
# 539 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 539 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    if (patch_icpp(patch_id)%hcid == 303) then  ! IGR Multijet
# 539 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        eps_smooth = 3._wp
# 539 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        inquire (file="njet.txt", exist=file_exist)
# 539 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        if (file_exist) then
# 539 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            open (unit=10, file="njet.txt", status="old", action="read")
# 539 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            read (10, *) njet
# 539 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            close (10)
# 539 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        else
# 539 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            call s_mpi_abort("Error: njet.txt file specified for hcid=303 does not exist")
# 539 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        end if
# 539 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 539 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#ifdef MFC_DEBUG
# 539 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    block
# 539 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        use iso_fortran_env, only: output_unit
# 539 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 539 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        print *, 'm_icpp_patches.fpp:539: ', '@:ALLOCATE(y_th_arr(0:NJet - 1))'
# 539 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 539 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        call flush (output_unit)
# 539 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    end block
# 539 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#endif
# 539 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    allocate (y_th_arr(0:njet - 1))
# 539 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 539 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 539 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#if defined(MFC_OpenACC)
# 539 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
!$acc enter data create(y_th_arr) 
# 539 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#elif defined(MFC_OpenMP)
# 539 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
!$omp target enter data map(always,alloc:y_th_arr) 
# 539 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#endif
# 539 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#ifdef MFC_DEBUG
# 539 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    block
# 539 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        use iso_fortran_env, only: output_unit
# 539 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 539 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        print *, 'm_icpp_patches.fpp:539: ', '@:ALLOCATE(z_th_arr(0:NJet - 1))'
# 539 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 539 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        call flush (output_unit)
# 539 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    end block
# 539 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#endif
# 539 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    allocate (z_th_arr(0:njet - 1))
# 539 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 539 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 539 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#if defined(MFC_OpenACC)
# 539 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
!$acc enter data create(z_th_arr) 
# 539 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#elif defined(MFC_OpenMP)
# 539 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
!$omp target enter data map(always,alloc:z_th_arr) 
# 539 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#endif
# 539 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#ifdef MFC_DEBUG
# 539 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    block
# 539 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        use iso_fortran_env, only: output_unit
# 539 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 539 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        print *, 'm_icpp_patches.fpp:539: ', '@:ALLOCATE(r_th_arr(0:NJet - 1))'
# 539 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 539 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        call flush (output_unit)
# 539 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    end block
# 539 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#endif
# 539 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    allocate (r_th_arr(0:njet - 1))
# 539 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 539 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 539 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#if defined(MFC_OpenACC)
# 539 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
!$acc enter data create(r_th_arr) 
# 539 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#elif defined(MFC_OpenMP)
# 539 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
!$omp target enter data map(always,alloc:r_th_arr) 
# 539 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#endif
# 539 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 539 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        inquire (file="jets.csv", exist=file_exist)
# 539 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        if (file_exist) then
# 539 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            open (unit=10, file="jets.csv", status="old", action="read")
# 539 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            do q = 0, njet - 1
# 539 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                read (10, '(A)') line  ! Read a full line as a string
# 539 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                start = 1
# 539 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 539 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                do l = 0, 2
# 539 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    end = index(line(start:), ',')  ! Find the next comma
# 539 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    if (end == 0) then
# 539 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                        value = trim(adjustl(line(start:)))  ! Last value in the line
# 539 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    else
# 539 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                        value = trim(adjustl(line(start:start + end - 2)))  ! Extract substring
# 539 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                        start = start + end  ! Move to next value
# 539 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    end if
# 539 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    if (l == 0) then
# 539 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                        read (value, *) y_th_arr(q)  ! Convert string to numeric value
# 539 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    else if (l == 1) then
# 539 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                        read (value, *) z_th_arr(q)
# 539 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    else
# 539 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                        read (value, *) r_th_arr(q)
# 539 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    end if
# 539 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                end do
# 539 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            end do
# 539 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            close (10)
# 539 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 539 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            do q = 0, p
# 539 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                do l = 0, n
# 539 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    rcut = 0._wp
# 539 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    do s = 0, njet - 1
# 539 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                        r = sqrt((y_cc(l) - y_th_arr(s))**2._wp + (z_cc(q) - z_th_arr(s))**2._wp)
# 539 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                        rcut = rcut + f_cut_on(r - r_th_arr(s), eps_smooth)
# 539 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    end do
# 539 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    rcut_arr(l, q) = rcut
# 539 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                end do
# 539 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            end do
# 539 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        else
# 539 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            call s_mpi_abort("Error: jets.csv file specified for hcid=303 does not exist")
# 539 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        end if
# 539 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    end if
# 539 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 539 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    if (patch_icpp(patch_id)%hcid == 304) then  ! 3D Cartesian interface from file
# 539 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#ifdef MFC_DEBUG
# 539 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    block
# 539 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        use iso_fortran_env, only: output_unit
# 539 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 539 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        print *, 'm_icpp_patches.fpp:539: ', '@:ALLOCATE(ih(0:n_glb, 0:p_glb))'
# 539 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 539 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        call flush (output_unit)
# 539 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    end block
# 539 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#endif
# 539 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    allocate (ih(0:n_glb, 0:p_glb))
# 539 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 539 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 539 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#if defined(MFC_OpenACC)
# 539 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
!$acc enter data create(ih) 
# 539 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#elif defined(MFC_OpenMP)
# 539 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
!$omp target enter data map(always,alloc:ih) 
# 539 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#endif
# 539 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 539 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        if (interface_file == '.') then
# 539 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            call s_mpi_abort("Error: interface_file must be specified for hcid=304")
# 539 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        else
# 539 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            inquire (file=trim(interface_file), exist=file_exist)
# 539 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            if (file_exist) then
# 539 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                open (unit=10, file=trim(interface_file), status="old", action="read")
# 539 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                do i = 0, n_glb
# 539 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    read (10, '(A)') line  ! Read a full line as a string
# 539 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    start = 1
# 539 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 539 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    do j = 0, p_glb
# 539 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                        end = index(line(start:), ',')  ! Find the next comma
# 539 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                        if (end == 0) then
# 539 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                            value = trim(adjustl(line(start:)))  ! Last value in the line
# 539 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                        else
# 539 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                            value = trim(adjustl(line(start:start + end - 2)))  ! Extract substring
# 539 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                            start = start + end  ! Move to next value
# 539 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                        end if
# 539 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                        read (value, *) ih(i, j)  ! Convert string to numeric value
# 539 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                        if (.not. f_is_default(normmag)) ih(i, j) = ih(i, j)*normmag
# 539 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                        if (.not. f_is_default(normfac)) ih(i, j) = ih(i, j) + normfac
# 539 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    end do
# 539 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                end do
# 539 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                close (10)
# 539 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            else
# 539 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                call s_mpi_abort("Error: interface_file specified for hcid=304 does not exist")
# 539 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            end if
# 539 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        end if
# 539 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    end if
# 539 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 539 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    if (patch_icpp(patch_id)%hcid == 305) then  ! 3D Axisymmetric interface from file
# 539 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#ifdef MFC_DEBUG
# 539 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    block
# 539 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        use iso_fortran_env, only: output_unit
# 539 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 539 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        print *, 'm_icpp_patches.fpp:539: ', '@:ALLOCATE(ih(0:n_glb, 0:0))'
# 539 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 539 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        call flush (output_unit)
# 539 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    end block
# 539 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#endif
# 539 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    allocate (ih(0:n_glb, 0:0))
# 539 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 539 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 539 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#if defined(MFC_OpenACC)
# 539 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
!$acc enter data create(ih) 
# 539 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#elif defined(MFC_OpenMP)
# 539 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
!$omp target enter data map(always,alloc:ih) 
# 539 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#endif
# 539 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        if (interface_file == '.') then
# 539 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            call s_mpi_abort("Error: interface_file must be specified for hcid=305")
# 539 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        else
# 539 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            inquire (file=trim(interface_file), exist=file_exist)
# 539 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            if (file_exist) then
# 539 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                open (unit=10, file=trim(interface_file), status="old", action="read")
# 539 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                do i = 0, n_glb
# 539 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    read (10, '(A)') line  ! Read a full line as a string
# 539 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    value = trim(line)
# 539 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    read (value, *) ih(i, 0)  ! Convert string to numeric value
# 539 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    if (.not. f_is_default(normmag)) ih(i, 0) = ih(i, 0)*normmag
# 539 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    if (.not. f_is_default(normfac)) ih(i, 0) = ih(i, 0) + normfac
# 539 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                end do
# 539 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                close (10)
# 539 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            else
# 539 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                call s_mpi_abort("Error: interface_file specified for hcid=305 does not exist")
# 539 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            end if
# 539 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        end if
# 539 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    end if
 
        ! Transferring the ellipsoidal patch's radii, centroid, smearing patch identity, and smearing coefficient information
        x_centroid = patch_icpp(patch_id)%x_centroid
        y_centroid = patch_icpp(patch_id)%y_centroid
        z_centroid = patch_icpp(patch_id)%z_centroid
        a = patch_icpp(patch_id)%radii(1)
        b = patch_icpp(patch_id)%radii(2)
        c = patch_icpp(patch_id)%radii(3)
        smooth_patch_id = patch_icpp(patch_id)%smooth_patch_id
        smooth_coeff = patch_icpp(patch_id)%smooth_coeff
 
        ! Initialize eta=1; modified if smoothing is enabled
        eta = 1._wp
 
        ! Assign patch vars if cell is covered and patch has write permission
        do k = 0, p
            do j = 0, n
                do i = 0, m
                    if (grid_geometry == 3) then
                        call s_convert_cylindrical_to_cartesian_coord(y_cc(j), z_cc(k))
                    else
                        cart_y = y_cc(j)
                        cart_z = z_cc(k)
                    end if
 
                    if (patch_icpp(patch_id)%smoothen) then
                        eta = tanh(smooth_coeff/min(dx, dy, &
                                   & dz)*(sqrt(((x_cc(i) - x_centroid)/a)**2 + ((cart_y - y_centroid)/b)**2 + ((cart_z &
                                   & - z_centroid)/c)**2) - 1._wp))*(-0.5_wp) + 0.5_wp
                    end if
 
                    if ((((x_cc(i) - x_centroid)/a)**2 + ((cart_y - y_centroid)/b)**2 + ((cart_z - z_centroid)/c)**2 <= 1._wp &
                        & .and. patch_icpp(patch_id)%alter_patch(patch_id_fp(i, j, k))) .or. patch_id_fp(i, j, &
                        & k) == smooth_patch_id) then
                        call s_assign_patch_primitive_variables(patch_id, i, j, k, eta, q_prim_vf, patch_id_fp)
 
 
                        if (patch_icpp(patch_id)%hcid /= dflt_int) then
    select case (patch_icpp(patch_id)%hcid)
# 578 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    case (300)  ! Rayleigh-Taylor instability
# 578 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        rhoh = 3._wp
# 578 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        rhol = 1._wp
# 578 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        pref = 1.e5_wp
# 578 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        pint = pref
# 578 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        h = 0.7_wp
# 578 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        lam = 0.2_wp
# 578 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        wl = 2._wp*pi/lam
# 578 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        amp = 0.025_wp/wl
# 578 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 578 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        inth = amp*(sin(2._wp*pi*x_cc(i)/lam - pi/2._wp) + sin(2._wp*pi*z_cc(k)/lam - pi/2._wp)) + h
# 578 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 578 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        alph = 5.e-1_wp*(1._wp + tanh((y_cc(j) - inth)/2.5e-3_wp))
# 578 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 578 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        if (alph < eps) alph = eps
# 578 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        if (alph > 1._wp - eps) alph = 1._wp - eps
# 578 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 578 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        if (y_cc(j) > inth) then
# 578 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%adv%beg)%sf(i, j, k) = alph
# 578 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%adv%end)%sf(i, j, k) = 1._wp - alph
# 578 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%cont%beg)%sf(i, j, k) = alph*rhoh
# 578 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%cont%end)%sf(i, j, k) = (1._wp - alph)*rhol
# 578 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%E)%sf(i, j, k) = pref + rhoh*9.81_wp*(1.2_wp - y_cc(j))
# 578 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        else
# 578 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%adv%beg)%sf(i, j, k) = alph
# 578 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%adv%end)%sf(i, j, k) = 1._wp - alph
# 578 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%cont%beg)%sf(i, j, k) = alph*rhoh
# 578 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%cont%end)%sf(i, j, k) = (1._wp - alph)*rhol
# 578 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            pint = pref + rhoh*9.81_wp*(1.2_wp - inth)
# 578 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%E)%sf(i, j, k) = pint + rhol*9.81_wp*(inth - y_cc(j))
# 578 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        end if
# 578 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    case (301)  ! (3D lung geometry in X direction, |sin(*)+sin(*)|)
# 578 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        h = 0.0_wp
# 578 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        lam = 1.0_wp
# 578 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        amp = patch_icpp(patch_id)%a(2)
# 578 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        inth = amp*abs((sin(2*pi*y_cc(j)/lam - pi/2) + sin(2*pi*z_cc(k)/lam - pi/2)) + h)
# 578 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        if (x_cc(i) > inth) then
# 578 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%cont%beg)%sf(i, j, k) = patch_icpp(1)%alpha_rho(1)
# 578 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%cont%end)%sf(i, j, k) = patch_icpp(1)%alpha_rho(2)
# 578 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%E)%sf(i, j, k) = patch_icpp(1)%pres
# 578 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%adv%beg)%sf(i, j, k) = patch_icpp(1)%alpha(1)
# 578 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%adv%end)%sf(i, j, k) = patch_icpp(1)%alpha(2)
# 578 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        end if
# 578 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    case (302)  ! 3D Jet with IGR
# 578 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ux_th = 10*sqrt(1.4*0.4)
# 578 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ux_am = 0.0*sqrt(1.4)
# 578 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        p_th = 2.0_wp
# 578 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        p_am = 1.0_wp
# 578 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        rho_th = 1._wp
# 578 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        rho_am = 1._wp
# 578 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        y_th = 0.0_wp
# 578 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        z_th = 0.0_wp
# 578 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        r_th = 1._wp
# 578 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        eps_smooth = 1._wp
# 578 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        eps = 1e-6
# 578 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 578 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        r = sqrt((y_cc(j) - y_th)**2._wp + (z_cc(k) - z_th)**2._wp)
# 578 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        rcut = f_cut_on(r - r_th, eps_smooth)
# 578 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        xcut = f_cut_on(x_cc(i), eps_smooth)
# 578 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 578 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        q_prim_vf(eqn_idx%mom%beg)%sf(i, j, k) = ux_th*rcut*xcut + ux_am
# 578 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        q_prim_vf(eqn_idx%mom%beg + 1)%sf(i, j, k) = 0._wp
# 578 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        q_prim_vf(eqn_idx%mom%end)%sf(i, j, k) = 0._wp
# 578 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 578 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        if (num_fluids == 1) then
# 578 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%cont%beg)%sf(i, j, k) = (rho_th - rho_am)*rcut*xcut + rho_am
# 578 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        else
# 578 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%adv%beg)%sf(i, j, k) = (1._wp - 2._wp*eps)*rcut*xcut + eps
# 578 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%cont%beg)%sf(i, j, k) = rho_th*q_prim_vf(eqn_idx%adv%beg)%sf(i, j, k)
# 578 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%cont%end)%sf(i, j, k) = rho_am*(1._wp - q_prim_vf(eqn_idx%adv%beg)%sf(i, j, k))
# 578 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        end if
# 578 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 578 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        q_prim_vf(eqn_idx%E)%sf(i, j, k) = p_th*rcut*xcut + p_am
# 578 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    case (303)  ! 3D Multijet
# 578 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        eps_smooth = 3.0_wp
# 578 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ux_th = 10*sqrt(1.4*0.4)
# 578 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ux_am = 2.5*sqrt(1.4*0.4)
# 578 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        p_th = 0.8_wp
# 578 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        p_am = 0.4_wp
# 578 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        rho_th = 1._wp
# 578 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        rho_am = 1._wp
# 578 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        eps = 1e-6
# 578 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 578 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        rcut = rcut_arr(j, k)
# 578 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        xcut = f_cut_on(x_cc(i), eps_smooth)
# 578 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 578 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        q_prim_vf(eqn_idx%mom%beg)%sf(i, j, k) = ux_th*rcut*xcut + ux_am
# 578 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        q_prim_vf(eqn_idx%mom%beg + 1)%sf(i, j, k) = 0._wp
# 578 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        q_prim_vf(eqn_idx%mom%end)%sf(i, j, k) = 0._wp
# 578 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 578 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        if (num_fluids == 1) then
# 578 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%cont%beg)%sf(i, j, k) = (rho_th - rho_am)*rcut*xcut + rho_am
# 578 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        else
# 578 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%adv%beg)%sf(i, j, k) = (1._wp - 2._wp*eps)*rcut*xcut + eps
# 578 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%cont%beg)%sf(i, j, k) = rho_th*q_prim_vf(eqn_idx%adv%beg)%sf(i, j, k)
# 578 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%cont%end)%sf(i, j, k) = rho_am*(1._wp - q_prim_vf(eqn_idx%adv%beg)%sf(i, j, k))
# 578 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        end if
# 578 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 578 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        q_prim_vf(eqn_idx%E)%sf(i, j, k) = p_th*rcut*xcut + p_am
# 578 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    case (304)  ! 3D Interface from file cartesian
# 578 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        alph = 0.5_wp*(1 + (1._wp - 2._wp*eps)*tanh((ih(start_idx(2) + j, start_idx(3) + k) - x_cc(i))*(0.5_wp/dx)))
# 578 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 578 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        q_prim_vf(eqn_idx%adv%beg)%sf(i, j, k) = alph
# 578 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        q_prim_vf(eqn_idx%adv%end)%sf(i, j, k) = 1._wp - alph
# 578 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 578 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        q_prim_vf(eqn_idx%cont%beg)%sf(i, j, k) = q_prim_vf(eqn_idx%adv%beg)%sf(i, j, k)*(950._wp/1000._wp)
# 578 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        q_prim_vf(eqn_idx%cont%end)%sf(i, j, k) = q_prim_vf(eqn_idx%adv%end)%sf(i, j, k)*(1._wp/1000._wp)
# 578 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 578 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        q_prim_vf(eqn_idx%E)%sf(i, j, k) = p0_ic + (q_prim_vf(eqn_idx%cont%beg)%sf(i, j, k) + q_prim_vf(eqn_idx%cont%end)%sf(i, &
# 578 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                  & j, k))*g0_ic*(ih(start_idx(2) + j, start_idx(3) + k) - x_cc(i))
# 578 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 578 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        if (surface_tension) q_prim_vf(eqn_idx%c)%sf(i, j, k) = alph
# 578 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    case (305)  ! 3D Interface from file axisymmetric
# 578 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        alph = 0.5_wp*(1 + (1._wp - 2._wp*eps)*tanh((ih(start_idx(2) + j, 0) - x_cc(i))*(0.01_wp/dx)))
# 578 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 578 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        q_prim_vf(eqn_idx%adv%beg)%sf(i, j, k) = alph
# 578 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        q_prim_vf(eqn_idx%adv%end)%sf(i, j, k) = 1._wp - alph
# 578 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 578 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        q_prim_vf(eqn_idx%cont%beg)%sf(i, j, k) = q_prim_vf(eqn_idx%adv%beg)%sf(i, j, k)*1._wp
# 578 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        q_prim_vf(eqn_idx%cont%end)%sf(i, j, k) = q_prim_vf(eqn_idx%adv%end)%sf(i, j, k)*(1._wp/950._wp)
# 578 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 578 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        q_prim_vf(eqn_idx%E)%sf(i, j, k) = p0_ic + (q_prim_vf(eqn_idx%cont%beg)%sf(i, j, k) + q_prim_vf(eqn_idx%cont%end)%sf(i, &
# 578 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                  & j, k))*g0_ic*(ih(start_idx(1) + i, start_idx(3) + k) - y_cc(j))
# 578 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 578 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        if (surface_tension) q_prim_vf(eqn_idx%c)%sf(i, j, k) = alph
# 578 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    case (370)  ! 3D extrusion of 2D profile from external data
# 578 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! This hardcoded case extrudes a 2D profile to initialize a 3D simulation domain
# 578 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    if (.not. files_loaded) then
# 578 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        max_files = merge(sys_size, sys_size - 1, num_dims == 1)
# 578 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        do f = 1, max_files
# 578 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            write (file_num_str, '(I0)') f
# 578 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            filenames(f) = trim(files_dir) // "/" // "prim." // trim(file_num_str) // ".00." // trim(file_extension) // ".dat"
# 578 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        end do
# 578 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 578 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! Common file reading setup
# 578 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        open (newunit=unit2, file=trim(filenames(1)), status='old', action='read', iostat=ios2)
# 578 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        if (ios2 /= 0) call s_mpi_abort("Error opening file: " // trim(filenames(1)))
# 578 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 578 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        select case (num_dims)
# 578 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        case (1, 2)  ! 1D and 2D cases are similar
# 578 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            ! Count lines
# 578 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            line_count = 0
# 578 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            do
# 578 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                read (unit2, *, iostat=ios2) dummy_x, dummy_y
# 578 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                if (ios2 /= 0) exit
# 578 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                line_count = line_count + 1
# 578 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            end do
# 578 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            close (unit2)
# 578 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 578 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            xrows = line_count
# 578 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            yrows = 1
# 578 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            index_x = 0
# 578 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            if (num_dims == 2) index_x = i
# 578 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#ifdef MFC_DEBUG
# 578 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    block
# 578 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        use iso_fortran_env, only: output_unit
# 578 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 578 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        print *, 'm_icpp_patches.fpp:578: ', '@:ALLOCATE(x_coords(xRows), stored_values(xRows, 1, sys_size))'
# 578 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 578 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        call flush (output_unit)
# 578 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    end block
# 578 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#endif
# 578 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    allocate (x_coords(xrows), stored_values(xrows, 1, sys_size))
# 578 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 578 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 578 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 578 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#if defined(MFC_OpenACC)
# 578 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
!$acc enter data create(x_coords, stored_values) 
# 578 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#elif defined(MFC_OpenMP)
# 578 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
!$omp target enter data map(always,alloc:x_coords, stored_values) 
# 578 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#endif
# 578 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 578 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            ! Read data from all files
# 578 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            do f = 1, max_files
# 578 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                open (newunit=unit, file=trim(filenames(f)), status='old', action='read', iostat=ios)
# 578 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                if (ios /= 0) call s_mpi_abort("Error opening file: " // trim(filenames(f)))
# 578 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 578 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                do iter = 1, xrows
# 578 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    read (unit, *, iostat=ios) x_coords(iter), stored_values(iter, 1, f)
# 578 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    if (ios /= 0) call s_mpi_abort("Error reading file: " // trim(filenames(f)))
# 578 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                end do
# 578 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                close (unit)
# 578 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            end do
# 578 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 578 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            ! Calculate offsets
# 578 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            domain_xstart = x_coords(1)
# 578 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            x_step = x_cc(1) - x_cc(0)
# 578 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            delta_x = merge(x_cc(0) - domain_xstart, x_cc(index_x) - domain_xstart, num_dims == 1)
# 578 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            global_offset_x = nint(abs(delta_x)/x_step)
# 578 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        case (3)  ! 3D case - determine grid structure
# 578 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            ! Find yRows by counting rows with same x
# 578 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            read (unit2, *, iostat=ios2) x0, y0, dummy_z
# 578 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            if (ios2 /= 0) call s_mpi_abort("Error reading first line")
# 578 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 578 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            yrows = 1
# 578 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            do
# 578 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                read (unit2, *, iostat=ios2) dummy_x, dummy_y, dummy_z
# 578 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                if (ios2 /= 0) exit
# 578 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                if (f_approx_equal(dummy_x, x0) .and. (.not. f_approx_equal(dummy_y, y0))) then
# 578 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    yrows = yrows + 1
# 578 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                else
# 578 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    exit
# 578 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                end if
# 578 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            end do
# 578 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            close (unit2)
# 578 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 578 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            ! Count total rows
# 578 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            open (newunit=unit2, file=trim(filenames(1)), status='old', action='read', iostat=ios2)
# 578 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            nrows = 0
# 578 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            do
# 578 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                read (unit2, *, iostat=ios2) dummy_x, dummy_y, dummy_z
# 578 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                if (ios2 /= 0) exit
# 578 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                nrows = nrows + 1
# 578 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            end do
# 578 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            close (unit2)
# 578 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 578 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            xrows = nrows/yrows
# 578 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#ifdef MFC_DEBUG
# 578 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    block
# 578 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        use iso_fortran_env, only: output_unit
# 578 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 578 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        print *, 'm_icpp_patches.fpp:578: ', '@:ALLOCATE(x_coords(nrows), y_coords(nrows), stored_values(xRows, yRows, sys_size))'
# 578 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 578 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        call flush (output_unit)
# 578 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    end block
# 578 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#endif
# 578 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    allocate (x_coords(nrows), y_coords(nrows), stored_values(xrows, yrows, sys_size))
# 578 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 578 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 578 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 578 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 578 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#if defined(MFC_OpenACC)
# 578 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
!$acc enter data create(x_coords, y_coords, stored_values) 
# 578 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#elif defined(MFC_OpenMP)
# 578 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
!$omp target enter data map(always,alloc:x_coords, y_coords, stored_values) 
# 578 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#endif
# 578 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            index_x = i
# 578 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            index_y = j
# 578 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 578 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            ! Read all files
# 578 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            do f = 1, max_files
# 578 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                open (newunit=unit, file=trim(filenames(f)), status='old', action='read', iostat=ios)
# 578 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                if (ios /= 0) then
# 578 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    if (f == 1) call s_mpi_abort("Error opening file: " // trim(filenames(f)))
# 578 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    cycle
# 578 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                end if
# 578 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 578 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                iter = 0
# 578 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                do iix = 1, xrows
# 578 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    do iiy = 1, yrows
# 578 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                        iter = iter + 1
# 578 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                        if (f == 1) then
# 578 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                            read (unit, *, iostat=ios) x_coords(iter), y_coords(iter), stored_values(iix, iiy, f)
# 578 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                        else
# 578 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                            read (unit, *, iostat=ios) dummy_x, dummy_y, stored_values(iix, iiy, f)
# 578 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                        end if
# 578 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                        if (ios /= 0) call s_mpi_abort("Error reading data")
# 578 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    end do
# 578 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                end do
# 578 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                close (unit)
# 578 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            end do
# 578 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 578 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            ! Calculate offsets
# 578 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            x_step = x_cc(1) - x_cc(0)
# 578 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            y_step = y_cc(1) - y_cc(0)
# 578 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            delta_x = x_cc(index_x) - x_coords(1)
# 578 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            delta_y = y_cc(index_y) - y_coords(1)
# 578 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            global_offset_x = nint(abs(delta_x)/x_step)
# 578 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            global_offset_y = nint(abs(delta_y)/y_step)
# 578 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        end select
# 578 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 578 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        files_loaded = .true.
# 578 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    end if
# 578 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 578 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    ! Data assignment
# 578 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    select case (num_dims)
# 578 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    case (1)
# 578 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        idx = i + 1 + global_offset_x
# 578 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! idx must land inside the file's row range: this rank's subdomain offset
# 578 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! (global_offset_x) was derived from this rank's own grid, so a miss means the
# 578 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! IC file is misaligned/mis-sized for the run grid, not a normal boundary case.
# 578 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        if (idx < 1 .or. idx > xrows) &
# 578 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            & call s_mpi_abort("Hardcoded IC extrusion: row index out of range (IC file misaligned with the run grid)")
# 578 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        do f = 1, sys_size
# 578 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(f)%sf(i, 0, 0) = stored_values(idx, 1, f)
# 578 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        end do
# 578 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    case (2)
# 578 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        idx = i + 1 + global_offset_x - index_x
# 578 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        if (idx < 1 .or. idx > xrows) &
# 578 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            & call s_mpi_abort("Hardcoded IC extrusion: row index out of range (IC file misaligned with the run grid)")
# 578 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        do f = 1, sys_size - 1
# 578 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            jump = merge(1, 0, f >= eqn_idx%mom%end)
# 578 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(f + jump)%sf(i, j, 0) = stored_values(idx, 1, f)
# 578 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        end do
# 578 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        q_prim_vf(eqn_idx%mom%end)%sf(i, j, 0) = 0.0_wp
# 578 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    case (3)
# 578 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        idx = i + 1 + global_offset_x - index_x
# 578 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        idy = j + 1 + global_offset_y - index_y
# 578 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        if (idx < 1 .or. idx > xrows .or. idy < 1 .or. idy > yrows) &
# 578 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            & call s_mpi_abort("Hardcoded IC extrusion: row/column index out of range (IC file misaligned with the run grid)")
# 578 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        do f = 1, sys_size - 1
# 578 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            jump = merge(1, 0, f >= eqn_idx%mom%end)
# 578 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(f + jump)%sf(i, j, k) = stored_values(idx, idy, f)
# 578 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        end do
# 578 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        q_prim_vf(eqn_idx%mom%end)%sf(i, j, k) = 0.0_wp
# 578 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    end select
# 578 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    case (380)  ! Taylor-Green vortex
# 578 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! This is patch is hard-coded for test suite optimization used in the 3D_TaylorGreenVortex case: This analytic patch used
# 578 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! geometry 9
# 578 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        mach = 0.1
# 578 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        if (patch_id == 1) then
# 578 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%E)%sf(i, j, &
# 578 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                      & k) = 101325 + (mach**2*376.636429464809**2/16)*(cos(2*x_cc(i)/1) + cos(2*y_cc(j)/1))*(cos(2*z_cc(k)/1) + 2)
# 578 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%mom%beg + 0)%sf(i, j, k) = mach*376.636429464809*sin(x_cc(i)/1)*cos(y_cc(j)/1)*sin(z_cc(k)/1)
# 578 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%mom%beg + 1)%sf(i, j, k) = -mach*376.636429464809*cos(x_cc(i)/1)*sin(y_cc(j)/1)*sin(z_cc(k)/1)
# 578 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        end if
# 578 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    case default
# 578 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        call s_int_to_str(patch_id, istr)
# 578 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        call s_mpi_abort("Invalid hcid specified for patch " // trim(istr))
# 578 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    end select
                        end if
 
                        ! Updating the patch identities bookkeeping variable
                        if (1._wp - eta < sgm_eps) patch_id_fp(i, j, k) = patch_id
                    end if
                end do
            end do
        end do
    if (allocated(stored_values)) then
# 587 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#ifdef MFC_DEBUG
# 587 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    block
# 587 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        use iso_fortran_env, only: output_unit
# 587 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 587 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        print *, 'm_icpp_patches.fpp:587: ', '@:DEALLOCATE(stored_values)'
# 587 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 587 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        call flush (output_unit)
# 587 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    end block
# 587 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#endif
# 587 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 587 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#if defined(MFC_OpenACC)
# 587 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
!$acc exit data delete(stored_values) 
# 587 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#elif defined(MFC_OpenMP)
# 587 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
!$omp target exit data map(release:stored_values) 
# 587 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#endif
# 587 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    deallocate (stored_values)
# 587 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#ifdef MFC_DEBUG
# 587 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    block
# 587 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        use iso_fortran_env, only: output_unit
# 587 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 587 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        print *, 'm_icpp_patches.fpp:587: ', '@:DEALLOCATE(x_coords)'
# 587 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 587 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        call flush (output_unit)
# 587 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    end block
# 587 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#endif
# 587 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 587 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#if defined(MFC_OpenACC)
# 587 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
!$acc exit data delete(x_coords) 
# 587 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#elif defined(MFC_OpenMP)
# 587 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
!$omp target exit data map(release:x_coords) 
# 587 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#endif
# 587 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    deallocate (x_coords)
# 587 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    end if
# 587 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 587 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    if (allocated(y_coords)) then
# 587 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#ifdef MFC_DEBUG
# 587 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    block
# 587 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        use iso_fortran_env, only: output_unit
# 587 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 587 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        print *, 'm_icpp_patches.fpp:587: ', '@:DEALLOCATE(y_coords)'
# 587 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 587 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        call flush (output_unit)
# 587 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    end block
# 587 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#endif
# 587 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 587 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#if defined(MFC_OpenACC)
# 587 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
!$acc exit data delete(y_coords) 
# 587 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#elif defined(MFC_OpenMP)
# 587 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
!$omp target exit data map(release:y_coords) 
# 587 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#endif
# 587 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    deallocate (y_coords)
# 587 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    end if
# 587 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 587 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    files_loaded = .false.
# 587 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 587 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    if (allocated(stored_values274)) then
# 587 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#ifdef MFC_DEBUG
# 587 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    block
# 587 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        use iso_fortran_env, only: output_unit
# 587 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 587 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        print *, 'm_icpp_patches.fpp:587: ', '@:DEALLOCATE(stored_values274)'
# 587 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 587 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        call flush (output_unit)
# 587 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    end block
# 587 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#endif
# 587 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 587 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#if defined(MFC_OpenACC)
# 587 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
!$acc exit data delete(stored_values274) 
# 587 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#elif defined(MFC_OpenMP)
# 587 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
!$omp target exit data map(release:stored_values274) 
# 587 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#endif
# 587 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    deallocate (stored_values274)
# 587 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    end if
# 587 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 587 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    files_loaded274 = .false.
 
    end subroutine s_icpp_ellipsoid
 
    !> The rectangular patch is a 2D geometry that may be used, for example, in creating a solid boundary, or pre-/post- shock
    !! region, in alignment with the axes of the Cartesian coordinate system. The geometry of such a patch is well- defined when its
    !! centroid and lengths in the x- and y- coordinate directions are provided. Please note that the rectangular patch DOES NOT
    !! allow for the smoothing of its boundaries.
    subroutine s_icpp_rectangle(patch_id, patch_id_fp, q_prim_vf)
 
        integer, intent(in) :: patch_id
 
#ifdef MFC_MIXED_PRECISION
        integer(kind=1), dimension(0:m,0:n,0:p), intent(inout) :: patch_id_fp
#else
        integer, dimension(0:m,0:n,0:p), intent(inout) :: patch_id_fp
#endif
        type(scalar_field), dimension(1:sys_size), intent(inout) :: q_prim_vf
        integer                                                  :: i, j, k                   !< generic loop iterators
        real(wp)                                                 :: pi_inf, gamma, lit_gamma  !< Equation of state parameters
 
    integer                                 :: xRows, yRows, nRows, iix, iiy, max_files
# 608 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    integer                                 :: f, iter, unit, unit2, idx, idy, index_x, index_y, jump, line_count
# 608 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    real(wp)                                :: x_step, y_step
# 608 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    real(wp)                                :: dummy_x, dummy_y, dummy_z, x0, y0
# 608 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    integer                                 :: global_offset_x, global_offset_y  !< MPI subdomain offset
# 608 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    real(wp)                                :: delta_x, delta_y
# 608 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    character(len=300), dimension(sys_size) :: fileNames                         !< Arrays to store all data from files
# 608 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    real(wp), allocatable                   :: stored_values(:,:,:)
# 608 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    real(wp), allocatable                   :: x_coords(:), y_coords(:)
# 608 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    logical                                 :: files_loaded = .false.
# 608 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    real(wp)                                :: domain_xstart
# 608 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    character(len=20)                       :: file_num_str                      !< For storing the file number as a string
# 608 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    integer                                 :: ios
# 608 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    integer                                 :: ios2
# 608 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 608 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    ! hcid=274 (2dHardcodedIC.fpp): full 2D field from external data, no extrusion.
# 608 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    ! Declared here (not in Hardcoded2DVariables()) so it's visible wherever
# 608 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    ! HardcodedDeallocation() is called, matching the pattern of stored_values/x_coords/
# 608 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    ! y_coords/files_loaded above.
# 608 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    real(wp), allocatable, dimension(:,:,:) :: stored_values274
# 608 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    logical                                 :: files_loaded274 = .false.
# 608 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    integer                                 :: f274, ix274, iy274, unit274, ios274
# 608 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    integer                                 :: local_ix_beg274, local_iy_beg274
# 608 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    character(len=300)                      :: fname274
# 608 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    character(len=20)                       :: file_num_str274
# 608 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    real(wp)                                :: dummy_x274, dummy_y274, dummy_val274, x0_274, y0_274, x_step274, y_step274
# 608 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    real(wp)                                :: file_dx274, file_dy274, r_align274
    ! Place any declaration of intermediate variables here
# 609 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    real(wp) :: eps, eps_mhd, C_mhd
# 609 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    real(wp) :: r, rmax, gam, umax, p0
# 609 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    real(wp) :: rhoH, rhoL, pRef, pInt, h, lam, wl, amp, intH, intL, alph
# 609 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    real(wp) :: factor, x1c, y1c, x2c, y2c, r1c, r2c, cvortex, u1c, u2c, v1c, v2c, rvortex
# 609 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    real(wp) :: r0, alpha, r2
# 609 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    real(wp) :: sinA, cosA
# 609 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    real(wp) :: r_sq
# 609 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 609 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    ! # 283 - Gauss-averaged isentropic vortex (conserved-variable cell averages)
# 609 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    real(wp) :: gauss_xi(3), gauss_w(3), xq, yq, r2q, T_facq, wq
# 609 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    real(wp) :: rho_avg, rhou_avg, rhov_avg, E_avg
# 609 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    real(wp) :: rhoq, pq, uq, vq, Eq, vortex_eps
# 609 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    integer  :: igq, jgq
# 609 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 609 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    ! # 291 - Shear/Thermal Layer Case
# 609 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    real(wp) :: delta_shear, u_max, u_mean
# 609 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    real(wp) :: T_wall, T_inf, P_atm, T_loc
# 609 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    real(wp) :: delta_th, R_mix
# 609 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    real(wp) :: Y_N2, Y_O2, MW_N2, MW_O2
# 609 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    real(wp) :: bottom_blend_u, bottom_blend_T
# 609 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 609 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    ! # 207
# 609 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    real(wp) :: sigma, gauss1, gauss2
# 609 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 609 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    ! # 208
# 609 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    real(wp)            :: ei, d, fsm, alpha_air, alpha_sf6
# 609 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    real(wp)            :: y_center, y_dist, wave_phase, front_shift, x_mapped, interp_wt
# 609 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    integer             :: v, idx_lo, idx_hi, idx_mid
# 609 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    real(wp), parameter :: Ly_param = 0.00775735_wp
# 609 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    real(wp), parameter :: A_param = 0.1_wp*96.9880867_wp*10.0_wp**(-6.0_wp)
# 609 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    integer, parameter  :: Nwaves = 6
# 609 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    real(wp), parameter :: y0_ref = 0.0_wp
# 609 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 609 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    eps = 1.e-9_wp
 
        pi_inf = pi_infs(1)
        gamma = gammas(1)
        lit_gamma = gs_min(1)
 
        ! Transferring the rectangle's centroid and length information
        x_centroid = patch_icpp(patch_id)%x_centroid
        y_centroid = patch_icpp(patch_id)%y_centroid
        length_x = patch_icpp(patch_id)%length_x
        length_y = patch_icpp(patch_id)%length_y
 
        ! Computing the beginning and the end x- and y-coordinates of the rectangle based on its centroid and lengths
        x_boundary%beg = x_centroid - 0.5_wp*length_x
        x_boundary%end = x_centroid + 0.5_wp*length_x
        y_boundary%beg = y_centroid - 0.5_wp*length_y
        y_boundary%end = y_centroid + 0.5_wp*length_y
 
        ! Set eta=1 (no smoothing for this patch type)
        eta = 1._wp
 
        ! Assign patch vars if cell is covered and patch has write permission
        do j = 0, n
            do i = 0, m
                if (f_is_inside_cuboid(x_cc(i) - x_centroid, y_cc(j) - y_centroid, 0._wp, [length_x, length_y, 0._wp])) then
                    if (patch_icpp(patch_id)%alter_patch(patch_id_fp(i, j, 0))) then
                        call s_assign_patch_primitive_variables(patch_id, i, j, 0, eta, q_prim_vf, patch_id_fp)
 
 
 
                        if (patch_icpp(patch_id)%hcid /= dflt_int) then
    select case (patch_icpp(patch_id)%hcid)  ! 2D_hardcoded_ic example case
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    case (200)  ! Two-fluid cubic interface
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        if (y_cc(j) <= (-x_cc(i)**3 + 1)**(1._wp/3._wp)) then
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%adv%beg)%sf(i, j, 0) = eps
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%adv%end)%sf(i, j, 0) = 1._wp - eps
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%cont%beg)%sf(i, j, 0) = eps*1000._wp
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%cont%end)%sf(i, j, 0) = (1._wp - eps)*1._wp
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%E)%sf(i, j, 0) = 1000._wp
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        end if
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    case (202)  ! Gresho vortex (Gouasmi et al 2022 JCP)
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        r = ((x_cc(i) - 0.5_wp)**2 + (y_cc(j) - 0.5_wp)**2)**0.5_wp
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        rmax = 0.2_wp
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        gam = 1._wp + 1._wp/fluid_pp(1)%gamma
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        umax = 2*pi*rmax*patch_icpp(patch_id)%vel(2)
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        p0 = umax**2*(1._wp/(gam*patch_icpp(patch_id)%vel(2)**2) - 0.5_wp)
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        if (r < rmax) then
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%mom%beg)%sf(i, j, 0) = -(y_cc(j) - 0.5_wp)*umax/rmax
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%mom%end)%sf(i, j, 0) = (x_cc(i) - 0.5_wp)*umax/rmax
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%E)%sf(i, j, 0) = p0 + umax**2*((r/rmax)**2._wp/2._wp)
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        else if (r < 2*rmax) then
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%mom%beg)%sf(i, j, 0) = -((y_cc(j) - 0.5_wp)/r)*umax*(2._wp - r/rmax)
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%mom%end)%sf(i, j, 0) = ((x_cc(i) - 0.5_wp)/r)*umax*(2._wp - r/rmax)
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%E)%sf(i, j, 0) = p0 + umax**2*((r/rmax)**2/2._wp + 4*(1 - (r/rmax) + log(r/rmax)))
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        else
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%mom%beg)%sf(i, j, 0) = 0._wp
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%mom%end)%sf(i, j, 0) = 0._wp
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%E)%sf(i, j, 0) = p0 + umax**2*(-2 + 4*log(2._wp))
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        end if
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    case (203)  ! Gresho vortex (Gouasmi et al 2022 JCP) with density correction
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        r = ((x_cc(i) - 0.5_wp)**2._wp + (y_cc(j) - 0.5_wp)**2)**0.5_wp
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        rmax = 0.2_wp
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        gam = 1._wp + 1._wp/fluid_pp(1)%gamma
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        umax = 2*pi*rmax*patch_icpp(patch_id)%vel(2)
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        p0 = umax**2*(1._wp/(gam*patch_icpp(patch_id)%vel(2)**2) - 0.5_wp)
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        if (r < rmax) then
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%mom%beg)%sf(i, j, 0) = -(y_cc(j) - 0.5_wp)*umax/rmax
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%mom%end)%sf(i, j, 0) = (x_cc(i) - 0.5_wp)*umax/rmax
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%E)%sf(i, j, 0) = p0 + umax**2*((r/rmax)**2._wp/2._wp)
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        else if (r < 2*rmax) then
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%mom%beg)%sf(i, j, 0) = -((y_cc(j) - 0.5_wp)/r)*umax*(2._wp - r/rmax)
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%mom%end)%sf(i, j, 0) = ((x_cc(i) - 0.5_wp)/r)*umax*(2._wp - r/rmax)
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%E)%sf(i, j, 0) = p0 + umax**2*((r/rmax)**2/2._wp + 4._wp*(1._wp - (r/rmax) + log(r/rmax)))
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        else
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%mom%beg)%sf(i, j, 0) = 0._wp
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%mom%end)%sf(i, j, 0) = 0._wp
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%E)%sf(i, j, 0) = p0 + umax**2._wp*(-2._wp + 4*log(2._wp))
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        end if
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        q_prim_vf(eqn_idx%cont%beg)%sf(i, j, 0) = q_prim_vf(eqn_idx%E)%sf(i, j, 0)**(1._wp/gam)
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    case (204)  ! Rayleigh-Taylor instability
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        rhoh = 3._wp
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        rhol = 1._wp
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        pref = 1.e5_wp
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        pint = pref
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        h = 0.7_wp
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        lam = 0.2_wp
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        wl = 2._wp*pi/lam
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        amp = 0.05_wp/wl
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        inth = amp*sin(2._wp*pi*x_cc(i)/lam - pi/2._wp) + h
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        alph = 0.5_wp*(1._wp + tanh((y_cc(j) - inth)/2.5e-3_wp))
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        if (alph < eps) alph = eps
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        if (alph > 1._wp - eps) alph = 1._wp - eps
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        if (y_cc(j) > inth) then
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%adv%beg)%sf(i, j, 0) = alph
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%adv%end)%sf(i, j, 0) = 1._wp - alph
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%cont%beg)%sf(i, j, 0) = alph*rhoh
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%cont%end)%sf(i, j, 0) = (1._wp - alph)*rhol
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%E)%sf(i, j, 0) = pref + rhoh*9.81_wp*(1.2_wp - y_cc(j))
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        else
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%adv%beg)%sf(i, j, 0) = alph
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%adv%end)%sf(i, j, 0) = 1._wp - alph
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%cont%beg)%sf(i, j, 0) = alph*rhoh
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%cont%end)%sf(i, j, 0) = (1._wp - alph)*rhol
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            pint = pref + rhoh*9.81_wp*(1.2_wp - inth)
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%E)%sf(i, j, 0) = pint + rhol*9.81_wp*(inth - y_cc(j))
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        end if
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    case (205)  ! 2D lung wave interaction problem
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        h = 0.0_wp  ! non dim origin y
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        lam = 1.0_wp  ! non dim lambda
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        amp = patch_icpp(patch_id)%a(2)  ! to be changed later!       !non dim amplitude
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        inth = amp*sin(2*pi*x_cc(i)/lam - pi/2) + h
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        if (y_cc(j) > inth) then
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%cont%beg)%sf(i, j, 0) = patch_icpp(1)%alpha_rho(1)
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%cont%end)%sf(i, j, 0) = patch_icpp(1)%alpha_rho(2)
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%E)%sf(i, j, 0) = patch_icpp(1)%pres
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%adv%beg)%sf(i, j, 0) = patch_icpp(1)%alpha(1)
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%adv%end)%sf(i, j, 0) = patch_icpp(1)%alpha(2)
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        end if
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    case (206)  ! 2D lung wave interaction problem - horizontal domain
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        h = 0.0_wp  ! non dim origin y
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        lam = 1.0_wp  ! non dim lambda
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        amp = patch_icpp(patch_id)%a(2)
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        intl = amp*sin(2*pi*y_cc(j)/lam - pi/2) + h
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        if (x_cc(i) > intl) then  ! this is the liquid
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%cont%beg)%sf(i, j, 0) = patch_icpp(1)%alpha_rho(1)
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%cont%end)%sf(i, j, 0) = patch_icpp(1)%alpha_rho(2)
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%E)%sf(i, j, 0) = patch_icpp(1)%pres
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%adv%beg)%sf(i, j, 0) = patch_icpp(1)%alpha(1)
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%adv%end)%sf(i, j, 0) = patch_icpp(1)%alpha(2)
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        end if
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    case (207)  ! Kelvin Helmholtz Instability
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        sigma = 0.05_wp/sqrt(2.0_wp)
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        gauss1 = exp(-(y_cc(j) - 0.75_wp)**2/(2.0_wp*sigma**2))
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        gauss2 = exp(-(y_cc(j) - 0.25_wp)**2/(2.0_wp*sigma**2))
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        q_prim_vf(eqn_idx%mom%beg + 1)%sf(i, j, 0) = 0.1_wp*sin(4.0_wp*pi*x_cc(i))*(gauss1 + gauss2)
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    case (208)  ! Richtmeyer Meshkov Instability
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        lam = 1.0_wp
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        eps = 1.0e-6_wp
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ei = 5.0_wp
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! Smoothening function to smooth out sharp discontinuity in the interface
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        if (x_cc(i) <= 0.7_wp*lam) then
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            d = x_cc(i) - lam*(0.4_wp - 0.1_wp*sin(2.0_wp*pi*(y_cc(j)/lam + 0.25_wp)))
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            fsm = 0.5_wp*(1.0_wp + erf(d/(ei*sqrt(dx*dy))))
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            alpha_air = eps + (1.0_wp - 2.0_wp*eps)*fsm
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            alpha_sf6 = 1.0_wp - alpha_air
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%cont%beg)%sf(i, j, 0) = alpha_sf6*5.04_wp
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%cont%end)%sf(i, j, 0) = alpha_air*1.0_wp
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%adv%beg)%sf(i, j, 0) = alpha_sf6
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%adv%end)%sf(i, j, 0) = alpha_air
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        end if
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    case (250)  ! MHD Orszag-Tang vortex
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! gamma = 5/3 rho = 25/(36*pi) p = 5/(12*pi) v = (-sin(2*pi*y), sin(2*pi*x), 0) B = (-sin(2*pi*y)/sqrt(4*pi),
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! sin(4*pi*x)/sqrt(4*pi), 0)
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        q_prim_vf(eqn_idx%mom%beg)%sf(i, j, 0) = -sin(2._wp*pi*y_cc(j))
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        q_prim_vf(eqn_idx%mom%beg + 1)%sf(i, j, 0) = sin(2._wp*pi*x_cc(i))
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        q_prim_vf(eqn_idx%B%beg)%sf(i, j, 0) = -sin(2._wp*pi*y_cc(j))/sqrt(4._wp*pi)
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        q_prim_vf(eqn_idx%B%beg + 1)%sf(i, j, 0) = sin(4._wp*pi*x_cc(i))/sqrt(4._wp*pi)
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    case (251)  ! RMHD Cylindrical Blast Wave [Mignone, 2006: Section 4.3.1]
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        if (x_cc(i)**2 + y_cc(j)**2 < 0.08_wp**2) then
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%cont%beg)%sf(i, j, 0) = 0.01
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%E)%sf(i, j, 0) = 1.0
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        else if (x_cc(i)**2 + y_cc(j)**2 <= 1._wp**2) then
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            ! Linear interpolation between r=0.08 and r=1.0
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            factor = (1.0_wp - sqrt(x_cc(i)**2 + y_cc(j)**2))/(1.0_wp - 0.08_wp)
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%cont%beg)%sf(i, j, 0) = 0.01_wp*factor + 1.e-4_wp*(1.0_wp - factor)
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%E)%sf(i, j, 0) = 1.0_wp*factor + 3.e-5_wp*(1.0_wp - factor)
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        else
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%cont%beg)%sf(i, j, 0) = 1.e-4_wp
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%E)%sf(i, j, 0) = 3.e-5_wp
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        end if
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! case 252 is for the 2D MHD Rotor problem
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    case (252)  ! 2D MHD Rotor Problem
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! Ambient conditions are set in the JSON file. This case imposes the dense, rotating cylinder.
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        !
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! gamma = 1.4 Ambient medium (r > 0.1): rho = 1, p = 1, v = 0, B = (1,0,0) Rotor (r <= 0.1): rho = 10, p = 1 v has angular
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! velocity w=20, giving v_tan=2 at r=0.1
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! Calculate distance squared from the center
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        r_sq = (x_cc(i) - 0.5_wp)**2 + (y_cc(j) - 0.5_wp)**2
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! inner radius of 0.1
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        if (r_sq <= 0.1**2) then
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            ! -- Inside the rotor -- Set density uniformly to 10
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%cont%beg)%sf(i, j, 0) = 10._wp
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            ! Set vup constant rotation of rate v=2 v_x = -omega * (y - y_c) v_y = omega * (x - x_c)
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%mom%beg)%sf(i, j, 0) = -20._wp*(y_cc(j) - 0.5_wp)
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%mom%beg + 1)%sf(i, j, 0) = 20._wp*(x_cc(i) - 0.5_wp)
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            ! taper width of 0.015
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        else if (r_sq <= 0.115**2) then
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            ! linearly smooth the function between r = 0.1 and 0.115
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%cont%beg)%sf(i, j, 0) = 1._wp + 9._wp*(0.115_wp - sqrt(r_sq))/(0.015_wp)
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%mom%beg)%sf(i, j, 0) = -(2._wp/sqrt(r_sq))*(y_cc(j) - 0.5_wp)*(0.115_wp - sqrt(r_sq))/(0.015_wp)
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%mom%beg + 1)%sf(i, j, 0) = (2._wp/sqrt(r_sq))*(x_cc(i) - 0.5_wp)*(0.115_wp - sqrt(r_sq))/(0.015_wp)
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        end if
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    case (253)  ! MHD Smooth Magnetic Vortex
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! Section 5.2 of Implicit hybridized discontinuous Galerkin methods for compressible magnetohydrodynamics C. Ciuca, P.
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! Fernandez, A. Christophe, N.C. Nguyen, J. Peraire
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! velocity
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        q_prim_vf(eqn_idx%mom%beg)%sf(i, j, 0) = 1._wp - (y_cc(j)*exp(1 - (x_cc(i)**2 + y_cc(j)**2))/(2.*pi))
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        q_prim_vf(eqn_idx%mom%beg + 1)%sf(i, j, 0) = 1._wp + (x_cc(i)*exp(1 - (x_cc(i)**2 + y_cc(j)**2))/(2.*pi))
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! magnetic field
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        q_prim_vf(eqn_idx%B%beg)%sf(i, j, 0) = -y_cc(j)*exp(1 - (x_cc(i)**2 + y_cc(j)**2))/(2.*pi)
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        q_prim_vf(eqn_idx%B%beg + 1)%sf(i, j, 0) = x_cc(i)*exp(1 - (x_cc(i)**2 + y_cc(j)**2))/(2.*pi)
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! pressure
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        q_prim_vf(eqn_idx%E)%sf(i, j, &
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                  & 0) = 1._wp + (1 - 2._wp*(x_cc(i)**2 + y_cc(j)**2))*exp(1 - (x_cc(i)**2 + y_cc(j)**2))/((2._wp*pi)**3)
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    case (260)  ! Gaussian Divergence Pulse
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! Bx(x) = 1 + C * erf((x-0.5)/\sigma) => \partialBx/\partialx = C * (2/\sqrt\pi) * exp[-((x-0.5)/\sigma)**2] * (1/\sigma)
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! Choose C = \epsilon * \sigma * \sqrt\pi / 2 => \partialBx/\partialx = \epsilon * exp[-((x-0.5)/\sigma)**2] \psi is
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! initialized to zero everywhere.
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        eps_mhd = patch_icpp(patch_id)%a(2)
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        sigma = patch_icpp(patch_id)%a(3)
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        c_mhd = eps_mhd*sigma*sqrt(pi)*0.5_wp
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! B-field
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        q_prim_vf(eqn_idx%B%beg)%sf(i, j, 0) = 1._wp + c_mhd*erf((x_cc(i) - 0.5_wp)/sigma)
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    case (261)  ! Blob
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        r0 = 1._wp/sqrt(8._wp)
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        r2 = x_cc(i)**2 + y_cc(j)**2
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        r = sqrt(r2)
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        alpha = r/r0
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        if (alpha < 1) then
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%B%beg)%sf(i, j, 0) = 1._wp/sqrt(4._wp*pi)*(alpha**8 - 2._wp*alpha**4 + 1._wp)
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            ! q_prim_vf(eqn_idx%B%beg)%sf(i,j,0) = 1._wp/sqrt(4000._wp*pi) * (4096._wp*r2**4 - 128._wp*r2**2 + 1._wp)
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            ! q_prim_vf(eqn_idx%B%beg)%sf(i,j,0) = 1._wp/(4._wp*pi) * (alpha**8 - 2._wp*alpha**4 + 1._wp)
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            ! q_prim_vf(eqn_idx%E)%sf(i,j,0) = 6._wp - q_prim_vf(eqn_idx%B%beg)%sf(i,j,0)**2/2._wp
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        end if
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    case (262)  ! Tilted 2D MHD shock-tube at \alpha = arctan2 (\approx63.4 deg)
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! rotate by \alpha = atan(2)
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        alpha = atan(2._wp)
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        cosa = cos(alpha)
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        sina = sin(alpha)
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! projection along shock normal
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        r = x_cc(i)*cosa + y_cc(j)*sina
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        if (r <= 0.5_wp) then
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            ! LEFT state: \rho=1, v\parallel=+10, v\perp=0, p=20, B\parallel=B\perp=5/\sqrt(4\pi)
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%cont%beg)%sf(i, j, 0) = 1._wp
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%mom%beg)%sf(i, j, 0) = 10._wp*cosa
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%mom%beg + 1)%sf(i, j, 0) = 10._wp*sina
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%E)%sf(i, j, 0) = 20._wp
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%B%beg)%sf(i, j, 0) = (5._wp/sqrt(4._wp*pi))*cosa - (5._wp/sqrt(4._wp*pi))*sina
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%B%beg + 1)%sf(i, j, 0) = (5._wp/sqrt(4._wp*pi))*sina + (5._wp/sqrt(4._wp*pi))*cosa
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        else
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            ! RIGHT state: \rho=1, v\parallel=-10, v\perp=0, p=1, B\parallel=B\perp=5/\sqrt(4\pi)
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%cont%beg)%sf(i, j, 0) = 1._wp
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%mom%beg)%sf(i, j, 0) = -10._wp*cosa
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%mom%beg + 1)%sf(i, j, 0) = -10._wp*sina
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%E)%sf(i, j, 0) = 1._wp
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%B%beg)%sf(i, j, 0) = (5._wp/sqrt(4._wp*pi))*cosa - (5._wp/sqrt(4._wp*pi))*sina
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%B%beg + 1)%sf(i, j, 0) = (5._wp/sqrt(4._wp*pi))*sina + (5._wp/sqrt(4._wp*pi))*cosa
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        end if
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! v^z and B^z remain zero by default
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    case (270)  ! 2D extrusion of 1D profile from external data
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! This hardcoded case extrudes a 1D profile to initialize a 2D simulation domain
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    if (.not. files_loaded) then
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        max_files = merge(sys_size, sys_size - 1, num_dims == 1)
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        do f = 1, max_files
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            write (file_num_str, '(I0)') f
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            filenames(f) = trim(files_dir) // "/" // "prim." // trim(file_num_str) // ".00." // trim(file_extension) // ".dat"
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        end do
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! Common file reading setup
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        open (newunit=unit2, file=trim(filenames(1)), status='old', action='read', iostat=ios2)
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        if (ios2 /= 0) call s_mpi_abort("Error opening file: " // trim(filenames(1)))
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        select case (num_dims)
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        case (1, 2)  ! 1D and 2D cases are similar
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            ! Count lines
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            line_count = 0
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            do
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                read (unit2, *, iostat=ios2) dummy_x, dummy_y
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                if (ios2 /= 0) exit
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                line_count = line_count + 1
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            end do
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            close (unit2)
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            xrows = line_count
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            yrows = 1
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            index_x = 0
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            if (num_dims == 2) index_x = i
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#ifdef MFC_DEBUG
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    block
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        use iso_fortran_env, only: output_unit
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        print *, 'm_icpp_patches.fpp:640: ', '@:ALLOCATE(x_coords(xRows), stored_values(xRows, 1, sys_size))'
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        call flush (output_unit)
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    end block
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#endif
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    allocate (x_coords(xrows), stored_values(xrows, 1, sys_size))
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#if defined(MFC_OpenACC)
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
!$acc enter data create(x_coords, stored_values) 
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#elif defined(MFC_OpenMP)
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
!$omp target enter data map(always,alloc:x_coords, stored_values) 
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#endif
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            ! Read data from all files
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            do f = 1, max_files
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                open (newunit=unit, file=trim(filenames(f)), status='old', action='read', iostat=ios)
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                if (ios /= 0) call s_mpi_abort("Error opening file: " // trim(filenames(f)))
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                do iter = 1, xrows
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    read (unit, *, iostat=ios) x_coords(iter), stored_values(iter, 1, f)
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    if (ios /= 0) call s_mpi_abort("Error reading file: " // trim(filenames(f)))
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                end do
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                close (unit)
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            end do
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            ! Calculate offsets
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            domain_xstart = x_coords(1)
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            x_step = x_cc(1) - x_cc(0)
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            delta_x = merge(x_cc(0) - domain_xstart, x_cc(index_x) - domain_xstart, num_dims == 1)
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            global_offset_x = nint(abs(delta_x)/x_step)
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        case (3)  ! 3D case - determine grid structure
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            ! Find yRows by counting rows with same x
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            read (unit2, *, iostat=ios2) x0, y0, dummy_z
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            if (ios2 /= 0) call s_mpi_abort("Error reading first line")
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            yrows = 1
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            do
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                read (unit2, *, iostat=ios2) dummy_x, dummy_y, dummy_z
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                if (ios2 /= 0) exit
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                if (f_approx_equal(dummy_x, x0) .and. (.not. f_approx_equal(dummy_y, y0))) then
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    yrows = yrows + 1
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                else
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    exit
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                end if
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            end do
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            close (unit2)
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            ! Count total rows
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            open (newunit=unit2, file=trim(filenames(1)), status='old', action='read', iostat=ios2)
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            nrows = 0
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            do
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                read (unit2, *, iostat=ios2) dummy_x, dummy_y, dummy_z
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                if (ios2 /= 0) exit
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                nrows = nrows + 1
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            end do
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            close (unit2)
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            xrows = nrows/yrows
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#ifdef MFC_DEBUG
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    block
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        use iso_fortran_env, only: output_unit
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        print *, 'm_icpp_patches.fpp:640: ', '@:ALLOCATE(x_coords(nrows), y_coords(nrows), stored_values(xRows, yRows, sys_size))'
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        call flush (output_unit)
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    end block
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#endif
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    allocate (x_coords(nrows), y_coords(nrows), stored_values(xrows, yrows, sys_size))
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#if defined(MFC_OpenACC)
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
!$acc enter data create(x_coords, y_coords, stored_values) 
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#elif defined(MFC_OpenMP)
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
!$omp target enter data map(always,alloc:x_coords, y_coords, stored_values) 
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#endif
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            index_x = i
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            index_y = j
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            ! Read all files
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            do f = 1, max_files
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                open (newunit=unit, file=trim(filenames(f)), status='old', action='read', iostat=ios)
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                if (ios /= 0) then
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    if (f == 1) call s_mpi_abort("Error opening file: " // trim(filenames(f)))
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    cycle
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                end if
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                iter = 0
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                do iix = 1, xrows
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    do iiy = 1, yrows
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                        iter = iter + 1
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                        if (f == 1) then
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                            read (unit, *, iostat=ios) x_coords(iter), y_coords(iter), stored_values(iix, iiy, f)
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                        else
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                            read (unit, *, iostat=ios) dummy_x, dummy_y, stored_values(iix, iiy, f)
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                        end if
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                        if (ios /= 0) call s_mpi_abort("Error reading data")
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    end do
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                end do
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                close (unit)
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            end do
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            ! Calculate offsets
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            x_step = x_cc(1) - x_cc(0)
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            y_step = y_cc(1) - y_cc(0)
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            delta_x = x_cc(index_x) - x_coords(1)
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            delta_y = y_cc(index_y) - y_coords(1)
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            global_offset_x = nint(abs(delta_x)/x_step)
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            global_offset_y = nint(abs(delta_y)/y_step)
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        end select
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        files_loaded = .true.
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    end if
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    ! Data assignment
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    select case (num_dims)
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    case (1)
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        idx = i + 1 + global_offset_x
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! idx must land inside the file's row range: this rank's subdomain offset
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! (global_offset_x) was derived from this rank's own grid, so a miss means the
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! IC file is misaligned/mis-sized for the run grid, not a normal boundary case.
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        if (idx < 1 .or. idx > xrows) &
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            & call s_mpi_abort("Hardcoded IC extrusion: row index out of range (IC file misaligned with the run grid)")
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        do f = 1, sys_size
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(f)%sf(i, 0, 0) = stored_values(idx, 1, f)
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        end do
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    case (2)
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        idx = i + 1 + global_offset_x - index_x
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        if (idx < 1 .or. idx > xrows) &
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            & call s_mpi_abort("Hardcoded IC extrusion: row index out of range (IC file misaligned with the run grid)")
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        do f = 1, sys_size - 1
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            jump = merge(1, 0, f >= eqn_idx%mom%end)
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(f + jump)%sf(i, j, 0) = stored_values(idx, 1, f)
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        end do
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        q_prim_vf(eqn_idx%mom%end)%sf(i, j, 0) = 0.0_wp
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    case (3)
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        idx = i + 1 + global_offset_x - index_x
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        idy = j + 1 + global_offset_y - index_y
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        if (idx < 1 .or. idx > xrows .or. idy < 1 .or. idy > yrows) &
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            & call s_mpi_abort("Hardcoded IC extrusion: row/column index out of range (IC file misaligned with the run grid)")
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        do f = 1, sys_size - 1
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            jump = merge(1, 0, f >= eqn_idx%mom%end)
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(f + jump)%sf(i, j, k) = stored_values(idx, idy, f)
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        end do
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        q_prim_vf(eqn_idx%mom%end)%sf(i, j, k) = 0.0_wp
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    end select
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    case (273)  ! Temporal reacting mixing layer: 2D extrusion + streamwise velocity
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! @:HardcodedReadValues() always zeros mom%end (the extruded-axis velocity).
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! The mom%beg file slot is repurposed to carry the streamwise-velocity-vs-
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! cross-stream-position profile (real cross-stream velocity is legitimately
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! zero everywhere in the unperturbed base state), so swap it into mom%end and
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! zero out mom%beg's true physical value.
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    if (.not. files_loaded) then
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        max_files = merge(sys_size, sys_size - 1, num_dims == 1)
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        do f = 1, max_files
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            write (file_num_str, '(I0)') f
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            filenames(f) = trim(files_dir) // "/" // "prim." // trim(file_num_str) // ".00." // trim(file_extension) // ".dat"
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        end do
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! Common file reading setup
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        open (newunit=unit2, file=trim(filenames(1)), status='old', action='read', iostat=ios2)
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        if (ios2 /= 0) call s_mpi_abort("Error opening file: " // trim(filenames(1)))
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        select case (num_dims)
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        case (1, 2)  ! 1D and 2D cases are similar
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            ! Count lines
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            line_count = 0
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            do
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                read (unit2, *, iostat=ios2) dummy_x, dummy_y
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                if (ios2 /= 0) exit
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                line_count = line_count + 1
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            end do
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            close (unit2)
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            xrows = line_count
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            yrows = 1
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            index_x = 0
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            if (num_dims == 2) index_x = i
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#ifdef MFC_DEBUG
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    block
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        use iso_fortran_env, only: output_unit
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        print *, 'm_icpp_patches.fpp:640: ', '@:ALLOCATE(x_coords(xRows), stored_values(xRows, 1, sys_size))'
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        call flush (output_unit)
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    end block
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#endif
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    allocate (x_coords(xrows), stored_values(xrows, 1, sys_size))
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#if defined(MFC_OpenACC)
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
!$acc enter data create(x_coords, stored_values) 
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#elif defined(MFC_OpenMP)
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
!$omp target enter data map(always,alloc:x_coords, stored_values) 
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#endif
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            ! Read data from all files
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            do f = 1, max_files
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                open (newunit=unit, file=trim(filenames(f)), status='old', action='read', iostat=ios)
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                if (ios /= 0) call s_mpi_abort("Error opening file: " // trim(filenames(f)))
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                do iter = 1, xrows
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    read (unit, *, iostat=ios) x_coords(iter), stored_values(iter, 1, f)
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    if (ios /= 0) call s_mpi_abort("Error reading file: " // trim(filenames(f)))
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                end do
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                close (unit)
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            end do
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            ! Calculate offsets
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            domain_xstart = x_coords(1)
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            x_step = x_cc(1) - x_cc(0)
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            delta_x = merge(x_cc(0) - domain_xstart, x_cc(index_x) - domain_xstart, num_dims == 1)
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            global_offset_x = nint(abs(delta_x)/x_step)
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        case (3)  ! 3D case - determine grid structure
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            ! Find yRows by counting rows with same x
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            read (unit2, *, iostat=ios2) x0, y0, dummy_z
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            if (ios2 /= 0) call s_mpi_abort("Error reading first line")
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            yrows = 1
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            do
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                read (unit2, *, iostat=ios2) dummy_x, dummy_y, dummy_z
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                if (ios2 /= 0) exit
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                if (f_approx_equal(dummy_x, x0) .and. (.not. f_approx_equal(dummy_y, y0))) then
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    yrows = yrows + 1
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                else
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    exit
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                end if
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            end do
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            close (unit2)
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            ! Count total rows
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            open (newunit=unit2, file=trim(filenames(1)), status='old', action='read', iostat=ios2)
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            nrows = 0
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            do
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                read (unit2, *, iostat=ios2) dummy_x, dummy_y, dummy_z
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                if (ios2 /= 0) exit
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                nrows = nrows + 1
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            end do
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            close (unit2)
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            xrows = nrows/yrows
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#ifdef MFC_DEBUG
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    block
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        use iso_fortran_env, only: output_unit
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        print *, 'm_icpp_patches.fpp:640: ', '@:ALLOCATE(x_coords(nrows), y_coords(nrows), stored_values(xRows, yRows, sys_size))'
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        call flush (output_unit)
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    end block
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#endif
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    allocate (x_coords(nrows), y_coords(nrows), stored_values(xrows, yrows, sys_size))
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#if defined(MFC_OpenACC)
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
!$acc enter data create(x_coords, y_coords, stored_values) 
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#elif defined(MFC_OpenMP)
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
!$omp target enter data map(always,alloc:x_coords, y_coords, stored_values) 
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#endif
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            index_x = i
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            index_y = j
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            ! Read all files
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            do f = 1, max_files
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                open (newunit=unit, file=trim(filenames(f)), status='old', action='read', iostat=ios)
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                if (ios /= 0) then
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    if (f == 1) call s_mpi_abort("Error opening file: " // trim(filenames(f)))
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    cycle
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                end if
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                iter = 0
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                do iix = 1, xrows
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    do iiy = 1, yrows
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                        iter = iter + 1
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                        if (f == 1) then
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                            read (unit, *, iostat=ios) x_coords(iter), y_coords(iter), stored_values(iix, iiy, f)
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                        else
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                            read (unit, *, iostat=ios) dummy_x, dummy_y, stored_values(iix, iiy, f)
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                        end if
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                        if (ios /= 0) call s_mpi_abort("Error reading data")
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    end do
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                end do
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                close (unit)
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            end do
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            ! Calculate offsets
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            x_step = x_cc(1) - x_cc(0)
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            y_step = y_cc(1) - y_cc(0)
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            delta_x = x_cc(index_x) - x_coords(1)
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            delta_y = y_cc(index_y) - y_coords(1)
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            global_offset_x = nint(abs(delta_x)/x_step)
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            global_offset_y = nint(abs(delta_y)/y_step)
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        end select
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        files_loaded = .true.
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    end if
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    ! Data assignment
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    select case (num_dims)
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    case (1)
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        idx = i + 1 + global_offset_x
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! idx must land inside the file's row range: this rank's subdomain offset
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! (global_offset_x) was derived from this rank's own grid, so a miss means the
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! IC file is misaligned/mis-sized for the run grid, not a normal boundary case.
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        if (idx < 1 .or. idx > xrows) &
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            & call s_mpi_abort("Hardcoded IC extrusion: row index out of range (IC file misaligned with the run grid)")
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        do f = 1, sys_size
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(f)%sf(i, 0, 0) = stored_values(idx, 1, f)
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        end do
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    case (2)
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        idx = i + 1 + global_offset_x - index_x
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        if (idx < 1 .or. idx > xrows) &
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            & call s_mpi_abort("Hardcoded IC extrusion: row index out of range (IC file misaligned with the run grid)")
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        do f = 1, sys_size - 1
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            jump = merge(1, 0, f >= eqn_idx%mom%end)
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(f + jump)%sf(i, j, 0) = stored_values(idx, 1, f)
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        end do
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        q_prim_vf(eqn_idx%mom%end)%sf(i, j, 0) = 0.0_wp
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    case (3)
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        idx = i + 1 + global_offset_x - index_x
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        idy = j + 1 + global_offset_y - index_y
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        if (idx < 1 .or. idx > xrows .or. idy < 1 .or. idy > yrows) &
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            & call s_mpi_abort("Hardcoded IC extrusion: row/column index out of range (IC file misaligned with the run grid)")
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        do f = 1, sys_size - 1
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            jump = merge(1, 0, f >= eqn_idx%mom%end)
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(f + jump)%sf(i, j, k) = stored_values(idx, idy, f)
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        end do
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        q_prim_vf(eqn_idx%mom%end)%sf(i, j, k) = 0.0_wp
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    end select
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        q_prim_vf(eqn_idx%mom%end)%sf(i, j, 0) = q_prim_vf(eqn_idx%mom%beg)%sf(i, j, 0)
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        q_prim_vf(eqn_idx%mom%beg)%sf(i, j, 0) = 0.0_wp
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    case (274)  ! Full 2D field from external data (no extrusion)
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! Unlike case(270-273), this reads a genuinely 2D (x,y) field per variable, with no
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! extrusion direction and no zeroed component -- all sys_size variables are read and
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! assigned directly. Data files must have exactly (m_glb+1)*(n_glb+1) lines per
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! variable, in x-major order (outer loop x, inner loop y), matching this rank's
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! global grid exactly -- by construction, since the IC generator derives both the
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! grid and the file contents from the same computation.
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        !
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! A local cell's global (x, y) index is derived from x_cc(i)/y_cc(j) against the
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! file's own first coordinate and this rank's uniform grid spacing -- following the
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! same pattern as case(270)'s global_offset_x/y above -- rather than from start_idx:
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! start_idx is only allocated when parallel_io=T (s_initialize_parallel_io_common
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! returns before allocating it otherwise), so a serial-IO run (the default for
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! golden-file tests) would index into an unallocated array.
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        !
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! Every rank still scans the whole file (matching case(270)'s existing per-rank-reads-
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! everything pattern), but stored_values274 only holds this rank's LOCAL (0:m, 0:n)
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! slice rather than the full global grid -- a full-grid copy on every rank would scale
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! as O(m_glb*n_glb*sys_size) per rank, which is the wrong axis to duplicate work on for
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! a genuinely 2D (not 1D-profile) field. local_ix_beg274/local_iy_beg274 (this rank's
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! global cell offset) are pinned from f274==1's very first record, before any other
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! record is read, so every subsequent record -- across all variables -- can be tested
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! against this rank's range and dropped if it falls outside it.
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        x_step274 = x_cc(1) - x_cc(0)
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        y_step274 = y_cc(1) - y_cc(0)
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        if (.not. files_loaded274) then
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#ifdef MFC_DEBUG
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    block
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        use iso_fortran_env, only: output_unit
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        print *, 'm_icpp_patches.fpp:640: ', '@:ALLOCATE(stored_values274(0:m, 0:n, sys_size))'
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        call flush (output_unit)
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    end block
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#endif
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    allocate (stored_values274(0:m, 0:n, sys_size))
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#if defined(MFC_OpenACC)
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
!$acc enter data create(stored_values274) 
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#elif defined(MFC_OpenMP)
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
!$omp target enter data map(always,alloc:stored_values274) 
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#endif
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            do f274 = 1, sys_size
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                write (file_num_str274, '(I0)') f274
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                fname274 = trim(files_dir) // "/prim." // trim(file_num_str274) // ".00." // trim(file_extension) // ".dat"
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                open (newunit=unit274, file=trim(fname274), status='old', action='read', iostat=ios274)
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                if (ios274 /= 0) call s_mpi_abort("Error opening file: " // trim(fname274))
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                do ix274 = 0, m_glb
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    do iy274 = 0, n_glb
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                        read (unit274, *, iostat=ios274) dummy_x274, dummy_y274, dummy_val274
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                        if (ios274 /= 0) call s_mpi_abort("Error reading file (fewer lines than grid?): " // trim(fname274))
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                        ! Capture the file's own origin and spacing from its first records so we can
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                        ! confirm it was sampled on this run's grid (a silent mismatch would otherwise
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                        ! read a wrong partial slice -> nonphysical field -> VCFL=Inf downstream).
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                        if (f274 == 1) then
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                            if (ix274 == 0 .and. iy274 == 0) then
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                                x0_274 = dummy_x274
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                                y0_274 = dummy_y274
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                                local_ix_beg274 = nint((x_cc(0) - x0_274)/x_step274)
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                                local_iy_beg274 = nint((y_cc(0) - y0_274)/y_step274)
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                            end if
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                            if (ix274 == 1 .and. iy274 == 0) file_dx274 = dummy_x274 - x0_274
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                            if (ix274 == 0 .and. iy274 == 1) file_dy274 = dummy_y274 - y0_274
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                        end if
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                        if (ix274 - local_ix_beg274 >= 0 .and. ix274 - local_ix_beg274 <= m .and. iy274 - local_iy_beg274 >= 0 &
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                            & .and. iy274 - local_iy_beg274 <= n) then
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                            stored_values274(ix274 - local_ix_beg274, iy274 - local_iy_beg274, f274) = dummy_val274
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                        end if
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    end do
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                end do
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                ! The file must contain exactly (m_glb+1)*(n_glb+1) records: a successful extra
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                ! read means it was generated for a larger grid and would be silently misread.
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                read (unit274, *, iostat=ios274) dummy_x274, dummy_y274
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                if (ios274 == 0) call s_mpi_abort("hcid=274 file has more lines than the grid: " // trim(fname274))
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                close (unit274)
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            end do
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            ! The run grid must be aligned with the file grid (uniform grid assumed, as in case 270).
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            ! Check alignment via the integer cell offset of this rank's first cell from the file
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            ! origin -- decomposition-safe: on every MPI rank x_cc(0) sits an integer number of cells
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            ! into the global file, so a non-integer offset means a shifted/mismatched IC. (Comparing
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            ! x0_274 to x_cc(0) directly would false-abort every rank whose subdomain doesn't start at
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            ! the global origin.) The spacing checks below must also hold.
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            r_align274 = (x_cc(0) - x0_274)/x_step274
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            if (abs(r_align274 - nint(r_align274)) > 1.e-6_wp) &
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                & call s_mpi_abort("hcid=274 file x-grid is misaligned with the run grid; regenerate the IC for this grid.")
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            if (m_glb >= 1) then
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                if (abs(file_dx274 - x_step274) > 1.e-6_wp*abs(x_step274)) &
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    & call s_mpi_abort("hcid=274 file x-spacing does not match the grid; regenerate the IC for this grid.")
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            end if
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            if (n_glb >= 1) then
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                r_align274 = (y_cc(0) - y0_274)/y_step274
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                if (abs(r_align274 - nint(r_align274)) > 1.e-6_wp) &
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    & call s_mpi_abort("hcid=274 file y-grid is misaligned with the run grid; regenerate the IC for this grid.")
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                if (abs(file_dy274 - y_step274) > 1.e-6_wp*abs(y_step274)) &
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    & call s_mpi_abort("hcid=274 file y-spacing does not match the grid; regenerate the IC for this grid.")
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            end if
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            files_loaded274 = .true.
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        end if
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! Alignment is verified above (or this rank would already have aborted), so the local
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! cell (i, j) maps to stored_values274(i, j, :) directly -- no re-derivation needed.
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        do f274 = 1, sys_size
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(f274)%sf(i, j, 0) = stored_values274(i, j, f274)
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        end do
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    case (271)  ! Premixed Flame Vortices Interaction
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    if (.not. files_loaded) then
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        max_files = merge(sys_size, sys_size - 1, num_dims == 1)
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        do f = 1, max_files
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            write (file_num_str, '(I0)') f
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            filenames(f) = trim(files_dir) // "/" // "prim." // trim(file_num_str) // ".00." // trim(file_extension) // ".dat"
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        end do
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! Common file reading setup
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        open (newunit=unit2, file=trim(filenames(1)), status='old', action='read', iostat=ios2)
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        if (ios2 /= 0) call s_mpi_abort("Error opening file: " // trim(filenames(1)))
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        select case (num_dims)
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        case (1, 2)  ! 1D and 2D cases are similar
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            ! Count lines
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            line_count = 0
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            do
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                read (unit2, *, iostat=ios2) dummy_x, dummy_y
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                if (ios2 /= 0) exit
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                line_count = line_count + 1
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            end do
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            close (unit2)
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            xrows = line_count
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            yrows = 1
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            index_x = 0
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            if (num_dims == 2) index_x = i
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#ifdef MFC_DEBUG
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    block
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        use iso_fortran_env, only: output_unit
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        print *, 'm_icpp_patches.fpp:640: ', '@:ALLOCATE(x_coords(xRows), stored_values(xRows, 1, sys_size))'
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        call flush (output_unit)
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    end block
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#endif
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    allocate (x_coords(xrows), stored_values(xrows, 1, sys_size))
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#if defined(MFC_OpenACC)
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
!$acc enter data create(x_coords, stored_values) 
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#elif defined(MFC_OpenMP)
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
!$omp target enter data map(always,alloc:x_coords, stored_values) 
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#endif
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            ! Read data from all files
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            do f = 1, max_files
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                open (newunit=unit, file=trim(filenames(f)), status='old', action='read', iostat=ios)
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                if (ios /= 0) call s_mpi_abort("Error opening file: " // trim(filenames(f)))
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                do iter = 1, xrows
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    read (unit, *, iostat=ios) x_coords(iter), stored_values(iter, 1, f)
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    if (ios /= 0) call s_mpi_abort("Error reading file: " // trim(filenames(f)))
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                end do
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                close (unit)
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            end do
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            ! Calculate offsets
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            domain_xstart = x_coords(1)
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            x_step = x_cc(1) - x_cc(0)
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            delta_x = merge(x_cc(0) - domain_xstart, x_cc(index_x) - domain_xstart, num_dims == 1)
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            global_offset_x = nint(abs(delta_x)/x_step)
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        case (3)  ! 3D case - determine grid structure
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            ! Find yRows by counting rows with same x
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            read (unit2, *, iostat=ios2) x0, y0, dummy_z
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            if (ios2 /= 0) call s_mpi_abort("Error reading first line")
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            yrows = 1
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            do
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                read (unit2, *, iostat=ios2) dummy_x, dummy_y, dummy_z
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                if (ios2 /= 0) exit
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                if (f_approx_equal(dummy_x, x0) .and. (.not. f_approx_equal(dummy_y, y0))) then
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    yrows = yrows + 1
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                else
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    exit
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                end if
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            end do
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            close (unit2)
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            ! Count total rows
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            open (newunit=unit2, file=trim(filenames(1)), status='old', action='read', iostat=ios2)
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            nrows = 0
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            do
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                read (unit2, *, iostat=ios2) dummy_x, dummy_y, dummy_z
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                if (ios2 /= 0) exit
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                nrows = nrows + 1
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            end do
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            close (unit2)
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            xrows = nrows/yrows
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#ifdef MFC_DEBUG
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    block
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        use iso_fortran_env, only: output_unit
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        print *, 'm_icpp_patches.fpp:640: ', '@:ALLOCATE(x_coords(nrows), y_coords(nrows), stored_values(xRows, yRows, sys_size))'
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        call flush (output_unit)
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    end block
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#endif
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    allocate (x_coords(nrows), y_coords(nrows), stored_values(xrows, yrows, sys_size))
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#if defined(MFC_OpenACC)
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
!$acc enter data create(x_coords, y_coords, stored_values) 
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#elif defined(MFC_OpenMP)
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
!$omp target enter data map(always,alloc:x_coords, y_coords, stored_values) 
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#endif
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            index_x = i
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            index_y = j
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            ! Read all files
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            do f = 1, max_files
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                open (newunit=unit, file=trim(filenames(f)), status='old', action='read', iostat=ios)
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                if (ios /= 0) then
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    if (f == 1) call s_mpi_abort("Error opening file: " // trim(filenames(f)))
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    cycle
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                end if
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                iter = 0
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                do iix = 1, xrows
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    do iiy = 1, yrows
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                        iter = iter + 1
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                        if (f == 1) then
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                            read (unit, *, iostat=ios) x_coords(iter), y_coords(iter), stored_values(iix, iiy, f)
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                        else
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                            read (unit, *, iostat=ios) dummy_x, dummy_y, stored_values(iix, iiy, f)
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                        end if
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                        if (ios /= 0) call s_mpi_abort("Error reading data")
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    end do
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                end do
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                close (unit)
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            end do
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            ! Calculate offsets
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            x_step = x_cc(1) - x_cc(0)
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            y_step = y_cc(1) - y_cc(0)
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            delta_x = x_cc(index_x) - x_coords(1)
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            delta_y = y_cc(index_y) - y_coords(1)
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            global_offset_x = nint(abs(delta_x)/x_step)
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            global_offset_y = nint(abs(delta_y)/y_step)
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        end select
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        files_loaded = .true.
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    end if
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    ! Data assignment
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    select case (num_dims)
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    case (1)
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        idx = i + 1 + global_offset_x
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! idx must land inside the file's row range: this rank's subdomain offset
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! (global_offset_x) was derived from this rank's own grid, so a miss means the
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! IC file is misaligned/mis-sized for the run grid, not a normal boundary case.
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        if (idx < 1 .or. idx > xrows) &
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            & call s_mpi_abort("Hardcoded IC extrusion: row index out of range (IC file misaligned with the run grid)")
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        do f = 1, sys_size
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(f)%sf(i, 0, 0) = stored_values(idx, 1, f)
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        end do
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    case (2)
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        idx = i + 1 + global_offset_x - index_x
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        if (idx < 1 .or. idx > xrows) &
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            & call s_mpi_abort("Hardcoded IC extrusion: row index out of range (IC file misaligned with the run grid)")
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        do f = 1, sys_size - 1
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            jump = merge(1, 0, f >= eqn_idx%mom%end)
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(f + jump)%sf(i, j, 0) = stored_values(idx, 1, f)
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        end do
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        q_prim_vf(eqn_idx%mom%end)%sf(i, j, 0) = 0.0_wp
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    case (3)
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        idx = i + 1 + global_offset_x - index_x
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        idy = j + 1 + global_offset_y - index_y
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        if (idx < 1 .or. idx > xrows .or. idy < 1 .or. idy > yrows) &
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            & call s_mpi_abort("Hardcoded IC extrusion: row/column index out of range (IC file misaligned with the run grid)")
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        do f = 1, sys_size - 1
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            jump = merge(1, 0, f >= eqn_idx%mom%end)
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(f + jump)%sf(i, j, k) = stored_values(idx, idy, f)
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        end do
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        q_prim_vf(eqn_idx%mom%end)%sf(i, j, k) = 0.0_wp
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    end select
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        x1c = 0.0027_wp
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        y1c = 0.005_wp
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        x2c = 0.0027_wp
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        y2c = 0.003_wp
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        r1c = (x_cc(i) - x1c)**(2.0_wp) + (y_cc(j) - y1c)**(2.0_wp)
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        r2c = (x_cc(i) - x2c)**(2.0_wp) + (y_cc(j) - y2c)**(2.0_wp)
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        rvortex = 0.0005_wp
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        cvortex = 6000.0_wp
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        u1c = -cvortex*((y_cc(j) - y1c))*exp(-r1c/(2.0_wp*rvortex**2.0_wp))
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        v1c = cvortex*((x_cc(i) - x1c))*exp(-r1c/(2.0_wp*rvortex**2.0_wp))
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        u2c = cvortex*((y_cc(j) - y2c))*exp(-r2c/(2.0_wp*rvortex**2.0_wp))
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        v2c = -cvortex*((x_cc(i) - x2c))*exp(-r2c/(2.0_wp*rvortex**2.0_wp))
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        q_prim_vf(eqn_idx%mom%beg)%sf(i, j, 0) = q_prim_vf(eqn_idx%mom%beg)%sf(i, j, 0) + u1c + u2c
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        q_prim_vf(eqn_idx%mom%beg + 1)%sf(i, j, 0) = v1c + v2c
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    case (272)  ! Premixed Flame Instability
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    if (.not. files_loaded) then
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        max_files = merge(sys_size, sys_size - 1, num_dims == 1)
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        do f = 1, max_files
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            write (file_num_str, '(I0)') f
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            filenames(f) = trim(files_dir) // "/" // "prim." // trim(file_num_str) // ".00." // trim(file_extension) // ".dat"
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        end do
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! Common file reading setup
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        open (newunit=unit2, file=trim(filenames(1)), status='old', action='read', iostat=ios2)
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        if (ios2 /= 0) call s_mpi_abort("Error opening file: " // trim(filenames(1)))
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        select case (num_dims)
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        case (1, 2)  ! 1D and 2D cases are similar
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            ! Count lines
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            line_count = 0
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            do
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                read (unit2, *, iostat=ios2) dummy_x, dummy_y
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                if (ios2 /= 0) exit
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                line_count = line_count + 1
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            end do
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            close (unit2)
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            xrows = line_count
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            yrows = 1
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            index_x = 0
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            if (num_dims == 2) index_x = i
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#ifdef MFC_DEBUG
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    block
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        use iso_fortran_env, only: output_unit
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        print *, 'm_icpp_patches.fpp:640: ', '@:ALLOCATE(x_coords(xRows), stored_values(xRows, 1, sys_size))'
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        call flush (output_unit)
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    end block
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#endif
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    allocate (x_coords(xrows), stored_values(xrows, 1, sys_size))
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#if defined(MFC_OpenACC)
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
!$acc enter data create(x_coords, stored_values) 
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#elif defined(MFC_OpenMP)
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
!$omp target enter data map(always,alloc:x_coords, stored_values) 
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#endif
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            ! Read data from all files
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            do f = 1, max_files
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                open (newunit=unit, file=trim(filenames(f)), status='old', action='read', iostat=ios)
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                if (ios /= 0) call s_mpi_abort("Error opening file: " // trim(filenames(f)))
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                do iter = 1, xrows
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    read (unit, *, iostat=ios) x_coords(iter), stored_values(iter, 1, f)
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    if (ios /= 0) call s_mpi_abort("Error reading file: " // trim(filenames(f)))
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                end do
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                close (unit)
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            end do
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            ! Calculate offsets
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            domain_xstart = x_coords(1)
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            x_step = x_cc(1) - x_cc(0)
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            delta_x = merge(x_cc(0) - domain_xstart, x_cc(index_x) - domain_xstart, num_dims == 1)
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            global_offset_x = nint(abs(delta_x)/x_step)
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        case (3)  ! 3D case - determine grid structure
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            ! Find yRows by counting rows with same x
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            read (unit2, *, iostat=ios2) x0, y0, dummy_z
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            if (ios2 /= 0) call s_mpi_abort("Error reading first line")
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            yrows = 1
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            do
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                read (unit2, *, iostat=ios2) dummy_x, dummy_y, dummy_z
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                if (ios2 /= 0) exit
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                if (f_approx_equal(dummy_x, x0) .and. (.not. f_approx_equal(dummy_y, y0))) then
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    yrows = yrows + 1
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                else
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    exit
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                end if
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            end do
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            close (unit2)
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            ! Count total rows
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            open (newunit=unit2, file=trim(filenames(1)), status='old', action='read', iostat=ios2)
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            nrows = 0
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            do
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                read (unit2, *, iostat=ios2) dummy_x, dummy_y, dummy_z
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                if (ios2 /= 0) exit
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                nrows = nrows + 1
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            end do
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            close (unit2)
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            xrows = nrows/yrows
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#ifdef MFC_DEBUG
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    block
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        use iso_fortran_env, only: output_unit
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        print *, 'm_icpp_patches.fpp:640: ', '@:ALLOCATE(x_coords(nrows), y_coords(nrows), stored_values(xRows, yRows, sys_size))'
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        call flush (output_unit)
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    end block
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#endif
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    allocate (x_coords(nrows), y_coords(nrows), stored_values(xrows, yrows, sys_size))
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#if defined(MFC_OpenACC)
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
!$acc enter data create(x_coords, y_coords, stored_values) 
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#elif defined(MFC_OpenMP)
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
!$omp target enter data map(always,alloc:x_coords, y_coords, stored_values) 
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#endif
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            index_x = i
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            index_y = j
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            ! Read all files
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            do f = 1, max_files
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                open (newunit=unit, file=trim(filenames(f)), status='old', action='read', iostat=ios)
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                if (ios /= 0) then
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    if (f == 1) call s_mpi_abort("Error opening file: " // trim(filenames(f)))
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    cycle
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                end if
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                iter = 0
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                do iix = 1, xrows
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    do iiy = 1, yrows
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                        iter = iter + 1
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                        if (f == 1) then
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                            read (unit, *, iostat=ios) x_coords(iter), y_coords(iter), stored_values(iix, iiy, f)
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                        else
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                            read (unit, *, iostat=ios) dummy_x, dummy_y, stored_values(iix, iiy, f)
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                        end if
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                        if (ios /= 0) call s_mpi_abort("Error reading data")
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    end do
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                end do
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                close (unit)
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            end do
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            ! Calculate offsets
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            x_step = x_cc(1) - x_cc(0)
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            y_step = y_cc(1) - y_cc(0)
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            delta_x = x_cc(index_x) - x_coords(1)
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            delta_y = y_cc(index_y) - y_coords(1)
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            global_offset_x = nint(abs(delta_x)/x_step)
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            global_offset_y = nint(abs(delta_y)/y_step)
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        end select
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        files_loaded = .true.
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    end if
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    ! Data assignment
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    select case (num_dims)
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    case (1)
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        idx = i + 1 + global_offset_x
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! idx must land inside the file's row range: this rank's subdomain offset
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! (global_offset_x) was derived from this rank's own grid, so a miss means the
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! IC file is misaligned/mis-sized for the run grid, not a normal boundary case.
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        if (idx < 1 .or. idx > xrows) &
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            & call s_mpi_abort("Hardcoded IC extrusion: row index out of range (IC file misaligned with the run grid)")
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        do f = 1, sys_size
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(f)%sf(i, 0, 0) = stored_values(idx, 1, f)
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        end do
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    case (2)
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        idx = i + 1 + global_offset_x - index_x
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        if (idx < 1 .or. idx > xrows) &
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            & call s_mpi_abort("Hardcoded IC extrusion: row index out of range (IC file misaligned with the run grid)")
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        do f = 1, sys_size - 1
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            jump = merge(1, 0, f >= eqn_idx%mom%end)
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(f + jump)%sf(i, j, 0) = stored_values(idx, 1, f)
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        end do
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        q_prim_vf(eqn_idx%mom%end)%sf(i, j, 0) = 0.0_wp
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    case (3)
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        idx = i + 1 + global_offset_x - index_x
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        idy = j + 1 + global_offset_y - index_y
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        if (idx < 1 .or. idx > xrows .or. idy < 1 .or. idy > yrows) &
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            & call s_mpi_abort("Hardcoded IC extrusion: row/column index out of range (IC file misaligned with the run grid)")
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        do f = 1, sys_size - 1
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            jump = merge(1, 0, f >= eqn_idx%mom%end)
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(f + jump)%sf(i, j, k) = stored_values(idx, idy, f)
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        end do
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        q_prim_vf(eqn_idx%mom%end)%sf(i, j, k) = 0.0_wp
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    end select
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        y_center = y0_ref
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        y_dist = y_cc(j) - y_center
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        wave_phase = 2.0_wp*pi*nwaves*(y_dist/ly_param)
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        front_shift = a_param*sin(wave_phase)
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        x_mapped = x_cc(i) - front_shift
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        if (x_mapped <= x_coords(1)) then
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            do v = 1, sys_size - 1
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                q_prim_vf(v + merge(1, 0, v >= eqn_idx%mom%end))%sf(i, j, 0) = stored_values(1, 1, v)
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            end do
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%mom%end)%sf(i, j, 0) = 0.0_wp
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        else if (x_mapped >= x_coords(xrows)) then
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            do v = 1, sys_size - 1
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                q_prim_vf(v + merge(1, 0, v >= eqn_idx%mom%end))%sf(i, j, 0) = stored_values(xrows, 1, v)
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            end do
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%mom%end)%sf(i, j, 0) = 0.0_wp
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        else
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            idx_lo = 1; idx_hi = xrows
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            do while (idx_hi - idx_lo > 1)
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                idx_mid = (idx_lo + idx_hi)/2
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                if (x_coords(idx_mid) <= x_mapped) then
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    idx_lo = idx_mid
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                else
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    idx_hi = idx_mid
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                end if
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            end do
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            interp_wt = (x_mapped - x_coords(idx_lo))/(x_coords(idx_hi) - x_coords(idx_lo))  ! weight in [0,1)
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            do v = 1, sys_size - 1
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                q_prim_vf(v + merge(1, 0, v >= eqn_idx%mom%end))%sf(i, j, 0) = (1.0_wp - interp_wt)*stored_values(idx_lo, 1, &
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                          & v) + interp_wt*stored_values(idx_hi, 1, v)
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            end do
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%mom%end)%sf(i, j, 0) = 0.0_wp
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        end if
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    case (280)  ! Isentropic vortex
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! This is patch is hard-coded for test suite optimization used in the 2D_isentropicvortex case: This analytic patch uses
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! geometry 2
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        if (patch_id == 1) then
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%E)%sf(i, j, &
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                      & 0) = 1.0*(1.0 - (1.0/1.0)*(5.0/(2.0*pi))*(5.0/(8.0*1.0*(1.4 + 1.0)*pi))*exp(2.0*1.0*(1.0 - (x_cc(i) &
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                      & - patch_icpp(1)%x_centroid)**2.0 - (y_cc(j) - patch_icpp(1)%y_centroid)**2.0)))**(1.4 + 1.0)
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%cont%beg + 0)%sf(i, j, &
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                      & 0) = 1.0*(1.0 - (1.0/1.0)*(5.0/(2.0*pi))*(5.0/(8.0*1.0*(1.4 + 1.0)*pi))*exp(2.0*1.0*(1.0 - (x_cc(i) &
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                      & - patch_icpp(1)%x_centroid)**2.0 - (y_cc(j) - patch_icpp(1)%y_centroid)**2.0)))**1.4
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%mom%beg + 0)%sf(i, j, &
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                      & 0) = patch_icpp(1)%vel(1) + (y_cc(j) - patch_icpp(1)%y_centroid)*(5.0/(2.0*pi))*exp(1.0*(1.0 - (x_cc(i) &
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                      & - patch_icpp(1)%x_centroid)**2.0 - (y_cc(j) - patch_icpp(1)%y_centroid)**2.0))
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%mom%beg + 1)%sf(i, j, &
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                      & 0) = patch_icpp(1)%vel(2) - (x_cc(i) - patch_icpp(1)%x_centroid)*(5.0/(2.0*pi))*exp(1.0*(1.0 - (x_cc(i) &
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                      & - patch_icpp(1)%x_centroid)**2.0 - (y_cc(j) - patch_icpp(1)%y_centroid)**2.0))
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        end if
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    case (281)  ! Acoustic pulse
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! This is patch is hard-coded for test suite optimization used in the 2D_acoustic_pulse case: This analytic patch uses
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! geometry 2
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        if (patch_id == 2) then
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%E)%sf(i, j, &
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                      & 0) = 101325*(1 - 0.5*(1.4 - 1)*(0.4)**2*exp(0.5*(1 - sqrt(x_cc(i)**2 + y_cc(j)**2))))**(1.4/(1.4 - 1))
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%cont%beg + 0)%sf(i, j, &
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                      & 0) = 1*(1 - 0.5*(1.4 - 1)*(0.4)**2*exp(0.5*(1 - sqrt(x_cc(i)**2 + y_cc(j)**2))))**(1/(1.4 - 1))
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        end if
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    case (282)  ! Zero-circulation vortex
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! This is patch is hard-coded for test suite optimization used in the 2D_zero_circ_vortex case: This analytic patch uses
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! geometry 2
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        if (patch_id == 2) then
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%E)%sf(i, j, &
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                      & 0) = 101325*(1 - 0.5*(1.4 - 1)*(0.1/0.3)**2*exp(0.5*(1 - sqrt(x_cc(i)**2 + y_cc(j)**2))))**(1.4/(1.4 - 1))
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%cont%beg + 0)%sf(i, j, &
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                      & 0) = 1*(1 - 0.5*(1.4 - 1)*(0.1/0.3)**2*exp(0.5*(1 - sqrt(x_cc(i)**2 + y_cc(j)**2))))**(1/(1.4 - 1))
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%mom%beg + 0)%sf(i, j, &
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                      & 0) = 112.99092883944267*(1 - (0.1/0.3))*y_cc(j)*exp(0.5*(1 - sqrt(x_cc(i)**2 + y_cc(j)**2)))
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%mom%beg + 1)%sf(i, j, &
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                      & 0) = 112.99092883944267*((0.1/0.3))*x_cc(i)*exp(0.5*(1 - sqrt(x_cc(i)**2 + y_cc(j)**2)))
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        end if
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    case (283)  ! Isentropic vortex: conserved-variable GL cell averages (3-pt tensor product)
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! GL averages of conserved variables (rho, rho*u, rho*v, E) eliminate the O(h^2) error that primitive-variable averaging
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! introduces through the nonlinear prim->cons conversion: cell_avg(rho*u) != cell_avg(rho)*cell_avg(u) by O(h^2). We back
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! out primitive values that reproduce the conserved averages exactly. Vortex strength eps is read from
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! patch_icpp(patch_id)%epsilon; defaults to 5.
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        if (patch_id == 1) then
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            vortex_eps = merge(patch_icpp(patch_id)%epsilon, 5._wp, patch_icpp(patch_id)%epsilon > 0._wp)
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            gauss_xi = [-sqrt(3._wp/5._wp), 0._wp, sqrt(3._wp/5._wp)]
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            gauss_w = [5._wp/9._wp, 8._wp/9._wp, 5._wp/9._wp]
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            rho_avg = 0._wp; rhou_avg = 0._wp; rhov_avg = 0._wp; e_avg = 0._wp
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            do igq = 1, 3
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                do jgq = 1, 3
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    xq = x_cc(i) + gauss_xi(igq)*(x_cb(i) - x_cb(i - 1))*0.5_wp
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    yq = y_cc(j) + gauss_xi(jgq)*(y_cb(j) - y_cb(j - 1))*0.5_wp
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    r2q = (xq - patch_icpp(patch_id)%x_centroid)**2._wp + (yq - patch_icpp(patch_id)%y_centroid)**2._wp
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    t_facq = 1._wp - (vortex_eps/(2._wp*pi))*(vortex_eps/(8._wp*(1.4_wp + 1._wp)*pi))*exp(2._wp*(1._wp - r2q))
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    wq = gauss_w(igq)*gauss_w(jgq)
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    rhoq = t_facq**1.4_wp
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    pq = t_facq**2.4_wp
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    uq = patch_icpp(patch_id)%vel(1) + (yq - patch_icpp(patch_id)%y_centroid)*(vortex_eps/(2._wp*pi))*exp(1._wp &
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                                    & - r2q)
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    vq = patch_icpp(patch_id)%vel(2) - (xq - patch_icpp(patch_id)%x_centroid)*(vortex_eps/(2._wp*pi))*exp(1._wp &
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                                    & - r2q)
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    eq = pq/0.4_wp + 0.5_wp*rhoq*(uq**2 + vq**2)
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    rho_avg = rho_avg + wq*rhoq
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    rhou_avg = rhou_avg + wq*(rhoq*uq)
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    rhov_avg = rhov_avg + wq*(rhoq*vq)
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    e_avg = e_avg + wq*eq
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                end do
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            end do
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            rho_avg = rho_avg*0.25_wp
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            rhou_avg = rhou_avg*0.25_wp
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            rhov_avg = rhov_avg*0.25_wp
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            e_avg = e_avg*0.25_wp
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            ! Back out primitive vars so prim->cons conversion recovers the conserved averages
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%cont%beg)%sf(i, j, 0) = rho_avg
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%mom%beg + 0)%sf(i, j, 0) = rhou_avg/rho_avg
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%mom%beg + 1)%sf(i, j, 0) = rhov_avg/rho_avg
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%E)%sf(i, j, 0) = (e_avg - 0.5_wp*(rhou_avg**2 + rhov_avg**2)/rho_avg)*0.4_wp
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        end if
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    case (291)  ! Isothermal Flat Plate
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        t_inf = 1125.0_wp
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        t_wall = 600.0_wp
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        p_atm = 101325.0_wp
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! Boundary/Shear Layer thicknesses
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        delta_th = 0.0003_wp  ! Thermal BL thickness
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        delta_shear = 8e-3_wp  ! Velocity BL thickness
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        u_max = 50.0_wp  ! Freestream Velocity (m/s)
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        mw_n2 = 28.0134e-3_wp
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        mw_o2 = 31.999e-3_wp
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        y_n2 = 0.767_wp
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        y_o2 = 0.233_wp
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        r_mix = 8.314462618_wp*((y_n2/mw_n2) + (y_o2/mw_o2))
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        bottom_blend_u = tanh(y_cc(j)/delta_shear)
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        bottom_blend_t = tanh(y_cc(j)/delta_th)
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        u_mean = u_max*bottom_blend_u
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        t_loc = t_wall + (t_inf - t_wall)*bottom_blend_t
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        q_prim_vf(eqn_idx%cont%beg)%sf(i, j, 0) = p_atm/(r_mix*t_loc)
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        q_prim_vf(eqn_idx%mom%beg)%sf(i, j, 0) = u_mean
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        q_prim_vf(eqn_idx%mom%end)%sf(i, j, 0) = 0.0_wp
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        q_prim_vf(eqn_idx%E)%sf(i, j, 0) = p_atm
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        q_prim_vf(eqn_idx%species%beg)%sf(i, j, 0) = y_o2
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        q_prim_vf(eqn_idx%species%end)%sf(i, j, 0) = y_n2
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    case default
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        if (proc_rank == 0) then
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            call s_int_to_str(patch_id, istr)
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            call s_mpi_abort("Invalid hcid specified for patch " // trim(istr))
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        end if
# 640 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    end select
                        end if
 
                        if ((q_prim_vf(1)%sf(i, j, 0) < 1.e-10) .and. (model_eqns == model_eqns_4eq)) then
                            ! zero density, reassign according to Tait EOS
                            q_prim_vf(1)%sf(i, j, 0) = (((q_prim_vf(eqn_idx%E)%sf(i, j, &
                                      & 0) + pi_inf)/(pref + pi_inf))**(1._wp/lit_gamma))*rhoref*(1._wp &
                                      & - q_prim_vf(eqn_idx%alf)%sf(i, j, 0))
                        end if
 
                        ! Updating the patch identities bookkeeping variable
                        if (1._wp - eta < sgm_eps) patch_id_fp(i, j, 0) = patch_id
                    end if
                end if
            end do
        end do
    if (allocated(stored_values)) then
# 656 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#ifdef MFC_DEBUG
# 656 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    block
# 656 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        use iso_fortran_env, only: output_unit
# 656 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 656 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        print *, 'm_icpp_patches.fpp:656: ', '@:DEALLOCATE(stored_values)'
# 656 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 656 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        call flush (output_unit)
# 656 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    end block
# 656 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#endif
# 656 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 656 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#if defined(MFC_OpenACC)
# 656 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
!$acc exit data delete(stored_values) 
# 656 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#elif defined(MFC_OpenMP)
# 656 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
!$omp target exit data map(release:stored_values) 
# 656 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#endif
# 656 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    deallocate (stored_values)
# 656 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#ifdef MFC_DEBUG
# 656 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    block
# 656 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        use iso_fortran_env, only: output_unit
# 656 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 656 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        print *, 'm_icpp_patches.fpp:656: ', '@:DEALLOCATE(x_coords)'
# 656 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 656 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        call flush (output_unit)
# 656 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    end block
# 656 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#endif
# 656 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 656 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#if defined(MFC_OpenACC)
# 656 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
!$acc exit data delete(x_coords) 
# 656 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#elif defined(MFC_OpenMP)
# 656 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
!$omp target exit data map(release:x_coords) 
# 656 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#endif
# 656 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    deallocate (x_coords)
# 656 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    end if
# 656 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 656 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    if (allocated(y_coords)) then
# 656 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#ifdef MFC_DEBUG
# 656 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    block
# 656 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        use iso_fortran_env, only: output_unit
# 656 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 656 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        print *, 'm_icpp_patches.fpp:656: ', '@:DEALLOCATE(y_coords)'
# 656 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 656 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        call flush (output_unit)
# 656 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    end block
# 656 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#endif
# 656 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 656 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#if defined(MFC_OpenACC)
# 656 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
!$acc exit data delete(y_coords) 
# 656 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#elif defined(MFC_OpenMP)
# 656 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
!$omp target exit data map(release:y_coords) 
# 656 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#endif
# 656 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    deallocate (y_coords)
# 656 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    end if
# 656 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 656 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    files_loaded = .false.
# 656 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 656 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    if (allocated(stored_values274)) then
# 656 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#ifdef MFC_DEBUG
# 656 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    block
# 656 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        use iso_fortran_env, only: output_unit
# 656 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 656 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        print *, 'm_icpp_patches.fpp:656: ', '@:DEALLOCATE(stored_values274)'
# 656 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 656 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        call flush (output_unit)
# 656 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    end block
# 656 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#endif
# 656 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 656 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#if defined(MFC_OpenACC)
# 656 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
!$acc exit data delete(stored_values274) 
# 656 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#elif defined(MFC_OpenMP)
# 656 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
!$omp target exit data map(release:stored_values274) 
# 656 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#endif
# 656 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    deallocate (stored_values274)
# 656 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    end if
# 656 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 656 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    files_loaded274 = .false.
 
    end subroutine s_icpp_rectangle
 
    !> The swept line patch is a 2D geometry that may be used, for example, in creating a solid boundary, or pre-/post- shock
    !! region, at an angle with respect to the axes of the Cartesian coordinate system. The geometry of the patch is well-defined
    !! when its centroid and normal vector, aimed in the sweep direction, are provided. Note that the sweep line patch DOES allow
    !! the smoothing of its boundary.
    subroutine s_icpp_sweep_line(patch_id, patch_id_fp, q_prim_vf)
 
        integer, intent(in) :: patch_id
 
#ifdef MFC_MIXED_PRECISION
        integer(kind=1), dimension(0:m,0:n,0:p), intent(inout) :: patch_id_fp
#else
        integer, dimension(0:m,0:n,0:p), intent(inout) :: patch_id_fp
#endif
        type(scalar_field), dimension(1:sys_size), intent(inout) :: q_prim_vf
        integer                                                  :: i, j, k  !< Generic loop operators
        real(wp)                                                 :: a, b, c
 
    integer                                 :: xRows, yRows, nRows, iix, iiy, max_files
# 677 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    integer                                 :: f, iter, unit, unit2, idx, idy, index_x, index_y, jump, line_count
# 677 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    real(wp)                                :: x_step, y_step
# 677 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    real(wp)                                :: dummy_x, dummy_y, dummy_z, x0, y0
# 677 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    integer                                 :: global_offset_x, global_offset_y  !< MPI subdomain offset
# 677 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    real(wp)                                :: delta_x, delta_y
# 677 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    character(len=300), dimension(sys_size) :: fileNames                         !< Arrays to store all data from files
# 677 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    real(wp), allocatable                   :: stored_values(:,:,:)
# 677 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    real(wp), allocatable                   :: x_coords(:), y_coords(:)
# 677 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    logical                                 :: files_loaded = .false.
# 677 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    real(wp)                                :: domain_xstart
# 677 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    character(len=20)                       :: file_num_str                      !< For storing the file number as a string
# 677 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    integer                                 :: ios
# 677 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    integer                                 :: ios2
# 677 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 677 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    ! hcid=274 (2dHardcodedIC.fpp): full 2D field from external data, no extrusion.
# 677 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    ! Declared here (not in Hardcoded2DVariables()) so it's visible wherever
# 677 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    ! HardcodedDeallocation() is called, matching the pattern of stored_values/x_coords/
# 677 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    ! y_coords/files_loaded above.
# 677 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    real(wp), allocatable, dimension(:,:,:) :: stored_values274
# 677 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    logical                                 :: files_loaded274 = .false.
# 677 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    integer                                 :: f274, ix274, iy274, unit274, ios274
# 677 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    integer                                 :: local_ix_beg274, local_iy_beg274
# 677 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    character(len=300)                      :: fname274
# 677 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    character(len=20)                       :: file_num_str274
# 677 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    real(wp)                                :: dummy_x274, dummy_y274, dummy_val274, x0_274, y0_274, x_step274, y_step274
# 677 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    real(wp)                                :: file_dx274, file_dy274, r_align274
    ! Place any declaration of intermediate variables here
# 678 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    real(wp) :: rhoH, rhoL, pRef, pInt, h, lam, wl, amp, intH, alph, Mach
# 678 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    real(wp) :: eps
# 678 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 678 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    ! IGR Jets Arrays to stor position and radii of jets from input file
# 678 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    real(wp), dimension(:), allocatable :: y_th_arr, z_th_arr, r_th_arr
# 678 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    ! Variables to describe initial condition of jet
# 678 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    real(wp)                              :: r, ux_th, ux_am, p_th, p_am, rho_th, rho_am, y_th, z_th, r_th, eps_smooth
# 678 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    real(wp)                              :: rcut, xcut  !< Intermediate variables for creating smooth initial condition
# 678 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    real(wp), dimension(0:n,0:p)          :: rcut_arr
# 678 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    integer                               :: l, q, s     !< Iterators for reading input files
# 678 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    integer                               :: start, end  !< Ints to keep track of position in file
# 678 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    character(len=100000)                 :: line  ! String to store line in file
# 678 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    character(len=25)                     :: value       !< String to store value in line
# 678 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    integer                               :: NJet        !< Number of jets
# 678 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    real(wp), allocatable, dimension(:,:) :: ih  ! Array to store interface height in
# 678 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    logical                               :: file_exist  ! Flag to check if file exists
# 678 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 678 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    eps = 1e-9_wp
# 678 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 678 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    if (patch_icpp(patch_id)%hcid == 303) then  ! IGR Multijet
# 678 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        eps_smooth = 3._wp
# 678 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        inquire (file="njet.txt", exist=file_exist)
# 678 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        if (file_exist) then
# 678 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            open (unit=10, file="njet.txt", status="old", action="read")
# 678 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            read (10, *) njet
# 678 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            close (10)
# 678 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        else
# 678 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            call s_mpi_abort("Error: njet.txt file specified for hcid=303 does not exist")
# 678 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        end if
# 678 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 678 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#ifdef MFC_DEBUG
# 678 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    block
# 678 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        use iso_fortran_env, only: output_unit
# 678 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 678 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        print *, 'm_icpp_patches.fpp:678: ', '@:ALLOCATE(y_th_arr(0:NJet - 1))'
# 678 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 678 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        call flush (output_unit)
# 678 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    end block
# 678 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#endif
# 678 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    allocate (y_th_arr(0:njet - 1))
# 678 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 678 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 678 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#if defined(MFC_OpenACC)
# 678 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
!$acc enter data create(y_th_arr) 
# 678 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#elif defined(MFC_OpenMP)
# 678 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
!$omp target enter data map(always,alloc:y_th_arr) 
# 678 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#endif
# 678 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#ifdef MFC_DEBUG
# 678 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    block
# 678 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        use iso_fortran_env, only: output_unit
# 678 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 678 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        print *, 'm_icpp_patches.fpp:678: ', '@:ALLOCATE(z_th_arr(0:NJet - 1))'
# 678 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 678 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        call flush (output_unit)
# 678 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    end block
# 678 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#endif
# 678 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    allocate (z_th_arr(0:njet - 1))
# 678 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 678 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 678 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#if defined(MFC_OpenACC)
# 678 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
!$acc enter data create(z_th_arr) 
# 678 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#elif defined(MFC_OpenMP)
# 678 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
!$omp target enter data map(always,alloc:z_th_arr) 
# 678 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#endif
# 678 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#ifdef MFC_DEBUG
# 678 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    block
# 678 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        use iso_fortran_env, only: output_unit
# 678 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 678 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        print *, 'm_icpp_patches.fpp:678: ', '@:ALLOCATE(r_th_arr(0:NJet - 1))'
# 678 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 678 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        call flush (output_unit)
# 678 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    end block
# 678 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#endif
# 678 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    allocate (r_th_arr(0:njet - 1))
# 678 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 678 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 678 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#if defined(MFC_OpenACC)
# 678 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
!$acc enter data create(r_th_arr) 
# 678 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#elif defined(MFC_OpenMP)
# 678 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
!$omp target enter data map(always,alloc:r_th_arr) 
# 678 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#endif
# 678 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 678 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        inquire (file="jets.csv", exist=file_exist)
# 678 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        if (file_exist) then
# 678 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            open (unit=10, file="jets.csv", status="old", action="read")
# 678 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            do q = 0, njet - 1
# 678 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                read (10, '(A)') line  ! Read a full line as a string
# 678 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                start = 1
# 678 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 678 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                do l = 0, 2
# 678 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    end = index(line(start:), ',')  ! Find the next comma
# 678 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    if (end == 0) then
# 678 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                        value = trim(adjustl(line(start:)))  ! Last value in the line
# 678 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    else
# 678 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                        value = trim(adjustl(line(start:start + end - 2)))  ! Extract substring
# 678 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                        start = start + end  ! Move to next value
# 678 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    end if
# 678 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    if (l == 0) then
# 678 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                        read (value, *) y_th_arr(q)  ! Convert string to numeric value
# 678 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    else if (l == 1) then
# 678 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                        read (value, *) z_th_arr(q)
# 678 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    else
# 678 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                        read (value, *) r_th_arr(q)
# 678 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    end if
# 678 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                end do
# 678 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            end do
# 678 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            close (10)
# 678 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 678 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            do q = 0, p
# 678 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                do l = 0, n
# 678 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    rcut = 0._wp
# 678 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    do s = 0, njet - 1
# 678 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                        r = sqrt((y_cc(l) - y_th_arr(s))**2._wp + (z_cc(q) - z_th_arr(s))**2._wp)
# 678 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                        rcut = rcut + f_cut_on(r - r_th_arr(s), eps_smooth)
# 678 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    end do
# 678 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    rcut_arr(l, q) = rcut
# 678 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                end do
# 678 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            end do
# 678 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        else
# 678 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            call s_mpi_abort("Error: jets.csv file specified for hcid=303 does not exist")
# 678 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        end if
# 678 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    end if
# 678 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 678 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    if (patch_icpp(patch_id)%hcid == 304) then  ! 3D Cartesian interface from file
# 678 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#ifdef MFC_DEBUG
# 678 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    block
# 678 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        use iso_fortran_env, only: output_unit
# 678 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 678 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        print *, 'm_icpp_patches.fpp:678: ', '@:ALLOCATE(ih(0:n_glb, 0:p_glb))'
# 678 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 678 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        call flush (output_unit)
# 678 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    end block
# 678 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#endif
# 678 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    allocate (ih(0:n_glb, 0:p_glb))
# 678 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 678 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 678 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#if defined(MFC_OpenACC)
# 678 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
!$acc enter data create(ih) 
# 678 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#elif defined(MFC_OpenMP)
# 678 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
!$omp target enter data map(always,alloc:ih) 
# 678 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#endif
# 678 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 678 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        if (interface_file == '.') then
# 678 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            call s_mpi_abort("Error: interface_file must be specified for hcid=304")
# 678 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        else
# 678 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            inquire (file=trim(interface_file), exist=file_exist)
# 678 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            if (file_exist) then
# 678 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                open (unit=10, file=trim(interface_file), status="old", action="read")
# 678 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                do i = 0, n_glb
# 678 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    read (10, '(A)') line  ! Read a full line as a string
# 678 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    start = 1
# 678 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 678 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    do j = 0, p_glb
# 678 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                        end = index(line(start:), ',')  ! Find the next comma
# 678 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                        if (end == 0) then
# 678 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                            value = trim(adjustl(line(start:)))  ! Last value in the line
# 678 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                        else
# 678 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                            value = trim(adjustl(line(start:start + end - 2)))  ! Extract substring
# 678 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                            start = start + end  ! Move to next value
# 678 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                        end if
# 678 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                        read (value, *) ih(i, j)  ! Convert string to numeric value
# 678 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                        if (.not. f_is_default(normmag)) ih(i, j) = ih(i, j)*normmag
# 678 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                        if (.not. f_is_default(normfac)) ih(i, j) = ih(i, j) + normfac
# 678 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    end do
# 678 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                end do
# 678 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                close (10)
# 678 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            else
# 678 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                call s_mpi_abort("Error: interface_file specified for hcid=304 does not exist")
# 678 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            end if
# 678 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        end if
# 678 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    end if
# 678 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 678 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    if (patch_icpp(patch_id)%hcid == 305) then  ! 3D Axisymmetric interface from file
# 678 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#ifdef MFC_DEBUG
# 678 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    block
# 678 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        use iso_fortran_env, only: output_unit
# 678 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 678 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        print *, 'm_icpp_patches.fpp:678: ', '@:ALLOCATE(ih(0:n_glb, 0:0))'
# 678 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 678 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        call flush (output_unit)
# 678 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    end block
# 678 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#endif
# 678 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    allocate (ih(0:n_glb, 0:0))
# 678 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 678 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 678 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#if defined(MFC_OpenACC)
# 678 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
!$acc enter data create(ih) 
# 678 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#elif defined(MFC_OpenMP)
# 678 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
!$omp target enter data map(always,alloc:ih) 
# 678 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#endif
# 678 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        if (interface_file == '.') then
# 678 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            call s_mpi_abort("Error: interface_file must be specified for hcid=305")
# 678 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        else
# 678 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            inquire (file=trim(interface_file), exist=file_exist)
# 678 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            if (file_exist) then
# 678 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                open (unit=10, file=trim(interface_file), status="old", action="read")
# 678 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                do i = 0, n_glb
# 678 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    read (10, '(A)') line  ! Read a full line as a string
# 678 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    value = trim(line)
# 678 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    read (value, *) ih(i, 0)  ! Convert string to numeric value
# 678 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    if (.not. f_is_default(normmag)) ih(i, 0) = ih(i, 0)*normmag
# 678 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    if (.not. f_is_default(normfac)) ih(i, 0) = ih(i, 0) + normfac
# 678 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                end do
# 678 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                close (10)
# 678 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            else
# 678 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                call s_mpi_abort("Error: interface_file specified for hcid=305 does not exist")
# 678 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            end if
# 678 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        end if
# 678 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    end if
 
        ! Transferring the centroid information of the line to be swept
        x_centroid = patch_icpp(patch_id)%x_centroid
        y_centroid = patch_icpp(patch_id)%y_centroid
        smooth_patch_id = patch_icpp(patch_id)%smooth_patch_id
        smooth_coeff = patch_icpp(patch_id)%smooth_coeff
 
        ! Obtaining coefficients of the equation describing the sweep line
        a = patch_icpp(patch_id)%normal(1)
        b = patch_icpp(patch_id)%normal(2)
        c = -a*x_centroid - b*y_centroid
 
        ! Initialize eta=1; modified if smoothing is enabled
        eta = 1._wp
 
        ! Assign patch vars if cell is covered and patch has write permission
        do j = 0, n
            do i = 0, m
                if (patch_icpp(patch_id)%smoothen) then
                    eta = 5.e-1_wp + 5.e-1_wp*tanh(smooth_coeff/min(dx, dy)*(a*x_cc(i) + b*y_cc(j) + c)/sqrt(a**2 + b**2))
                end if
 
                if ((a*x_cc(i) + b*y_cc(j) + c >= 0._wp .and. patch_icpp(patch_id)%alter_patch(patch_id_fp(i, j, &
                    & 0))) .or. patch_id_fp(i, j, 0) == smooth_patch_id) then
                    call s_assign_patch_primitive_variables(patch_id, i, j, 0, eta, q_prim_vf, patch_id_fp)
 
 
                    if (patch_icpp(patch_id)%hcid /= dflt_int) then
    select case (patch_icpp(patch_id)%hcid)
# 707 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    case (300)  ! Rayleigh-Taylor instability
# 707 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        rhoh = 3._wp
# 707 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        rhol = 1._wp
# 707 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        pref = 1.e5_wp
# 707 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        pint = pref
# 707 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        h = 0.7_wp
# 707 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        lam = 0.2_wp
# 707 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        wl = 2._wp*pi/lam
# 707 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        amp = 0.025_wp/wl
# 707 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 707 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        inth = amp*(sin(2._wp*pi*x_cc(i)/lam - pi/2._wp) + sin(2._wp*pi*z_cc(k)/lam - pi/2._wp)) + h
# 707 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 707 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        alph = 5.e-1_wp*(1._wp + tanh((y_cc(j) - inth)/2.5e-3_wp))
# 707 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 707 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        if (alph < eps) alph = eps
# 707 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        if (alph > 1._wp - eps) alph = 1._wp - eps
# 707 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 707 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        if (y_cc(j) > inth) then
# 707 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%adv%beg)%sf(i, j, k) = alph
# 707 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%adv%end)%sf(i, j, k) = 1._wp - alph
# 707 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%cont%beg)%sf(i, j, k) = alph*rhoh
# 707 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%cont%end)%sf(i, j, k) = (1._wp - alph)*rhol
# 707 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%E)%sf(i, j, k) = pref + rhoh*9.81_wp*(1.2_wp - y_cc(j))
# 707 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        else
# 707 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%adv%beg)%sf(i, j, k) = alph
# 707 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%adv%end)%sf(i, j, k) = 1._wp - alph
# 707 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%cont%beg)%sf(i, j, k) = alph*rhoh
# 707 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%cont%end)%sf(i, j, k) = (1._wp - alph)*rhol
# 707 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            pint = pref + rhoh*9.81_wp*(1.2_wp - inth)
# 707 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%E)%sf(i, j, k) = pint + rhol*9.81_wp*(inth - y_cc(j))
# 707 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        end if
# 707 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    case (301)  ! (3D lung geometry in X direction, |sin(*)+sin(*)|)
# 707 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        h = 0.0_wp
# 707 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        lam = 1.0_wp
# 707 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        amp = patch_icpp(patch_id)%a(2)
# 707 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        inth = amp*abs((sin(2*pi*y_cc(j)/lam - pi/2) + sin(2*pi*z_cc(k)/lam - pi/2)) + h)
# 707 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        if (x_cc(i) > inth) then
# 707 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%cont%beg)%sf(i, j, k) = patch_icpp(1)%alpha_rho(1)
# 707 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%cont%end)%sf(i, j, k) = patch_icpp(1)%alpha_rho(2)
# 707 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%E)%sf(i, j, k) = patch_icpp(1)%pres
# 707 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%adv%beg)%sf(i, j, k) = patch_icpp(1)%alpha(1)
# 707 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%adv%end)%sf(i, j, k) = patch_icpp(1)%alpha(2)
# 707 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        end if
# 707 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    case (302)  ! 3D Jet with IGR
# 707 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ux_th = 10*sqrt(1.4*0.4)
# 707 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ux_am = 0.0*sqrt(1.4)
# 707 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        p_th = 2.0_wp
# 707 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        p_am = 1.0_wp
# 707 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        rho_th = 1._wp
# 707 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        rho_am = 1._wp
# 707 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        y_th = 0.0_wp
# 707 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        z_th = 0.0_wp
# 707 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        r_th = 1._wp
# 707 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        eps_smooth = 1._wp
# 707 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        eps = 1e-6
# 707 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 707 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        r = sqrt((y_cc(j) - y_th)**2._wp + (z_cc(k) - z_th)**2._wp)
# 707 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        rcut = f_cut_on(r - r_th, eps_smooth)
# 707 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        xcut = f_cut_on(x_cc(i), eps_smooth)
# 707 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 707 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        q_prim_vf(eqn_idx%mom%beg)%sf(i, j, k) = ux_th*rcut*xcut + ux_am
# 707 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        q_prim_vf(eqn_idx%mom%beg + 1)%sf(i, j, k) = 0._wp
# 707 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        q_prim_vf(eqn_idx%mom%end)%sf(i, j, k) = 0._wp
# 707 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 707 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        if (num_fluids == 1) then
# 707 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%cont%beg)%sf(i, j, k) = (rho_th - rho_am)*rcut*xcut + rho_am
# 707 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        else
# 707 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%adv%beg)%sf(i, j, k) = (1._wp - 2._wp*eps)*rcut*xcut + eps
# 707 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%cont%beg)%sf(i, j, k) = rho_th*q_prim_vf(eqn_idx%adv%beg)%sf(i, j, k)
# 707 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%cont%end)%sf(i, j, k) = rho_am*(1._wp - q_prim_vf(eqn_idx%adv%beg)%sf(i, j, k))
# 707 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        end if
# 707 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 707 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        q_prim_vf(eqn_idx%E)%sf(i, j, k) = p_th*rcut*xcut + p_am
# 707 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    case (303)  ! 3D Multijet
# 707 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        eps_smooth = 3.0_wp
# 707 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ux_th = 10*sqrt(1.4*0.4)
# 707 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ux_am = 2.5*sqrt(1.4*0.4)
# 707 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        p_th = 0.8_wp
# 707 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        p_am = 0.4_wp
# 707 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        rho_th = 1._wp
# 707 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        rho_am = 1._wp
# 707 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        eps = 1e-6
# 707 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 707 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        rcut = rcut_arr(j, k)
# 707 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        xcut = f_cut_on(x_cc(i), eps_smooth)
# 707 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 707 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        q_prim_vf(eqn_idx%mom%beg)%sf(i, j, k) = ux_th*rcut*xcut + ux_am
# 707 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        q_prim_vf(eqn_idx%mom%beg + 1)%sf(i, j, k) = 0._wp
# 707 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        q_prim_vf(eqn_idx%mom%end)%sf(i, j, k) = 0._wp
# 707 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 707 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        if (num_fluids == 1) then
# 707 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%cont%beg)%sf(i, j, k) = (rho_th - rho_am)*rcut*xcut + rho_am
# 707 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        else
# 707 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%adv%beg)%sf(i, j, k) = (1._wp - 2._wp*eps)*rcut*xcut + eps
# 707 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%cont%beg)%sf(i, j, k) = rho_th*q_prim_vf(eqn_idx%adv%beg)%sf(i, j, k)
# 707 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%cont%end)%sf(i, j, k) = rho_am*(1._wp - q_prim_vf(eqn_idx%adv%beg)%sf(i, j, k))
# 707 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        end if
# 707 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 707 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        q_prim_vf(eqn_idx%E)%sf(i, j, k) = p_th*rcut*xcut + p_am
# 707 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    case (304)  ! 3D Interface from file cartesian
# 707 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        alph = 0.5_wp*(1 + (1._wp - 2._wp*eps)*tanh((ih(start_idx(2) + j, start_idx(3) + k) - x_cc(i))*(0.5_wp/dx)))
# 707 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 707 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        q_prim_vf(eqn_idx%adv%beg)%sf(i, j, k) = alph
# 707 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        q_prim_vf(eqn_idx%adv%end)%sf(i, j, k) = 1._wp - alph
# 707 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 707 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        q_prim_vf(eqn_idx%cont%beg)%sf(i, j, k) = q_prim_vf(eqn_idx%adv%beg)%sf(i, j, k)*(950._wp/1000._wp)
# 707 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        q_prim_vf(eqn_idx%cont%end)%sf(i, j, k) = q_prim_vf(eqn_idx%adv%end)%sf(i, j, k)*(1._wp/1000._wp)
# 707 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 707 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        q_prim_vf(eqn_idx%E)%sf(i, j, k) = p0_ic + (q_prim_vf(eqn_idx%cont%beg)%sf(i, j, k) + q_prim_vf(eqn_idx%cont%end)%sf(i, &
# 707 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                  & j, k))*g0_ic*(ih(start_idx(2) + j, start_idx(3) + k) - x_cc(i))
# 707 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 707 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        if (surface_tension) q_prim_vf(eqn_idx%c)%sf(i, j, k) = alph
# 707 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    case (305)  ! 3D Interface from file axisymmetric
# 707 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        alph = 0.5_wp*(1 + (1._wp - 2._wp*eps)*tanh((ih(start_idx(2) + j, 0) - x_cc(i))*(0.01_wp/dx)))
# 707 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 707 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        q_prim_vf(eqn_idx%adv%beg)%sf(i, j, k) = alph
# 707 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        q_prim_vf(eqn_idx%adv%end)%sf(i, j, k) = 1._wp - alph
# 707 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 707 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        q_prim_vf(eqn_idx%cont%beg)%sf(i, j, k) = q_prim_vf(eqn_idx%adv%beg)%sf(i, j, k)*1._wp
# 707 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        q_prim_vf(eqn_idx%cont%end)%sf(i, j, k) = q_prim_vf(eqn_idx%adv%end)%sf(i, j, k)*(1._wp/950._wp)
# 707 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 707 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        q_prim_vf(eqn_idx%E)%sf(i, j, k) = p0_ic + (q_prim_vf(eqn_idx%cont%beg)%sf(i, j, k) + q_prim_vf(eqn_idx%cont%end)%sf(i, &
# 707 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                  & j, k))*g0_ic*(ih(start_idx(1) + i, start_idx(3) + k) - y_cc(j))
# 707 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 707 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        if (surface_tension) q_prim_vf(eqn_idx%c)%sf(i, j, k) = alph
# 707 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    case (370)  ! 3D extrusion of 2D profile from external data
# 707 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! This hardcoded case extrudes a 2D profile to initialize a 3D simulation domain
# 707 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    if (.not. files_loaded) then
# 707 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        max_files = merge(sys_size, sys_size - 1, num_dims == 1)
# 707 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        do f = 1, max_files
# 707 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            write (file_num_str, '(I0)') f
# 707 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            filenames(f) = trim(files_dir) // "/" // "prim." // trim(file_num_str) // ".00." // trim(file_extension) // ".dat"
# 707 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        end do
# 707 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 707 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! Common file reading setup
# 707 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        open (newunit=unit2, file=trim(filenames(1)), status='old', action='read', iostat=ios2)
# 707 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        if (ios2 /= 0) call s_mpi_abort("Error opening file: " // trim(filenames(1)))
# 707 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 707 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        select case (num_dims)
# 707 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        case (1, 2)  ! 1D and 2D cases are similar
# 707 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            ! Count lines
# 707 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            line_count = 0
# 707 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            do
# 707 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                read (unit2, *, iostat=ios2) dummy_x, dummy_y
# 707 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                if (ios2 /= 0) exit
# 707 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                line_count = line_count + 1
# 707 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            end do
# 707 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            close (unit2)
# 707 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 707 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            xrows = line_count
# 707 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            yrows = 1
# 707 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            index_x = 0
# 707 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            if (num_dims == 2) index_x = i
# 707 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#ifdef MFC_DEBUG
# 707 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    block
# 707 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        use iso_fortran_env, only: output_unit
# 707 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 707 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        print *, 'm_icpp_patches.fpp:707: ', '@:ALLOCATE(x_coords(xRows), stored_values(xRows, 1, sys_size))'
# 707 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 707 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        call flush (output_unit)
# 707 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    end block
# 707 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#endif
# 707 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    allocate (x_coords(xrows), stored_values(xrows, 1, sys_size))
# 707 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 707 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 707 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 707 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#if defined(MFC_OpenACC)
# 707 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
!$acc enter data create(x_coords, stored_values) 
# 707 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#elif defined(MFC_OpenMP)
# 707 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
!$omp target enter data map(always,alloc:x_coords, stored_values) 
# 707 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#endif
# 707 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 707 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            ! Read data from all files
# 707 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            do f = 1, max_files
# 707 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                open (newunit=unit, file=trim(filenames(f)), status='old', action='read', iostat=ios)
# 707 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                if (ios /= 0) call s_mpi_abort("Error opening file: " // trim(filenames(f)))
# 707 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 707 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                do iter = 1, xrows
# 707 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    read (unit, *, iostat=ios) x_coords(iter), stored_values(iter, 1, f)
# 707 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    if (ios /= 0) call s_mpi_abort("Error reading file: " // trim(filenames(f)))
# 707 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                end do
# 707 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                close (unit)
# 707 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            end do
# 707 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 707 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            ! Calculate offsets
# 707 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            domain_xstart = x_coords(1)
# 707 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            x_step = x_cc(1) - x_cc(0)
# 707 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            delta_x = merge(x_cc(0) - domain_xstart, x_cc(index_x) - domain_xstart, num_dims == 1)
# 707 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            global_offset_x = nint(abs(delta_x)/x_step)
# 707 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        case (3)  ! 3D case - determine grid structure
# 707 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            ! Find yRows by counting rows with same x
# 707 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            read (unit2, *, iostat=ios2) x0, y0, dummy_z
# 707 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            if (ios2 /= 0) call s_mpi_abort("Error reading first line")
# 707 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 707 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            yrows = 1
# 707 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            do
# 707 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                read (unit2, *, iostat=ios2) dummy_x, dummy_y, dummy_z
# 707 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                if (ios2 /= 0) exit
# 707 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                if (f_approx_equal(dummy_x, x0) .and. (.not. f_approx_equal(dummy_y, y0))) then
# 707 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    yrows = yrows + 1
# 707 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                else
# 707 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    exit
# 707 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                end if
# 707 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            end do
# 707 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            close (unit2)
# 707 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 707 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            ! Count total rows
# 707 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            open (newunit=unit2, file=trim(filenames(1)), status='old', action='read', iostat=ios2)
# 707 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            nrows = 0
# 707 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            do
# 707 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                read (unit2, *, iostat=ios2) dummy_x, dummy_y, dummy_z
# 707 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                if (ios2 /= 0) exit
# 707 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                nrows = nrows + 1
# 707 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            end do
# 707 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            close (unit2)
# 707 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 707 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            xrows = nrows/yrows
# 707 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#ifdef MFC_DEBUG
# 707 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    block
# 707 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        use iso_fortran_env, only: output_unit
# 707 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 707 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        print *, 'm_icpp_patches.fpp:707: ', '@:ALLOCATE(x_coords(nrows), y_coords(nrows), stored_values(xRows, yRows, sys_size))'
# 707 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 707 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        call flush (output_unit)
# 707 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    end block
# 707 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#endif
# 707 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    allocate (x_coords(nrows), y_coords(nrows), stored_values(xrows, yrows, sys_size))
# 707 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 707 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 707 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 707 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 707 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#if defined(MFC_OpenACC)
# 707 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
!$acc enter data create(x_coords, y_coords, stored_values) 
# 707 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#elif defined(MFC_OpenMP)
# 707 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
!$omp target enter data map(always,alloc:x_coords, y_coords, stored_values) 
# 707 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#endif
# 707 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            index_x = i
# 707 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            index_y = j
# 707 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 707 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            ! Read all files
# 707 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            do f = 1, max_files
# 707 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                open (newunit=unit, file=trim(filenames(f)), status='old', action='read', iostat=ios)
# 707 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                if (ios /= 0) then
# 707 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    if (f == 1) call s_mpi_abort("Error opening file: " // trim(filenames(f)))
# 707 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    cycle
# 707 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                end if
# 707 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 707 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                iter = 0
# 707 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                do iix = 1, xrows
# 707 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    do iiy = 1, yrows
# 707 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                        iter = iter + 1
# 707 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                        if (f == 1) then
# 707 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                            read (unit, *, iostat=ios) x_coords(iter), y_coords(iter), stored_values(iix, iiy, f)
# 707 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                        else
# 707 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                            read (unit, *, iostat=ios) dummy_x, dummy_y, stored_values(iix, iiy, f)
# 707 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                        end if
# 707 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                        if (ios /= 0) call s_mpi_abort("Error reading data")
# 707 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    end do
# 707 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                end do
# 707 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                close (unit)
# 707 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            end do
# 707 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 707 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            ! Calculate offsets
# 707 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            x_step = x_cc(1) - x_cc(0)
# 707 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            y_step = y_cc(1) - y_cc(0)
# 707 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            delta_x = x_cc(index_x) - x_coords(1)
# 707 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            delta_y = y_cc(index_y) - y_coords(1)
# 707 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            global_offset_x = nint(abs(delta_x)/x_step)
# 707 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            global_offset_y = nint(abs(delta_y)/y_step)
# 707 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        end select
# 707 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 707 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        files_loaded = .true.
# 707 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    end if
# 707 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 707 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    ! Data assignment
# 707 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    select case (num_dims)
# 707 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    case (1)
# 707 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        idx = i + 1 + global_offset_x
# 707 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! idx must land inside the file's row range: this rank's subdomain offset
# 707 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! (global_offset_x) was derived from this rank's own grid, so a miss means the
# 707 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! IC file is misaligned/mis-sized for the run grid, not a normal boundary case.
# 707 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        if (idx < 1 .or. idx > xrows) &
# 707 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            & call s_mpi_abort("Hardcoded IC extrusion: row index out of range (IC file misaligned with the run grid)")
# 707 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        do f = 1, sys_size
# 707 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(f)%sf(i, 0, 0) = stored_values(idx, 1, f)
# 707 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        end do
# 707 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    case (2)
# 707 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        idx = i + 1 + global_offset_x - index_x
# 707 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        if (idx < 1 .or. idx > xrows) &
# 707 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            & call s_mpi_abort("Hardcoded IC extrusion: row index out of range (IC file misaligned with the run grid)")
# 707 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        do f = 1, sys_size - 1
# 707 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            jump = merge(1, 0, f >= eqn_idx%mom%end)
# 707 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(f + jump)%sf(i, j, 0) = stored_values(idx, 1, f)
# 707 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        end do
# 707 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        q_prim_vf(eqn_idx%mom%end)%sf(i, j, 0) = 0.0_wp
# 707 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    case (3)
# 707 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        idx = i + 1 + global_offset_x - index_x
# 707 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        idy = j + 1 + global_offset_y - index_y
# 707 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        if (idx < 1 .or. idx > xrows .or. idy < 1 .or. idy > yrows) &
# 707 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            & call s_mpi_abort("Hardcoded IC extrusion: row/column index out of range (IC file misaligned with the run grid)")
# 707 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        do f = 1, sys_size - 1
# 707 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            jump = merge(1, 0, f >= eqn_idx%mom%end)
# 707 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(f + jump)%sf(i, j, k) = stored_values(idx, idy, f)
# 707 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        end do
# 707 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        q_prim_vf(eqn_idx%mom%end)%sf(i, j, k) = 0.0_wp
# 707 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    end select
# 707 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    case (380)  ! Taylor-Green vortex
# 707 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! This is patch is hard-coded for test suite optimization used in the 3D_TaylorGreenVortex case: This analytic patch used
# 707 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! geometry 9
# 707 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        mach = 0.1
# 707 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        if (patch_id == 1) then
# 707 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%E)%sf(i, j, &
# 707 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                      & k) = 101325 + (mach**2*376.636429464809**2/16)*(cos(2*x_cc(i)/1) + cos(2*y_cc(j)/1))*(cos(2*z_cc(k)/1) + 2)
# 707 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%mom%beg + 0)%sf(i, j, k) = mach*376.636429464809*sin(x_cc(i)/1)*cos(y_cc(j)/1)*sin(z_cc(k)/1)
# 707 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%mom%beg + 1)%sf(i, j, k) = -mach*376.636429464809*cos(x_cc(i)/1)*sin(y_cc(j)/1)*sin(z_cc(k)/1)
# 707 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        end if
# 707 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    case default
# 707 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        call s_int_to_str(patch_id, istr)
# 707 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        call s_mpi_abort("Invalid hcid specified for patch " // trim(istr))
# 707 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    end select
                    end if
 
                    ! Updating the patch identities bookkeeping variable
                    if (1._wp - eta < sgm_eps) patch_id_fp(i, j, 0) = patch_id
                end if
            end do
        end do
    if (allocated(stored_values)) then
# 715 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#ifdef MFC_DEBUG
# 715 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    block
# 715 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        use iso_fortran_env, only: output_unit
# 715 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 715 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        print *, 'm_icpp_patches.fpp:715: ', '@:DEALLOCATE(stored_values)'
# 715 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 715 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        call flush (output_unit)
# 715 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    end block
# 715 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#endif
# 715 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 715 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#if defined(MFC_OpenACC)
# 715 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
!$acc exit data delete(stored_values) 
# 715 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#elif defined(MFC_OpenMP)
# 715 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
!$omp target exit data map(release:stored_values) 
# 715 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#endif
# 715 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    deallocate (stored_values)
# 715 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#ifdef MFC_DEBUG
# 715 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    block
# 715 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        use iso_fortran_env, only: output_unit
# 715 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 715 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        print *, 'm_icpp_patches.fpp:715: ', '@:DEALLOCATE(x_coords)'
# 715 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 715 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        call flush (output_unit)
# 715 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    end block
# 715 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#endif
# 715 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 715 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#if defined(MFC_OpenACC)
# 715 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
!$acc exit data delete(x_coords) 
# 715 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#elif defined(MFC_OpenMP)
# 715 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
!$omp target exit data map(release:x_coords) 
# 715 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#endif
# 715 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    deallocate (x_coords)
# 715 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    end if
# 715 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 715 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    if (allocated(y_coords)) then
# 715 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#ifdef MFC_DEBUG
# 715 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    block
# 715 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        use iso_fortran_env, only: output_unit
# 715 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 715 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        print *, 'm_icpp_patches.fpp:715: ', '@:DEALLOCATE(y_coords)'
# 715 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 715 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        call flush (output_unit)
# 715 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    end block
# 715 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#endif
# 715 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 715 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#if defined(MFC_OpenACC)
# 715 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
!$acc exit data delete(y_coords) 
# 715 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#elif defined(MFC_OpenMP)
# 715 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
!$omp target exit data map(release:y_coords) 
# 715 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#endif
# 715 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    deallocate (y_coords)
# 715 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    end if
# 715 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 715 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    files_loaded = .false.
# 715 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 715 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    if (allocated(stored_values274)) then
# 715 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#ifdef MFC_DEBUG
# 715 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    block
# 715 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        use iso_fortran_env, only: output_unit
# 715 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 715 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        print *, 'm_icpp_patches.fpp:715: ', '@:DEALLOCATE(stored_values274)'
# 715 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 715 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        call flush (output_unit)
# 715 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    end block
# 715 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#endif
# 715 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 715 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#if defined(MFC_OpenACC)
# 715 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
!$acc exit data delete(stored_values274) 
# 715 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#elif defined(MFC_OpenMP)
# 715 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
!$omp target exit data map(release:stored_values274) 
# 715 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#endif
# 715 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    deallocate (stored_values274)
# 715 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    end if
# 715 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 715 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    files_loaded274 = .false.
 
    end subroutine s_icpp_sweep_line
 
    !> The Taylor Green vortex is 2D decaying vortex that may be used, for example, to verify the effects of viscous attenuation.
    !! Geometry of the patch is well-defined when its centroid are provided.
    subroutine s_icpp_2d_taylorgreen_vortex(patch_id, patch_id_fp, q_prim_vf)
 
        integer, intent(in) :: patch_id
 
#ifdef MFC_MIXED_PRECISION
        integer(kind=1), dimension(0:m,0:n,0:p), intent(inout) :: patch_id_fp
#else
        integer, dimension(0:m,0:n,0:p), intent(inout) :: patch_id_fp
#endif
        type(scalar_field), dimension(1:sys_size), intent(inout) :: q_prim_vf
        integer                                                  :: i, j, k                   !< generic loop iterators
        real(wp)                                                 :: pi_inf, gamma, lit_gamma  !< equation of state parameters
        real(wp)                                                 :: L0, U0                    !< Taylor Green Vortex parameters
 
    integer                                 :: xRows, yRows, nRows, iix, iiy, max_files
# 735 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    integer                                 :: f, iter, unit, unit2, idx, idy, index_x, index_y, jump, line_count
# 735 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    real(wp)                                :: x_step, y_step
# 735 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    real(wp)                                :: dummy_x, dummy_y, dummy_z, x0, y0
# 735 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    integer                                 :: global_offset_x, global_offset_y  !< MPI subdomain offset
# 735 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    real(wp)                                :: delta_x, delta_y
# 735 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    character(len=300), dimension(sys_size) :: fileNames                         !< Arrays to store all data from files
# 735 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    real(wp), allocatable                   :: stored_values(:,:,:)
# 735 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    real(wp), allocatable                   :: x_coords(:), y_coords(:)
# 735 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    logical                                 :: files_loaded = .false.
# 735 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    real(wp)                                :: domain_xstart
# 735 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    character(len=20)                       :: file_num_str                      !< For storing the file number as a string
# 735 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    integer                                 :: ios
# 735 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    integer                                 :: ios2
# 735 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 735 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    ! hcid=274 (2dHardcodedIC.fpp): full 2D field from external data, no extrusion.
# 735 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    ! Declared here (not in Hardcoded2DVariables()) so it's visible wherever
# 735 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    ! HardcodedDeallocation() is called, matching the pattern of stored_values/x_coords/
# 735 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    ! y_coords/files_loaded above.
# 735 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    real(wp), allocatable, dimension(:,:,:) :: stored_values274
# 735 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    logical                                 :: files_loaded274 = .false.
# 735 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    integer                                 :: f274, ix274, iy274, unit274, ios274
# 735 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    integer                                 :: local_ix_beg274, local_iy_beg274
# 735 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    character(len=300)                      :: fname274
# 735 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    character(len=20)                       :: file_num_str274
# 735 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    real(wp)                                :: dummy_x274, dummy_y274, dummy_val274, x0_274, y0_274, x_step274, y_step274
# 735 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    real(wp)                                :: file_dx274, file_dy274, r_align274
    ! Place any declaration of intermediate variables here
# 736 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    real(wp) :: eps, eps_mhd, C_mhd
# 736 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    real(wp) :: r, rmax, gam, umax, p0
# 736 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    real(wp) :: rhoH, rhoL, pRef, pInt, h, lam, wl, amp, intH, intL, alph
# 736 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    real(wp) :: factor, x1c, y1c, x2c, y2c, r1c, r2c, cvortex, u1c, u2c, v1c, v2c, rvortex
# 736 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    real(wp) :: r0, alpha, r2
# 736 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    real(wp) :: sinA, cosA
# 736 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    real(wp) :: r_sq
# 736 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 736 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    ! # 283 - Gauss-averaged isentropic vortex (conserved-variable cell averages)
# 736 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    real(wp) :: gauss_xi(3), gauss_w(3), xq, yq, r2q, T_facq, wq
# 736 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    real(wp) :: rho_avg, rhou_avg, rhov_avg, E_avg
# 736 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    real(wp) :: rhoq, pq, uq, vq, Eq, vortex_eps
# 736 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    integer  :: igq, jgq
# 736 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 736 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    ! # 291 - Shear/Thermal Layer Case
# 736 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    real(wp) :: delta_shear, u_max, u_mean
# 736 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    real(wp) :: T_wall, T_inf, P_atm, T_loc
# 736 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    real(wp) :: delta_th, R_mix
# 736 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    real(wp) :: Y_N2, Y_O2, MW_N2, MW_O2
# 736 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    real(wp) :: bottom_blend_u, bottom_blend_T
# 736 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 736 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    ! # 207
# 736 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    real(wp) :: sigma, gauss1, gauss2
# 736 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 736 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    ! # 208
# 736 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    real(wp)            :: ei, d, fsm, alpha_air, alpha_sf6
# 736 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    real(wp)            :: y_center, y_dist, wave_phase, front_shift, x_mapped, interp_wt
# 736 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    integer             :: v, idx_lo, idx_hi, idx_mid
# 736 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    real(wp), parameter :: Ly_param = 0.00775735_wp
# 736 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    real(wp), parameter :: A_param = 0.1_wp*96.9880867_wp*10.0_wp**(-6.0_wp)
# 736 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    integer, parameter  :: Nwaves = 6
# 736 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    real(wp), parameter :: y0_ref = 0.0_wp
# 736 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 736 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    eps = 1.e-9_wp
 
        pi_inf = pi_infs(1)
        gamma = gammas(1)
        lit_gamma = gs_min(1)
 
        ! Transferring the patch's centroid and length information
        x_centroid = patch_icpp(patch_id)%x_centroid
        y_centroid = patch_icpp(patch_id)%y_centroid
        length_x = patch_icpp(patch_id)%length_x
        length_y = patch_icpp(patch_id)%length_y
 
        ! Computing the beginning and the end x- and y-coordinates of the patch based on its centroid and lengths
        x_boundary%beg = x_centroid - 0.5_wp*length_x
        x_boundary%end = x_centroid + 0.5_wp*length_x
        y_boundary%beg = y_centroid - 0.5_wp*length_y
        y_boundary%end = y_centroid + 0.5_wp*length_y
 
        ! Set eta=1 (no smoothing for this patch type)
        eta = 1._wp
        ! U0 is the characteristic velocity of the vortex
        u0 = patch_icpp(patch_id)%vel(1)
        ! L0 is the characteristic length of the vortex
        l0 = patch_icpp(patch_id)%vel(2)
        ! Assign patch vars if cell is covered and patch has write permission
        do j = 0, n
            do i = 0, m
                if (f_is_inside_cuboid(x_cc(i) - x_centroid, y_cc(j) - y_centroid, 0._wp, [length_x, length_y, &
                    & 0._wp]) .and. patch_icpp(patch_id)%alter_patch(patch_id_fp(i, j, 0))) then
                    call s_assign_patch_primitive_variables(patch_id, i, j, 0, eta, q_prim_vf, patch_id_fp)
 
 
                    if (patch_icpp(patch_id)%hcid /= dflt_int) then
    select case (patch_icpp(patch_id)%hcid)  ! 2D_hardcoded_ic example case
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    case (200)  ! Two-fluid cubic interface
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        if (y_cc(j) <= (-x_cc(i)**3 + 1)**(1._wp/3._wp)) then
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%adv%beg)%sf(i, j, 0) = eps
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%adv%end)%sf(i, j, 0) = 1._wp - eps
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%cont%beg)%sf(i, j, 0) = eps*1000._wp
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%cont%end)%sf(i, j, 0) = (1._wp - eps)*1._wp
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%E)%sf(i, j, 0) = 1000._wp
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        end if
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    case (202)  ! Gresho vortex (Gouasmi et al 2022 JCP)
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        r = ((x_cc(i) - 0.5_wp)**2 + (y_cc(j) - 0.5_wp)**2)**0.5_wp
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        rmax = 0.2_wp
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        gam = 1._wp + 1._wp/fluid_pp(1)%gamma
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        umax = 2*pi*rmax*patch_icpp(patch_id)%vel(2)
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        p0 = umax**2*(1._wp/(gam*patch_icpp(patch_id)%vel(2)**2) - 0.5_wp)
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        if (r < rmax) then
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%mom%beg)%sf(i, j, 0) = -(y_cc(j) - 0.5_wp)*umax/rmax
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%mom%end)%sf(i, j, 0) = (x_cc(i) - 0.5_wp)*umax/rmax
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%E)%sf(i, j, 0) = p0 + umax**2*((r/rmax)**2._wp/2._wp)
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        else if (r < 2*rmax) then
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%mom%beg)%sf(i, j, 0) = -((y_cc(j) - 0.5_wp)/r)*umax*(2._wp - r/rmax)
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%mom%end)%sf(i, j, 0) = ((x_cc(i) - 0.5_wp)/r)*umax*(2._wp - r/rmax)
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%E)%sf(i, j, 0) = p0 + umax**2*((r/rmax)**2/2._wp + 4*(1 - (r/rmax) + log(r/rmax)))
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        else
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%mom%beg)%sf(i, j, 0) = 0._wp
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%mom%end)%sf(i, j, 0) = 0._wp
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%E)%sf(i, j, 0) = p0 + umax**2*(-2 + 4*log(2._wp))
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        end if
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    case (203)  ! Gresho vortex (Gouasmi et al 2022 JCP) with density correction
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        r = ((x_cc(i) - 0.5_wp)**2._wp + (y_cc(j) - 0.5_wp)**2)**0.5_wp
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        rmax = 0.2_wp
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        gam = 1._wp + 1._wp/fluid_pp(1)%gamma
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        umax = 2*pi*rmax*patch_icpp(patch_id)%vel(2)
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        p0 = umax**2*(1._wp/(gam*patch_icpp(patch_id)%vel(2)**2) - 0.5_wp)
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        if (r < rmax) then
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%mom%beg)%sf(i, j, 0) = -(y_cc(j) - 0.5_wp)*umax/rmax
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%mom%end)%sf(i, j, 0) = (x_cc(i) - 0.5_wp)*umax/rmax
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%E)%sf(i, j, 0) = p0 + umax**2*((r/rmax)**2._wp/2._wp)
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        else if (r < 2*rmax) then
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%mom%beg)%sf(i, j, 0) = -((y_cc(j) - 0.5_wp)/r)*umax*(2._wp - r/rmax)
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%mom%end)%sf(i, j, 0) = ((x_cc(i) - 0.5_wp)/r)*umax*(2._wp - r/rmax)
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%E)%sf(i, j, 0) = p0 + umax**2*((r/rmax)**2/2._wp + 4._wp*(1._wp - (r/rmax) + log(r/rmax)))
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        else
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%mom%beg)%sf(i, j, 0) = 0._wp
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%mom%end)%sf(i, j, 0) = 0._wp
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%E)%sf(i, j, 0) = p0 + umax**2._wp*(-2._wp + 4*log(2._wp))
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        end if
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        q_prim_vf(eqn_idx%cont%beg)%sf(i, j, 0) = q_prim_vf(eqn_idx%E)%sf(i, j, 0)**(1._wp/gam)
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    case (204)  ! Rayleigh-Taylor instability
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        rhoh = 3._wp
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        rhol = 1._wp
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        pref = 1.e5_wp
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        pint = pref
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        h = 0.7_wp
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        lam = 0.2_wp
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        wl = 2._wp*pi/lam
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        amp = 0.05_wp/wl
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        inth = amp*sin(2._wp*pi*x_cc(i)/lam - pi/2._wp) + h
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        alph = 0.5_wp*(1._wp + tanh((y_cc(j) - inth)/2.5e-3_wp))
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        if (alph < eps) alph = eps
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        if (alph > 1._wp - eps) alph = 1._wp - eps
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        if (y_cc(j) > inth) then
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%adv%beg)%sf(i, j, 0) = alph
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%adv%end)%sf(i, j, 0) = 1._wp - alph
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%cont%beg)%sf(i, j, 0) = alph*rhoh
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%cont%end)%sf(i, j, 0) = (1._wp - alph)*rhol
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%E)%sf(i, j, 0) = pref + rhoh*9.81_wp*(1.2_wp - y_cc(j))
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        else
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%adv%beg)%sf(i, j, 0) = alph
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%adv%end)%sf(i, j, 0) = 1._wp - alph
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%cont%beg)%sf(i, j, 0) = alph*rhoh
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%cont%end)%sf(i, j, 0) = (1._wp - alph)*rhol
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            pint = pref + rhoh*9.81_wp*(1.2_wp - inth)
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%E)%sf(i, j, 0) = pint + rhol*9.81_wp*(inth - y_cc(j))
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        end if
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    case (205)  ! 2D lung wave interaction problem
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        h = 0.0_wp  ! non dim origin y
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        lam = 1.0_wp  ! non dim lambda
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        amp = patch_icpp(patch_id)%a(2)  ! to be changed later!       !non dim amplitude
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        inth = amp*sin(2*pi*x_cc(i)/lam - pi/2) + h
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        if (y_cc(j) > inth) then
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%cont%beg)%sf(i, j, 0) = patch_icpp(1)%alpha_rho(1)
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%cont%end)%sf(i, j, 0) = patch_icpp(1)%alpha_rho(2)
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%E)%sf(i, j, 0) = patch_icpp(1)%pres
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%adv%beg)%sf(i, j, 0) = patch_icpp(1)%alpha(1)
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%adv%end)%sf(i, j, 0) = patch_icpp(1)%alpha(2)
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        end if
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    case (206)  ! 2D lung wave interaction problem - horizontal domain
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        h = 0.0_wp  ! non dim origin y
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        lam = 1.0_wp  ! non dim lambda
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        amp = patch_icpp(patch_id)%a(2)
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        intl = amp*sin(2*pi*y_cc(j)/lam - pi/2) + h
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        if (x_cc(i) > intl) then  ! this is the liquid
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%cont%beg)%sf(i, j, 0) = patch_icpp(1)%alpha_rho(1)
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%cont%end)%sf(i, j, 0) = patch_icpp(1)%alpha_rho(2)
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%E)%sf(i, j, 0) = patch_icpp(1)%pres
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%adv%beg)%sf(i, j, 0) = patch_icpp(1)%alpha(1)
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%adv%end)%sf(i, j, 0) = patch_icpp(1)%alpha(2)
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        end if
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    case (207)  ! Kelvin Helmholtz Instability
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        sigma = 0.05_wp/sqrt(2.0_wp)
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        gauss1 = exp(-(y_cc(j) - 0.75_wp)**2/(2.0_wp*sigma**2))
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        gauss2 = exp(-(y_cc(j) - 0.25_wp)**2/(2.0_wp*sigma**2))
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        q_prim_vf(eqn_idx%mom%beg + 1)%sf(i, j, 0) = 0.1_wp*sin(4.0_wp*pi*x_cc(i))*(gauss1 + gauss2)
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    case (208)  ! Richtmeyer Meshkov Instability
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        lam = 1.0_wp
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        eps = 1.0e-6_wp
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ei = 5.0_wp
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! Smoothening function to smooth out sharp discontinuity in the interface
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        if (x_cc(i) <= 0.7_wp*lam) then
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            d = x_cc(i) - lam*(0.4_wp - 0.1_wp*sin(2.0_wp*pi*(y_cc(j)/lam + 0.25_wp)))
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            fsm = 0.5_wp*(1.0_wp + erf(d/(ei*sqrt(dx*dy))))
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            alpha_air = eps + (1.0_wp - 2.0_wp*eps)*fsm
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            alpha_sf6 = 1.0_wp - alpha_air
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%cont%beg)%sf(i, j, 0) = alpha_sf6*5.04_wp
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%cont%end)%sf(i, j, 0) = alpha_air*1.0_wp
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%adv%beg)%sf(i, j, 0) = alpha_sf6
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%adv%end)%sf(i, j, 0) = alpha_air
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        end if
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    case (250)  ! MHD Orszag-Tang vortex
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! gamma = 5/3 rho = 25/(36*pi) p = 5/(12*pi) v = (-sin(2*pi*y), sin(2*pi*x), 0) B = (-sin(2*pi*y)/sqrt(4*pi),
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! sin(4*pi*x)/sqrt(4*pi), 0)
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        q_prim_vf(eqn_idx%mom%beg)%sf(i, j, 0) = -sin(2._wp*pi*y_cc(j))
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        q_prim_vf(eqn_idx%mom%beg + 1)%sf(i, j, 0) = sin(2._wp*pi*x_cc(i))
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        q_prim_vf(eqn_idx%B%beg)%sf(i, j, 0) = -sin(2._wp*pi*y_cc(j))/sqrt(4._wp*pi)
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        q_prim_vf(eqn_idx%B%beg + 1)%sf(i, j, 0) = sin(4._wp*pi*x_cc(i))/sqrt(4._wp*pi)
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    case (251)  ! RMHD Cylindrical Blast Wave [Mignone, 2006: Section 4.3.1]
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        if (x_cc(i)**2 + y_cc(j)**2 < 0.08_wp**2) then
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%cont%beg)%sf(i, j, 0) = 0.01
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%E)%sf(i, j, 0) = 1.0
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        else if (x_cc(i)**2 + y_cc(j)**2 <= 1._wp**2) then
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            ! Linear interpolation between r=0.08 and r=1.0
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            factor = (1.0_wp - sqrt(x_cc(i)**2 + y_cc(j)**2))/(1.0_wp - 0.08_wp)
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%cont%beg)%sf(i, j, 0) = 0.01_wp*factor + 1.e-4_wp*(1.0_wp - factor)
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%E)%sf(i, j, 0) = 1.0_wp*factor + 3.e-5_wp*(1.0_wp - factor)
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        else
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%cont%beg)%sf(i, j, 0) = 1.e-4_wp
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%E)%sf(i, j, 0) = 3.e-5_wp
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        end if
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! case 252 is for the 2D MHD Rotor problem
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    case (252)  ! 2D MHD Rotor Problem
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! Ambient conditions are set in the JSON file. This case imposes the dense, rotating cylinder.
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        !
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! gamma = 1.4 Ambient medium (r > 0.1): rho = 1, p = 1, v = 0, B = (1,0,0) Rotor (r <= 0.1): rho = 10, p = 1 v has angular
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! velocity w=20, giving v_tan=2 at r=0.1
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! Calculate distance squared from the center
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        r_sq = (x_cc(i) - 0.5_wp)**2 + (y_cc(j) - 0.5_wp)**2
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! inner radius of 0.1
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        if (r_sq <= 0.1**2) then
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            ! -- Inside the rotor -- Set density uniformly to 10
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%cont%beg)%sf(i, j, 0) = 10._wp
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            ! Set vup constant rotation of rate v=2 v_x = -omega * (y - y_c) v_y = omega * (x - x_c)
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%mom%beg)%sf(i, j, 0) = -20._wp*(y_cc(j) - 0.5_wp)
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%mom%beg + 1)%sf(i, j, 0) = 20._wp*(x_cc(i) - 0.5_wp)
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            ! taper width of 0.015
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        else if (r_sq <= 0.115**2) then
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            ! linearly smooth the function between r = 0.1 and 0.115
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%cont%beg)%sf(i, j, 0) = 1._wp + 9._wp*(0.115_wp - sqrt(r_sq))/(0.015_wp)
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%mom%beg)%sf(i, j, 0) = -(2._wp/sqrt(r_sq))*(y_cc(j) - 0.5_wp)*(0.115_wp - sqrt(r_sq))/(0.015_wp)
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%mom%beg + 1)%sf(i, j, 0) = (2._wp/sqrt(r_sq))*(x_cc(i) - 0.5_wp)*(0.115_wp - sqrt(r_sq))/(0.015_wp)
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        end if
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    case (253)  ! MHD Smooth Magnetic Vortex
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! Section 5.2 of Implicit hybridized discontinuous Galerkin methods for compressible magnetohydrodynamics C. Ciuca, P.
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! Fernandez, A. Christophe, N.C. Nguyen, J. Peraire
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! velocity
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        q_prim_vf(eqn_idx%mom%beg)%sf(i, j, 0) = 1._wp - (y_cc(j)*exp(1 - (x_cc(i)**2 + y_cc(j)**2))/(2.*pi))
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        q_prim_vf(eqn_idx%mom%beg + 1)%sf(i, j, 0) = 1._wp + (x_cc(i)*exp(1 - (x_cc(i)**2 + y_cc(j)**2))/(2.*pi))
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! magnetic field
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        q_prim_vf(eqn_idx%B%beg)%sf(i, j, 0) = -y_cc(j)*exp(1 - (x_cc(i)**2 + y_cc(j)**2))/(2.*pi)
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        q_prim_vf(eqn_idx%B%beg + 1)%sf(i, j, 0) = x_cc(i)*exp(1 - (x_cc(i)**2 + y_cc(j)**2))/(2.*pi)
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! pressure
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        q_prim_vf(eqn_idx%E)%sf(i, j, &
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                  & 0) = 1._wp + (1 - 2._wp*(x_cc(i)**2 + y_cc(j)**2))*exp(1 - (x_cc(i)**2 + y_cc(j)**2))/((2._wp*pi)**3)
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    case (260)  ! Gaussian Divergence Pulse
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! Bx(x) = 1 + C * erf((x-0.5)/\sigma) => \partialBx/\partialx = C * (2/\sqrt\pi) * exp[-((x-0.5)/\sigma)**2] * (1/\sigma)
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! Choose C = \epsilon * \sigma * \sqrt\pi / 2 => \partialBx/\partialx = \epsilon * exp[-((x-0.5)/\sigma)**2] \psi is
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! initialized to zero everywhere.
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        eps_mhd = patch_icpp(patch_id)%a(2)
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        sigma = patch_icpp(patch_id)%a(3)
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        c_mhd = eps_mhd*sigma*sqrt(pi)*0.5_wp
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! B-field
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        q_prim_vf(eqn_idx%B%beg)%sf(i, j, 0) = 1._wp + c_mhd*erf((x_cc(i) - 0.5_wp)/sigma)
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    case (261)  ! Blob
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        r0 = 1._wp/sqrt(8._wp)
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        r2 = x_cc(i)**2 + y_cc(j)**2
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        r = sqrt(r2)
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        alpha = r/r0
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        if (alpha < 1) then
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%B%beg)%sf(i, j, 0) = 1._wp/sqrt(4._wp*pi)*(alpha**8 - 2._wp*alpha**4 + 1._wp)
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            ! q_prim_vf(eqn_idx%B%beg)%sf(i,j,0) = 1._wp/sqrt(4000._wp*pi) * (4096._wp*r2**4 - 128._wp*r2**2 + 1._wp)
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            ! q_prim_vf(eqn_idx%B%beg)%sf(i,j,0) = 1._wp/(4._wp*pi) * (alpha**8 - 2._wp*alpha**4 + 1._wp)
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            ! q_prim_vf(eqn_idx%E)%sf(i,j,0) = 6._wp - q_prim_vf(eqn_idx%B%beg)%sf(i,j,0)**2/2._wp
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        end if
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    case (262)  ! Tilted 2D MHD shock-tube at \alpha = arctan2 (\approx63.4 deg)
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! rotate by \alpha = atan(2)
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        alpha = atan(2._wp)
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        cosa = cos(alpha)
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        sina = sin(alpha)
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! projection along shock normal
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        r = x_cc(i)*cosa + y_cc(j)*sina
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        if (r <= 0.5_wp) then
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            ! LEFT state: \rho=1, v\parallel=+10, v\perp=0, p=20, B\parallel=B\perp=5/\sqrt(4\pi)
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%cont%beg)%sf(i, j, 0) = 1._wp
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%mom%beg)%sf(i, j, 0) = 10._wp*cosa
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%mom%beg + 1)%sf(i, j, 0) = 10._wp*sina
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%E)%sf(i, j, 0) = 20._wp
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%B%beg)%sf(i, j, 0) = (5._wp/sqrt(4._wp*pi))*cosa - (5._wp/sqrt(4._wp*pi))*sina
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%B%beg + 1)%sf(i, j, 0) = (5._wp/sqrt(4._wp*pi))*sina + (5._wp/sqrt(4._wp*pi))*cosa
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        else
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            ! RIGHT state: \rho=1, v\parallel=-10, v\perp=0, p=1, B\parallel=B\perp=5/\sqrt(4\pi)
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%cont%beg)%sf(i, j, 0) = 1._wp
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%mom%beg)%sf(i, j, 0) = -10._wp*cosa
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%mom%beg + 1)%sf(i, j, 0) = -10._wp*sina
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%E)%sf(i, j, 0) = 1._wp
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%B%beg)%sf(i, j, 0) = (5._wp/sqrt(4._wp*pi))*cosa - (5._wp/sqrt(4._wp*pi))*sina
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%B%beg + 1)%sf(i, j, 0) = (5._wp/sqrt(4._wp*pi))*sina + (5._wp/sqrt(4._wp*pi))*cosa
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        end if
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! v^z and B^z remain zero by default
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    case (270)  ! 2D extrusion of 1D profile from external data
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! This hardcoded case extrudes a 1D profile to initialize a 2D simulation domain
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    if (.not. files_loaded) then
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        max_files = merge(sys_size, sys_size - 1, num_dims == 1)
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        do f = 1, max_files
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            write (file_num_str, '(I0)') f
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            filenames(f) = trim(files_dir) // "/" // "prim." // trim(file_num_str) // ".00." // trim(file_extension) // ".dat"
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        end do
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! Common file reading setup
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        open (newunit=unit2, file=trim(filenames(1)), status='old', action='read', iostat=ios2)
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        if (ios2 /= 0) call s_mpi_abort("Error opening file: " // trim(filenames(1)))
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        select case (num_dims)
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        case (1, 2)  ! 1D and 2D cases are similar
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            ! Count lines
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            line_count = 0
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            do
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                read (unit2, *, iostat=ios2) dummy_x, dummy_y
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                if (ios2 /= 0) exit
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                line_count = line_count + 1
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            end do
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            close (unit2)
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            xrows = line_count
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            yrows = 1
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            index_x = 0
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            if (num_dims == 2) index_x = i
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#ifdef MFC_DEBUG
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    block
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        use iso_fortran_env, only: output_unit
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        print *, 'm_icpp_patches.fpp:769: ', '@:ALLOCATE(x_coords(xRows), stored_values(xRows, 1, sys_size))'
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        call flush (output_unit)
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    end block
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#endif
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    allocate (x_coords(xrows), stored_values(xrows, 1, sys_size))
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#if defined(MFC_OpenACC)
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
!$acc enter data create(x_coords, stored_values) 
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#elif defined(MFC_OpenMP)
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
!$omp target enter data map(always,alloc:x_coords, stored_values) 
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#endif
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            ! Read data from all files
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            do f = 1, max_files
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                open (newunit=unit, file=trim(filenames(f)), status='old', action='read', iostat=ios)
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                if (ios /= 0) call s_mpi_abort("Error opening file: " // trim(filenames(f)))
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                do iter = 1, xrows
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    read (unit, *, iostat=ios) x_coords(iter), stored_values(iter, 1, f)
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    if (ios /= 0) call s_mpi_abort("Error reading file: " // trim(filenames(f)))
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                end do
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                close (unit)
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            end do
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            ! Calculate offsets
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            domain_xstart = x_coords(1)
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            x_step = x_cc(1) - x_cc(0)
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            delta_x = merge(x_cc(0) - domain_xstart, x_cc(index_x) - domain_xstart, num_dims == 1)
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            global_offset_x = nint(abs(delta_x)/x_step)
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        case (3)  ! 3D case - determine grid structure
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            ! Find yRows by counting rows with same x
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            read (unit2, *, iostat=ios2) x0, y0, dummy_z
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            if (ios2 /= 0) call s_mpi_abort("Error reading first line")
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            yrows = 1
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            do
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                read (unit2, *, iostat=ios2) dummy_x, dummy_y, dummy_z
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                if (ios2 /= 0) exit
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                if (f_approx_equal(dummy_x, x0) .and. (.not. f_approx_equal(dummy_y, y0))) then
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    yrows = yrows + 1
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                else
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    exit
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                end if
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            end do
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            close (unit2)
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            ! Count total rows
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            open (newunit=unit2, file=trim(filenames(1)), status='old', action='read', iostat=ios2)
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            nrows = 0
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            do
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                read (unit2, *, iostat=ios2) dummy_x, dummy_y, dummy_z
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                if (ios2 /= 0) exit
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                nrows = nrows + 1
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            end do
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            close (unit2)
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            xrows = nrows/yrows
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#ifdef MFC_DEBUG
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    block
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        use iso_fortran_env, only: output_unit
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        print *, 'm_icpp_patches.fpp:769: ', '@:ALLOCATE(x_coords(nrows), y_coords(nrows), stored_values(xRows, yRows, sys_size))'
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        call flush (output_unit)
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    end block
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#endif
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    allocate (x_coords(nrows), y_coords(nrows), stored_values(xrows, yrows, sys_size))
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#if defined(MFC_OpenACC)
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
!$acc enter data create(x_coords, y_coords, stored_values) 
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#elif defined(MFC_OpenMP)
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
!$omp target enter data map(always,alloc:x_coords, y_coords, stored_values) 
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#endif
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            index_x = i
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            index_y = j
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            ! Read all files
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            do f = 1, max_files
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                open (newunit=unit, file=trim(filenames(f)), status='old', action='read', iostat=ios)
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                if (ios /= 0) then
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    if (f == 1) call s_mpi_abort("Error opening file: " // trim(filenames(f)))
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    cycle
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                end if
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                iter = 0
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                do iix = 1, xrows
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    do iiy = 1, yrows
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                        iter = iter + 1
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                        if (f == 1) then
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                            read (unit, *, iostat=ios) x_coords(iter), y_coords(iter), stored_values(iix, iiy, f)
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                        else
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                            read (unit, *, iostat=ios) dummy_x, dummy_y, stored_values(iix, iiy, f)
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                        end if
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                        if (ios /= 0) call s_mpi_abort("Error reading data")
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    end do
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                end do
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                close (unit)
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            end do
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            ! Calculate offsets
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            x_step = x_cc(1) - x_cc(0)
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            y_step = y_cc(1) - y_cc(0)
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            delta_x = x_cc(index_x) - x_coords(1)
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            delta_y = y_cc(index_y) - y_coords(1)
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            global_offset_x = nint(abs(delta_x)/x_step)
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            global_offset_y = nint(abs(delta_y)/y_step)
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        end select
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        files_loaded = .true.
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    end if
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    ! Data assignment
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    select case (num_dims)
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    case (1)
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        idx = i + 1 + global_offset_x
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! idx must land inside the file's row range: this rank's subdomain offset
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! (global_offset_x) was derived from this rank's own grid, so a miss means the
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! IC file is misaligned/mis-sized for the run grid, not a normal boundary case.
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        if (idx < 1 .or. idx > xrows) &
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            & call s_mpi_abort("Hardcoded IC extrusion: row index out of range (IC file misaligned with the run grid)")
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        do f = 1, sys_size
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(f)%sf(i, 0, 0) = stored_values(idx, 1, f)
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        end do
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    case (2)
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        idx = i + 1 + global_offset_x - index_x
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        if (idx < 1 .or. idx > xrows) &
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            & call s_mpi_abort("Hardcoded IC extrusion: row index out of range (IC file misaligned with the run grid)")
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        do f = 1, sys_size - 1
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            jump = merge(1, 0, f >= eqn_idx%mom%end)
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(f + jump)%sf(i, j, 0) = stored_values(idx, 1, f)
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        end do
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        q_prim_vf(eqn_idx%mom%end)%sf(i, j, 0) = 0.0_wp
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    case (3)
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        idx = i + 1 + global_offset_x - index_x
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        idy = j + 1 + global_offset_y - index_y
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        if (idx < 1 .or. idx > xrows .or. idy < 1 .or. idy > yrows) &
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            & call s_mpi_abort("Hardcoded IC extrusion: row/column index out of range (IC file misaligned with the run grid)")
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        do f = 1, sys_size - 1
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            jump = merge(1, 0, f >= eqn_idx%mom%end)
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(f + jump)%sf(i, j, k) = stored_values(idx, idy, f)
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        end do
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        q_prim_vf(eqn_idx%mom%end)%sf(i, j, k) = 0.0_wp
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    end select
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    case (273)  ! Temporal reacting mixing layer: 2D extrusion + streamwise velocity
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! @:HardcodedReadValues() always zeros mom%end (the extruded-axis velocity).
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! The mom%beg file slot is repurposed to carry the streamwise-velocity-vs-
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! cross-stream-position profile (real cross-stream velocity is legitimately
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! zero everywhere in the unperturbed base state), so swap it into mom%end and
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! zero out mom%beg's true physical value.
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    if (.not. files_loaded) then
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        max_files = merge(sys_size, sys_size - 1, num_dims == 1)
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        do f = 1, max_files
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            write (file_num_str, '(I0)') f
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            filenames(f) = trim(files_dir) // "/" // "prim." // trim(file_num_str) // ".00." // trim(file_extension) // ".dat"
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        end do
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! Common file reading setup
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        open (newunit=unit2, file=trim(filenames(1)), status='old', action='read', iostat=ios2)
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        if (ios2 /= 0) call s_mpi_abort("Error opening file: " // trim(filenames(1)))
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        select case (num_dims)
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        case (1, 2)  ! 1D and 2D cases are similar
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            ! Count lines
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            line_count = 0
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            do
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                read (unit2, *, iostat=ios2) dummy_x, dummy_y
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                if (ios2 /= 0) exit
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                line_count = line_count + 1
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            end do
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            close (unit2)
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            xrows = line_count
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            yrows = 1
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            index_x = 0
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            if (num_dims == 2) index_x = i
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#ifdef MFC_DEBUG
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    block
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        use iso_fortran_env, only: output_unit
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        print *, 'm_icpp_patches.fpp:769: ', '@:ALLOCATE(x_coords(xRows), stored_values(xRows, 1, sys_size))'
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        call flush (output_unit)
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    end block
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#endif
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    allocate (x_coords(xrows), stored_values(xrows, 1, sys_size))
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#if defined(MFC_OpenACC)
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
!$acc enter data create(x_coords, stored_values) 
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#elif defined(MFC_OpenMP)
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
!$omp target enter data map(always,alloc:x_coords, stored_values) 
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#endif
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            ! Read data from all files
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            do f = 1, max_files
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                open (newunit=unit, file=trim(filenames(f)), status='old', action='read', iostat=ios)
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                if (ios /= 0) call s_mpi_abort("Error opening file: " // trim(filenames(f)))
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                do iter = 1, xrows
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    read (unit, *, iostat=ios) x_coords(iter), stored_values(iter, 1, f)
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    if (ios /= 0) call s_mpi_abort("Error reading file: " // trim(filenames(f)))
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                end do
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                close (unit)
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            end do
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            ! Calculate offsets
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            domain_xstart = x_coords(1)
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            x_step = x_cc(1) - x_cc(0)
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            delta_x = merge(x_cc(0) - domain_xstart, x_cc(index_x) - domain_xstart, num_dims == 1)
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            global_offset_x = nint(abs(delta_x)/x_step)
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        case (3)  ! 3D case - determine grid structure
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            ! Find yRows by counting rows with same x
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            read (unit2, *, iostat=ios2) x0, y0, dummy_z
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            if (ios2 /= 0) call s_mpi_abort("Error reading first line")
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            yrows = 1
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            do
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                read (unit2, *, iostat=ios2) dummy_x, dummy_y, dummy_z
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                if (ios2 /= 0) exit
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                if (f_approx_equal(dummy_x, x0) .and. (.not. f_approx_equal(dummy_y, y0))) then
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    yrows = yrows + 1
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                else
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    exit
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                end if
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            end do
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            close (unit2)
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            ! Count total rows
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            open (newunit=unit2, file=trim(filenames(1)), status='old', action='read', iostat=ios2)
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            nrows = 0
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            do
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                read (unit2, *, iostat=ios2) dummy_x, dummy_y, dummy_z
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                if (ios2 /= 0) exit
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                nrows = nrows + 1
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            end do
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            close (unit2)
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            xrows = nrows/yrows
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#ifdef MFC_DEBUG
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    block
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        use iso_fortran_env, only: output_unit
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        print *, 'm_icpp_patches.fpp:769: ', '@:ALLOCATE(x_coords(nrows), y_coords(nrows), stored_values(xRows, yRows, sys_size))'
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        call flush (output_unit)
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    end block
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#endif
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    allocate (x_coords(nrows), y_coords(nrows), stored_values(xrows, yrows, sys_size))
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#if defined(MFC_OpenACC)
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
!$acc enter data create(x_coords, y_coords, stored_values) 
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#elif defined(MFC_OpenMP)
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
!$omp target enter data map(always,alloc:x_coords, y_coords, stored_values) 
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#endif
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            index_x = i
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            index_y = j
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            ! Read all files
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            do f = 1, max_files
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                open (newunit=unit, file=trim(filenames(f)), status='old', action='read', iostat=ios)
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                if (ios /= 0) then
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    if (f == 1) call s_mpi_abort("Error opening file: " // trim(filenames(f)))
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    cycle
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                end if
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                iter = 0
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                do iix = 1, xrows
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    do iiy = 1, yrows
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                        iter = iter + 1
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                        if (f == 1) then
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                            read (unit, *, iostat=ios) x_coords(iter), y_coords(iter), stored_values(iix, iiy, f)
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                        else
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                            read (unit, *, iostat=ios) dummy_x, dummy_y, stored_values(iix, iiy, f)
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                        end if
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                        if (ios /= 0) call s_mpi_abort("Error reading data")
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    end do
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                end do
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                close (unit)
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            end do
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            ! Calculate offsets
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            x_step = x_cc(1) - x_cc(0)
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            y_step = y_cc(1) - y_cc(0)
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            delta_x = x_cc(index_x) - x_coords(1)
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            delta_y = y_cc(index_y) - y_coords(1)
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            global_offset_x = nint(abs(delta_x)/x_step)
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            global_offset_y = nint(abs(delta_y)/y_step)
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        end select
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        files_loaded = .true.
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    end if
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    ! Data assignment
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    select case (num_dims)
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    case (1)
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        idx = i + 1 + global_offset_x
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! idx must land inside the file's row range: this rank's subdomain offset
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! (global_offset_x) was derived from this rank's own grid, so a miss means the
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! IC file is misaligned/mis-sized for the run grid, not a normal boundary case.
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        if (idx < 1 .or. idx > xrows) &
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            & call s_mpi_abort("Hardcoded IC extrusion: row index out of range (IC file misaligned with the run grid)")
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        do f = 1, sys_size
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(f)%sf(i, 0, 0) = stored_values(idx, 1, f)
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        end do
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    case (2)
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        idx = i + 1 + global_offset_x - index_x
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        if (idx < 1 .or. idx > xrows) &
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            & call s_mpi_abort("Hardcoded IC extrusion: row index out of range (IC file misaligned with the run grid)")
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        do f = 1, sys_size - 1
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            jump = merge(1, 0, f >= eqn_idx%mom%end)
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(f + jump)%sf(i, j, 0) = stored_values(idx, 1, f)
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        end do
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        q_prim_vf(eqn_idx%mom%end)%sf(i, j, 0) = 0.0_wp
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    case (3)
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        idx = i + 1 + global_offset_x - index_x
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        idy = j + 1 + global_offset_y - index_y
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        if (idx < 1 .or. idx > xrows .or. idy < 1 .or. idy > yrows) &
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            & call s_mpi_abort("Hardcoded IC extrusion: row/column index out of range (IC file misaligned with the run grid)")
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        do f = 1, sys_size - 1
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            jump = merge(1, 0, f >= eqn_idx%mom%end)
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(f + jump)%sf(i, j, k) = stored_values(idx, idy, f)
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        end do
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        q_prim_vf(eqn_idx%mom%end)%sf(i, j, k) = 0.0_wp
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    end select
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        q_prim_vf(eqn_idx%mom%end)%sf(i, j, 0) = q_prim_vf(eqn_idx%mom%beg)%sf(i, j, 0)
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        q_prim_vf(eqn_idx%mom%beg)%sf(i, j, 0) = 0.0_wp
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    case (274)  ! Full 2D field from external data (no extrusion)
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! Unlike case(270-273), this reads a genuinely 2D (x,y) field per variable, with no
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! extrusion direction and no zeroed component -- all sys_size variables are read and
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! assigned directly. Data files must have exactly (m_glb+1)*(n_glb+1) lines per
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! variable, in x-major order (outer loop x, inner loop y), matching this rank's
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! global grid exactly -- by construction, since the IC generator derives both the
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! grid and the file contents from the same computation.
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        !
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! A local cell's global (x, y) index is derived from x_cc(i)/y_cc(j) against the
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! file's own first coordinate and this rank's uniform grid spacing -- following the
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! same pattern as case(270)'s global_offset_x/y above -- rather than from start_idx:
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! start_idx is only allocated when parallel_io=T (s_initialize_parallel_io_common
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! returns before allocating it otherwise), so a serial-IO run (the default for
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! golden-file tests) would index into an unallocated array.
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        !
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! Every rank still scans the whole file (matching case(270)'s existing per-rank-reads-
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! everything pattern), but stored_values274 only holds this rank's LOCAL (0:m, 0:n)
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! slice rather than the full global grid -- a full-grid copy on every rank would scale
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! as O(m_glb*n_glb*sys_size) per rank, which is the wrong axis to duplicate work on for
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! a genuinely 2D (not 1D-profile) field. local_ix_beg274/local_iy_beg274 (this rank's
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! global cell offset) are pinned from f274==1's very first record, before any other
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! record is read, so every subsequent record -- across all variables -- can be tested
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! against this rank's range and dropped if it falls outside it.
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        x_step274 = x_cc(1) - x_cc(0)
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        y_step274 = y_cc(1) - y_cc(0)
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        if (.not. files_loaded274) then
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#ifdef MFC_DEBUG
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    block
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        use iso_fortran_env, only: output_unit
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        print *, 'm_icpp_patches.fpp:769: ', '@:ALLOCATE(stored_values274(0:m, 0:n, sys_size))'
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        call flush (output_unit)
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    end block
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#endif
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    allocate (stored_values274(0:m, 0:n, sys_size))
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#if defined(MFC_OpenACC)
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
!$acc enter data create(stored_values274) 
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#elif defined(MFC_OpenMP)
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
!$omp target enter data map(always,alloc:stored_values274) 
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#endif
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            do f274 = 1, sys_size
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                write (file_num_str274, '(I0)') f274
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                fname274 = trim(files_dir) // "/prim." // trim(file_num_str274) // ".00." // trim(file_extension) // ".dat"
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                open (newunit=unit274, file=trim(fname274), status='old', action='read', iostat=ios274)
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                if (ios274 /= 0) call s_mpi_abort("Error opening file: " // trim(fname274))
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                do ix274 = 0, m_glb
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    do iy274 = 0, n_glb
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                        read (unit274, *, iostat=ios274) dummy_x274, dummy_y274, dummy_val274
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                        if (ios274 /= 0) call s_mpi_abort("Error reading file (fewer lines than grid?): " // trim(fname274))
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                        ! Capture the file's own origin and spacing from its first records so we can
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                        ! confirm it was sampled on this run's grid (a silent mismatch would otherwise
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                        ! read a wrong partial slice -> nonphysical field -> VCFL=Inf downstream).
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                        if (f274 == 1) then
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                            if (ix274 == 0 .and. iy274 == 0) then
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                                x0_274 = dummy_x274
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                                y0_274 = dummy_y274
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                                local_ix_beg274 = nint((x_cc(0) - x0_274)/x_step274)
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                                local_iy_beg274 = nint((y_cc(0) - y0_274)/y_step274)
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                            end if
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                            if (ix274 == 1 .and. iy274 == 0) file_dx274 = dummy_x274 - x0_274
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                            if (ix274 == 0 .and. iy274 == 1) file_dy274 = dummy_y274 - y0_274
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                        end if
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                        if (ix274 - local_ix_beg274 >= 0 .and. ix274 - local_ix_beg274 <= m .and. iy274 - local_iy_beg274 >= 0 &
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                            & .and. iy274 - local_iy_beg274 <= n) then
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                            stored_values274(ix274 - local_ix_beg274, iy274 - local_iy_beg274, f274) = dummy_val274
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                        end if
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    end do
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                end do
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                ! The file must contain exactly (m_glb+1)*(n_glb+1) records: a successful extra
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                ! read means it was generated for a larger grid and would be silently misread.
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                read (unit274, *, iostat=ios274) dummy_x274, dummy_y274
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                if (ios274 == 0) call s_mpi_abort("hcid=274 file has more lines than the grid: " // trim(fname274))
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                close (unit274)
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            end do
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            ! The run grid must be aligned with the file grid (uniform grid assumed, as in case 270).
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            ! Check alignment via the integer cell offset of this rank's first cell from the file
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            ! origin -- decomposition-safe: on every MPI rank x_cc(0) sits an integer number of cells
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            ! into the global file, so a non-integer offset means a shifted/mismatched IC. (Comparing
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            ! x0_274 to x_cc(0) directly would false-abort every rank whose subdomain doesn't start at
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            ! the global origin.) The spacing checks below must also hold.
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            r_align274 = (x_cc(0) - x0_274)/x_step274
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            if (abs(r_align274 - nint(r_align274)) > 1.e-6_wp) &
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                & call s_mpi_abort("hcid=274 file x-grid is misaligned with the run grid; regenerate the IC for this grid.")
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            if (m_glb >= 1) then
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                if (abs(file_dx274 - x_step274) > 1.e-6_wp*abs(x_step274)) &
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    & call s_mpi_abort("hcid=274 file x-spacing does not match the grid; regenerate the IC for this grid.")
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            end if
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            if (n_glb >= 1) then
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                r_align274 = (y_cc(0) - y0_274)/y_step274
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                if (abs(r_align274 - nint(r_align274)) > 1.e-6_wp) &
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    & call s_mpi_abort("hcid=274 file y-grid is misaligned with the run grid; regenerate the IC for this grid.")
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                if (abs(file_dy274 - y_step274) > 1.e-6_wp*abs(y_step274)) &
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    & call s_mpi_abort("hcid=274 file y-spacing does not match the grid; regenerate the IC for this grid.")
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            end if
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            files_loaded274 = .true.
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        end if
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! Alignment is verified above (or this rank would already have aborted), so the local
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! cell (i, j) maps to stored_values274(i, j, :) directly -- no re-derivation needed.
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        do f274 = 1, sys_size
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(f274)%sf(i, j, 0) = stored_values274(i, j, f274)
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        end do
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    case (271)  ! Premixed Flame Vortices Interaction
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    if (.not. files_loaded) then
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        max_files = merge(sys_size, sys_size - 1, num_dims == 1)
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        do f = 1, max_files
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            write (file_num_str, '(I0)') f
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            filenames(f) = trim(files_dir) // "/" // "prim." // trim(file_num_str) // ".00." // trim(file_extension) // ".dat"
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        end do
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! Common file reading setup
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        open (newunit=unit2, file=trim(filenames(1)), status='old', action='read', iostat=ios2)
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        if (ios2 /= 0) call s_mpi_abort("Error opening file: " // trim(filenames(1)))
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        select case (num_dims)
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        case (1, 2)  ! 1D and 2D cases are similar
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            ! Count lines
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            line_count = 0
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            do
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                read (unit2, *, iostat=ios2) dummy_x, dummy_y
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                if (ios2 /= 0) exit
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                line_count = line_count + 1
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            end do
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            close (unit2)
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            xrows = line_count
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            yrows = 1
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            index_x = 0
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            if (num_dims == 2) index_x = i
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#ifdef MFC_DEBUG
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    block
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        use iso_fortran_env, only: output_unit
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        print *, 'm_icpp_patches.fpp:769: ', '@:ALLOCATE(x_coords(xRows), stored_values(xRows, 1, sys_size))'
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        call flush (output_unit)
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    end block
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#endif
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    allocate (x_coords(xrows), stored_values(xrows, 1, sys_size))
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#if defined(MFC_OpenACC)
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
!$acc enter data create(x_coords, stored_values) 
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#elif defined(MFC_OpenMP)
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
!$omp target enter data map(always,alloc:x_coords, stored_values) 
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#endif
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            ! Read data from all files
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            do f = 1, max_files
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                open (newunit=unit, file=trim(filenames(f)), status='old', action='read', iostat=ios)
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                if (ios /= 0) call s_mpi_abort("Error opening file: " // trim(filenames(f)))
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                do iter = 1, xrows
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    read (unit, *, iostat=ios) x_coords(iter), stored_values(iter, 1, f)
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    if (ios /= 0) call s_mpi_abort("Error reading file: " // trim(filenames(f)))
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                end do
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                close (unit)
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            end do
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            ! Calculate offsets
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            domain_xstart = x_coords(1)
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            x_step = x_cc(1) - x_cc(0)
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            delta_x = merge(x_cc(0) - domain_xstart, x_cc(index_x) - domain_xstart, num_dims == 1)
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            global_offset_x = nint(abs(delta_x)/x_step)
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        case (3)  ! 3D case - determine grid structure
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            ! Find yRows by counting rows with same x
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            read (unit2, *, iostat=ios2) x0, y0, dummy_z
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            if (ios2 /= 0) call s_mpi_abort("Error reading first line")
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            yrows = 1
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            do
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                read (unit2, *, iostat=ios2) dummy_x, dummy_y, dummy_z
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                if (ios2 /= 0) exit
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                if (f_approx_equal(dummy_x, x0) .and. (.not. f_approx_equal(dummy_y, y0))) then
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    yrows = yrows + 1
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                else
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    exit
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                end if
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            end do
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            close (unit2)
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            ! Count total rows
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            open (newunit=unit2, file=trim(filenames(1)), status='old', action='read', iostat=ios2)
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            nrows = 0
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            do
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                read (unit2, *, iostat=ios2) dummy_x, dummy_y, dummy_z
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                if (ios2 /= 0) exit
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                nrows = nrows + 1
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            end do
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            close (unit2)
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            xrows = nrows/yrows
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#ifdef MFC_DEBUG
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    block
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        use iso_fortran_env, only: output_unit
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        print *, 'm_icpp_patches.fpp:769: ', '@:ALLOCATE(x_coords(nrows), y_coords(nrows), stored_values(xRows, yRows, sys_size))'
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        call flush (output_unit)
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    end block
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#endif
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    allocate (x_coords(nrows), y_coords(nrows), stored_values(xrows, yrows, sys_size))
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#if defined(MFC_OpenACC)
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
!$acc enter data create(x_coords, y_coords, stored_values) 
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#elif defined(MFC_OpenMP)
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
!$omp target enter data map(always,alloc:x_coords, y_coords, stored_values) 
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#endif
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            index_x = i
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            index_y = j
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            ! Read all files
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            do f = 1, max_files
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                open (newunit=unit, file=trim(filenames(f)), status='old', action='read', iostat=ios)
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                if (ios /= 0) then
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    if (f == 1) call s_mpi_abort("Error opening file: " // trim(filenames(f)))
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    cycle
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                end if
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                iter = 0
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                do iix = 1, xrows
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    do iiy = 1, yrows
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                        iter = iter + 1
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                        if (f == 1) then
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                            read (unit, *, iostat=ios) x_coords(iter), y_coords(iter), stored_values(iix, iiy, f)
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                        else
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                            read (unit, *, iostat=ios) dummy_x, dummy_y, stored_values(iix, iiy, f)
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                        end if
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                        if (ios /= 0) call s_mpi_abort("Error reading data")
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    end do
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                end do
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                close (unit)
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            end do
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            ! Calculate offsets
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            x_step = x_cc(1) - x_cc(0)
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            y_step = y_cc(1) - y_cc(0)
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            delta_x = x_cc(index_x) - x_coords(1)
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            delta_y = y_cc(index_y) - y_coords(1)
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            global_offset_x = nint(abs(delta_x)/x_step)
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            global_offset_y = nint(abs(delta_y)/y_step)
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        end select
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        files_loaded = .true.
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    end if
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    ! Data assignment
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    select case (num_dims)
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    case (1)
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        idx = i + 1 + global_offset_x
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! idx must land inside the file's row range: this rank's subdomain offset
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! (global_offset_x) was derived from this rank's own grid, so a miss means the
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! IC file is misaligned/mis-sized for the run grid, not a normal boundary case.
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        if (idx < 1 .or. idx > xrows) &
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            & call s_mpi_abort("Hardcoded IC extrusion: row index out of range (IC file misaligned with the run grid)")
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        do f = 1, sys_size
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(f)%sf(i, 0, 0) = stored_values(idx, 1, f)
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        end do
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    case (2)
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        idx = i + 1 + global_offset_x - index_x
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        if (idx < 1 .or. idx > xrows) &
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            & call s_mpi_abort("Hardcoded IC extrusion: row index out of range (IC file misaligned with the run grid)")
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        do f = 1, sys_size - 1
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            jump = merge(1, 0, f >= eqn_idx%mom%end)
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(f + jump)%sf(i, j, 0) = stored_values(idx, 1, f)
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        end do
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        q_prim_vf(eqn_idx%mom%end)%sf(i, j, 0) = 0.0_wp
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    case (3)
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        idx = i + 1 + global_offset_x - index_x
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        idy = j + 1 + global_offset_y - index_y
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        if (idx < 1 .or. idx > xrows .or. idy < 1 .or. idy > yrows) &
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            & call s_mpi_abort("Hardcoded IC extrusion: row/column index out of range (IC file misaligned with the run grid)")
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        do f = 1, sys_size - 1
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            jump = merge(1, 0, f >= eqn_idx%mom%end)
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(f + jump)%sf(i, j, k) = stored_values(idx, idy, f)
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        end do
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        q_prim_vf(eqn_idx%mom%end)%sf(i, j, k) = 0.0_wp
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    end select
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        x1c = 0.0027_wp
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        y1c = 0.005_wp
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        x2c = 0.0027_wp
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        y2c = 0.003_wp
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        r1c = (x_cc(i) - x1c)**(2.0_wp) + (y_cc(j) - y1c)**(2.0_wp)
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        r2c = (x_cc(i) - x2c)**(2.0_wp) + (y_cc(j) - y2c)**(2.0_wp)
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        rvortex = 0.0005_wp
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        cvortex = 6000.0_wp
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        u1c = -cvortex*((y_cc(j) - y1c))*exp(-r1c/(2.0_wp*rvortex**2.0_wp))
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        v1c = cvortex*((x_cc(i) - x1c))*exp(-r1c/(2.0_wp*rvortex**2.0_wp))
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        u2c = cvortex*((y_cc(j) - y2c))*exp(-r2c/(2.0_wp*rvortex**2.0_wp))
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        v2c = -cvortex*((x_cc(i) - x2c))*exp(-r2c/(2.0_wp*rvortex**2.0_wp))
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        q_prim_vf(eqn_idx%mom%beg)%sf(i, j, 0) = q_prim_vf(eqn_idx%mom%beg)%sf(i, j, 0) + u1c + u2c
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        q_prim_vf(eqn_idx%mom%beg + 1)%sf(i, j, 0) = v1c + v2c
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    case (272)  ! Premixed Flame Instability
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    if (.not. files_loaded) then
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        max_files = merge(sys_size, sys_size - 1, num_dims == 1)
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        do f = 1, max_files
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            write (file_num_str, '(I0)') f
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            filenames(f) = trim(files_dir) // "/" // "prim." // trim(file_num_str) // ".00." // trim(file_extension) // ".dat"
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        end do
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! Common file reading setup
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        open (newunit=unit2, file=trim(filenames(1)), status='old', action='read', iostat=ios2)
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        if (ios2 /= 0) call s_mpi_abort("Error opening file: " // trim(filenames(1)))
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        select case (num_dims)
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        case (1, 2)  ! 1D and 2D cases are similar
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            ! Count lines
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            line_count = 0
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            do
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                read (unit2, *, iostat=ios2) dummy_x, dummy_y
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                if (ios2 /= 0) exit
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                line_count = line_count + 1
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            end do
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            close (unit2)
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            xrows = line_count
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            yrows = 1
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            index_x = 0
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            if (num_dims == 2) index_x = i
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#ifdef MFC_DEBUG
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    block
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        use iso_fortran_env, only: output_unit
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        print *, 'm_icpp_patches.fpp:769: ', '@:ALLOCATE(x_coords(xRows), stored_values(xRows, 1, sys_size))'
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        call flush (output_unit)
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    end block
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#endif
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    allocate (x_coords(xrows), stored_values(xrows, 1, sys_size))
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#if defined(MFC_OpenACC)
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
!$acc enter data create(x_coords, stored_values) 
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#elif defined(MFC_OpenMP)
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
!$omp target enter data map(always,alloc:x_coords, stored_values) 
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#endif
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            ! Read data from all files
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            do f = 1, max_files
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                open (newunit=unit, file=trim(filenames(f)), status='old', action='read', iostat=ios)
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                if (ios /= 0) call s_mpi_abort("Error opening file: " // trim(filenames(f)))
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                do iter = 1, xrows
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    read (unit, *, iostat=ios) x_coords(iter), stored_values(iter, 1, f)
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    if (ios /= 0) call s_mpi_abort("Error reading file: " // trim(filenames(f)))
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                end do
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                close (unit)
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            end do
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            ! Calculate offsets
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            domain_xstart = x_coords(1)
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            x_step = x_cc(1) - x_cc(0)
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            delta_x = merge(x_cc(0) - domain_xstart, x_cc(index_x) - domain_xstart, num_dims == 1)
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            global_offset_x = nint(abs(delta_x)/x_step)
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        case (3)  ! 3D case - determine grid structure
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            ! Find yRows by counting rows with same x
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            read (unit2, *, iostat=ios2) x0, y0, dummy_z
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            if (ios2 /= 0) call s_mpi_abort("Error reading first line")
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            yrows = 1
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            do
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                read (unit2, *, iostat=ios2) dummy_x, dummy_y, dummy_z
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                if (ios2 /= 0) exit
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                if (f_approx_equal(dummy_x, x0) .and. (.not. f_approx_equal(dummy_y, y0))) then
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    yrows = yrows + 1
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                else
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    exit
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                end if
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            end do
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            close (unit2)
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            ! Count total rows
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            open (newunit=unit2, file=trim(filenames(1)), status='old', action='read', iostat=ios2)
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            nrows = 0
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            do
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                read (unit2, *, iostat=ios2) dummy_x, dummy_y, dummy_z
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                if (ios2 /= 0) exit
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                nrows = nrows + 1
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            end do
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            close (unit2)
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            xrows = nrows/yrows
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#ifdef MFC_DEBUG
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    block
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        use iso_fortran_env, only: output_unit
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        print *, 'm_icpp_patches.fpp:769: ', '@:ALLOCATE(x_coords(nrows), y_coords(nrows), stored_values(xRows, yRows, sys_size))'
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        call flush (output_unit)
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    end block
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#endif
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    allocate (x_coords(nrows), y_coords(nrows), stored_values(xrows, yrows, sys_size))
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#if defined(MFC_OpenACC)
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
!$acc enter data create(x_coords, y_coords, stored_values) 
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#elif defined(MFC_OpenMP)
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
!$omp target enter data map(always,alloc:x_coords, y_coords, stored_values) 
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#endif
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            index_x = i
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            index_y = j
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            ! Read all files
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            do f = 1, max_files
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                open (newunit=unit, file=trim(filenames(f)), status='old', action='read', iostat=ios)
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                if (ios /= 0) then
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    if (f == 1) call s_mpi_abort("Error opening file: " // trim(filenames(f)))
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    cycle
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                end if
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                iter = 0
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                do iix = 1, xrows
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    do iiy = 1, yrows
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                        iter = iter + 1
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                        if (f == 1) then
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                            read (unit, *, iostat=ios) x_coords(iter), y_coords(iter), stored_values(iix, iiy, f)
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                        else
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                            read (unit, *, iostat=ios) dummy_x, dummy_y, stored_values(iix, iiy, f)
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                        end if
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                        if (ios /= 0) call s_mpi_abort("Error reading data")
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    end do
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                end do
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                close (unit)
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            end do
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            ! Calculate offsets
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            x_step = x_cc(1) - x_cc(0)
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            y_step = y_cc(1) - y_cc(0)
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            delta_x = x_cc(index_x) - x_coords(1)
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            delta_y = y_cc(index_y) - y_coords(1)
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            global_offset_x = nint(abs(delta_x)/x_step)
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            global_offset_y = nint(abs(delta_y)/y_step)
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        end select
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        files_loaded = .true.
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    end if
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    ! Data assignment
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    select case (num_dims)
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    case (1)
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        idx = i + 1 + global_offset_x
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! idx must land inside the file's row range: this rank's subdomain offset
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! (global_offset_x) was derived from this rank's own grid, so a miss means the
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! IC file is misaligned/mis-sized for the run grid, not a normal boundary case.
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        if (idx < 1 .or. idx > xrows) &
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            & call s_mpi_abort("Hardcoded IC extrusion: row index out of range (IC file misaligned with the run grid)")
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        do f = 1, sys_size
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(f)%sf(i, 0, 0) = stored_values(idx, 1, f)
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        end do
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    case (2)
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        idx = i + 1 + global_offset_x - index_x
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        if (idx < 1 .or. idx > xrows) &
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            & call s_mpi_abort("Hardcoded IC extrusion: row index out of range (IC file misaligned with the run grid)")
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        do f = 1, sys_size - 1
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            jump = merge(1, 0, f >= eqn_idx%mom%end)
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(f + jump)%sf(i, j, 0) = stored_values(idx, 1, f)
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        end do
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        q_prim_vf(eqn_idx%mom%end)%sf(i, j, 0) = 0.0_wp
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    case (3)
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        idx = i + 1 + global_offset_x - index_x
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        idy = j + 1 + global_offset_y - index_y
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        if (idx < 1 .or. idx > xrows .or. idy < 1 .or. idy > yrows) &
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            & call s_mpi_abort("Hardcoded IC extrusion: row/column index out of range (IC file misaligned with the run grid)")
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        do f = 1, sys_size - 1
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            jump = merge(1, 0, f >= eqn_idx%mom%end)
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(f + jump)%sf(i, j, k) = stored_values(idx, idy, f)
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        end do
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        q_prim_vf(eqn_idx%mom%end)%sf(i, j, k) = 0.0_wp
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    end select
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        y_center = y0_ref
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        y_dist = y_cc(j) - y_center
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        wave_phase = 2.0_wp*pi*nwaves*(y_dist/ly_param)
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        front_shift = a_param*sin(wave_phase)
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        x_mapped = x_cc(i) - front_shift
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        if (x_mapped <= x_coords(1)) then
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            do v = 1, sys_size - 1
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                q_prim_vf(v + merge(1, 0, v >= eqn_idx%mom%end))%sf(i, j, 0) = stored_values(1, 1, v)
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            end do
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%mom%end)%sf(i, j, 0) = 0.0_wp
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        else if (x_mapped >= x_coords(xrows)) then
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            do v = 1, sys_size - 1
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                q_prim_vf(v + merge(1, 0, v >= eqn_idx%mom%end))%sf(i, j, 0) = stored_values(xrows, 1, v)
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            end do
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%mom%end)%sf(i, j, 0) = 0.0_wp
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        else
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            idx_lo = 1; idx_hi = xrows
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            do while (idx_hi - idx_lo > 1)
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                idx_mid = (idx_lo + idx_hi)/2
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                if (x_coords(idx_mid) <= x_mapped) then
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    idx_lo = idx_mid
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                else
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    idx_hi = idx_mid
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                end if
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            end do
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            interp_wt = (x_mapped - x_coords(idx_lo))/(x_coords(idx_hi) - x_coords(idx_lo))  ! weight in [0,1)
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            do v = 1, sys_size - 1
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                q_prim_vf(v + merge(1, 0, v >= eqn_idx%mom%end))%sf(i, j, 0) = (1.0_wp - interp_wt)*stored_values(idx_lo, 1, &
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                          & v) + interp_wt*stored_values(idx_hi, 1, v)
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            end do
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%mom%end)%sf(i, j, 0) = 0.0_wp
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        end if
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    case (280)  ! Isentropic vortex
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! This is patch is hard-coded for test suite optimization used in the 2D_isentropicvortex case: This analytic patch uses
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! geometry 2
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        if (patch_id == 1) then
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%E)%sf(i, j, &
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                      & 0) = 1.0*(1.0 - (1.0/1.0)*(5.0/(2.0*pi))*(5.0/(8.0*1.0*(1.4 + 1.0)*pi))*exp(2.0*1.0*(1.0 - (x_cc(i) &
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                      & - patch_icpp(1)%x_centroid)**2.0 - (y_cc(j) - patch_icpp(1)%y_centroid)**2.0)))**(1.4 + 1.0)
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%cont%beg + 0)%sf(i, j, &
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                      & 0) = 1.0*(1.0 - (1.0/1.0)*(5.0/(2.0*pi))*(5.0/(8.0*1.0*(1.4 + 1.0)*pi))*exp(2.0*1.0*(1.0 - (x_cc(i) &
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                      & - patch_icpp(1)%x_centroid)**2.0 - (y_cc(j) - patch_icpp(1)%y_centroid)**2.0)))**1.4
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%mom%beg + 0)%sf(i, j, &
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                      & 0) = patch_icpp(1)%vel(1) + (y_cc(j) - patch_icpp(1)%y_centroid)*(5.0/(2.0*pi))*exp(1.0*(1.0 - (x_cc(i) &
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                      & - patch_icpp(1)%x_centroid)**2.0 - (y_cc(j) - patch_icpp(1)%y_centroid)**2.0))
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%mom%beg + 1)%sf(i, j, &
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                      & 0) = patch_icpp(1)%vel(2) - (x_cc(i) - patch_icpp(1)%x_centroid)*(5.0/(2.0*pi))*exp(1.0*(1.0 - (x_cc(i) &
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                      & - patch_icpp(1)%x_centroid)**2.0 - (y_cc(j) - patch_icpp(1)%y_centroid)**2.0))
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        end if
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    case (281)  ! Acoustic pulse
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! This is patch is hard-coded for test suite optimization used in the 2D_acoustic_pulse case: This analytic patch uses
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! geometry 2
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        if (patch_id == 2) then
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%E)%sf(i, j, &
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                      & 0) = 101325*(1 - 0.5*(1.4 - 1)*(0.4)**2*exp(0.5*(1 - sqrt(x_cc(i)**2 + y_cc(j)**2))))**(1.4/(1.4 - 1))
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%cont%beg + 0)%sf(i, j, &
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                      & 0) = 1*(1 - 0.5*(1.4 - 1)*(0.4)**2*exp(0.5*(1 - sqrt(x_cc(i)**2 + y_cc(j)**2))))**(1/(1.4 - 1))
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        end if
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    case (282)  ! Zero-circulation vortex
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! This is patch is hard-coded for test suite optimization used in the 2D_zero_circ_vortex case: This analytic patch uses
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! geometry 2
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        if (patch_id == 2) then
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%E)%sf(i, j, &
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                      & 0) = 101325*(1 - 0.5*(1.4 - 1)*(0.1/0.3)**2*exp(0.5*(1 - sqrt(x_cc(i)**2 + y_cc(j)**2))))**(1.4/(1.4 - 1))
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%cont%beg + 0)%sf(i, j, &
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                      & 0) = 1*(1 - 0.5*(1.4 - 1)*(0.1/0.3)**2*exp(0.5*(1 - sqrt(x_cc(i)**2 + y_cc(j)**2))))**(1/(1.4 - 1))
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%mom%beg + 0)%sf(i, j, &
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                      & 0) = 112.99092883944267*(1 - (0.1/0.3))*y_cc(j)*exp(0.5*(1 - sqrt(x_cc(i)**2 + y_cc(j)**2)))
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%mom%beg + 1)%sf(i, j, &
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                      & 0) = 112.99092883944267*((0.1/0.3))*x_cc(i)*exp(0.5*(1 - sqrt(x_cc(i)**2 + y_cc(j)**2)))
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        end if
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    case (283)  ! Isentropic vortex: conserved-variable GL cell averages (3-pt tensor product)
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! GL averages of conserved variables (rho, rho*u, rho*v, E) eliminate the O(h^2) error that primitive-variable averaging
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! introduces through the nonlinear prim->cons conversion: cell_avg(rho*u) != cell_avg(rho)*cell_avg(u) by O(h^2). We back
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! out primitive values that reproduce the conserved averages exactly. Vortex strength eps is read from
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! patch_icpp(patch_id)%epsilon; defaults to 5.
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        if (patch_id == 1) then
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            vortex_eps = merge(patch_icpp(patch_id)%epsilon, 5._wp, patch_icpp(patch_id)%epsilon > 0._wp)
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            gauss_xi = [-sqrt(3._wp/5._wp), 0._wp, sqrt(3._wp/5._wp)]
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            gauss_w = [5._wp/9._wp, 8._wp/9._wp, 5._wp/9._wp]
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            rho_avg = 0._wp; rhou_avg = 0._wp; rhov_avg = 0._wp; e_avg = 0._wp
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            do igq = 1, 3
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                do jgq = 1, 3
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    xq = x_cc(i) + gauss_xi(igq)*(x_cb(i) - x_cb(i - 1))*0.5_wp
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    yq = y_cc(j) + gauss_xi(jgq)*(y_cb(j) - y_cb(j - 1))*0.5_wp
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    r2q = (xq - patch_icpp(patch_id)%x_centroid)**2._wp + (yq - patch_icpp(patch_id)%y_centroid)**2._wp
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    t_facq = 1._wp - (vortex_eps/(2._wp*pi))*(vortex_eps/(8._wp*(1.4_wp + 1._wp)*pi))*exp(2._wp*(1._wp - r2q))
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    wq = gauss_w(igq)*gauss_w(jgq)
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    rhoq = t_facq**1.4_wp
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    pq = t_facq**2.4_wp
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    uq = patch_icpp(patch_id)%vel(1) + (yq - patch_icpp(patch_id)%y_centroid)*(vortex_eps/(2._wp*pi))*exp(1._wp &
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                                    & - r2q)
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    vq = patch_icpp(patch_id)%vel(2) - (xq - patch_icpp(patch_id)%x_centroid)*(vortex_eps/(2._wp*pi))*exp(1._wp &
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                                    & - r2q)
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    eq = pq/0.4_wp + 0.5_wp*rhoq*(uq**2 + vq**2)
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    rho_avg = rho_avg + wq*rhoq
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    rhou_avg = rhou_avg + wq*(rhoq*uq)
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    rhov_avg = rhov_avg + wq*(rhoq*vq)
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    e_avg = e_avg + wq*eq
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                end do
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            end do
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            rho_avg = rho_avg*0.25_wp
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            rhou_avg = rhou_avg*0.25_wp
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            rhov_avg = rhov_avg*0.25_wp
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            e_avg = e_avg*0.25_wp
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            ! Back out primitive vars so prim->cons conversion recovers the conserved averages
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%cont%beg)%sf(i, j, 0) = rho_avg
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%mom%beg + 0)%sf(i, j, 0) = rhou_avg/rho_avg
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%mom%beg + 1)%sf(i, j, 0) = rhov_avg/rho_avg
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%E)%sf(i, j, 0) = (e_avg - 0.5_wp*(rhou_avg**2 + rhov_avg**2)/rho_avg)*0.4_wp
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        end if
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    case (291)  ! Isothermal Flat Plate
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        t_inf = 1125.0_wp
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        t_wall = 600.0_wp
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        p_atm = 101325.0_wp
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! Boundary/Shear Layer thicknesses
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        delta_th = 0.0003_wp  ! Thermal BL thickness
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        delta_shear = 8e-3_wp  ! Velocity BL thickness
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        u_max = 50.0_wp  ! Freestream Velocity (m/s)
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        mw_n2 = 28.0134e-3_wp
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        mw_o2 = 31.999e-3_wp
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        y_n2 = 0.767_wp
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        y_o2 = 0.233_wp
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        r_mix = 8.314462618_wp*((y_n2/mw_n2) + (y_o2/mw_o2))
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        bottom_blend_u = tanh(y_cc(j)/delta_shear)
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        bottom_blend_t = tanh(y_cc(j)/delta_th)
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        u_mean = u_max*bottom_blend_u
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        t_loc = t_wall + (t_inf - t_wall)*bottom_blend_t
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        q_prim_vf(eqn_idx%cont%beg)%sf(i, j, 0) = p_atm/(r_mix*t_loc)
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        q_prim_vf(eqn_idx%mom%beg)%sf(i, j, 0) = u_mean
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        q_prim_vf(eqn_idx%mom%end)%sf(i, j, 0) = 0.0_wp
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        q_prim_vf(eqn_idx%E)%sf(i, j, 0) = p_atm
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        q_prim_vf(eqn_idx%species%beg)%sf(i, j, 0) = y_o2
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        q_prim_vf(eqn_idx%species%end)%sf(i, j, 0) = y_n2
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    case default
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        if (proc_rank == 0) then
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            call s_int_to_str(patch_id, istr)
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            call s_mpi_abort("Invalid hcid specified for patch " // trim(istr))
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        end if
# 769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    end select
                    end if
 
                    ! Updating the patch identities bookkeeping variable
                    if (1._wp - eta < sgm_eps) patch_id_fp(i, j, 0) = patch_id
 
                    ! Assign Parameters
                    q_prim_vf(eqn_idx%mom%beg)%sf(i, j, 0) = u0*sin(x_cc(i)/l0)*cos(y_cc(j)/l0)
                    q_prim_vf(eqn_idx%mom%end)%sf(i, j, 0) = -u0*cos(x_cc(i)/l0)*sin(y_cc(j)/l0)
                    q_prim_vf(eqn_idx%E)%sf(i, j, &
                              & 0) = patch_icpp(patch_id)%pres + (cos(2*x_cc(i))/l0 + cos(2*y_cc(j))/l0)*(q_prim_vf(1)%sf(i, j, &
                              & 0)*u0*u0)/16
                end if
            end do
        end do
    if (allocated(stored_values)) then
# 784 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#ifdef MFC_DEBUG
# 784 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    block
# 784 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        use iso_fortran_env, only: output_unit
# 784 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 784 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        print *, 'm_icpp_patches.fpp:784: ', '@:DEALLOCATE(stored_values)'
# 784 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 784 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        call flush (output_unit)
# 784 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    end block
# 784 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#endif
# 784 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 784 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#if defined(MFC_OpenACC)
# 784 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
!$acc exit data delete(stored_values) 
# 784 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#elif defined(MFC_OpenMP)
# 784 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
!$omp target exit data map(release:stored_values) 
# 784 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#endif
# 784 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    deallocate (stored_values)
# 784 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#ifdef MFC_DEBUG
# 784 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    block
# 784 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        use iso_fortran_env, only: output_unit
# 784 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 784 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        print *, 'm_icpp_patches.fpp:784: ', '@:DEALLOCATE(x_coords)'
# 784 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 784 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        call flush (output_unit)
# 784 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    end block
# 784 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#endif
# 784 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 784 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#if defined(MFC_OpenACC)
# 784 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
!$acc exit data delete(x_coords) 
# 784 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#elif defined(MFC_OpenMP)
# 784 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
!$omp target exit data map(release:x_coords) 
# 784 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#endif
# 784 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    deallocate (x_coords)
# 784 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    end if
# 784 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 784 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    if (allocated(y_coords)) then
# 784 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#ifdef MFC_DEBUG
# 784 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    block
# 784 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        use iso_fortran_env, only: output_unit
# 784 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 784 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        print *, 'm_icpp_patches.fpp:784: ', '@:DEALLOCATE(y_coords)'
# 784 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 784 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        call flush (output_unit)
# 784 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    end block
# 784 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#endif
# 784 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 784 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#if defined(MFC_OpenACC)
# 784 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
!$acc exit data delete(y_coords) 
# 784 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#elif defined(MFC_OpenMP)
# 784 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
!$omp target exit data map(release:y_coords) 
# 784 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#endif
# 784 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    deallocate (y_coords)
# 784 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    end if
# 784 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 784 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    files_loaded = .false.
# 784 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 784 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    if (allocated(stored_values274)) then
# 784 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#ifdef MFC_DEBUG
# 784 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    block
# 784 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        use iso_fortran_env, only: output_unit
# 784 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 784 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        print *, 'm_icpp_patches.fpp:784: ', '@:DEALLOCATE(stored_values274)'
# 784 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 784 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        call flush (output_unit)
# 784 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    end block
# 784 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#endif
# 784 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 784 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#if defined(MFC_OpenACC)
# 784 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
!$acc exit data delete(stored_values274) 
# 784 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#elif defined(MFC_OpenMP)
# 784 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
!$omp target exit data map(release:stored_values274) 
# 784 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#endif
# 784 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    deallocate (stored_values274)
# 784 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    end if
# 784 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 784 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    files_loaded274 = .false.
 
    end subroutine s_icpp_2d_taylorgreen_vortex
 
    !> Initialize a 1D bubble-pulse patch with analytical primitive variable profiles.
    subroutine s_icpp_1d_bubble_pulse(patch_id, patch_id_fp, q_prim_vf)
 
        ! Description: This patch assigns the primitive variables as analytical functions such that the code can be verified.
 
        ! Patch identifier
        integer, intent(in) :: patch_id
 
#ifdef MFC_MIXED_PRECISION
        integer(kind=1), dimension(0:m,0:n,0:p), intent(inout) :: patch_id_fp
#else
        integer, dimension(0:m,0:n,0:p), intent(inout) :: patch_id_fp
#endif
        type(scalar_field), dimension(1:sys_size), intent(inout) :: q_prim_vf
 
        ! Generic loop iterators
        integer :: i, j, k
        ! Placeholders for the cell boundary values
        real(wp) :: pi_inf, gamma, lit_gamma
 
    integer                                 :: xRows, yRows, nRows, iix, iiy, max_files
# 808 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    integer                                 :: f, iter, unit, unit2, idx, idy, index_x, index_y, jump, line_count
# 808 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    real(wp)                                :: x_step, y_step
# 808 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    real(wp)                                :: dummy_x, dummy_y, dummy_z, x0, y0
# 808 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    integer                                 :: global_offset_x, global_offset_y  !< MPI subdomain offset
# 808 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    real(wp)                                :: delta_x, delta_y
# 808 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    character(len=300), dimension(sys_size) :: fileNames                         !< Arrays to store all data from files
# 808 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    real(wp), allocatable                   :: stored_values(:,:,:)
# 808 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    real(wp), allocatable                   :: x_coords(:), y_coords(:)
# 808 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    logical                                 :: files_loaded = .false.
# 808 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    real(wp)                                :: domain_xstart
# 808 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    character(len=20)                       :: file_num_str                      !< For storing the file number as a string
# 808 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    integer                                 :: ios
# 808 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    integer                                 :: ios2
# 808 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 808 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    ! hcid=274 (2dHardcodedIC.fpp): full 2D field from external data, no extrusion.
# 808 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    ! Declared here (not in Hardcoded2DVariables()) so it's visible wherever
# 808 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    ! HardcodedDeallocation() is called, matching the pattern of stored_values/x_coords/
# 808 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    ! y_coords/files_loaded above.
# 808 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    real(wp), allocatable, dimension(:,:,:) :: stored_values274
# 808 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    logical                                 :: files_loaded274 = .false.
# 808 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    integer                                 :: f274, ix274, iy274, unit274, ios274
# 808 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    integer                                 :: local_ix_beg274, local_iy_beg274
# 808 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    character(len=300)                      :: fname274
# 808 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    character(len=20)                       :: file_num_str274
# 808 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    real(wp)                                :: dummy_x274, dummy_y274, dummy_val274, x0_274, y0_274, x_step274, y_step274
# 808 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    real(wp)                                :: file_dx274, file_dy274, r_align274
    ! Place any declaration of intermediate variables here
# 809 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    real(wp) :: x_mid_diffu, width_sq, profile_shape, temp, molar_mass_inv, y1, y2, y3, y4
 
        pi_inf = pi_infs(1)
        gamma = gammas(1)
        lit_gamma = gs_min(1)
 
        ! Transferring the patch's centroid and length information
        x_centroid = patch_icpp(patch_id)%x_centroid
        length_x = patch_icpp(patch_id)%length_x
 
        ! Computing the beginning and the end x- and y-coordinates of the patch based on its centroid and lengths
        x_boundary%beg = x_centroid - 0.5_wp*length_x
        x_boundary%end = x_centroid + 0.5_wp*length_x
 
        ! Set eta=1 (no smoothing for this patch type)
        eta = 1._wp
 
        ! Assign patch vars if cell is covered and patch has write permission
        do i = 0, m
            if (x_boundary%beg <= x_cc(i) .and. x_boundary%end >= x_cc(i) .and. patch_icpp(patch_id)%alter_patch(patch_id_fp(i, &
                & 0, 0))) then
                call s_assign_patch_primitive_variables(patch_id, i, 0, 0, eta, q_prim_vf, patch_id_fp)
 
 
                if (patch_icpp(patch_id)%hcid /= dflt_int) then
    select case (patch_icpp(patch_id)%hcid)
# 834 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    case (150)  ! 1D Smooth Alfven Case for MHD
# 834 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! velocity
# 834 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        q_prim_vf(eqn_idx%mom%beg + 1)%sf(i, 0, 0) = 0.1_wp*sin(2._wp*pi*x_cc(i))
# 834 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        q_prim_vf(eqn_idx%mom%beg + 2)%sf(i, 0, 0) = 0.1_wp*cos(2._wp*pi*x_cc(i))
# 834 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 834 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! magnetic field
# 834 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        q_prim_vf(eqn_idx%B%end - 1)%sf(i, 0, 0) = 0.1_wp*sin(2._wp*pi*x_cc(i))
# 834 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        q_prim_vf(eqn_idx%B%end)%sf(i, 0, 0) = 0.1_wp*cos(2._wp*pi*x_cc(i))
# 834 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    case (170)  ! 1D profile from external data (e.g. Cantera, SDtoolbox)
# 834 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! This hardcoded case can be used to start a simulation with initial conditions given from a known 1D profile (e.g. Cantera,
# 834 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! SDtoolbox)
# 834 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    if (.not. files_loaded) then
# 834 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        max_files = merge(sys_size, sys_size - 1, num_dims == 1)
# 834 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        do f = 1, max_files
# 834 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            write (file_num_str, '(I0)') f
# 834 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            filenames(f) = trim(files_dir) // "/" // "prim." // trim(file_num_str) // ".00." // trim(file_extension) // ".dat"
# 834 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        end do
# 834 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 834 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! Common file reading setup
# 834 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        open (newunit=unit2, file=trim(filenames(1)), status='old', action='read', iostat=ios2)
# 834 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        if (ios2 /= 0) call s_mpi_abort("Error opening file: " // trim(filenames(1)))
# 834 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 834 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        select case (num_dims)
# 834 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        case (1, 2)  ! 1D and 2D cases are similar
# 834 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            ! Count lines
# 834 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            line_count = 0
# 834 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            do
# 834 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                read (unit2, *, iostat=ios2) dummy_x, dummy_y
# 834 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                if (ios2 /= 0) exit
# 834 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                line_count = line_count + 1
# 834 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            end do
# 834 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            close (unit2)
# 834 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 834 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            xrows = line_count
# 834 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            yrows = 1
# 834 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            index_x = 0
# 834 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            if (num_dims == 2) index_x = i
# 834 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#ifdef MFC_DEBUG
# 834 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    block
# 834 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        use iso_fortran_env, only: output_unit
# 834 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 834 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        print *, 'm_icpp_patches.fpp:834: ', '@:ALLOCATE(x_coords(xRows), stored_values(xRows, 1, sys_size))'
# 834 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 834 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        call flush (output_unit)
# 834 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    end block
# 834 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#endif
# 834 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    allocate (x_coords(xrows), stored_values(xrows, 1, sys_size))
# 834 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 834 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 834 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 834 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#if defined(MFC_OpenACC)
# 834 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
!$acc enter data create(x_coords, stored_values) 
# 834 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#elif defined(MFC_OpenMP)
# 834 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
!$omp target enter data map(always,alloc:x_coords, stored_values) 
# 834 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#endif
# 834 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 834 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            ! Read data from all files
# 834 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            do f = 1, max_files
# 834 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                open (newunit=unit, file=trim(filenames(f)), status='old', action='read', iostat=ios)
# 834 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                if (ios /= 0) call s_mpi_abort("Error opening file: " // trim(filenames(f)))
# 834 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 834 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                do iter = 1, xrows
# 834 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    read (unit, *, iostat=ios) x_coords(iter), stored_values(iter, 1, f)
# 834 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    if (ios /= 0) call s_mpi_abort("Error reading file: " // trim(filenames(f)))
# 834 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                end do
# 834 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                close (unit)
# 834 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            end do
# 834 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 834 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            ! Calculate offsets
# 834 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            domain_xstart = x_coords(1)
# 834 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            x_step = x_cc(1) - x_cc(0)
# 834 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            delta_x = merge(x_cc(0) - domain_xstart, x_cc(index_x) - domain_xstart, num_dims == 1)
# 834 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            global_offset_x = nint(abs(delta_x)/x_step)
# 834 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        case (3)  ! 3D case - determine grid structure
# 834 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            ! Find yRows by counting rows with same x
# 834 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            read (unit2, *, iostat=ios2) x0, y0, dummy_z
# 834 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            if (ios2 /= 0) call s_mpi_abort("Error reading first line")
# 834 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 834 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            yrows = 1
# 834 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            do
# 834 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                read (unit2, *, iostat=ios2) dummy_x, dummy_y, dummy_z
# 834 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                if (ios2 /= 0) exit
# 834 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                if (f_approx_equal(dummy_x, x0) .and. (.not. f_approx_equal(dummy_y, y0))) then
# 834 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    yrows = yrows + 1
# 834 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                else
# 834 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    exit
# 834 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                end if
# 834 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            end do
# 834 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            close (unit2)
# 834 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 834 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            ! Count total rows
# 834 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            open (newunit=unit2, file=trim(filenames(1)), status='old', action='read', iostat=ios2)
# 834 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            nrows = 0
# 834 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            do
# 834 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                read (unit2, *, iostat=ios2) dummy_x, dummy_y, dummy_z
# 834 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                if (ios2 /= 0) exit
# 834 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                nrows = nrows + 1
# 834 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            end do
# 834 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            close (unit2)
# 834 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 834 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            xrows = nrows/yrows
# 834 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#ifdef MFC_DEBUG
# 834 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    block
# 834 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        use iso_fortran_env, only: output_unit
# 834 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 834 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        print *, 'm_icpp_patches.fpp:834: ', '@:ALLOCATE(x_coords(nrows), y_coords(nrows), stored_values(xRows, yRows, sys_size))'
# 834 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 834 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        call flush (output_unit)
# 834 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    end block
# 834 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#endif
# 834 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    allocate (x_coords(nrows), y_coords(nrows), stored_values(xrows, yrows, sys_size))
# 834 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 834 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 834 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 834 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 834 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#if defined(MFC_OpenACC)
# 834 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
!$acc enter data create(x_coords, y_coords, stored_values) 
# 834 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#elif defined(MFC_OpenMP)
# 834 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
!$omp target enter data map(always,alloc:x_coords, y_coords, stored_values) 
# 834 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#endif
# 834 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            index_x = i
# 834 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            index_y = j
# 834 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 834 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            ! Read all files
# 834 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            do f = 1, max_files
# 834 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                open (newunit=unit, file=trim(filenames(f)), status='old', action='read', iostat=ios)
# 834 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                if (ios /= 0) then
# 834 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    if (f == 1) call s_mpi_abort("Error opening file: " // trim(filenames(f)))
# 834 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    cycle
# 834 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                end if
# 834 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 834 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                iter = 0
# 834 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                do iix = 1, xrows
# 834 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    do iiy = 1, yrows
# 834 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                        iter = iter + 1
# 834 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                        if (f == 1) then
# 834 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                            read (unit, *, iostat=ios) x_coords(iter), y_coords(iter), stored_values(iix, iiy, f)
# 834 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                        else
# 834 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                            read (unit, *, iostat=ios) dummy_x, dummy_y, stored_values(iix, iiy, f)
# 834 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                        end if
# 834 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                        if (ios /= 0) call s_mpi_abort("Error reading data")
# 834 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    end do
# 834 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                end do
# 834 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                close (unit)
# 834 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            end do
# 834 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 834 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            ! Calculate offsets
# 834 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            x_step = x_cc(1) - x_cc(0)
# 834 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            y_step = y_cc(1) - y_cc(0)
# 834 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            delta_x = x_cc(index_x) - x_coords(1)
# 834 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            delta_y = y_cc(index_y) - y_coords(1)
# 834 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            global_offset_x = nint(abs(delta_x)/x_step)
# 834 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            global_offset_y = nint(abs(delta_y)/y_step)
# 834 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        end select
# 834 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 834 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        files_loaded = .true.
# 834 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    end if
# 834 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 834 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    ! Data assignment
# 834 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    select case (num_dims)
# 834 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    case (1)
# 834 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        idx = i + 1 + global_offset_x
# 834 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! idx must land inside the file's row range: this rank's subdomain offset
# 834 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! (global_offset_x) was derived from this rank's own grid, so a miss means the
# 834 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! IC file is misaligned/mis-sized for the run grid, not a normal boundary case.
# 834 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        if (idx < 1 .or. idx > xrows) &
# 834 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            & call s_mpi_abort("Hardcoded IC extrusion: row index out of range (IC file misaligned with the run grid)")
# 834 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        do f = 1, sys_size
# 834 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(f)%sf(i, 0, 0) = stored_values(idx, 1, f)
# 834 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        end do
# 834 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    case (2)
# 834 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        idx = i + 1 + global_offset_x - index_x
# 834 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        if (idx < 1 .or. idx > xrows) &
# 834 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            & call s_mpi_abort("Hardcoded IC extrusion: row index out of range (IC file misaligned with the run grid)")
# 834 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        do f = 1, sys_size - 1
# 834 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            jump = merge(1, 0, f >= eqn_idx%mom%end)
# 834 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(f + jump)%sf(i, j, 0) = stored_values(idx, 1, f)
# 834 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        end do
# 834 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        q_prim_vf(eqn_idx%mom%end)%sf(i, j, 0) = 0.0_wp
# 834 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    case (3)
# 834 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        idx = i + 1 + global_offset_x - index_x
# 834 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        idy = j + 1 + global_offset_y - index_y
# 834 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        if (idx < 1 .or. idx > xrows .or. idy < 1 .or. idy > yrows) &
# 834 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            & call s_mpi_abort("Hardcoded IC extrusion: row/column index out of range (IC file misaligned with the run grid)")
# 834 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        do f = 1, sys_size - 1
# 834 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            jump = merge(1, 0, f >= eqn_idx%mom%end)
# 834 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(f + jump)%sf(i, j, k) = stored_values(idx, idy, f)
# 834 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        end do
# 834 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        q_prim_vf(eqn_idx%mom%end)%sf(i, j, k) = 0.0_wp
# 834 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    end select
# 834 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    case (180)  ! Shu-Osher problem
# 834 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! This is patch is hard-coded for test suite optimization used in the 1D_shuoser cases: "patch_icpp(2)%alpha_rho(1)": "1 +
# 834 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! 0.2*sin(5*x)"
# 834 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        if (patch_id == 2) then
# 834 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%cont%beg + 0)%sf(i, 0, 0) = 1 + 0.2*sin(5*x_cc(i))
# 834 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        end if
# 834 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    case (181)  ! Titarev-Torro problem
# 834 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! This is patch is hard-coded for test suite optimization used in the 1D_titarevtorro cases: "patch_icpp(2)%alpha_rho(1)":
# 834 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! "1 + 0.1*sin(20*x*pi)"
# 834 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        q_prim_vf(eqn_idx%cont%beg + 0)%sf(i, 0, 0) = 1 + 0.1*sin(20*x_cc(i)*pi)
# 834 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    case (182)  ! Multi-component diffusion
# 834 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! This patch is a hard-coded for test suite optimization (multiple component diffusion)
# 834 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        x_mid_diffu = 0.05_wp/2.0_wp
# 834 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        width_sq = (2.5_wp*10.0_wp**(-3.0_wp))**2
# 834 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        profile_shape = 1.0_wp - 0.5_wp*exp(-(x_cc(i) - x_mid_diffu)**2/width_sq)
# 834 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        q_prim_vf(eqn_idx%mom%beg)%sf(i, 0, 0) = 0.0_wp
# 834 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        q_prim_vf(eqn_idx%E)%sf(i, 0, 0) = 1.01325_wp*(10.0_wp)**5
# 834 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        q_prim_vf(eqn_idx%adv%beg)%sf(i, 0, 0) = 1.0_wp
# 834 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 834 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        y1 = (0.195_wp - 0.142_wp)*profile_shape + 0.142_wp
# 834 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        y2 = (0.0_wp - 0.1_wp)*profile_shape + 0.1_wp
# 834 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        y3 = (0.214_wp - 0.0_wp)*profile_shape + 0.0_wp
# 834 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        y4 = (0.591_wp - 0.758_wp)*profile_shape + 0.758_wp
# 834 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 834 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        q_prim_vf(eqn_idx%species%beg)%sf(i, 0, 0) = y1
# 834 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        q_prim_vf(eqn_idx%species%beg + 1)%sf(i, 0, 0) = y2
# 834 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        q_prim_vf(eqn_idx%species%beg + 2)%sf(i, 0, 0) = y3
# 834 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        q_prim_vf(eqn_idx%species%beg + 3)%sf(i, 0, 0) = y4
# 834 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 834 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        temp = (320.0_wp - 1350.0_wp)*profile_shape + 1350.0_wp
# 834 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 834 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        molar_mass_inv = y1/31.998_wp + y2/18.01508_wp + y3/16.04256_wp + y4/28.0134_wp
# 834 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 834 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        q_prim_vf(eqn_idx%cont%beg)%sf(i, 0, 0) = 1.01325_wp*(10.0_wp)**5/(temp*8.3144626_wp*1000.0_wp*molar_mass_inv)
# 834 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    case(191)  ! 1D Dual Isothermal case
# 834 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        q_prim_vf(eqn_idx%E)%sf(i, 0, 0) = 101325.0_wp
# 834 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        q_prim_vf(eqn_idx%mom%beg)%sf(i, 0, 0) = 0.0_wp
# 834 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        q_prim_vf(eqn_idx%species%beg)%sf(i, 0, 0) = 1.0_wp
# 834 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 834 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        if (x_cc(i) <= 0.025_wp) then
# 834 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            temp = 700.0_wp + ((1000.0_wp - 700.0_wp)/0.025_wp)*x_cc(i)
# 834 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        else
# 834 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            temp = 1200.0_wp + ((900.0_wp - 1000.0_wp)/0.025_wp)*(x_cc(i) - 0.025_wp)
# 834 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        end if
# 834 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 834 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        molar_mass_inv = 1.0_wp/2.01588_wp
# 834 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        q_prim_vf(eqn_idx%cont%beg)%sf(i, 0, 0) = 101325.0_wp/(temp*8.3144626_wp*1000.0_wp*molar_mass_inv)
# 834 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    case default
# 834 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        call s_int_to_str(patch_id, istr)
# 834 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        call s_mpi_abort("Invalid hcid specified for patch " // trim(istr))
# 834 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    end select
                end if
            end if
        end do
    if (allocated(stored_values)) then
# 838 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#ifdef MFC_DEBUG
# 838 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    block
# 838 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        use iso_fortran_env, only: output_unit
# 838 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 838 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        print *, 'm_icpp_patches.fpp:838: ', '@:DEALLOCATE(stored_values)'
# 838 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 838 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        call flush (output_unit)
# 838 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    end block
# 838 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#endif
# 838 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 838 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#if defined(MFC_OpenACC)
# 838 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
!$acc exit data delete(stored_values) 
# 838 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#elif defined(MFC_OpenMP)
# 838 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
!$omp target exit data map(release:stored_values) 
# 838 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#endif
# 838 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    deallocate (stored_values)
# 838 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#ifdef MFC_DEBUG
# 838 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    block
# 838 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        use iso_fortran_env, only: output_unit
# 838 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 838 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        print *, 'm_icpp_patches.fpp:838: ', '@:DEALLOCATE(x_coords)'
# 838 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 838 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        call flush (output_unit)
# 838 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    end block
# 838 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#endif
# 838 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 838 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#if defined(MFC_OpenACC)
# 838 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
!$acc exit data delete(x_coords) 
# 838 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#elif defined(MFC_OpenMP)
# 838 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
!$omp target exit data map(release:x_coords) 
# 838 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#endif
# 838 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    deallocate (x_coords)
# 838 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    end if
# 838 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 838 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    if (allocated(y_coords)) then
# 838 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#ifdef MFC_DEBUG
# 838 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    block
# 838 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        use iso_fortran_env, only: output_unit
# 838 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 838 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        print *, 'm_icpp_patches.fpp:838: ', '@:DEALLOCATE(y_coords)'
# 838 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 838 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        call flush (output_unit)
# 838 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    end block
# 838 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#endif
# 838 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 838 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#if defined(MFC_OpenACC)
# 838 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
!$acc exit data delete(y_coords) 
# 838 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#elif defined(MFC_OpenMP)
# 838 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
!$omp target exit data map(release:y_coords) 
# 838 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#endif
# 838 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    deallocate (y_coords)
# 838 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    end if
# 838 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 838 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    files_loaded = .false.
# 838 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 838 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    if (allocated(stored_values274)) then
# 838 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#ifdef MFC_DEBUG
# 838 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    block
# 838 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        use iso_fortran_env, only: output_unit
# 838 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 838 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        print *, 'm_icpp_patches.fpp:838: ', '@:DEALLOCATE(stored_values274)'
# 838 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 838 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        call flush (output_unit)
# 838 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    end block
# 838 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#endif
# 838 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 838 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#if defined(MFC_OpenACC)
# 838 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
!$acc exit data delete(stored_values274) 
# 838 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#elif defined(MFC_OpenMP)
# 838 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
!$omp target exit data map(release:stored_values274) 
# 838 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#endif
# 838 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    deallocate (stored_values274)
# 838 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    end if
# 838 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 838 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    files_loaded274 = .false.
 
    end subroutine s_icpp_1d_bubble_pulse
 
    !> 2D modal (Fourier) patch. theta = atan2(y - y_centroid, x - x_centroid). Additive (modal_use_exp_form false): R = radius +
    !! sum_n [fourier_cos*cos(n*theta)+fourier_sin*sin(n*theta)]; coefficients are absolute (same units as radius). R is clipped to
    !! max(R,0). If modal_clip_r_to_min, R = max(R, modal_r_min). Exponential (modal_use_exp_form true): R = radius*exp(sum);
    !! coefficients are relative (dimensionless).
    subroutine s_icpp_2d_modal(patch_id, patch_id_fp, q_prim_vf)
 
        integer, intent(in) :: patch_id
 
#ifdef MFC_MIXED_PRECISION
        integer(kind=1), dimension(0:m,0:n,0:p), intent(inout) :: patch_id_fp
#else
        integer, dimension(0:m,0:n,0:p), intent(inout) :: patch_id_fp
#endif
        type(scalar_field), dimension(1:sys_size), intent(inout) :: q_prim_vf
        real(wp)                                                 :: r, theta, R_boundary, sum_series
        integer                                                  :: i, j, nn
 
        x_centroid = patch_icpp(patch_id)%x_centroid
        y_centroid = patch_icpp(patch_id)%y_centroid
        smooth_patch_id = patch_icpp(patch_id)%smooth_patch_id
        smooth_coeff = patch_icpp(patch_id)%smooth_coeff
        eta = 1._wp
 
        do j = 0, n
            do i = 0, m
                r = sqrt((x_cc(i) - x_centroid)**2 + (y_cc(j) - y_centroid)**2)
                if (r < small_radius) then
                    theta = 0._wp
                else
                    theta = atan2(y_cc(j) - y_centroid, x_cc(i) - x_centroid)
                end if
                sum_series = 0._wp
                do nn = 1, max_2d_fourier_modes
                    sum_series = sum_series + patch_icpp(patch_id)%fourier_cos(nn)*cos(real(nn, &
                                                         & wp)*theta) + patch_icpp(patch_id)%fourier_sin(nn)*sin(real(nn, wp)*theta)
                end do
                if (patch_icpp(patch_id)%modal_use_exp_form) then
                    r_boundary = patch_icpp(patch_id)%radius*exp(sum_series)
                else
                    r_boundary = patch_icpp(patch_id)%radius + sum_series
                    r_boundary = max(r_boundary, 0._wp)
                    if (patch_icpp(patch_id)%modal_clip_r_to_min) then
                        r_boundary = max(r_boundary, patch_icpp(patch_id)%modal_r_min)
                    end if
                end if
                if (patch_icpp(patch_id)%smoothen) then
                    eta = 0.5_wp + 0.5_wp*tanh(smooth_coeff/min(dx, dy)*(r_boundary - r))
                end if
                if ((r <= r_boundary .and. patch_icpp(patch_id)%alter_patch(patch_id_fp(i, j, 0))) .or. patch_id_fp(i, j, &
                    & 0) == smooth_patch_id) then
                    call s_assign_patch_primitive_variables(patch_id, i, j, 0, eta, q_prim_vf, patch_id_fp)
                end if
            end do
        end do
 
    end subroutine s_icpp_2d_modal
 
    !> 3D spherical harmonic patch. Surface r = radius + sum_lm sph_har_coeff(l,m)*Y_lm(theta,phi). theta = acos(z/r), phi =
    !! atan2(y,x) relative to centroid.
    subroutine s_icpp_3d_spherical_harmonic(patch_id, patch_id_fp, q_prim_vf)
 
        integer, intent(in) :: patch_id
 
#ifdef MFC_MIXED_PRECISION
        integer(kind=1), dimension(0:m,0:n,0:p), intent(inout) :: patch_id_fp
#else
        integer, dimension(0:m,0:n,0:p), intent(inout) :: patch_id_fp
#endif
        type(scalar_field), dimension(1:sys_size), intent(inout) :: q_prim_vf
        real(wp)                                                 :: dx_loc, dy_loc, dz_loc, r, theta, phi, R_surface, eta_local
        integer                                                  :: i, j, k, ll, mm
 
        x_centroid = patch_icpp(patch_id)%x_centroid
        y_centroid = patch_icpp(patch_id)%y_centroid
        z_centroid = patch_icpp(patch_id)%z_centroid
        smooth_patch_id = patch_icpp(patch_id)%smooth_patch_id
        smooth_coeff = patch_icpp(patch_id)%smooth_coeff
        eta_local = 1._wp
 
        do k = 0, p
            do j = 0, n
                do i = 0, m
                    if (grid_geometry == 3) then
                        call s_convert_cylindrical_to_cartesian_coord(y_cc(j), z_cc(k))
                        dx_loc = x_cc(i) - x_centroid
                        dy_loc = cart_y - y_centroid
                        dz_loc = cart_z - z_centroid
                    else
                        dx_loc = x_cc(i) - x_centroid
                        dy_loc = y_cc(j) - y_centroid
                        dz_loc = z_cc(k) - z_centroid
                    end if
                    r = sqrt(dx_loc**2 + dy_loc**2 + dz_loc**2)
                    if (r < small_radius) then
                        theta = 0._wp
                        phi = 0._wp
                    else
                        theta = acos(min(1._wp, max(-1._wp, dz_loc/r)))
                        phi = atan2(dy_loc, dx_loc)
                    end if
                    r_surface = patch_icpp(patch_id)%radius
                    do ll = 0, max_sph_harm_degree
                        do mm = -ll, ll
                            if (patch_icpp(patch_id)%sph_har_coeff(ll, mm) == 0._wp) cycle
                            r_surface = r_surface + patch_icpp(patch_id)%sph_har_coeff(ll, mm)*real_ylm(theta, phi, ll, mm)
                        end do
                    end do
                    if (patch_icpp(patch_id)%smoothen) then
                        eta_local = 0.5_wp + 0.5_wp*tanh(smooth_coeff/min(dx, dy, dz)*(r_surface - r))
                    end if
                    if ((r <= r_surface .and. patch_icpp(patch_id)%alter_patch(patch_id_fp(i, j, k))) .or. patch_id_fp(i, j, &
                        & k) == smooth_patch_id) then
                        call s_assign_patch_primitive_variables(patch_id, i, j, k, eta_local, q_prim_vf, patch_id_fp)
                    end if
                end do
            end do
        end do
 
    end subroutine s_icpp_3d_spherical_harmonic
 
    !> The spherical patch is a 3D geometry that may be used, for example, in creating a bubble or a droplet. The patch geometry is
    !! well-defined when its centroid and radius are provided. Please note that the spherical patch DOES allow for the smoothing of
    !! its boundary.
    subroutine s_icpp_sphere(patch_id, patch_id_fp, q_prim_vf)
 
        integer, intent(in) :: patch_id
 
#ifdef MFC_MIXED_PRECISION
        integer(kind=1), dimension(0:m,0:n,0:p), intent(inout) :: patch_id_fp
#else
        integer, dimension(0:m,0:n,0:p), intent(inout) :: patch_id_fp
#endif
        type(scalar_field), dimension(1:sys_size), intent(inout) :: q_prim_vf
 
        ! Generic loop iterators
        integer  :: i, j, k
        real(wp) :: radius
 
    integer                                 :: xRows, yRows, nRows, iix, iiy, max_files
# 980 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    integer                                 :: f, iter, unit, unit2, idx, idy, index_x, index_y, jump, line_count
# 980 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    real(wp)                                :: x_step, y_step
# 980 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    real(wp)                                :: dummy_x, dummy_y, dummy_z, x0, y0
# 980 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    integer                                 :: global_offset_x, global_offset_y  !< MPI subdomain offset
# 980 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    real(wp)                                :: delta_x, delta_y
# 980 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    character(len=300), dimension(sys_size) :: fileNames                         !< Arrays to store all data from files
# 980 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    real(wp), allocatable                   :: stored_values(:,:,:)
# 980 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    real(wp), allocatable                   :: x_coords(:), y_coords(:)
# 980 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    logical                                 :: files_loaded = .false.
# 980 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    real(wp)                                :: domain_xstart
# 980 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    character(len=20)                       :: file_num_str                      !< For storing the file number as a string
# 980 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    integer                                 :: ios
# 980 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    integer                                 :: ios2
# 980 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 980 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    ! hcid=274 (2dHardcodedIC.fpp): full 2D field from external data, no extrusion.
# 980 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    ! Declared here (not in Hardcoded2DVariables()) so it's visible wherever
# 980 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    ! HardcodedDeallocation() is called, matching the pattern of stored_values/x_coords/
# 980 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    ! y_coords/files_loaded above.
# 980 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    real(wp), allocatable, dimension(:,:,:) :: stored_values274
# 980 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    logical                                 :: files_loaded274 = .false.
# 980 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    integer                                 :: f274, ix274, iy274, unit274, ios274
# 980 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    integer                                 :: local_ix_beg274, local_iy_beg274
# 980 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    character(len=300)                      :: fname274
# 980 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    character(len=20)                       :: file_num_str274
# 980 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    real(wp)                                :: dummy_x274, dummy_y274, dummy_val274, x0_274, y0_274, x_step274, y_step274
# 980 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    real(wp)                                :: file_dx274, file_dy274, r_align274
    ! Place any declaration of intermediate variables here
# 981 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    real(wp) :: rhoH, rhoL, pRef, pInt, h, lam, wl, amp, intH, alph, Mach
# 981 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    real(wp) :: eps
# 981 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 981 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    ! IGR Jets Arrays to stor position and radii of jets from input file
# 981 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    real(wp), dimension(:), allocatable :: y_th_arr, z_th_arr, r_th_arr
# 981 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    ! Variables to describe initial condition of jet
# 981 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    real(wp)                              :: r, ux_th, ux_am, p_th, p_am, rho_th, rho_am, y_th, z_th, r_th, eps_smooth
# 981 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    real(wp)                              :: rcut, xcut  !< Intermediate variables for creating smooth initial condition
# 981 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    real(wp), dimension(0:n,0:p)          :: rcut_arr
# 981 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    integer                               :: l, q, s     !< Iterators for reading input files
# 981 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    integer                               :: start, end  !< Ints to keep track of position in file
# 981 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    character(len=100000)                 :: line  ! String to store line in file
# 981 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    character(len=25)                     :: value       !< String to store value in line
# 981 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    integer                               :: NJet        !< Number of jets
# 981 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    real(wp), allocatable, dimension(:,:) :: ih  ! Array to store interface height in
# 981 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    logical                               :: file_exist  ! Flag to check if file exists
# 981 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 981 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    eps = 1e-9_wp
# 981 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 981 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    if (patch_icpp(patch_id)%hcid == 303) then  ! IGR Multijet
# 981 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        eps_smooth = 3._wp
# 981 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        inquire (file="njet.txt", exist=file_exist)
# 981 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        if (file_exist) then
# 981 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            open (unit=10, file="njet.txt", status="old", action="read")
# 981 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            read (10, *) njet
# 981 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            close (10)
# 981 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        else
# 981 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            call s_mpi_abort("Error: njet.txt file specified for hcid=303 does not exist")
# 981 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        end if
# 981 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 981 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#ifdef MFC_DEBUG
# 981 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    block
# 981 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        use iso_fortran_env, only: output_unit
# 981 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 981 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        print *, 'm_icpp_patches.fpp:981: ', '@:ALLOCATE(y_th_arr(0:NJet - 1))'
# 981 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 981 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        call flush (output_unit)
# 981 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    end block
# 981 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#endif
# 981 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    allocate (y_th_arr(0:njet - 1))
# 981 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 981 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 981 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#if defined(MFC_OpenACC)
# 981 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
!$acc enter data create(y_th_arr) 
# 981 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#elif defined(MFC_OpenMP)
# 981 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
!$omp target enter data map(always,alloc:y_th_arr) 
# 981 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#endif
# 981 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#ifdef MFC_DEBUG
# 981 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    block
# 981 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        use iso_fortran_env, only: output_unit
# 981 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 981 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        print *, 'm_icpp_patches.fpp:981: ', '@:ALLOCATE(z_th_arr(0:NJet - 1))'
# 981 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 981 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        call flush (output_unit)
# 981 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    end block
# 981 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#endif
# 981 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    allocate (z_th_arr(0:njet - 1))
# 981 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 981 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 981 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#if defined(MFC_OpenACC)
# 981 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
!$acc enter data create(z_th_arr) 
# 981 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#elif defined(MFC_OpenMP)
# 981 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
!$omp target enter data map(always,alloc:z_th_arr) 
# 981 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#endif
# 981 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#ifdef MFC_DEBUG
# 981 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    block
# 981 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        use iso_fortran_env, only: output_unit
# 981 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 981 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        print *, 'm_icpp_patches.fpp:981: ', '@:ALLOCATE(r_th_arr(0:NJet - 1))'
# 981 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 981 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        call flush (output_unit)
# 981 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    end block
# 981 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#endif
# 981 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    allocate (r_th_arr(0:njet - 1))
# 981 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 981 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 981 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#if defined(MFC_OpenACC)
# 981 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
!$acc enter data create(r_th_arr) 
# 981 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#elif defined(MFC_OpenMP)
# 981 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
!$omp target enter data map(always,alloc:r_th_arr) 
# 981 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#endif
# 981 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 981 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        inquire (file="jets.csv", exist=file_exist)
# 981 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        if (file_exist) then
# 981 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            open (unit=10, file="jets.csv", status="old", action="read")
# 981 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            do q = 0, njet - 1
# 981 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                read (10, '(A)') line  ! Read a full line as a string
# 981 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                start = 1
# 981 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 981 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                do l = 0, 2
# 981 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    end = index(line(start:), ',')  ! Find the next comma
# 981 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    if (end == 0) then
# 981 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                        value = trim(adjustl(line(start:)))  ! Last value in the line
# 981 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    else
# 981 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                        value = trim(adjustl(line(start:start + end - 2)))  ! Extract substring
# 981 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                        start = start + end  ! Move to next value
# 981 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    end if
# 981 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    if (l == 0) then
# 981 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                        read (value, *) y_th_arr(q)  ! Convert string to numeric value
# 981 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    else if (l == 1) then
# 981 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                        read (value, *) z_th_arr(q)
# 981 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    else
# 981 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                        read (value, *) r_th_arr(q)
# 981 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    end if
# 981 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                end do
# 981 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            end do
# 981 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            close (10)
# 981 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 981 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            do q = 0, p
# 981 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                do l = 0, n
# 981 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    rcut = 0._wp
# 981 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    do s = 0, njet - 1
# 981 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                        r = sqrt((y_cc(l) - y_th_arr(s))**2._wp + (z_cc(q) - z_th_arr(s))**2._wp)
# 981 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                        rcut = rcut + f_cut_on(r - r_th_arr(s), eps_smooth)
# 981 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    end do
# 981 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    rcut_arr(l, q) = rcut
# 981 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                end do
# 981 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            end do
# 981 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        else
# 981 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            call s_mpi_abort("Error: jets.csv file specified for hcid=303 does not exist")
# 981 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        end if
# 981 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    end if
# 981 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 981 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    if (patch_icpp(patch_id)%hcid == 304) then  ! 3D Cartesian interface from file
# 981 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#ifdef MFC_DEBUG
# 981 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    block
# 981 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        use iso_fortran_env, only: output_unit
# 981 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 981 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        print *, 'm_icpp_patches.fpp:981: ', '@:ALLOCATE(ih(0:n_glb, 0:p_glb))'
# 981 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 981 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        call flush (output_unit)
# 981 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    end block
# 981 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#endif
# 981 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    allocate (ih(0:n_glb, 0:p_glb))
# 981 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 981 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 981 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#if defined(MFC_OpenACC)
# 981 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
!$acc enter data create(ih) 
# 981 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#elif defined(MFC_OpenMP)
# 981 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
!$omp target enter data map(always,alloc:ih) 
# 981 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#endif
# 981 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 981 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        if (interface_file == '.') then
# 981 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            call s_mpi_abort("Error: interface_file must be specified for hcid=304")
# 981 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        else
# 981 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            inquire (file=trim(interface_file), exist=file_exist)
# 981 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            if (file_exist) then
# 981 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                open (unit=10, file=trim(interface_file), status="old", action="read")
# 981 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                do i = 0, n_glb
# 981 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    read (10, '(A)') line  ! Read a full line as a string
# 981 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    start = 1
# 981 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 981 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    do j = 0, p_glb
# 981 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                        end = index(line(start:), ',')  ! Find the next comma
# 981 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                        if (end == 0) then
# 981 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                            value = trim(adjustl(line(start:)))  ! Last value in the line
# 981 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                        else
# 981 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                            value = trim(adjustl(line(start:start + end - 2)))  ! Extract substring
# 981 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                            start = start + end  ! Move to next value
# 981 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                        end if
# 981 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                        read (value, *) ih(i, j)  ! Convert string to numeric value
# 981 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                        if (.not. f_is_default(normmag)) ih(i, j) = ih(i, j)*normmag
# 981 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                        if (.not. f_is_default(normfac)) ih(i, j) = ih(i, j) + normfac
# 981 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    end do
# 981 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                end do
# 981 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                close (10)
# 981 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            else
# 981 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                call s_mpi_abort("Error: interface_file specified for hcid=304 does not exist")
# 981 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            end if
# 981 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        end if
# 981 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    end if
# 981 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 981 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    if (patch_icpp(patch_id)%hcid == 305) then  ! 3D Axisymmetric interface from file
# 981 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#ifdef MFC_DEBUG
# 981 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    block
# 981 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        use iso_fortran_env, only: output_unit
# 981 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 981 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        print *, 'm_icpp_patches.fpp:981: ', '@:ALLOCATE(ih(0:n_glb, 0:0))'
# 981 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 981 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        call flush (output_unit)
# 981 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    end block
# 981 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#endif
# 981 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    allocate (ih(0:n_glb, 0:0))
# 981 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 981 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 981 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#if defined(MFC_OpenACC)
# 981 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
!$acc enter data create(ih) 
# 981 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#elif defined(MFC_OpenMP)
# 981 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
!$omp target enter data map(always,alloc:ih) 
# 981 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#endif
# 981 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        if (interface_file == '.') then
# 981 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            call s_mpi_abort("Error: interface_file must be specified for hcid=305")
# 981 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        else
# 981 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            inquire (file=trim(interface_file), exist=file_exist)
# 981 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            if (file_exist) then
# 981 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                open (unit=10, file=trim(interface_file), status="old", action="read")
# 981 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                do i = 0, n_glb
# 981 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    read (10, '(A)') line  ! Read a full line as a string
# 981 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    value = trim(line)
# 981 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    read (value, *) ih(i, 0)  ! Convert string to numeric value
# 981 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    if (.not. f_is_default(normmag)) ih(i, 0) = ih(i, 0)*normmag
# 981 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    if (.not. f_is_default(normfac)) ih(i, 0) = ih(i, 0) + normfac
# 981 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                end do
# 981 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                close (10)
# 981 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            else
# 981 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                call s_mpi_abort("Error: interface_file specified for hcid=305 does not exist")
# 981 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            end if
# 981 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        end if
# 981 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    end if
 
        ! Variables to initialize the pressure field that corresponds to the bubble-collapse test case found in Tiwari et al. (2013)
 
        ! Transferring spherical patch's radius, centroid, smoothing patch identity and smoothing coefficient information
        x_centroid = patch_icpp(patch_id)%x_centroid
        y_centroid = patch_icpp(patch_id)%y_centroid
        z_centroid = patch_icpp(patch_id)%z_centroid
        radius = patch_icpp(patch_id)%radius
        smooth_patch_id = patch_icpp(patch_id)%smooth_patch_id
        smooth_coeff = patch_icpp(patch_id)%smooth_coeff
 
        ! Initialize eta=1; modified if smoothing is enabled
        eta = 1._wp
 
        ! Assign patch vars if cell is covered and patch has write permission
        do k = 0, p
            do j = 0, n
                do i = 0, m
                    if (grid_geometry == 3) then
                        call s_convert_cylindrical_to_cartesian_coord(y_cc(j), z_cc(k))
                    else
                        cart_y = y_cc(j)
                        cart_z = z_cc(k)
                    end if
 
                    if (patch_icpp(patch_id)%smoothen) then
                        eta = tanh(smooth_coeff/min(dx, dy, &
                                   & dz)*(sqrt((x_cc(i) - x_centroid)**2 + (cart_y - y_centroid)**2 + (cart_z - z_centroid)**2) &
                                   & - radius))*(-0.5_wp) + 0.5_wp
                    end if
 
                    if ((f_is_inside_sphere(x_cc(i) - x_centroid, cart_y - y_centroid, cart_z - z_centroid, &
                        & radius) .and. patch_icpp(patch_id)%alter_patch(patch_id_fp(i, j, k))) .or. patch_id_fp(i, j, &
                        & k) == smooth_patch_id) then
                        call s_assign_patch_primitive_variables(patch_id, i, j, k, eta, q_prim_vf, patch_id_fp)
 
 
                        if (patch_icpp(patch_id)%hcid /= dflt_int) then
    select case (patch_icpp(patch_id)%hcid)
# 1020 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    case (300)  ! Rayleigh-Taylor instability
# 1020 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        rhoh = 3._wp
# 1020 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        rhol = 1._wp
# 1020 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        pref = 1.e5_wp
# 1020 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        pint = pref
# 1020 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        h = 0.7_wp
# 1020 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        lam = 0.2_wp
# 1020 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        wl = 2._wp*pi/lam
# 1020 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        amp = 0.025_wp/wl
# 1020 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1020 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        inth = amp*(sin(2._wp*pi*x_cc(i)/lam - pi/2._wp) + sin(2._wp*pi*z_cc(k)/lam - pi/2._wp)) + h
# 1020 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1020 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        alph = 5.e-1_wp*(1._wp + tanh((y_cc(j) - inth)/2.5e-3_wp))
# 1020 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1020 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        if (alph < eps) alph = eps
# 1020 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        if (alph > 1._wp - eps) alph = 1._wp - eps
# 1020 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1020 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        if (y_cc(j) > inth) then
# 1020 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%adv%beg)%sf(i, j, k) = alph
# 1020 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%adv%end)%sf(i, j, k) = 1._wp - alph
# 1020 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%cont%beg)%sf(i, j, k) = alph*rhoh
# 1020 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%cont%end)%sf(i, j, k) = (1._wp - alph)*rhol
# 1020 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%E)%sf(i, j, k) = pref + rhoh*9.81_wp*(1.2_wp - y_cc(j))
# 1020 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        else
# 1020 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%adv%beg)%sf(i, j, k) = alph
# 1020 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%adv%end)%sf(i, j, k) = 1._wp - alph
# 1020 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%cont%beg)%sf(i, j, k) = alph*rhoh
# 1020 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%cont%end)%sf(i, j, k) = (1._wp - alph)*rhol
# 1020 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            pint = pref + rhoh*9.81_wp*(1.2_wp - inth)
# 1020 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%E)%sf(i, j, k) = pint + rhol*9.81_wp*(inth - y_cc(j))
# 1020 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        end if
# 1020 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    case (301)  ! (3D lung geometry in X direction, |sin(*)+sin(*)|)
# 1020 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        h = 0.0_wp
# 1020 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        lam = 1.0_wp
# 1020 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        amp = patch_icpp(patch_id)%a(2)
# 1020 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        inth = amp*abs((sin(2*pi*y_cc(j)/lam - pi/2) + sin(2*pi*z_cc(k)/lam - pi/2)) + h)
# 1020 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        if (x_cc(i) > inth) then
# 1020 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%cont%beg)%sf(i, j, k) = patch_icpp(1)%alpha_rho(1)
# 1020 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%cont%end)%sf(i, j, k) = patch_icpp(1)%alpha_rho(2)
# 1020 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%E)%sf(i, j, k) = patch_icpp(1)%pres
# 1020 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%adv%beg)%sf(i, j, k) = patch_icpp(1)%alpha(1)
# 1020 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%adv%end)%sf(i, j, k) = patch_icpp(1)%alpha(2)
# 1020 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        end if
# 1020 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    case (302)  ! 3D Jet with IGR
# 1020 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ux_th = 10*sqrt(1.4*0.4)
# 1020 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ux_am = 0.0*sqrt(1.4)
# 1020 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        p_th = 2.0_wp
# 1020 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        p_am = 1.0_wp
# 1020 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        rho_th = 1._wp
# 1020 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        rho_am = 1._wp
# 1020 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        y_th = 0.0_wp
# 1020 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        z_th = 0.0_wp
# 1020 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        r_th = 1._wp
# 1020 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        eps_smooth = 1._wp
# 1020 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        eps = 1e-6
# 1020 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1020 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        r = sqrt((y_cc(j) - y_th)**2._wp + (z_cc(k) - z_th)**2._wp)
# 1020 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        rcut = f_cut_on(r - r_th, eps_smooth)
# 1020 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        xcut = f_cut_on(x_cc(i), eps_smooth)
# 1020 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1020 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        q_prim_vf(eqn_idx%mom%beg)%sf(i, j, k) = ux_th*rcut*xcut + ux_am
# 1020 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        q_prim_vf(eqn_idx%mom%beg + 1)%sf(i, j, k) = 0._wp
# 1020 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        q_prim_vf(eqn_idx%mom%end)%sf(i, j, k) = 0._wp
# 1020 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1020 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        if (num_fluids == 1) then
# 1020 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%cont%beg)%sf(i, j, k) = (rho_th - rho_am)*rcut*xcut + rho_am
# 1020 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        else
# 1020 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%adv%beg)%sf(i, j, k) = (1._wp - 2._wp*eps)*rcut*xcut + eps
# 1020 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%cont%beg)%sf(i, j, k) = rho_th*q_prim_vf(eqn_idx%adv%beg)%sf(i, j, k)
# 1020 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%cont%end)%sf(i, j, k) = rho_am*(1._wp - q_prim_vf(eqn_idx%adv%beg)%sf(i, j, k))
# 1020 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        end if
# 1020 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1020 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        q_prim_vf(eqn_idx%E)%sf(i, j, k) = p_th*rcut*xcut + p_am
# 1020 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    case (303)  ! 3D Multijet
# 1020 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        eps_smooth = 3.0_wp
# 1020 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ux_th = 10*sqrt(1.4*0.4)
# 1020 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ux_am = 2.5*sqrt(1.4*0.4)
# 1020 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        p_th = 0.8_wp
# 1020 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        p_am = 0.4_wp
# 1020 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        rho_th = 1._wp
# 1020 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        rho_am = 1._wp
# 1020 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        eps = 1e-6
# 1020 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1020 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        rcut = rcut_arr(j, k)
# 1020 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        xcut = f_cut_on(x_cc(i), eps_smooth)
# 1020 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1020 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        q_prim_vf(eqn_idx%mom%beg)%sf(i, j, k) = ux_th*rcut*xcut + ux_am
# 1020 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        q_prim_vf(eqn_idx%mom%beg + 1)%sf(i, j, k) = 0._wp
# 1020 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        q_prim_vf(eqn_idx%mom%end)%sf(i, j, k) = 0._wp
# 1020 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1020 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        if (num_fluids == 1) then
# 1020 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%cont%beg)%sf(i, j, k) = (rho_th - rho_am)*rcut*xcut + rho_am
# 1020 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        else
# 1020 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%adv%beg)%sf(i, j, k) = (1._wp - 2._wp*eps)*rcut*xcut + eps
# 1020 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%cont%beg)%sf(i, j, k) = rho_th*q_prim_vf(eqn_idx%adv%beg)%sf(i, j, k)
# 1020 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%cont%end)%sf(i, j, k) = rho_am*(1._wp - q_prim_vf(eqn_idx%adv%beg)%sf(i, j, k))
# 1020 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        end if
# 1020 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1020 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        q_prim_vf(eqn_idx%E)%sf(i, j, k) = p_th*rcut*xcut + p_am
# 1020 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    case (304)  ! 3D Interface from file cartesian
# 1020 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        alph = 0.5_wp*(1 + (1._wp - 2._wp*eps)*tanh((ih(start_idx(2) + j, start_idx(3) + k) - x_cc(i))*(0.5_wp/dx)))
# 1020 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1020 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        q_prim_vf(eqn_idx%adv%beg)%sf(i, j, k) = alph
# 1020 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        q_prim_vf(eqn_idx%adv%end)%sf(i, j, k) = 1._wp - alph
# 1020 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1020 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        q_prim_vf(eqn_idx%cont%beg)%sf(i, j, k) = q_prim_vf(eqn_idx%adv%beg)%sf(i, j, k)*(950._wp/1000._wp)
# 1020 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        q_prim_vf(eqn_idx%cont%end)%sf(i, j, k) = q_prim_vf(eqn_idx%adv%end)%sf(i, j, k)*(1._wp/1000._wp)
# 1020 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1020 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        q_prim_vf(eqn_idx%E)%sf(i, j, k) = p0_ic + (q_prim_vf(eqn_idx%cont%beg)%sf(i, j, k) + q_prim_vf(eqn_idx%cont%end)%sf(i, &
# 1020 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                  & j, k))*g0_ic*(ih(start_idx(2) + j, start_idx(3) + k) - x_cc(i))
# 1020 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1020 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        if (surface_tension) q_prim_vf(eqn_idx%c)%sf(i, j, k) = alph
# 1020 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    case (305)  ! 3D Interface from file axisymmetric
# 1020 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        alph = 0.5_wp*(1 + (1._wp - 2._wp*eps)*tanh((ih(start_idx(2) + j, 0) - x_cc(i))*(0.01_wp/dx)))
# 1020 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1020 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        q_prim_vf(eqn_idx%adv%beg)%sf(i, j, k) = alph
# 1020 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        q_prim_vf(eqn_idx%adv%end)%sf(i, j, k) = 1._wp - alph
# 1020 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1020 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        q_prim_vf(eqn_idx%cont%beg)%sf(i, j, k) = q_prim_vf(eqn_idx%adv%beg)%sf(i, j, k)*1._wp
# 1020 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        q_prim_vf(eqn_idx%cont%end)%sf(i, j, k) = q_prim_vf(eqn_idx%adv%end)%sf(i, j, k)*(1._wp/950._wp)
# 1020 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1020 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        q_prim_vf(eqn_idx%E)%sf(i, j, k) = p0_ic + (q_prim_vf(eqn_idx%cont%beg)%sf(i, j, k) + q_prim_vf(eqn_idx%cont%end)%sf(i, &
# 1020 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                  & j, k))*g0_ic*(ih(start_idx(1) + i, start_idx(3) + k) - y_cc(j))
# 1020 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1020 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        if (surface_tension) q_prim_vf(eqn_idx%c)%sf(i, j, k) = alph
# 1020 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    case (370)  ! 3D extrusion of 2D profile from external data
# 1020 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! This hardcoded case extrudes a 2D profile to initialize a 3D simulation domain
# 1020 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    if (.not. files_loaded) then
# 1020 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        max_files = merge(sys_size, sys_size - 1, num_dims == 1)
# 1020 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        do f = 1, max_files
# 1020 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            write (file_num_str, '(I0)') f
# 1020 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            filenames(f) = trim(files_dir) // "/" // "prim." // trim(file_num_str) // ".00." // trim(file_extension) // ".dat"
# 1020 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        end do
# 1020 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1020 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! Common file reading setup
# 1020 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        open (newunit=unit2, file=trim(filenames(1)), status='old', action='read', iostat=ios2)
# 1020 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        if (ios2 /= 0) call s_mpi_abort("Error opening file: " // trim(filenames(1)))
# 1020 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1020 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        select case (num_dims)
# 1020 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        case (1, 2)  ! 1D and 2D cases are similar
# 1020 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            ! Count lines
# 1020 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            line_count = 0
# 1020 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            do
# 1020 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                read (unit2, *, iostat=ios2) dummy_x, dummy_y
# 1020 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                if (ios2 /= 0) exit
# 1020 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                line_count = line_count + 1
# 1020 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            end do
# 1020 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            close (unit2)
# 1020 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1020 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            xrows = line_count
# 1020 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            yrows = 1
# 1020 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            index_x = 0
# 1020 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            if (num_dims == 2) index_x = i
# 1020 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#ifdef MFC_DEBUG
# 1020 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    block
# 1020 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        use iso_fortran_env, only: output_unit
# 1020 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1020 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        print *, 'm_icpp_patches.fpp:1020: ', '@:ALLOCATE(x_coords(xRows), stored_values(xRows, 1, sys_size))'
# 1020 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1020 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        call flush (output_unit)
# 1020 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    end block
# 1020 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#endif
# 1020 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    allocate (x_coords(xrows), stored_values(xrows, 1, sys_size))
# 1020 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1020 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1020 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1020 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#if defined(MFC_OpenACC)
# 1020 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
!$acc enter data create(x_coords, stored_values) 
# 1020 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#elif defined(MFC_OpenMP)
# 1020 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
!$omp target enter data map(always,alloc:x_coords, stored_values) 
# 1020 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#endif
# 1020 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1020 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            ! Read data from all files
# 1020 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            do f = 1, max_files
# 1020 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                open (newunit=unit, file=trim(filenames(f)), status='old', action='read', iostat=ios)
# 1020 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                if (ios /= 0) call s_mpi_abort("Error opening file: " // trim(filenames(f)))
# 1020 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1020 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                do iter = 1, xrows
# 1020 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    read (unit, *, iostat=ios) x_coords(iter), stored_values(iter, 1, f)
# 1020 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    if (ios /= 0) call s_mpi_abort("Error reading file: " // trim(filenames(f)))
# 1020 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                end do
# 1020 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                close (unit)
# 1020 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            end do
# 1020 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1020 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            ! Calculate offsets
# 1020 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            domain_xstart = x_coords(1)
# 1020 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            x_step = x_cc(1) - x_cc(0)
# 1020 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            delta_x = merge(x_cc(0) - domain_xstart, x_cc(index_x) - domain_xstart, num_dims == 1)
# 1020 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            global_offset_x = nint(abs(delta_x)/x_step)
# 1020 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        case (3)  ! 3D case - determine grid structure
# 1020 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            ! Find yRows by counting rows with same x
# 1020 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            read (unit2, *, iostat=ios2) x0, y0, dummy_z
# 1020 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            if (ios2 /= 0) call s_mpi_abort("Error reading first line")
# 1020 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1020 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            yrows = 1
# 1020 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            do
# 1020 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                read (unit2, *, iostat=ios2) dummy_x, dummy_y, dummy_z
# 1020 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                if (ios2 /= 0) exit
# 1020 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                if (f_approx_equal(dummy_x, x0) .and. (.not. f_approx_equal(dummy_y, y0))) then
# 1020 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    yrows = yrows + 1
# 1020 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                else
# 1020 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    exit
# 1020 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                end if
# 1020 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            end do
# 1020 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            close (unit2)
# 1020 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1020 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            ! Count total rows
# 1020 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            open (newunit=unit2, file=trim(filenames(1)), status='old', action='read', iostat=ios2)
# 1020 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            nrows = 0
# 1020 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            do
# 1020 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                read (unit2, *, iostat=ios2) dummy_x, dummy_y, dummy_z
# 1020 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                if (ios2 /= 0) exit
# 1020 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                nrows = nrows + 1
# 1020 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            end do
# 1020 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            close (unit2)
# 1020 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1020 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            xrows = nrows/yrows
# 1020 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#ifdef MFC_DEBUG
# 1020 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    block
# 1020 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        use iso_fortran_env, only: output_unit
# 1020 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1020 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        print *, 'm_icpp_patches.fpp:1020: ', '@:ALLOCATE(x_coords(nrows), y_coords(nrows), stored_values(xRows, yRows, sys_size))'
# 1020 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1020 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        call flush (output_unit)
# 1020 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    end block
# 1020 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#endif
# 1020 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    allocate (x_coords(nrows), y_coords(nrows), stored_values(xrows, yrows, sys_size))
# 1020 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1020 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1020 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1020 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1020 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#if defined(MFC_OpenACC)
# 1020 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
!$acc enter data create(x_coords, y_coords, stored_values) 
# 1020 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#elif defined(MFC_OpenMP)
# 1020 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
!$omp target enter data map(always,alloc:x_coords, y_coords, stored_values) 
# 1020 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#endif
# 1020 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            index_x = i
# 1020 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            index_y = j
# 1020 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1020 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            ! Read all files
# 1020 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            do f = 1, max_files
# 1020 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                open (newunit=unit, file=trim(filenames(f)), status='old', action='read', iostat=ios)
# 1020 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                if (ios /= 0) then
# 1020 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    if (f == 1) call s_mpi_abort("Error opening file: " // trim(filenames(f)))
# 1020 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    cycle
# 1020 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                end if
# 1020 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1020 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                iter = 0
# 1020 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                do iix = 1, xrows
# 1020 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    do iiy = 1, yrows
# 1020 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                        iter = iter + 1
# 1020 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                        if (f == 1) then
# 1020 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                            read (unit, *, iostat=ios) x_coords(iter), y_coords(iter), stored_values(iix, iiy, f)
# 1020 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                        else
# 1020 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                            read (unit, *, iostat=ios) dummy_x, dummy_y, stored_values(iix, iiy, f)
# 1020 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                        end if
# 1020 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                        if (ios /= 0) call s_mpi_abort("Error reading data")
# 1020 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    end do
# 1020 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                end do
# 1020 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                close (unit)
# 1020 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            end do
# 1020 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1020 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            ! Calculate offsets
# 1020 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            x_step = x_cc(1) - x_cc(0)
# 1020 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            y_step = y_cc(1) - y_cc(0)
# 1020 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            delta_x = x_cc(index_x) - x_coords(1)
# 1020 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            delta_y = y_cc(index_y) - y_coords(1)
# 1020 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            global_offset_x = nint(abs(delta_x)/x_step)
# 1020 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            global_offset_y = nint(abs(delta_y)/y_step)
# 1020 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        end select
# 1020 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1020 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        files_loaded = .true.
# 1020 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    end if
# 1020 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1020 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    ! Data assignment
# 1020 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    select case (num_dims)
# 1020 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    case (1)
# 1020 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        idx = i + 1 + global_offset_x
# 1020 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! idx must land inside the file's row range: this rank's subdomain offset
# 1020 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! (global_offset_x) was derived from this rank's own grid, so a miss means the
# 1020 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! IC file is misaligned/mis-sized for the run grid, not a normal boundary case.
# 1020 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        if (idx < 1 .or. idx > xrows) &
# 1020 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            & call s_mpi_abort("Hardcoded IC extrusion: row index out of range (IC file misaligned with the run grid)")
# 1020 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        do f = 1, sys_size
# 1020 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(f)%sf(i, 0, 0) = stored_values(idx, 1, f)
# 1020 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        end do
# 1020 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    case (2)
# 1020 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        idx = i + 1 + global_offset_x - index_x
# 1020 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        if (idx < 1 .or. idx > xrows) &
# 1020 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            & call s_mpi_abort("Hardcoded IC extrusion: row index out of range (IC file misaligned with the run grid)")
# 1020 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        do f = 1, sys_size - 1
# 1020 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            jump = merge(1, 0, f >= eqn_idx%mom%end)
# 1020 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(f + jump)%sf(i, j, 0) = stored_values(idx, 1, f)
# 1020 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        end do
# 1020 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        q_prim_vf(eqn_idx%mom%end)%sf(i, j, 0) = 0.0_wp
# 1020 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    case (3)
# 1020 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        idx = i + 1 + global_offset_x - index_x
# 1020 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        idy = j + 1 + global_offset_y - index_y
# 1020 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        if (idx < 1 .or. idx > xrows .or. idy < 1 .or. idy > yrows) &
# 1020 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            & call s_mpi_abort("Hardcoded IC extrusion: row/column index out of range (IC file misaligned with the run grid)")
# 1020 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        do f = 1, sys_size - 1
# 1020 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            jump = merge(1, 0, f >= eqn_idx%mom%end)
# 1020 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(f + jump)%sf(i, j, k) = stored_values(idx, idy, f)
# 1020 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        end do
# 1020 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        q_prim_vf(eqn_idx%mom%end)%sf(i, j, k) = 0.0_wp
# 1020 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    end select
# 1020 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    case (380)  ! Taylor-Green vortex
# 1020 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! This is patch is hard-coded for test suite optimization used in the 3D_TaylorGreenVortex case: This analytic patch used
# 1020 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! geometry 9
# 1020 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        mach = 0.1
# 1020 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        if (patch_id == 1) then
# 1020 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%E)%sf(i, j, &
# 1020 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                      & k) = 101325 + (mach**2*376.636429464809**2/16)*(cos(2*x_cc(i)/1) + cos(2*y_cc(j)/1))*(cos(2*z_cc(k)/1) + 2)
# 1020 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%mom%beg + 0)%sf(i, j, k) = mach*376.636429464809*sin(x_cc(i)/1)*cos(y_cc(j)/1)*sin(z_cc(k)/1)
# 1020 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%mom%beg + 1)%sf(i, j, k) = -mach*376.636429464809*cos(x_cc(i)/1)*sin(y_cc(j)/1)*sin(z_cc(k)/1)
# 1020 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        end if
# 1020 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    case default
# 1020 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        call s_int_to_str(patch_id, istr)
# 1020 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        call s_mpi_abort("Invalid hcid specified for patch " // trim(istr))
# 1020 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    end select
                        end if
                    end if
                end do
            end do
        end do
    if (allocated(stored_values)) then
# 1026 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#ifdef MFC_DEBUG
# 1026 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    block
# 1026 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        use iso_fortran_env, only: output_unit
# 1026 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1026 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        print *, 'm_icpp_patches.fpp:1026: ', '@:DEALLOCATE(stored_values)'
# 1026 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1026 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        call flush (output_unit)
# 1026 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    end block
# 1026 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#endif
# 1026 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1026 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#if defined(MFC_OpenACC)
# 1026 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
!$acc exit data delete(stored_values) 
# 1026 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#elif defined(MFC_OpenMP)
# 1026 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
!$omp target exit data map(release:stored_values) 
# 1026 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#endif
# 1026 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    deallocate (stored_values)
# 1026 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#ifdef MFC_DEBUG
# 1026 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    block
# 1026 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        use iso_fortran_env, only: output_unit
# 1026 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1026 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        print *, 'm_icpp_patches.fpp:1026: ', '@:DEALLOCATE(x_coords)'
# 1026 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1026 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        call flush (output_unit)
# 1026 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    end block
# 1026 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#endif
# 1026 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1026 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#if defined(MFC_OpenACC)
# 1026 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
!$acc exit data delete(x_coords) 
# 1026 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#elif defined(MFC_OpenMP)
# 1026 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
!$omp target exit data map(release:x_coords) 
# 1026 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#endif
# 1026 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    deallocate (x_coords)
# 1026 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    end if
# 1026 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1026 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    if (allocated(y_coords)) then
# 1026 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#ifdef MFC_DEBUG
# 1026 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    block
# 1026 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        use iso_fortran_env, only: output_unit
# 1026 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1026 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        print *, 'm_icpp_patches.fpp:1026: ', '@:DEALLOCATE(y_coords)'
# 1026 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1026 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        call flush (output_unit)
# 1026 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    end block
# 1026 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#endif
# 1026 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1026 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#if defined(MFC_OpenACC)
# 1026 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
!$acc exit data delete(y_coords) 
# 1026 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#elif defined(MFC_OpenMP)
# 1026 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
!$omp target exit data map(release:y_coords) 
# 1026 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#endif
# 1026 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    deallocate (y_coords)
# 1026 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    end if
# 1026 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1026 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    files_loaded = .false.
# 1026 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1026 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    if (allocated(stored_values274)) then
# 1026 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#ifdef MFC_DEBUG
# 1026 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    block
# 1026 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        use iso_fortran_env, only: output_unit
# 1026 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1026 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        print *, 'm_icpp_patches.fpp:1026: ', '@:DEALLOCATE(stored_values274)'
# 1026 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1026 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        call flush (output_unit)
# 1026 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    end block
# 1026 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#endif
# 1026 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1026 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#if defined(MFC_OpenACC)
# 1026 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
!$acc exit data delete(stored_values274) 
# 1026 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#elif defined(MFC_OpenMP)
# 1026 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
!$omp target exit data map(release:stored_values274) 
# 1026 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#endif
# 1026 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    deallocate (stored_values274)
# 1026 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    end if
# 1026 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1026 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    files_loaded274 = .false.
 
    end subroutine s_icpp_sphere
 
    !> The cuboidal patch is a 3D geometry that may be used, for example, in creating a solid boundary, or pre-/post-shock region,
    !! which is aligned with the axes of the Cartesian coordinate system. The geometry of such a patch is well- defined when its
    !! centroid and lengths in the x-, y- and z-coordinate directions are provided. Please notice that the cuboidal patch DOES NOT
    !! allow for the smearing of its boundaries.
    subroutine s_icpp_cuboid(patch_id, patch_id_fp, q_prim_vf)
 
        integer, intent(in) :: patch_id
 
#ifdef MFC_MIXED_PRECISION
        integer(kind=1), dimension(0:m,0:n,0:p), intent(inout) :: patch_id_fp
#else
        integer, dimension(0:m,0:n,0:p), intent(inout) :: patch_id_fp
#endif
        type(scalar_field), dimension(1:sys_size), intent(inout) :: q_prim_vf
        integer                                                  :: i, j, k  !< Generic loop iterators
 
    integer                                 :: xRows, yRows, nRows, iix, iiy, max_files
# 1046 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    integer                                 :: f, iter, unit, unit2, idx, idy, index_x, index_y, jump, line_count
# 1046 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    real(wp)                                :: x_step, y_step
# 1046 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    real(wp)                                :: dummy_x, dummy_y, dummy_z, x0, y0
# 1046 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    integer                                 :: global_offset_x, global_offset_y  !< MPI subdomain offset
# 1046 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    real(wp)                                :: delta_x, delta_y
# 1046 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    character(len=300), dimension(sys_size) :: fileNames                         !< Arrays to store all data from files
# 1046 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    real(wp), allocatable                   :: stored_values(:,:,:)
# 1046 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    real(wp), allocatable                   :: x_coords(:), y_coords(:)
# 1046 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    logical                                 :: files_loaded = .false.
# 1046 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    real(wp)                                :: domain_xstart
# 1046 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    character(len=20)                       :: file_num_str                      !< For storing the file number as a string
# 1046 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    integer                                 :: ios
# 1046 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    integer                                 :: ios2
# 1046 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1046 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    ! hcid=274 (2dHardcodedIC.fpp): full 2D field from external data, no extrusion.
# 1046 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    ! Declared here (not in Hardcoded2DVariables()) so it's visible wherever
# 1046 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    ! HardcodedDeallocation() is called, matching the pattern of stored_values/x_coords/
# 1046 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    ! y_coords/files_loaded above.
# 1046 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    real(wp), allocatable, dimension(:,:,:) :: stored_values274
# 1046 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    logical                                 :: files_loaded274 = .false.
# 1046 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    integer                                 :: f274, ix274, iy274, unit274, ios274
# 1046 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    integer                                 :: local_ix_beg274, local_iy_beg274
# 1046 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    character(len=300)                      :: fname274
# 1046 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    character(len=20)                       :: file_num_str274
# 1046 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    real(wp)                                :: dummy_x274, dummy_y274, dummy_val274, x0_274, y0_274, x_step274, y_step274
# 1046 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    real(wp)                                :: file_dx274, file_dy274, r_align274
    ! Place any declaration of intermediate variables here
# 1047 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    real(wp) :: rhoH, rhoL, pRef, pInt, h, lam, wl, amp, intH, alph, Mach
# 1047 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    real(wp) :: eps
# 1047 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1047 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    ! IGR Jets Arrays to stor position and radii of jets from input file
# 1047 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    real(wp), dimension(:), allocatable :: y_th_arr, z_th_arr, r_th_arr
# 1047 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    ! Variables to describe initial condition of jet
# 1047 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    real(wp)                              :: r, ux_th, ux_am, p_th, p_am, rho_th, rho_am, y_th, z_th, r_th, eps_smooth
# 1047 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    real(wp)                              :: rcut, xcut  !< Intermediate variables for creating smooth initial condition
# 1047 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    real(wp), dimension(0:n,0:p)          :: rcut_arr
# 1047 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    integer                               :: l, q, s     !< Iterators for reading input files
# 1047 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    integer                               :: start, end  !< Ints to keep track of position in file
# 1047 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    character(len=100000)                 :: line  ! String to store line in file
# 1047 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    character(len=25)                     :: value       !< String to store value in line
# 1047 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    integer                               :: NJet        !< Number of jets
# 1047 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    real(wp), allocatable, dimension(:,:) :: ih  ! Array to store interface height in
# 1047 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    logical                               :: file_exist  ! Flag to check if file exists
# 1047 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1047 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    eps = 1e-9_wp
# 1047 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1047 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    if (patch_icpp(patch_id)%hcid == 303) then  ! IGR Multijet
# 1047 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        eps_smooth = 3._wp
# 1047 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        inquire (file="njet.txt", exist=file_exist)
# 1047 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        if (file_exist) then
# 1047 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            open (unit=10, file="njet.txt", status="old", action="read")
# 1047 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            read (10, *) njet
# 1047 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            close (10)
# 1047 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        else
# 1047 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            call s_mpi_abort("Error: njet.txt file specified for hcid=303 does not exist")
# 1047 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        end if
# 1047 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1047 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#ifdef MFC_DEBUG
# 1047 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    block
# 1047 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        use iso_fortran_env, only: output_unit
# 1047 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1047 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        print *, 'm_icpp_patches.fpp:1047: ', '@:ALLOCATE(y_th_arr(0:NJet - 1))'
# 1047 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1047 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        call flush (output_unit)
# 1047 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    end block
# 1047 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#endif
# 1047 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    allocate (y_th_arr(0:njet - 1))
# 1047 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1047 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1047 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#if defined(MFC_OpenACC)
# 1047 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
!$acc enter data create(y_th_arr) 
# 1047 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#elif defined(MFC_OpenMP)
# 1047 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
!$omp target enter data map(always,alloc:y_th_arr) 
# 1047 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#endif
# 1047 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#ifdef MFC_DEBUG
# 1047 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    block
# 1047 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        use iso_fortran_env, only: output_unit
# 1047 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1047 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        print *, 'm_icpp_patches.fpp:1047: ', '@:ALLOCATE(z_th_arr(0:NJet - 1))'
# 1047 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1047 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        call flush (output_unit)
# 1047 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    end block
# 1047 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#endif
# 1047 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    allocate (z_th_arr(0:njet - 1))
# 1047 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1047 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1047 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#if defined(MFC_OpenACC)
# 1047 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
!$acc enter data create(z_th_arr) 
# 1047 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#elif defined(MFC_OpenMP)
# 1047 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
!$omp target enter data map(always,alloc:z_th_arr) 
# 1047 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#endif
# 1047 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#ifdef MFC_DEBUG
# 1047 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    block
# 1047 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        use iso_fortran_env, only: output_unit
# 1047 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1047 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        print *, 'm_icpp_patches.fpp:1047: ', '@:ALLOCATE(r_th_arr(0:NJet - 1))'
# 1047 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1047 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        call flush (output_unit)
# 1047 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    end block
# 1047 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#endif
# 1047 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    allocate (r_th_arr(0:njet - 1))
# 1047 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1047 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1047 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#if defined(MFC_OpenACC)
# 1047 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
!$acc enter data create(r_th_arr) 
# 1047 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#elif defined(MFC_OpenMP)
# 1047 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
!$omp target enter data map(always,alloc:r_th_arr) 
# 1047 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#endif
# 1047 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1047 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        inquire (file="jets.csv", exist=file_exist)
# 1047 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        if (file_exist) then
# 1047 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            open (unit=10, file="jets.csv", status="old", action="read")
# 1047 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            do q = 0, njet - 1
# 1047 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                read (10, '(A)') line  ! Read a full line as a string
# 1047 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                start = 1
# 1047 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1047 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                do l = 0, 2
# 1047 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    end = index(line(start:), ',')  ! Find the next comma
# 1047 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    if (end == 0) then
# 1047 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                        value = trim(adjustl(line(start:)))  ! Last value in the line
# 1047 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    else
# 1047 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                        value = trim(adjustl(line(start:start + end - 2)))  ! Extract substring
# 1047 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                        start = start + end  ! Move to next value
# 1047 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    end if
# 1047 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    if (l == 0) then
# 1047 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                        read (value, *) y_th_arr(q)  ! Convert string to numeric value
# 1047 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    else if (l == 1) then
# 1047 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                        read (value, *) z_th_arr(q)
# 1047 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    else
# 1047 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                        read (value, *) r_th_arr(q)
# 1047 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    end if
# 1047 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                end do
# 1047 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            end do
# 1047 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            close (10)
# 1047 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1047 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            do q = 0, p
# 1047 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                do l = 0, n
# 1047 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    rcut = 0._wp
# 1047 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    do s = 0, njet - 1
# 1047 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                        r = sqrt((y_cc(l) - y_th_arr(s))**2._wp + (z_cc(q) - z_th_arr(s))**2._wp)
# 1047 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                        rcut = rcut + f_cut_on(r - r_th_arr(s), eps_smooth)
# 1047 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    end do
# 1047 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    rcut_arr(l, q) = rcut
# 1047 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                end do
# 1047 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            end do
# 1047 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        else
# 1047 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            call s_mpi_abort("Error: jets.csv file specified for hcid=303 does not exist")
# 1047 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        end if
# 1047 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    end if
# 1047 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1047 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    if (patch_icpp(patch_id)%hcid == 304) then  ! 3D Cartesian interface from file
# 1047 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#ifdef MFC_DEBUG
# 1047 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    block
# 1047 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        use iso_fortran_env, only: output_unit
# 1047 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1047 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        print *, 'm_icpp_patches.fpp:1047: ', '@:ALLOCATE(ih(0:n_glb, 0:p_glb))'
# 1047 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1047 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        call flush (output_unit)
# 1047 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    end block
# 1047 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#endif
# 1047 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    allocate (ih(0:n_glb, 0:p_glb))
# 1047 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1047 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1047 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#if defined(MFC_OpenACC)
# 1047 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
!$acc enter data create(ih) 
# 1047 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#elif defined(MFC_OpenMP)
# 1047 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
!$omp target enter data map(always,alloc:ih) 
# 1047 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#endif
# 1047 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1047 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        if (interface_file == '.') then
# 1047 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            call s_mpi_abort("Error: interface_file must be specified for hcid=304")
# 1047 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        else
# 1047 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            inquire (file=trim(interface_file), exist=file_exist)
# 1047 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            if (file_exist) then
# 1047 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                open (unit=10, file=trim(interface_file), status="old", action="read")
# 1047 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                do i = 0, n_glb
# 1047 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    read (10, '(A)') line  ! Read a full line as a string
# 1047 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    start = 1
# 1047 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1047 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    do j = 0, p_glb
# 1047 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                        end = index(line(start:), ',')  ! Find the next comma
# 1047 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                        if (end == 0) then
# 1047 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                            value = trim(adjustl(line(start:)))  ! Last value in the line
# 1047 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                        else
# 1047 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                            value = trim(adjustl(line(start:start + end - 2)))  ! Extract substring
# 1047 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                            start = start + end  ! Move to next value
# 1047 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                        end if
# 1047 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                        read (value, *) ih(i, j)  ! Convert string to numeric value
# 1047 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                        if (.not. f_is_default(normmag)) ih(i, j) = ih(i, j)*normmag
# 1047 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                        if (.not. f_is_default(normfac)) ih(i, j) = ih(i, j) + normfac
# 1047 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    end do
# 1047 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                end do
# 1047 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                close (10)
# 1047 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            else
# 1047 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                call s_mpi_abort("Error: interface_file specified for hcid=304 does not exist")
# 1047 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            end if
# 1047 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        end if
# 1047 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    end if
# 1047 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1047 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    if (patch_icpp(patch_id)%hcid == 305) then  ! 3D Axisymmetric interface from file
# 1047 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#ifdef MFC_DEBUG
# 1047 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    block
# 1047 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        use iso_fortran_env, only: output_unit
# 1047 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1047 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        print *, 'm_icpp_patches.fpp:1047: ', '@:ALLOCATE(ih(0:n_glb, 0:0))'
# 1047 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1047 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        call flush (output_unit)
# 1047 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    end block
# 1047 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#endif
# 1047 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    allocate (ih(0:n_glb, 0:0))
# 1047 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1047 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1047 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#if defined(MFC_OpenACC)
# 1047 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
!$acc enter data create(ih) 
# 1047 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#elif defined(MFC_OpenMP)
# 1047 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
!$omp target enter data map(always,alloc:ih) 
# 1047 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#endif
# 1047 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        if (interface_file == '.') then
# 1047 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            call s_mpi_abort("Error: interface_file must be specified for hcid=305")
# 1047 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        else
# 1047 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            inquire (file=trim(interface_file), exist=file_exist)
# 1047 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            if (file_exist) then
# 1047 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                open (unit=10, file=trim(interface_file), status="old", action="read")
# 1047 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                do i = 0, n_glb
# 1047 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    read (10, '(A)') line  ! Read a full line as a string
# 1047 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    value = trim(line)
# 1047 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    read (value, *) ih(i, 0)  ! Convert string to numeric value
# 1047 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    if (.not. f_is_default(normmag)) ih(i, 0) = ih(i, 0)*normmag
# 1047 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    if (.not. f_is_default(normfac)) ih(i, 0) = ih(i, 0) + normfac
# 1047 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                end do
# 1047 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                close (10)
# 1047 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            else
# 1047 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                call s_mpi_abort("Error: interface_file specified for hcid=305 does not exist")
# 1047 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            end if
# 1047 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        end if
# 1047 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    end if
 
        ! Transferring the cuboid's centroid and length information
        x_centroid = patch_icpp(patch_id)%x_centroid
        y_centroid = patch_icpp(patch_id)%y_centroid
        z_centroid = patch_icpp(patch_id)%z_centroid
        length_x = patch_icpp(patch_id)%length_x
        length_y = patch_icpp(patch_id)%length_y
        length_z = patch_icpp(patch_id)%length_z
 
        ! Computing the beginning and the end x-, y- and z-coordinates of the cuboid based on its centroid and lengths
        x_boundary%beg = x_centroid - 0.5_wp*length_x
        x_boundary%end = x_centroid + 0.5_wp*length_x
        y_boundary%beg = y_centroid - 0.5_wp*length_y
        y_boundary%end = y_centroid + 0.5_wp*length_y
        z_boundary%beg = z_centroid - 0.5_wp*length_z
        z_boundary%end = z_centroid + 0.5_wp*length_z
 
        ! Set eta=1 (no smoothing for this patch type)
        eta = 1._wp
 
        ! Assign patch vars if cell is covered and patch has write permission
        do k = 0, p
            do j = 0, n
                do i = 0, m
                    if (grid_geometry == 3) then
                        call s_convert_cylindrical_to_cartesian_coord(y_cc(j), z_cc(k))
                    else
                        cart_y = y_cc(j)
                        cart_z = z_cc(k)
                    end if
 
                    if (f_is_inside_cuboid(x_cc(i) - x_centroid, cart_y - y_centroid, cart_z - z_centroid, [length_x, length_y, &
                        & length_z])) then
                        if (patch_icpp(patch_id)%alter_patch(patch_id_fp(i, j, k))) then
                            call s_assign_patch_primitive_variables(patch_id, i, j, k, eta, q_prim_vf, patch_id_fp)
 
 
                            if (patch_icpp(patch_id)%hcid /= dflt_int) then
    select case (patch_icpp(patch_id)%hcid)
# 1086 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    case (300)  ! Rayleigh-Taylor instability
# 1086 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        rhoh = 3._wp
# 1086 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        rhol = 1._wp
# 1086 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        pref = 1.e5_wp
# 1086 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        pint = pref
# 1086 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        h = 0.7_wp
# 1086 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        lam = 0.2_wp
# 1086 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        wl = 2._wp*pi/lam
# 1086 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        amp = 0.025_wp/wl
# 1086 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1086 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        inth = amp*(sin(2._wp*pi*x_cc(i)/lam - pi/2._wp) + sin(2._wp*pi*z_cc(k)/lam - pi/2._wp)) + h
# 1086 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1086 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        alph = 5.e-1_wp*(1._wp + tanh((y_cc(j) - inth)/2.5e-3_wp))
# 1086 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1086 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        if (alph < eps) alph = eps
# 1086 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        if (alph > 1._wp - eps) alph = 1._wp - eps
# 1086 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1086 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        if (y_cc(j) > inth) then
# 1086 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%adv%beg)%sf(i, j, k) = alph
# 1086 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%adv%end)%sf(i, j, k) = 1._wp - alph
# 1086 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%cont%beg)%sf(i, j, k) = alph*rhoh
# 1086 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%cont%end)%sf(i, j, k) = (1._wp - alph)*rhol
# 1086 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%E)%sf(i, j, k) = pref + rhoh*9.81_wp*(1.2_wp - y_cc(j))
# 1086 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        else
# 1086 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%adv%beg)%sf(i, j, k) = alph
# 1086 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%adv%end)%sf(i, j, k) = 1._wp - alph
# 1086 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%cont%beg)%sf(i, j, k) = alph*rhoh
# 1086 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%cont%end)%sf(i, j, k) = (1._wp - alph)*rhol
# 1086 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            pint = pref + rhoh*9.81_wp*(1.2_wp - inth)
# 1086 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%E)%sf(i, j, k) = pint + rhol*9.81_wp*(inth - y_cc(j))
# 1086 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        end if
# 1086 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    case (301)  ! (3D lung geometry in X direction, |sin(*)+sin(*)|)
# 1086 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        h = 0.0_wp
# 1086 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        lam = 1.0_wp
# 1086 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        amp = patch_icpp(patch_id)%a(2)
# 1086 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        inth = amp*abs((sin(2*pi*y_cc(j)/lam - pi/2) + sin(2*pi*z_cc(k)/lam - pi/2)) + h)
# 1086 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        if (x_cc(i) > inth) then
# 1086 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%cont%beg)%sf(i, j, k) = patch_icpp(1)%alpha_rho(1)
# 1086 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%cont%end)%sf(i, j, k) = patch_icpp(1)%alpha_rho(2)
# 1086 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%E)%sf(i, j, k) = patch_icpp(1)%pres
# 1086 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%adv%beg)%sf(i, j, k) = patch_icpp(1)%alpha(1)
# 1086 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%adv%end)%sf(i, j, k) = patch_icpp(1)%alpha(2)
# 1086 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        end if
# 1086 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    case (302)  ! 3D Jet with IGR
# 1086 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ux_th = 10*sqrt(1.4*0.4)
# 1086 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ux_am = 0.0*sqrt(1.4)
# 1086 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        p_th = 2.0_wp
# 1086 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        p_am = 1.0_wp
# 1086 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        rho_th = 1._wp
# 1086 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        rho_am = 1._wp
# 1086 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        y_th = 0.0_wp
# 1086 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        z_th = 0.0_wp
# 1086 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        r_th = 1._wp
# 1086 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        eps_smooth = 1._wp
# 1086 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        eps = 1e-6
# 1086 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1086 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        r = sqrt((y_cc(j) - y_th)**2._wp + (z_cc(k) - z_th)**2._wp)
# 1086 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        rcut = f_cut_on(r - r_th, eps_smooth)
# 1086 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        xcut = f_cut_on(x_cc(i), eps_smooth)
# 1086 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1086 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        q_prim_vf(eqn_idx%mom%beg)%sf(i, j, k) = ux_th*rcut*xcut + ux_am
# 1086 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        q_prim_vf(eqn_idx%mom%beg + 1)%sf(i, j, k) = 0._wp
# 1086 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        q_prim_vf(eqn_idx%mom%end)%sf(i, j, k) = 0._wp
# 1086 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1086 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        if (num_fluids == 1) then
# 1086 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%cont%beg)%sf(i, j, k) = (rho_th - rho_am)*rcut*xcut + rho_am
# 1086 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        else
# 1086 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%adv%beg)%sf(i, j, k) = (1._wp - 2._wp*eps)*rcut*xcut + eps
# 1086 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%cont%beg)%sf(i, j, k) = rho_th*q_prim_vf(eqn_idx%adv%beg)%sf(i, j, k)
# 1086 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%cont%end)%sf(i, j, k) = rho_am*(1._wp - q_prim_vf(eqn_idx%adv%beg)%sf(i, j, k))
# 1086 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        end if
# 1086 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1086 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        q_prim_vf(eqn_idx%E)%sf(i, j, k) = p_th*rcut*xcut + p_am
# 1086 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    case (303)  ! 3D Multijet
# 1086 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        eps_smooth = 3.0_wp
# 1086 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ux_th = 10*sqrt(1.4*0.4)
# 1086 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ux_am = 2.5*sqrt(1.4*0.4)
# 1086 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        p_th = 0.8_wp
# 1086 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        p_am = 0.4_wp
# 1086 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        rho_th = 1._wp
# 1086 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        rho_am = 1._wp
# 1086 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        eps = 1e-6
# 1086 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1086 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        rcut = rcut_arr(j, k)
# 1086 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        xcut = f_cut_on(x_cc(i), eps_smooth)
# 1086 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1086 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        q_prim_vf(eqn_idx%mom%beg)%sf(i, j, k) = ux_th*rcut*xcut + ux_am
# 1086 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        q_prim_vf(eqn_idx%mom%beg + 1)%sf(i, j, k) = 0._wp
# 1086 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        q_prim_vf(eqn_idx%mom%end)%sf(i, j, k) = 0._wp
# 1086 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1086 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        if (num_fluids == 1) then
# 1086 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%cont%beg)%sf(i, j, k) = (rho_th - rho_am)*rcut*xcut + rho_am
# 1086 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        else
# 1086 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%adv%beg)%sf(i, j, k) = (1._wp - 2._wp*eps)*rcut*xcut + eps
# 1086 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%cont%beg)%sf(i, j, k) = rho_th*q_prim_vf(eqn_idx%adv%beg)%sf(i, j, k)
# 1086 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%cont%end)%sf(i, j, k) = rho_am*(1._wp - q_prim_vf(eqn_idx%adv%beg)%sf(i, j, k))
# 1086 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        end if
# 1086 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1086 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        q_prim_vf(eqn_idx%E)%sf(i, j, k) = p_th*rcut*xcut + p_am
# 1086 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    case (304)  ! 3D Interface from file cartesian
# 1086 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        alph = 0.5_wp*(1 + (1._wp - 2._wp*eps)*tanh((ih(start_idx(2) + j, start_idx(3) + k) - x_cc(i))*(0.5_wp/dx)))
# 1086 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1086 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        q_prim_vf(eqn_idx%adv%beg)%sf(i, j, k) = alph
# 1086 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        q_prim_vf(eqn_idx%adv%end)%sf(i, j, k) = 1._wp - alph
# 1086 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1086 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        q_prim_vf(eqn_idx%cont%beg)%sf(i, j, k) = q_prim_vf(eqn_idx%adv%beg)%sf(i, j, k)*(950._wp/1000._wp)
# 1086 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        q_prim_vf(eqn_idx%cont%end)%sf(i, j, k) = q_prim_vf(eqn_idx%adv%end)%sf(i, j, k)*(1._wp/1000._wp)
# 1086 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1086 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        q_prim_vf(eqn_idx%E)%sf(i, j, k) = p0_ic + (q_prim_vf(eqn_idx%cont%beg)%sf(i, j, k) + q_prim_vf(eqn_idx%cont%end)%sf(i, &
# 1086 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                  & j, k))*g0_ic*(ih(start_idx(2) + j, start_idx(3) + k) - x_cc(i))
# 1086 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1086 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        if (surface_tension) q_prim_vf(eqn_idx%c)%sf(i, j, k) = alph
# 1086 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    case (305)  ! 3D Interface from file axisymmetric
# 1086 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        alph = 0.5_wp*(1 + (1._wp - 2._wp*eps)*tanh((ih(start_idx(2) + j, 0) - x_cc(i))*(0.01_wp/dx)))
# 1086 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1086 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        q_prim_vf(eqn_idx%adv%beg)%sf(i, j, k) = alph
# 1086 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        q_prim_vf(eqn_idx%adv%end)%sf(i, j, k) = 1._wp - alph
# 1086 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1086 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        q_prim_vf(eqn_idx%cont%beg)%sf(i, j, k) = q_prim_vf(eqn_idx%adv%beg)%sf(i, j, k)*1._wp
# 1086 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        q_prim_vf(eqn_idx%cont%end)%sf(i, j, k) = q_prim_vf(eqn_idx%adv%end)%sf(i, j, k)*(1._wp/950._wp)
# 1086 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1086 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        q_prim_vf(eqn_idx%E)%sf(i, j, k) = p0_ic + (q_prim_vf(eqn_idx%cont%beg)%sf(i, j, k) + q_prim_vf(eqn_idx%cont%end)%sf(i, &
# 1086 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                  & j, k))*g0_ic*(ih(start_idx(1) + i, start_idx(3) + k) - y_cc(j))
# 1086 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1086 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        if (surface_tension) q_prim_vf(eqn_idx%c)%sf(i, j, k) = alph
# 1086 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    case (370)  ! 3D extrusion of 2D profile from external data
# 1086 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! This hardcoded case extrudes a 2D profile to initialize a 3D simulation domain
# 1086 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    if (.not. files_loaded) then
# 1086 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        max_files = merge(sys_size, sys_size - 1, num_dims == 1)
# 1086 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        do f = 1, max_files
# 1086 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            write (file_num_str, '(I0)') f
# 1086 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            filenames(f) = trim(files_dir) // "/" // "prim." // trim(file_num_str) // ".00." // trim(file_extension) // ".dat"
# 1086 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        end do
# 1086 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1086 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! Common file reading setup
# 1086 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        open (newunit=unit2, file=trim(filenames(1)), status='old', action='read', iostat=ios2)
# 1086 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        if (ios2 /= 0) call s_mpi_abort("Error opening file: " // trim(filenames(1)))
# 1086 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1086 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        select case (num_dims)
# 1086 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        case (1, 2)  ! 1D and 2D cases are similar
# 1086 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            ! Count lines
# 1086 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            line_count = 0
# 1086 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            do
# 1086 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                read (unit2, *, iostat=ios2) dummy_x, dummy_y
# 1086 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                if (ios2 /= 0) exit
# 1086 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                line_count = line_count + 1
# 1086 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            end do
# 1086 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            close (unit2)
# 1086 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1086 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            xrows = line_count
# 1086 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            yrows = 1
# 1086 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            index_x = 0
# 1086 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            if (num_dims == 2) index_x = i
# 1086 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#ifdef MFC_DEBUG
# 1086 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    block
# 1086 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        use iso_fortran_env, only: output_unit
# 1086 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1086 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        print *, 'm_icpp_patches.fpp:1086: ', '@:ALLOCATE(x_coords(xRows), stored_values(xRows, 1, sys_size))'
# 1086 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1086 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        call flush (output_unit)
# 1086 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    end block
# 1086 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#endif
# 1086 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    allocate (x_coords(xrows), stored_values(xrows, 1, sys_size))
# 1086 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1086 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1086 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1086 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#if defined(MFC_OpenACC)
# 1086 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
!$acc enter data create(x_coords, stored_values) 
# 1086 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#elif defined(MFC_OpenMP)
# 1086 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
!$omp target enter data map(always,alloc:x_coords, stored_values) 
# 1086 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#endif
# 1086 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1086 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            ! Read data from all files
# 1086 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            do f = 1, max_files
# 1086 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                open (newunit=unit, file=trim(filenames(f)), status='old', action='read', iostat=ios)
# 1086 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                if (ios /= 0) call s_mpi_abort("Error opening file: " // trim(filenames(f)))
# 1086 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1086 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                do iter = 1, xrows
# 1086 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    read (unit, *, iostat=ios) x_coords(iter), stored_values(iter, 1, f)
# 1086 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    if (ios /= 0) call s_mpi_abort("Error reading file: " // trim(filenames(f)))
# 1086 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                end do
# 1086 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                close (unit)
# 1086 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            end do
# 1086 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1086 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            ! Calculate offsets
# 1086 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            domain_xstart = x_coords(1)
# 1086 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            x_step = x_cc(1) - x_cc(0)
# 1086 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            delta_x = merge(x_cc(0) - domain_xstart, x_cc(index_x) - domain_xstart, num_dims == 1)
# 1086 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            global_offset_x = nint(abs(delta_x)/x_step)
# 1086 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        case (3)  ! 3D case - determine grid structure
# 1086 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            ! Find yRows by counting rows with same x
# 1086 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            read (unit2, *, iostat=ios2) x0, y0, dummy_z
# 1086 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            if (ios2 /= 0) call s_mpi_abort("Error reading first line")
# 1086 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1086 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            yrows = 1
# 1086 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            do
# 1086 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                read (unit2, *, iostat=ios2) dummy_x, dummy_y, dummy_z
# 1086 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                if (ios2 /= 0) exit
# 1086 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                if (f_approx_equal(dummy_x, x0) .and. (.not. f_approx_equal(dummy_y, y0))) then
# 1086 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    yrows = yrows + 1
# 1086 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                else
# 1086 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    exit
# 1086 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                end if
# 1086 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            end do
# 1086 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            close (unit2)
# 1086 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1086 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            ! Count total rows
# 1086 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            open (newunit=unit2, file=trim(filenames(1)), status='old', action='read', iostat=ios2)
# 1086 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            nrows = 0
# 1086 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            do
# 1086 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                read (unit2, *, iostat=ios2) dummy_x, dummy_y, dummy_z
# 1086 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                if (ios2 /= 0) exit
# 1086 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                nrows = nrows + 1
# 1086 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            end do
# 1086 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            close (unit2)
# 1086 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1086 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            xrows = nrows/yrows
# 1086 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#ifdef MFC_DEBUG
# 1086 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    block
# 1086 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        use iso_fortran_env, only: output_unit
# 1086 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1086 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        print *, 'm_icpp_patches.fpp:1086: ', '@:ALLOCATE(x_coords(nrows), y_coords(nrows), stored_values(xRows, yRows, sys_size))'
# 1086 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1086 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        call flush (output_unit)
# 1086 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    end block
# 1086 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#endif
# 1086 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    allocate (x_coords(nrows), y_coords(nrows), stored_values(xrows, yrows, sys_size))
# 1086 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1086 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1086 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1086 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1086 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#if defined(MFC_OpenACC)
# 1086 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
!$acc enter data create(x_coords, y_coords, stored_values) 
# 1086 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#elif defined(MFC_OpenMP)
# 1086 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
!$omp target enter data map(always,alloc:x_coords, y_coords, stored_values) 
# 1086 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#endif
# 1086 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            index_x = i
# 1086 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            index_y = j
# 1086 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1086 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            ! Read all files
# 1086 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            do f = 1, max_files
# 1086 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                open (newunit=unit, file=trim(filenames(f)), status='old', action='read', iostat=ios)
# 1086 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                if (ios /= 0) then
# 1086 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    if (f == 1) call s_mpi_abort("Error opening file: " // trim(filenames(f)))
# 1086 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    cycle
# 1086 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                end if
# 1086 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1086 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                iter = 0
# 1086 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                do iix = 1, xrows
# 1086 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    do iiy = 1, yrows
# 1086 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                        iter = iter + 1
# 1086 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                        if (f == 1) then
# 1086 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                            read (unit, *, iostat=ios) x_coords(iter), y_coords(iter), stored_values(iix, iiy, f)
# 1086 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                        else
# 1086 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                            read (unit, *, iostat=ios) dummy_x, dummy_y, stored_values(iix, iiy, f)
# 1086 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                        end if
# 1086 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                        if (ios /= 0) call s_mpi_abort("Error reading data")
# 1086 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    end do
# 1086 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                end do
# 1086 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                close (unit)
# 1086 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            end do
# 1086 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1086 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            ! Calculate offsets
# 1086 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            x_step = x_cc(1) - x_cc(0)
# 1086 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            y_step = y_cc(1) - y_cc(0)
# 1086 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            delta_x = x_cc(index_x) - x_coords(1)
# 1086 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            delta_y = y_cc(index_y) - y_coords(1)
# 1086 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            global_offset_x = nint(abs(delta_x)/x_step)
# 1086 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            global_offset_y = nint(abs(delta_y)/y_step)
# 1086 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        end select
# 1086 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1086 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        files_loaded = .true.
# 1086 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    end if
# 1086 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1086 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    ! Data assignment
# 1086 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    select case (num_dims)
# 1086 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    case (1)
# 1086 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        idx = i + 1 + global_offset_x
# 1086 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! idx must land inside the file's row range: this rank's subdomain offset
# 1086 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! (global_offset_x) was derived from this rank's own grid, so a miss means the
# 1086 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! IC file is misaligned/mis-sized for the run grid, not a normal boundary case.
# 1086 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        if (idx < 1 .or. idx > xrows) &
# 1086 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            & call s_mpi_abort("Hardcoded IC extrusion: row index out of range (IC file misaligned with the run grid)")
# 1086 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        do f = 1, sys_size
# 1086 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(f)%sf(i, 0, 0) = stored_values(idx, 1, f)
# 1086 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        end do
# 1086 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    case (2)
# 1086 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        idx = i + 1 + global_offset_x - index_x
# 1086 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        if (idx < 1 .or. idx > xrows) &
# 1086 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            & call s_mpi_abort("Hardcoded IC extrusion: row index out of range (IC file misaligned with the run grid)")
# 1086 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        do f = 1, sys_size - 1
# 1086 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            jump = merge(1, 0, f >= eqn_idx%mom%end)
# 1086 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(f + jump)%sf(i, j, 0) = stored_values(idx, 1, f)
# 1086 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        end do
# 1086 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        q_prim_vf(eqn_idx%mom%end)%sf(i, j, 0) = 0.0_wp
# 1086 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    case (3)
# 1086 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        idx = i + 1 + global_offset_x - index_x
# 1086 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        idy = j + 1 + global_offset_y - index_y
# 1086 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        if (idx < 1 .or. idx > xrows .or. idy < 1 .or. idy > yrows) &
# 1086 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            & call s_mpi_abort("Hardcoded IC extrusion: row/column index out of range (IC file misaligned with the run grid)")
# 1086 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        do f = 1, sys_size - 1
# 1086 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            jump = merge(1, 0, f >= eqn_idx%mom%end)
# 1086 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(f + jump)%sf(i, j, k) = stored_values(idx, idy, f)
# 1086 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        end do
# 1086 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        q_prim_vf(eqn_idx%mom%end)%sf(i, j, k) = 0.0_wp
# 1086 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    end select
# 1086 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    case (380)  ! Taylor-Green vortex
# 1086 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! This is patch is hard-coded for test suite optimization used in the 3D_TaylorGreenVortex case: This analytic patch used
# 1086 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! geometry 9
# 1086 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        mach = 0.1
# 1086 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        if (patch_id == 1) then
# 1086 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%E)%sf(i, j, &
# 1086 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                      & k) = 101325 + (mach**2*376.636429464809**2/16)*(cos(2*x_cc(i)/1) + cos(2*y_cc(j)/1))*(cos(2*z_cc(k)/1) + 2)
# 1086 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%mom%beg + 0)%sf(i, j, k) = mach*376.636429464809*sin(x_cc(i)/1)*cos(y_cc(j)/1)*sin(z_cc(k)/1)
# 1086 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%mom%beg + 1)%sf(i, j, k) = -mach*376.636429464809*cos(x_cc(i)/1)*sin(y_cc(j)/1)*sin(z_cc(k)/1)
# 1086 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        end if
# 1086 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    case default
# 1086 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        call s_int_to_str(patch_id, istr)
# 1086 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        call s_mpi_abort("Invalid hcid specified for patch " // trim(istr))
# 1086 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    end select
                            end if
 
                            ! Updating the patch identities bookkeeping variable
                            if (1._wp - eta < sgm_eps) patch_id_fp(i, j, k) = patch_id
                        end if
                    end if
                end do
            end do
        end do
    if (allocated(stored_values)) then
# 1096 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#ifdef MFC_DEBUG
# 1096 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    block
# 1096 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        use iso_fortran_env, only: output_unit
# 1096 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1096 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        print *, 'm_icpp_patches.fpp:1096: ', '@:DEALLOCATE(stored_values)'
# 1096 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1096 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        call flush (output_unit)
# 1096 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    end block
# 1096 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#endif
# 1096 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1096 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#if defined(MFC_OpenACC)
# 1096 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
!$acc exit data delete(stored_values) 
# 1096 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#elif defined(MFC_OpenMP)
# 1096 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
!$omp target exit data map(release:stored_values) 
# 1096 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#endif
# 1096 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    deallocate (stored_values)
# 1096 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#ifdef MFC_DEBUG
# 1096 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    block
# 1096 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        use iso_fortran_env, only: output_unit
# 1096 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1096 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        print *, 'm_icpp_patches.fpp:1096: ', '@:DEALLOCATE(x_coords)'
# 1096 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1096 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        call flush (output_unit)
# 1096 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    end block
# 1096 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#endif
# 1096 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1096 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#if defined(MFC_OpenACC)
# 1096 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
!$acc exit data delete(x_coords) 
# 1096 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#elif defined(MFC_OpenMP)
# 1096 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
!$omp target exit data map(release:x_coords) 
# 1096 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#endif
# 1096 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    deallocate (x_coords)
# 1096 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    end if
# 1096 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1096 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    if (allocated(y_coords)) then
# 1096 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#ifdef MFC_DEBUG
# 1096 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    block
# 1096 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        use iso_fortran_env, only: output_unit
# 1096 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1096 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        print *, 'm_icpp_patches.fpp:1096: ', '@:DEALLOCATE(y_coords)'
# 1096 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1096 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        call flush (output_unit)
# 1096 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    end block
# 1096 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#endif
# 1096 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1096 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#if defined(MFC_OpenACC)
# 1096 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
!$acc exit data delete(y_coords) 
# 1096 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#elif defined(MFC_OpenMP)
# 1096 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
!$omp target exit data map(release:y_coords) 
# 1096 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#endif
# 1096 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    deallocate (y_coords)
# 1096 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    end if
# 1096 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1096 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    files_loaded = .false.
# 1096 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1096 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    if (allocated(stored_values274)) then
# 1096 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#ifdef MFC_DEBUG
# 1096 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    block
# 1096 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        use iso_fortran_env, only: output_unit
# 1096 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1096 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        print *, 'm_icpp_patches.fpp:1096: ', '@:DEALLOCATE(stored_values274)'
# 1096 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1096 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        call flush (output_unit)
# 1096 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    end block
# 1096 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#endif
# 1096 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1096 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#if defined(MFC_OpenACC)
# 1096 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
!$acc exit data delete(stored_values274) 
# 1096 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#elif defined(MFC_OpenMP)
# 1096 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
!$omp target exit data map(release:stored_values274) 
# 1096 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#endif
# 1096 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    deallocate (stored_values274)
# 1096 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    end if
# 1096 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1096 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    files_loaded274 = .false.
 
    end subroutine s_icpp_cuboid
 
    !> The cylindrical patch is a 3D geometry that may be used, for example, in setting up a cylindrical solid boundary confinement,
    !! like a blood vessel. The geometry of this patch is well-defined when the centroid, the radius and the length along the
    !! cylinder's axis, parallel to the x-, y- or z-coordinate direction, are provided. Please note that the cylindrical patch DOES
    !! allow for the smoothing of its lateral boundary.
    subroutine s_icpp_cylinder(patch_id, patch_id_fp, q_prim_vf)
 
        integer, intent(in) :: patch_id
 
#ifdef MFC_MIXED_PRECISION
        integer(kind=1), dimension(0:m,0:n,0:p), intent(inout) :: patch_id_fp
#else
        integer, dimension(0:m,0:n,0:p), intent(inout) :: patch_id_fp
#endif
        type(scalar_field), dimension(1:sys_size), intent(inout) :: q_prim_vf
        integer                                                  :: i, j, k  !< Generic loop iterators
        real(wp)                                                 :: radius
 
    integer                                 :: xRows, yRows, nRows, iix, iiy, max_files
# 1117 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    integer                                 :: f, iter, unit, unit2, idx, idy, index_x, index_y, jump, line_count
# 1117 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    real(wp)                                :: x_step, y_step
# 1117 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    real(wp)                                :: dummy_x, dummy_y, dummy_z, x0, y0
# 1117 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    integer                                 :: global_offset_x, global_offset_y  !< MPI subdomain offset
# 1117 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    real(wp)                                :: delta_x, delta_y
# 1117 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    character(len=300), dimension(sys_size) :: fileNames                         !< Arrays to store all data from files
# 1117 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    real(wp), allocatable                   :: stored_values(:,:,:)
# 1117 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    real(wp), allocatable                   :: x_coords(:), y_coords(:)
# 1117 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    logical                                 :: files_loaded = .false.
# 1117 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    real(wp)                                :: domain_xstart
# 1117 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    character(len=20)                       :: file_num_str                      !< For storing the file number as a string
# 1117 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    integer                                 :: ios
# 1117 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    integer                                 :: ios2
# 1117 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1117 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    ! hcid=274 (2dHardcodedIC.fpp): full 2D field from external data, no extrusion.
# 1117 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    ! Declared here (not in Hardcoded2DVariables()) so it's visible wherever
# 1117 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    ! HardcodedDeallocation() is called, matching the pattern of stored_values/x_coords/
# 1117 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    ! y_coords/files_loaded above.
# 1117 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    real(wp), allocatable, dimension(:,:,:) :: stored_values274
# 1117 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    logical                                 :: files_loaded274 = .false.
# 1117 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    integer                                 :: f274, ix274, iy274, unit274, ios274
# 1117 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    integer                                 :: local_ix_beg274, local_iy_beg274
# 1117 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    character(len=300)                      :: fname274
# 1117 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    character(len=20)                       :: file_num_str274
# 1117 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    real(wp)                                :: dummy_x274, dummy_y274, dummy_val274, x0_274, y0_274, x_step274, y_step274
# 1117 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    real(wp)                                :: file_dx274, file_dy274, r_align274
    ! Place any declaration of intermediate variables here
# 1118 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    real(wp) :: rhoH, rhoL, pRef, pInt, h, lam, wl, amp, intH, alph, Mach
# 1118 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    real(wp) :: eps
# 1118 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1118 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    ! IGR Jets Arrays to stor position and radii of jets from input file
# 1118 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    real(wp), dimension(:), allocatable :: y_th_arr, z_th_arr, r_th_arr
# 1118 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    ! Variables to describe initial condition of jet
# 1118 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    real(wp)                              :: r, ux_th, ux_am, p_th, p_am, rho_th, rho_am, y_th, z_th, r_th, eps_smooth
# 1118 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    real(wp)                              :: rcut, xcut  !< Intermediate variables for creating smooth initial condition
# 1118 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    real(wp), dimension(0:n,0:p)          :: rcut_arr
# 1118 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    integer                               :: l, q, s     !< Iterators for reading input files
# 1118 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    integer                               :: start, end  !< Ints to keep track of position in file
# 1118 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    character(len=100000)                 :: line  ! String to store line in file
# 1118 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    character(len=25)                     :: value       !< String to store value in line
# 1118 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    integer                               :: NJet        !< Number of jets
# 1118 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    real(wp), allocatable, dimension(:,:) :: ih  ! Array to store interface height in
# 1118 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    logical                               :: file_exist  ! Flag to check if file exists
# 1118 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1118 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    eps = 1e-9_wp
# 1118 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1118 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    if (patch_icpp(patch_id)%hcid == 303) then  ! IGR Multijet
# 1118 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        eps_smooth = 3._wp
# 1118 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        inquire (file="njet.txt", exist=file_exist)
# 1118 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        if (file_exist) then
# 1118 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            open (unit=10, file="njet.txt", status="old", action="read")
# 1118 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            read (10, *) njet
# 1118 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            close (10)
# 1118 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        else
# 1118 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            call s_mpi_abort("Error: njet.txt file specified for hcid=303 does not exist")
# 1118 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        end if
# 1118 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1118 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#ifdef MFC_DEBUG
# 1118 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    block
# 1118 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        use iso_fortran_env, only: output_unit
# 1118 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1118 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        print *, 'm_icpp_patches.fpp:1118: ', '@:ALLOCATE(y_th_arr(0:NJet - 1))'
# 1118 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1118 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        call flush (output_unit)
# 1118 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    end block
# 1118 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#endif
# 1118 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    allocate (y_th_arr(0:njet - 1))
# 1118 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1118 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1118 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#if defined(MFC_OpenACC)
# 1118 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
!$acc enter data create(y_th_arr) 
# 1118 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#elif defined(MFC_OpenMP)
# 1118 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
!$omp target enter data map(always,alloc:y_th_arr) 
# 1118 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#endif
# 1118 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#ifdef MFC_DEBUG
# 1118 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    block
# 1118 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        use iso_fortran_env, only: output_unit
# 1118 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1118 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        print *, 'm_icpp_patches.fpp:1118: ', '@:ALLOCATE(z_th_arr(0:NJet - 1))'
# 1118 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1118 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        call flush (output_unit)
# 1118 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    end block
# 1118 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#endif
# 1118 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    allocate (z_th_arr(0:njet - 1))
# 1118 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1118 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1118 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#if defined(MFC_OpenACC)
# 1118 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
!$acc enter data create(z_th_arr) 
# 1118 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#elif defined(MFC_OpenMP)
# 1118 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
!$omp target enter data map(always,alloc:z_th_arr) 
# 1118 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#endif
# 1118 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#ifdef MFC_DEBUG
# 1118 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    block
# 1118 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        use iso_fortran_env, only: output_unit
# 1118 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1118 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        print *, 'm_icpp_patches.fpp:1118: ', '@:ALLOCATE(r_th_arr(0:NJet - 1))'
# 1118 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1118 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        call flush (output_unit)
# 1118 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    end block
# 1118 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#endif
# 1118 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    allocate (r_th_arr(0:njet - 1))
# 1118 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1118 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1118 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#if defined(MFC_OpenACC)
# 1118 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
!$acc enter data create(r_th_arr) 
# 1118 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#elif defined(MFC_OpenMP)
# 1118 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
!$omp target enter data map(always,alloc:r_th_arr) 
# 1118 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#endif
# 1118 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1118 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        inquire (file="jets.csv", exist=file_exist)
# 1118 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        if (file_exist) then
# 1118 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            open (unit=10, file="jets.csv", status="old", action="read")
# 1118 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            do q = 0, njet - 1
# 1118 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                read (10, '(A)') line  ! Read a full line as a string
# 1118 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                start = 1
# 1118 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1118 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                do l = 0, 2
# 1118 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    end = index(line(start:), ',')  ! Find the next comma
# 1118 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    if (end == 0) then
# 1118 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                        value = trim(adjustl(line(start:)))  ! Last value in the line
# 1118 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    else
# 1118 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                        value = trim(adjustl(line(start:start + end - 2)))  ! Extract substring
# 1118 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                        start = start + end  ! Move to next value
# 1118 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    end if
# 1118 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    if (l == 0) then
# 1118 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                        read (value, *) y_th_arr(q)  ! Convert string to numeric value
# 1118 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    else if (l == 1) then
# 1118 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                        read (value, *) z_th_arr(q)
# 1118 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    else
# 1118 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                        read (value, *) r_th_arr(q)
# 1118 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    end if
# 1118 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                end do
# 1118 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            end do
# 1118 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            close (10)
# 1118 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1118 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            do q = 0, p
# 1118 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                do l = 0, n
# 1118 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    rcut = 0._wp
# 1118 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    do s = 0, njet - 1
# 1118 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                        r = sqrt((y_cc(l) - y_th_arr(s))**2._wp + (z_cc(q) - z_th_arr(s))**2._wp)
# 1118 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                        rcut = rcut + f_cut_on(r - r_th_arr(s), eps_smooth)
# 1118 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    end do
# 1118 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    rcut_arr(l, q) = rcut
# 1118 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                end do
# 1118 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            end do
# 1118 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        else
# 1118 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            call s_mpi_abort("Error: jets.csv file specified for hcid=303 does not exist")
# 1118 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        end if
# 1118 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    end if
# 1118 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1118 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    if (patch_icpp(patch_id)%hcid == 304) then  ! 3D Cartesian interface from file
# 1118 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#ifdef MFC_DEBUG
# 1118 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    block
# 1118 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        use iso_fortran_env, only: output_unit
# 1118 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1118 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        print *, 'm_icpp_patches.fpp:1118: ', '@:ALLOCATE(ih(0:n_glb, 0:p_glb))'
# 1118 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1118 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        call flush (output_unit)
# 1118 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    end block
# 1118 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#endif
# 1118 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    allocate (ih(0:n_glb, 0:p_glb))
# 1118 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1118 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1118 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#if defined(MFC_OpenACC)
# 1118 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
!$acc enter data create(ih) 
# 1118 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#elif defined(MFC_OpenMP)
# 1118 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
!$omp target enter data map(always,alloc:ih) 
# 1118 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#endif
# 1118 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1118 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        if (interface_file == '.') then
# 1118 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            call s_mpi_abort("Error: interface_file must be specified for hcid=304")
# 1118 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        else
# 1118 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            inquire (file=trim(interface_file), exist=file_exist)
# 1118 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            if (file_exist) then
# 1118 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                open (unit=10, file=trim(interface_file), status="old", action="read")
# 1118 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                do i = 0, n_glb
# 1118 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    read (10, '(A)') line  ! Read a full line as a string
# 1118 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    start = 1
# 1118 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1118 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    do j = 0, p_glb
# 1118 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                        end = index(line(start:), ',')  ! Find the next comma
# 1118 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                        if (end == 0) then
# 1118 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                            value = trim(adjustl(line(start:)))  ! Last value in the line
# 1118 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                        else
# 1118 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                            value = trim(adjustl(line(start:start + end - 2)))  ! Extract substring
# 1118 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                            start = start + end  ! Move to next value
# 1118 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                        end if
# 1118 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                        read (value, *) ih(i, j)  ! Convert string to numeric value
# 1118 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                        if (.not. f_is_default(normmag)) ih(i, j) = ih(i, j)*normmag
# 1118 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                        if (.not. f_is_default(normfac)) ih(i, j) = ih(i, j) + normfac
# 1118 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    end do
# 1118 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                end do
# 1118 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                close (10)
# 1118 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            else
# 1118 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                call s_mpi_abort("Error: interface_file specified for hcid=304 does not exist")
# 1118 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            end if
# 1118 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        end if
# 1118 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    end if
# 1118 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1118 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    if (patch_icpp(patch_id)%hcid == 305) then  ! 3D Axisymmetric interface from file
# 1118 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#ifdef MFC_DEBUG
# 1118 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    block
# 1118 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        use iso_fortran_env, only: output_unit
# 1118 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1118 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        print *, 'm_icpp_patches.fpp:1118: ', '@:ALLOCATE(ih(0:n_glb, 0:0))'
# 1118 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1118 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        call flush (output_unit)
# 1118 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    end block
# 1118 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#endif
# 1118 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    allocate (ih(0:n_glb, 0:0))
# 1118 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1118 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1118 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#if defined(MFC_OpenACC)
# 1118 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
!$acc enter data create(ih) 
# 1118 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#elif defined(MFC_OpenMP)
# 1118 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
!$omp target enter data map(always,alloc:ih) 
# 1118 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#endif
# 1118 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        if (interface_file == '.') then
# 1118 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            call s_mpi_abort("Error: interface_file must be specified for hcid=305")
# 1118 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        else
# 1118 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            inquire (file=trim(interface_file), exist=file_exist)
# 1118 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            if (file_exist) then
# 1118 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                open (unit=10, file=trim(interface_file), status="old", action="read")
# 1118 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                do i = 0, n_glb
# 1118 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    read (10, '(A)') line  ! Read a full line as a string
# 1118 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    value = trim(line)
# 1118 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    read (value, *) ih(i, 0)  ! Convert string to numeric value
# 1118 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    if (.not. f_is_default(normmag)) ih(i, 0) = ih(i, 0)*normmag
# 1118 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    if (.not. f_is_default(normfac)) ih(i, 0) = ih(i, 0) + normfac
# 1118 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                end do
# 1118 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                close (10)
# 1118 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            else
# 1118 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                call s_mpi_abort("Error: interface_file specified for hcid=305 does not exist")
# 1118 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            end if
# 1118 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        end if
# 1118 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    end if
 
        ! Transferring the cylindrical patch's centroid, length, radius, smoothing patch identity and smoothing coefficient
        ! information
        x_centroid = patch_icpp(patch_id)%x_centroid
        y_centroid = patch_icpp(patch_id)%y_centroid
        z_centroid = patch_icpp(patch_id)%z_centroid
        length_x = patch_icpp(patch_id)%length_x
        length_y = patch_icpp(patch_id)%length_y
        length_z = patch_icpp(patch_id)%length_z
        radius = patch_icpp(patch_id)%radius
        smooth_patch_id = patch_icpp(patch_id)%smooth_patch_id
        smooth_coeff = patch_icpp(patch_id)%smooth_coeff
 
        ! Computing the beginning and the end x-, y- and z-coordinates of the cylinder based on its centroid and lengths
        x_boundary%beg = x_centroid - 0.5_wp*length_x
        x_boundary%end = x_centroid + 0.5_wp*length_x
        y_boundary%beg = y_centroid - 0.5_wp*length_y
        y_boundary%end = y_centroid + 0.5_wp*length_y
        z_boundary%beg = z_centroid - 0.5_wp*length_z
        z_boundary%end = z_centroid + 0.5_wp*length_z
 
        ! Initialize eta=1; modified if smoothing is enabled
        eta = 1._wp
 
        ! Assign patch vars if cell is covered and patch has write permission
        do k = 0, p
            do j = 0, n
                do i = 0, m
                    if (grid_geometry == 3) then
                        call s_convert_cylindrical_to_cartesian_coord(y_cc(j), z_cc(k))
                    else
                        cart_y = y_cc(j)
                        cart_z = z_cc(k)
                    end if
 
                    if (patch_icpp(patch_id)%smoothen) then
                        if (.not. f_is_default(length_x)) then
                            eta = tanh(smooth_coeff/min(dy, &
                                       & dz)*(sqrt((cart_y - y_centroid)**2 + (cart_z - z_centroid)**2) - radius))*(-0.5_wp) &
                                       & + 0.5_wp
                        else if (.not. f_is_default(length_y)) then
                            eta = tanh(smooth_coeff/min(dx, &
                                       & dz)*(sqrt((x_cc(i) - x_centroid)**2 + (cart_z - z_centroid)**2) - radius))*(-0.5_wp) &
                                       & + 0.5_wp
                        else
                            eta = tanh(smooth_coeff/min(dx, &
                                       & dy)*(sqrt((x_cc(i) - x_centroid)**2 + (cart_y - y_centroid)**2) - radius))*(-0.5_wp) &
                                       & + 0.5_wp
                        end if
                    end if
 
                    if (((.not. f_is_default(length_x) .and. f_is_inside_cylinder(cart_y - y_centroid, cart_z - z_centroid, &
                        & x_cc(i) - x_centroid, radius, &
                        & length_x)) .or. (.not. f_is_default(length_y) .and. f_is_inside_cylinder(x_cc(i) - x_centroid, &
                        & cart_z - z_centroid, cart_y - y_centroid, radius, &
                        & length_y)) .or. (.not. f_is_default(length_z) .and. f_is_inside_cylinder(x_cc(i) - x_centroid, &
                        & cart_y - y_centroid, cart_z - z_centroid, radius, &
                        & length_z)) .and. patch_icpp(patch_id)%alter_patch(patch_id_fp(i, j, k))) .or. patch_id_fp(i, j, &
                        & k) == smooth_patch_id) then
                        call s_assign_patch_primitive_variables(patch_id, i, j, k, eta, q_prim_vf, patch_id_fp)
 
 
                        if (patch_icpp(patch_id)%hcid /= dflt_int) then
    select case (patch_icpp(patch_id)%hcid)
# 1182 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    case (300)  ! Rayleigh-Taylor instability
# 1182 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        rhoh = 3._wp
# 1182 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        rhol = 1._wp
# 1182 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        pref = 1.e5_wp
# 1182 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        pint = pref
# 1182 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        h = 0.7_wp
# 1182 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        lam = 0.2_wp
# 1182 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        wl = 2._wp*pi/lam
# 1182 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        amp = 0.025_wp/wl
# 1182 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1182 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        inth = amp*(sin(2._wp*pi*x_cc(i)/lam - pi/2._wp) + sin(2._wp*pi*z_cc(k)/lam - pi/2._wp)) + h
# 1182 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1182 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        alph = 5.e-1_wp*(1._wp + tanh((y_cc(j) - inth)/2.5e-3_wp))
# 1182 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1182 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        if (alph < eps) alph = eps
# 1182 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        if (alph > 1._wp - eps) alph = 1._wp - eps
# 1182 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1182 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        if (y_cc(j) > inth) then
# 1182 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%adv%beg)%sf(i, j, k) = alph
# 1182 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%adv%end)%sf(i, j, k) = 1._wp - alph
# 1182 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%cont%beg)%sf(i, j, k) = alph*rhoh
# 1182 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%cont%end)%sf(i, j, k) = (1._wp - alph)*rhol
# 1182 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%E)%sf(i, j, k) = pref + rhoh*9.81_wp*(1.2_wp - y_cc(j))
# 1182 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        else
# 1182 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%adv%beg)%sf(i, j, k) = alph
# 1182 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%adv%end)%sf(i, j, k) = 1._wp - alph
# 1182 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%cont%beg)%sf(i, j, k) = alph*rhoh
# 1182 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%cont%end)%sf(i, j, k) = (1._wp - alph)*rhol
# 1182 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            pint = pref + rhoh*9.81_wp*(1.2_wp - inth)
# 1182 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%E)%sf(i, j, k) = pint + rhol*9.81_wp*(inth - y_cc(j))
# 1182 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        end if
# 1182 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    case (301)  ! (3D lung geometry in X direction, |sin(*)+sin(*)|)
# 1182 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        h = 0.0_wp
# 1182 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        lam = 1.0_wp
# 1182 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        amp = patch_icpp(patch_id)%a(2)
# 1182 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        inth = amp*abs((sin(2*pi*y_cc(j)/lam - pi/2) + sin(2*pi*z_cc(k)/lam - pi/2)) + h)
# 1182 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        if (x_cc(i) > inth) then
# 1182 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%cont%beg)%sf(i, j, k) = patch_icpp(1)%alpha_rho(1)
# 1182 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%cont%end)%sf(i, j, k) = patch_icpp(1)%alpha_rho(2)
# 1182 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%E)%sf(i, j, k) = patch_icpp(1)%pres
# 1182 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%adv%beg)%sf(i, j, k) = patch_icpp(1)%alpha(1)
# 1182 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%adv%end)%sf(i, j, k) = patch_icpp(1)%alpha(2)
# 1182 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        end if
# 1182 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    case (302)  ! 3D Jet with IGR
# 1182 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ux_th = 10*sqrt(1.4*0.4)
# 1182 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ux_am = 0.0*sqrt(1.4)
# 1182 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        p_th = 2.0_wp
# 1182 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        p_am = 1.0_wp
# 1182 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        rho_th = 1._wp
# 1182 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        rho_am = 1._wp
# 1182 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        y_th = 0.0_wp
# 1182 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        z_th = 0.0_wp
# 1182 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        r_th = 1._wp
# 1182 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        eps_smooth = 1._wp
# 1182 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        eps = 1e-6
# 1182 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1182 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        r = sqrt((y_cc(j) - y_th)**2._wp + (z_cc(k) - z_th)**2._wp)
# 1182 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        rcut = f_cut_on(r - r_th, eps_smooth)
# 1182 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        xcut = f_cut_on(x_cc(i), eps_smooth)
# 1182 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1182 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        q_prim_vf(eqn_idx%mom%beg)%sf(i, j, k) = ux_th*rcut*xcut + ux_am
# 1182 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        q_prim_vf(eqn_idx%mom%beg + 1)%sf(i, j, k) = 0._wp
# 1182 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        q_prim_vf(eqn_idx%mom%end)%sf(i, j, k) = 0._wp
# 1182 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1182 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        if (num_fluids == 1) then
# 1182 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%cont%beg)%sf(i, j, k) = (rho_th - rho_am)*rcut*xcut + rho_am
# 1182 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        else
# 1182 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%adv%beg)%sf(i, j, k) = (1._wp - 2._wp*eps)*rcut*xcut + eps
# 1182 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%cont%beg)%sf(i, j, k) = rho_th*q_prim_vf(eqn_idx%adv%beg)%sf(i, j, k)
# 1182 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%cont%end)%sf(i, j, k) = rho_am*(1._wp - q_prim_vf(eqn_idx%adv%beg)%sf(i, j, k))
# 1182 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        end if
# 1182 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1182 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        q_prim_vf(eqn_idx%E)%sf(i, j, k) = p_th*rcut*xcut + p_am
# 1182 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    case (303)  ! 3D Multijet
# 1182 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        eps_smooth = 3.0_wp
# 1182 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ux_th = 10*sqrt(1.4*0.4)
# 1182 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ux_am = 2.5*sqrt(1.4*0.4)
# 1182 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        p_th = 0.8_wp
# 1182 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        p_am = 0.4_wp
# 1182 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        rho_th = 1._wp
# 1182 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        rho_am = 1._wp
# 1182 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        eps = 1e-6
# 1182 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1182 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        rcut = rcut_arr(j, k)
# 1182 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        xcut = f_cut_on(x_cc(i), eps_smooth)
# 1182 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1182 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        q_prim_vf(eqn_idx%mom%beg)%sf(i, j, k) = ux_th*rcut*xcut + ux_am
# 1182 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        q_prim_vf(eqn_idx%mom%beg + 1)%sf(i, j, k) = 0._wp
# 1182 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        q_prim_vf(eqn_idx%mom%end)%sf(i, j, k) = 0._wp
# 1182 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1182 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        if (num_fluids == 1) then
# 1182 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%cont%beg)%sf(i, j, k) = (rho_th - rho_am)*rcut*xcut + rho_am
# 1182 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        else
# 1182 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%adv%beg)%sf(i, j, k) = (1._wp - 2._wp*eps)*rcut*xcut + eps
# 1182 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%cont%beg)%sf(i, j, k) = rho_th*q_prim_vf(eqn_idx%adv%beg)%sf(i, j, k)
# 1182 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%cont%end)%sf(i, j, k) = rho_am*(1._wp - q_prim_vf(eqn_idx%adv%beg)%sf(i, j, k))
# 1182 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        end if
# 1182 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1182 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        q_prim_vf(eqn_idx%E)%sf(i, j, k) = p_th*rcut*xcut + p_am
# 1182 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    case (304)  ! 3D Interface from file cartesian
# 1182 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        alph = 0.5_wp*(1 + (1._wp - 2._wp*eps)*tanh((ih(start_idx(2) + j, start_idx(3) + k) - x_cc(i))*(0.5_wp/dx)))
# 1182 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1182 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        q_prim_vf(eqn_idx%adv%beg)%sf(i, j, k) = alph
# 1182 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        q_prim_vf(eqn_idx%adv%end)%sf(i, j, k) = 1._wp - alph
# 1182 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1182 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        q_prim_vf(eqn_idx%cont%beg)%sf(i, j, k) = q_prim_vf(eqn_idx%adv%beg)%sf(i, j, k)*(950._wp/1000._wp)
# 1182 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        q_prim_vf(eqn_idx%cont%end)%sf(i, j, k) = q_prim_vf(eqn_idx%adv%end)%sf(i, j, k)*(1._wp/1000._wp)
# 1182 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1182 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        q_prim_vf(eqn_idx%E)%sf(i, j, k) = p0_ic + (q_prim_vf(eqn_idx%cont%beg)%sf(i, j, k) + q_prim_vf(eqn_idx%cont%end)%sf(i, &
# 1182 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                  & j, k))*g0_ic*(ih(start_idx(2) + j, start_idx(3) + k) - x_cc(i))
# 1182 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1182 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        if (surface_tension) q_prim_vf(eqn_idx%c)%sf(i, j, k) = alph
# 1182 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    case (305)  ! 3D Interface from file axisymmetric
# 1182 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        alph = 0.5_wp*(1 + (1._wp - 2._wp*eps)*tanh((ih(start_idx(2) + j, 0) - x_cc(i))*(0.01_wp/dx)))
# 1182 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1182 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        q_prim_vf(eqn_idx%adv%beg)%sf(i, j, k) = alph
# 1182 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        q_prim_vf(eqn_idx%adv%end)%sf(i, j, k) = 1._wp - alph
# 1182 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1182 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        q_prim_vf(eqn_idx%cont%beg)%sf(i, j, k) = q_prim_vf(eqn_idx%adv%beg)%sf(i, j, k)*1._wp
# 1182 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        q_prim_vf(eqn_idx%cont%end)%sf(i, j, k) = q_prim_vf(eqn_idx%adv%end)%sf(i, j, k)*(1._wp/950._wp)
# 1182 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1182 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        q_prim_vf(eqn_idx%E)%sf(i, j, k) = p0_ic + (q_prim_vf(eqn_idx%cont%beg)%sf(i, j, k) + q_prim_vf(eqn_idx%cont%end)%sf(i, &
# 1182 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                  & j, k))*g0_ic*(ih(start_idx(1) + i, start_idx(3) + k) - y_cc(j))
# 1182 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1182 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        if (surface_tension) q_prim_vf(eqn_idx%c)%sf(i, j, k) = alph
# 1182 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    case (370)  ! 3D extrusion of 2D profile from external data
# 1182 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! This hardcoded case extrudes a 2D profile to initialize a 3D simulation domain
# 1182 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    if (.not. files_loaded) then
# 1182 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        max_files = merge(sys_size, sys_size - 1, num_dims == 1)
# 1182 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        do f = 1, max_files
# 1182 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            write (file_num_str, '(I0)') f
# 1182 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            filenames(f) = trim(files_dir) // "/" // "prim." // trim(file_num_str) // ".00." // trim(file_extension) // ".dat"
# 1182 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        end do
# 1182 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1182 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! Common file reading setup
# 1182 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        open (newunit=unit2, file=trim(filenames(1)), status='old', action='read', iostat=ios2)
# 1182 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        if (ios2 /= 0) call s_mpi_abort("Error opening file: " // trim(filenames(1)))
# 1182 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1182 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        select case (num_dims)
# 1182 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        case (1, 2)  ! 1D and 2D cases are similar
# 1182 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            ! Count lines
# 1182 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            line_count = 0
# 1182 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            do
# 1182 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                read (unit2, *, iostat=ios2) dummy_x, dummy_y
# 1182 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                if (ios2 /= 0) exit
# 1182 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                line_count = line_count + 1
# 1182 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            end do
# 1182 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            close (unit2)
# 1182 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1182 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            xrows = line_count
# 1182 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            yrows = 1
# 1182 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            index_x = 0
# 1182 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            if (num_dims == 2) index_x = i
# 1182 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#ifdef MFC_DEBUG
# 1182 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    block
# 1182 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        use iso_fortran_env, only: output_unit
# 1182 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1182 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        print *, 'm_icpp_patches.fpp:1182: ', '@:ALLOCATE(x_coords(xRows), stored_values(xRows, 1, sys_size))'
# 1182 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1182 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        call flush (output_unit)
# 1182 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    end block
# 1182 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#endif
# 1182 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    allocate (x_coords(xrows), stored_values(xrows, 1, sys_size))
# 1182 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1182 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1182 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1182 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#if defined(MFC_OpenACC)
# 1182 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
!$acc enter data create(x_coords, stored_values) 
# 1182 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#elif defined(MFC_OpenMP)
# 1182 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
!$omp target enter data map(always,alloc:x_coords, stored_values) 
# 1182 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#endif
# 1182 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1182 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            ! Read data from all files
# 1182 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            do f = 1, max_files
# 1182 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                open (newunit=unit, file=trim(filenames(f)), status='old', action='read', iostat=ios)
# 1182 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                if (ios /= 0) call s_mpi_abort("Error opening file: " // trim(filenames(f)))
# 1182 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1182 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                do iter = 1, xrows
# 1182 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    read (unit, *, iostat=ios) x_coords(iter), stored_values(iter, 1, f)
# 1182 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    if (ios /= 0) call s_mpi_abort("Error reading file: " // trim(filenames(f)))
# 1182 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                end do
# 1182 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                close (unit)
# 1182 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            end do
# 1182 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1182 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            ! Calculate offsets
# 1182 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            domain_xstart = x_coords(1)
# 1182 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            x_step = x_cc(1) - x_cc(0)
# 1182 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            delta_x = merge(x_cc(0) - domain_xstart, x_cc(index_x) - domain_xstart, num_dims == 1)
# 1182 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            global_offset_x = nint(abs(delta_x)/x_step)
# 1182 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        case (3)  ! 3D case - determine grid structure
# 1182 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            ! Find yRows by counting rows with same x
# 1182 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            read (unit2, *, iostat=ios2) x0, y0, dummy_z
# 1182 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            if (ios2 /= 0) call s_mpi_abort("Error reading first line")
# 1182 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1182 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            yrows = 1
# 1182 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            do
# 1182 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                read (unit2, *, iostat=ios2) dummy_x, dummy_y, dummy_z
# 1182 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                if (ios2 /= 0) exit
# 1182 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                if (f_approx_equal(dummy_x, x0) .and. (.not. f_approx_equal(dummy_y, y0))) then
# 1182 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    yrows = yrows + 1
# 1182 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                else
# 1182 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    exit
# 1182 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                end if
# 1182 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            end do
# 1182 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            close (unit2)
# 1182 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1182 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            ! Count total rows
# 1182 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            open (newunit=unit2, file=trim(filenames(1)), status='old', action='read', iostat=ios2)
# 1182 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            nrows = 0
# 1182 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            do
# 1182 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                read (unit2, *, iostat=ios2) dummy_x, dummy_y, dummy_z
# 1182 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                if (ios2 /= 0) exit
# 1182 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                nrows = nrows + 1
# 1182 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            end do
# 1182 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            close (unit2)
# 1182 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1182 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            xrows = nrows/yrows
# 1182 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#ifdef MFC_DEBUG
# 1182 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    block
# 1182 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        use iso_fortran_env, only: output_unit
# 1182 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1182 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        print *, 'm_icpp_patches.fpp:1182: ', '@:ALLOCATE(x_coords(nrows), y_coords(nrows), stored_values(xRows, yRows, sys_size))'
# 1182 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1182 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        call flush (output_unit)
# 1182 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    end block
# 1182 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#endif
# 1182 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    allocate (x_coords(nrows), y_coords(nrows), stored_values(xrows, yrows, sys_size))
# 1182 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1182 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1182 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1182 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1182 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#if defined(MFC_OpenACC)
# 1182 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
!$acc enter data create(x_coords, y_coords, stored_values) 
# 1182 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#elif defined(MFC_OpenMP)
# 1182 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
!$omp target enter data map(always,alloc:x_coords, y_coords, stored_values) 
# 1182 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#endif
# 1182 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            index_x = i
# 1182 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            index_y = j
# 1182 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1182 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            ! Read all files
# 1182 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            do f = 1, max_files
# 1182 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                open (newunit=unit, file=trim(filenames(f)), status='old', action='read', iostat=ios)
# 1182 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                if (ios /= 0) then
# 1182 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    if (f == 1) call s_mpi_abort("Error opening file: " // trim(filenames(f)))
# 1182 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    cycle
# 1182 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                end if
# 1182 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1182 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                iter = 0
# 1182 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                do iix = 1, xrows
# 1182 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    do iiy = 1, yrows
# 1182 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                        iter = iter + 1
# 1182 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                        if (f == 1) then
# 1182 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                            read (unit, *, iostat=ios) x_coords(iter), y_coords(iter), stored_values(iix, iiy, f)
# 1182 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                        else
# 1182 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                            read (unit, *, iostat=ios) dummy_x, dummy_y, stored_values(iix, iiy, f)
# 1182 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                        end if
# 1182 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                        if (ios /= 0) call s_mpi_abort("Error reading data")
# 1182 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    end do
# 1182 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                end do
# 1182 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                close (unit)
# 1182 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            end do
# 1182 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1182 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            ! Calculate offsets
# 1182 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            x_step = x_cc(1) - x_cc(0)
# 1182 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            y_step = y_cc(1) - y_cc(0)
# 1182 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            delta_x = x_cc(index_x) - x_coords(1)
# 1182 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            delta_y = y_cc(index_y) - y_coords(1)
# 1182 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            global_offset_x = nint(abs(delta_x)/x_step)
# 1182 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            global_offset_y = nint(abs(delta_y)/y_step)
# 1182 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        end select
# 1182 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1182 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        files_loaded = .true.
# 1182 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    end if
# 1182 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1182 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    ! Data assignment
# 1182 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    select case (num_dims)
# 1182 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    case (1)
# 1182 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        idx = i + 1 + global_offset_x
# 1182 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! idx must land inside the file's row range: this rank's subdomain offset
# 1182 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! (global_offset_x) was derived from this rank's own grid, so a miss means the
# 1182 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! IC file is misaligned/mis-sized for the run grid, not a normal boundary case.
# 1182 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        if (idx < 1 .or. idx > xrows) &
# 1182 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            & call s_mpi_abort("Hardcoded IC extrusion: row index out of range (IC file misaligned with the run grid)")
# 1182 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        do f = 1, sys_size
# 1182 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(f)%sf(i, 0, 0) = stored_values(idx, 1, f)
# 1182 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        end do
# 1182 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    case (2)
# 1182 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        idx = i + 1 + global_offset_x - index_x
# 1182 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        if (idx < 1 .or. idx > xrows) &
# 1182 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            & call s_mpi_abort("Hardcoded IC extrusion: row index out of range (IC file misaligned with the run grid)")
# 1182 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        do f = 1, sys_size - 1
# 1182 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            jump = merge(1, 0, f >= eqn_idx%mom%end)
# 1182 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(f + jump)%sf(i, j, 0) = stored_values(idx, 1, f)
# 1182 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        end do
# 1182 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        q_prim_vf(eqn_idx%mom%end)%sf(i, j, 0) = 0.0_wp
# 1182 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    case (3)
# 1182 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        idx = i + 1 + global_offset_x - index_x
# 1182 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        idy = j + 1 + global_offset_y - index_y
# 1182 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        if (idx < 1 .or. idx > xrows .or. idy < 1 .or. idy > yrows) &
# 1182 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            & call s_mpi_abort("Hardcoded IC extrusion: row/column index out of range (IC file misaligned with the run grid)")
# 1182 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        do f = 1, sys_size - 1
# 1182 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            jump = merge(1, 0, f >= eqn_idx%mom%end)
# 1182 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(f + jump)%sf(i, j, k) = stored_values(idx, idy, f)
# 1182 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        end do
# 1182 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        q_prim_vf(eqn_idx%mom%end)%sf(i, j, k) = 0.0_wp
# 1182 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    end select
# 1182 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    case (380)  ! Taylor-Green vortex
# 1182 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! This is patch is hard-coded for test suite optimization used in the 3D_TaylorGreenVortex case: This analytic patch used
# 1182 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! geometry 9
# 1182 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        mach = 0.1
# 1182 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        if (patch_id == 1) then
# 1182 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%E)%sf(i, j, &
# 1182 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                      & k) = 101325 + (mach**2*376.636429464809**2/16)*(cos(2*x_cc(i)/1) + cos(2*y_cc(j)/1))*(cos(2*z_cc(k)/1) + 2)
# 1182 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%mom%beg + 0)%sf(i, j, k) = mach*376.636429464809*sin(x_cc(i)/1)*cos(y_cc(j)/1)*sin(z_cc(k)/1)
# 1182 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%mom%beg + 1)%sf(i, j, k) = -mach*376.636429464809*cos(x_cc(i)/1)*sin(y_cc(j)/1)*sin(z_cc(k)/1)
# 1182 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        end if
# 1182 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    case default
# 1182 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        call s_int_to_str(patch_id, istr)
# 1182 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        call s_mpi_abort("Invalid hcid specified for patch " // trim(istr))
# 1182 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    end select
                        end if
 
                        ! Updating the patch identities bookkeeping variable
                        if (1._wp - eta < sgm_eps) patch_id_fp(i, j, k) = patch_id
                    end if
                end do
            end do
        end do
    if (allocated(stored_values)) then
# 1191 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#ifdef MFC_DEBUG
# 1191 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    block
# 1191 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        use iso_fortran_env, only: output_unit
# 1191 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1191 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        print *, 'm_icpp_patches.fpp:1191: ', '@:DEALLOCATE(stored_values)'
# 1191 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1191 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        call flush (output_unit)
# 1191 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    end block
# 1191 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#endif
# 1191 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1191 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#if defined(MFC_OpenACC)
# 1191 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
!$acc exit data delete(stored_values) 
# 1191 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#elif defined(MFC_OpenMP)
# 1191 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
!$omp target exit data map(release:stored_values) 
# 1191 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#endif
# 1191 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    deallocate (stored_values)
# 1191 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#ifdef MFC_DEBUG
# 1191 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    block
# 1191 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        use iso_fortran_env, only: output_unit
# 1191 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1191 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        print *, 'm_icpp_patches.fpp:1191: ', '@:DEALLOCATE(x_coords)'
# 1191 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1191 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        call flush (output_unit)
# 1191 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    end block
# 1191 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#endif
# 1191 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1191 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#if defined(MFC_OpenACC)
# 1191 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
!$acc exit data delete(x_coords) 
# 1191 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#elif defined(MFC_OpenMP)
# 1191 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
!$omp target exit data map(release:x_coords) 
# 1191 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#endif
# 1191 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    deallocate (x_coords)
# 1191 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    end if
# 1191 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1191 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    if (allocated(y_coords)) then
# 1191 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#ifdef MFC_DEBUG
# 1191 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    block
# 1191 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        use iso_fortran_env, only: output_unit
# 1191 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1191 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        print *, 'm_icpp_patches.fpp:1191: ', '@:DEALLOCATE(y_coords)'
# 1191 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1191 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        call flush (output_unit)
# 1191 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    end block
# 1191 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#endif
# 1191 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1191 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#if defined(MFC_OpenACC)
# 1191 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
!$acc exit data delete(y_coords) 
# 1191 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#elif defined(MFC_OpenMP)
# 1191 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
!$omp target exit data map(release:y_coords) 
# 1191 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#endif
# 1191 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    deallocate (y_coords)
# 1191 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    end if
# 1191 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1191 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    files_loaded = .false.
# 1191 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1191 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    if (allocated(stored_values274)) then
# 1191 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#ifdef MFC_DEBUG
# 1191 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    block
# 1191 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        use iso_fortran_env, only: output_unit
# 1191 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1191 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        print *, 'm_icpp_patches.fpp:1191: ', '@:DEALLOCATE(stored_values274)'
# 1191 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1191 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        call flush (output_unit)
# 1191 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    end block
# 1191 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#endif
# 1191 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1191 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#if defined(MFC_OpenACC)
# 1191 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
!$acc exit data delete(stored_values274) 
# 1191 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#elif defined(MFC_OpenMP)
# 1191 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
!$omp target exit data map(release:stored_values274) 
# 1191 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#endif
# 1191 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    deallocate (stored_values274)
# 1191 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    end if
# 1191 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1191 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    files_loaded274 = .false.
 
    end subroutine s_icpp_cylinder
 
    !> The swept plane patch is a 3D geometry that may be used, for example, in creating a solid boundary, or pre-/post- shock
    !! region, at an angle with respect to the axes of the Cartesian coordinate system. The geometry of the patch is well-defined
    !! when its centroid and normal vector, aimed in the sweep direction, are provided. Note that the sweep plane patch DOES allow
    !! the smoothing of its boundary.
    subroutine s_icpp_sweep_plane(patch_id, patch_id_fp, q_prim_vf)
 
        integer, intent(in) :: patch_id
 
#ifdef MFC_MIXED_PRECISION
        integer(kind=1), dimension(0:m,0:n,0:p), intent(inout) :: patch_id_fp
#else
        integer, dimension(0:m,0:n,0:p), intent(inout) :: patch_id_fp
#endif
        type(scalar_field), dimension(1:sys_size), intent(inout) :: q_prim_vf
        integer                                                  :: i, j, k  !< Generic loop iterators
        real(wp)                                                 :: a, b, c, d
 
    integer                                 :: xRows, yRows, nRows, iix, iiy, max_files
# 1212 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    integer                                 :: f, iter, unit, unit2, idx, idy, index_x, index_y, jump, line_count
# 1212 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    real(wp)                                :: x_step, y_step
# 1212 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    real(wp)                                :: dummy_x, dummy_y, dummy_z, x0, y0
# 1212 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    integer                                 :: global_offset_x, global_offset_y  !< MPI subdomain offset
# 1212 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    real(wp)                                :: delta_x, delta_y
# 1212 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    character(len=300), dimension(sys_size) :: fileNames                         !< Arrays to store all data from files
# 1212 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    real(wp), allocatable                   :: stored_values(:,:,:)
# 1212 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    real(wp), allocatable                   :: x_coords(:), y_coords(:)
# 1212 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    logical                                 :: files_loaded = .false.
# 1212 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    real(wp)                                :: domain_xstart
# 1212 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    character(len=20)                       :: file_num_str                      !< For storing the file number as a string
# 1212 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    integer                                 :: ios
# 1212 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    integer                                 :: ios2
# 1212 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1212 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    ! hcid=274 (2dHardcodedIC.fpp): full 2D field from external data, no extrusion.
# 1212 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    ! Declared here (not in Hardcoded2DVariables()) so it's visible wherever
# 1212 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    ! HardcodedDeallocation() is called, matching the pattern of stored_values/x_coords/
# 1212 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    ! y_coords/files_loaded above.
# 1212 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    real(wp), allocatable, dimension(:,:,:) :: stored_values274
# 1212 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    logical                                 :: files_loaded274 = .false.
# 1212 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    integer                                 :: f274, ix274, iy274, unit274, ios274
# 1212 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    integer                                 :: local_ix_beg274, local_iy_beg274
# 1212 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    character(len=300)                      :: fname274
# 1212 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    character(len=20)                       :: file_num_str274
# 1212 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    real(wp)                                :: dummy_x274, dummy_y274, dummy_val274, x0_274, y0_274, x_step274, y_step274
# 1212 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    real(wp)                                :: file_dx274, file_dy274, r_align274
    ! Place any declaration of intermediate variables here
# 1213 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    real(wp) :: rhoH, rhoL, pRef, pInt, h, lam, wl, amp, intH, alph, Mach
# 1213 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    real(wp) :: eps
# 1213 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1213 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    ! IGR Jets Arrays to stor position and radii of jets from input file
# 1213 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    real(wp), dimension(:), allocatable :: y_th_arr, z_th_arr, r_th_arr
# 1213 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    ! Variables to describe initial condition of jet
# 1213 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    real(wp)                              :: r, ux_th, ux_am, p_th, p_am, rho_th, rho_am, y_th, z_th, r_th, eps_smooth
# 1213 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    real(wp)                              :: rcut, xcut  !< Intermediate variables for creating smooth initial condition
# 1213 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    real(wp), dimension(0:n,0:p)          :: rcut_arr
# 1213 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    integer                               :: l, q, s     !< Iterators for reading input files
# 1213 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    integer                               :: start, end  !< Ints to keep track of position in file
# 1213 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    character(len=100000)                 :: line  ! String to store line in file
# 1213 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    character(len=25)                     :: value       !< String to store value in line
# 1213 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    integer                               :: NJet        !< Number of jets
# 1213 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    real(wp), allocatable, dimension(:,:) :: ih  ! Array to store interface height in
# 1213 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    logical                               :: file_exist  ! Flag to check if file exists
# 1213 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1213 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    eps = 1e-9_wp
# 1213 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1213 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    if (patch_icpp(patch_id)%hcid == 303) then  ! IGR Multijet
# 1213 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        eps_smooth = 3._wp
# 1213 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        inquire (file="njet.txt", exist=file_exist)
# 1213 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        if (file_exist) then
# 1213 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            open (unit=10, file="njet.txt", status="old", action="read")
# 1213 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            read (10, *) njet
# 1213 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            close (10)
# 1213 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        else
# 1213 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            call s_mpi_abort("Error: njet.txt file specified for hcid=303 does not exist")
# 1213 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        end if
# 1213 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1213 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#ifdef MFC_DEBUG
# 1213 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    block
# 1213 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        use iso_fortran_env, only: output_unit
# 1213 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1213 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        print *, 'm_icpp_patches.fpp:1213: ', '@:ALLOCATE(y_th_arr(0:NJet - 1))'
# 1213 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1213 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        call flush (output_unit)
# 1213 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    end block
# 1213 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#endif
# 1213 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    allocate (y_th_arr(0:njet - 1))
# 1213 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1213 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1213 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#if defined(MFC_OpenACC)
# 1213 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
!$acc enter data create(y_th_arr) 
# 1213 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#elif defined(MFC_OpenMP)
# 1213 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
!$omp target enter data map(always,alloc:y_th_arr) 
# 1213 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#endif
# 1213 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#ifdef MFC_DEBUG
# 1213 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    block
# 1213 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        use iso_fortran_env, only: output_unit
# 1213 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1213 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        print *, 'm_icpp_patches.fpp:1213: ', '@:ALLOCATE(z_th_arr(0:NJet - 1))'
# 1213 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1213 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        call flush (output_unit)
# 1213 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    end block
# 1213 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#endif
# 1213 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    allocate (z_th_arr(0:njet - 1))
# 1213 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1213 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1213 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#if defined(MFC_OpenACC)
# 1213 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
!$acc enter data create(z_th_arr) 
# 1213 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#elif defined(MFC_OpenMP)
# 1213 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
!$omp target enter data map(always,alloc:z_th_arr) 
# 1213 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#endif
# 1213 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#ifdef MFC_DEBUG
# 1213 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    block
# 1213 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        use iso_fortran_env, only: output_unit
# 1213 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1213 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        print *, 'm_icpp_patches.fpp:1213: ', '@:ALLOCATE(r_th_arr(0:NJet - 1))'
# 1213 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1213 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        call flush (output_unit)
# 1213 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    end block
# 1213 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#endif
# 1213 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    allocate (r_th_arr(0:njet - 1))
# 1213 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1213 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1213 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#if defined(MFC_OpenACC)
# 1213 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
!$acc enter data create(r_th_arr) 
# 1213 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#elif defined(MFC_OpenMP)
# 1213 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
!$omp target enter data map(always,alloc:r_th_arr) 
# 1213 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#endif
# 1213 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1213 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        inquire (file="jets.csv", exist=file_exist)
# 1213 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        if (file_exist) then
# 1213 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            open (unit=10, file="jets.csv", status="old", action="read")
# 1213 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            do q = 0, njet - 1
# 1213 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                read (10, '(A)') line  ! Read a full line as a string
# 1213 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                start = 1
# 1213 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1213 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                do l = 0, 2
# 1213 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    end = index(line(start:), ',')  ! Find the next comma
# 1213 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    if (end == 0) then
# 1213 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                        value = trim(adjustl(line(start:)))  ! Last value in the line
# 1213 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    else
# 1213 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                        value = trim(adjustl(line(start:start + end - 2)))  ! Extract substring
# 1213 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                        start = start + end  ! Move to next value
# 1213 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    end if
# 1213 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    if (l == 0) then
# 1213 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                        read (value, *) y_th_arr(q)  ! Convert string to numeric value
# 1213 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    else if (l == 1) then
# 1213 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                        read (value, *) z_th_arr(q)
# 1213 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    else
# 1213 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                        read (value, *) r_th_arr(q)
# 1213 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    end if
# 1213 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                end do
# 1213 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            end do
# 1213 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            close (10)
# 1213 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1213 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            do q = 0, p
# 1213 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                do l = 0, n
# 1213 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    rcut = 0._wp
# 1213 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    do s = 0, njet - 1
# 1213 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                        r = sqrt((y_cc(l) - y_th_arr(s))**2._wp + (z_cc(q) - z_th_arr(s))**2._wp)
# 1213 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                        rcut = rcut + f_cut_on(r - r_th_arr(s), eps_smooth)
# 1213 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    end do
# 1213 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    rcut_arr(l, q) = rcut
# 1213 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                end do
# 1213 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            end do
# 1213 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        else
# 1213 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            call s_mpi_abort("Error: jets.csv file specified for hcid=303 does not exist")
# 1213 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        end if
# 1213 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    end if
# 1213 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1213 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    if (patch_icpp(patch_id)%hcid == 304) then  ! 3D Cartesian interface from file
# 1213 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#ifdef MFC_DEBUG
# 1213 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    block
# 1213 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        use iso_fortran_env, only: output_unit
# 1213 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1213 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        print *, 'm_icpp_patches.fpp:1213: ', '@:ALLOCATE(ih(0:n_glb, 0:p_glb))'
# 1213 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1213 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        call flush (output_unit)
# 1213 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    end block
# 1213 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#endif
# 1213 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    allocate (ih(0:n_glb, 0:p_glb))
# 1213 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1213 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1213 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#if defined(MFC_OpenACC)
# 1213 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
!$acc enter data create(ih) 
# 1213 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#elif defined(MFC_OpenMP)
# 1213 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
!$omp target enter data map(always,alloc:ih) 
# 1213 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#endif
# 1213 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1213 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        if (interface_file == '.') then
# 1213 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            call s_mpi_abort("Error: interface_file must be specified for hcid=304")
# 1213 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        else
# 1213 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            inquire (file=trim(interface_file), exist=file_exist)
# 1213 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            if (file_exist) then
# 1213 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                open (unit=10, file=trim(interface_file), status="old", action="read")
# 1213 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                do i = 0, n_glb
# 1213 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    read (10, '(A)') line  ! Read a full line as a string
# 1213 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    start = 1
# 1213 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1213 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    do j = 0, p_glb
# 1213 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                        end = index(line(start:), ',')  ! Find the next comma
# 1213 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                        if (end == 0) then
# 1213 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                            value = trim(adjustl(line(start:)))  ! Last value in the line
# 1213 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                        else
# 1213 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                            value = trim(adjustl(line(start:start + end - 2)))  ! Extract substring
# 1213 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                            start = start + end  ! Move to next value
# 1213 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                        end if
# 1213 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                        read (value, *) ih(i, j)  ! Convert string to numeric value
# 1213 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                        if (.not. f_is_default(normmag)) ih(i, j) = ih(i, j)*normmag
# 1213 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                        if (.not. f_is_default(normfac)) ih(i, j) = ih(i, j) + normfac
# 1213 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    end do
# 1213 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                end do
# 1213 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                close (10)
# 1213 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            else
# 1213 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                call s_mpi_abort("Error: interface_file specified for hcid=304 does not exist")
# 1213 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            end if
# 1213 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        end if
# 1213 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    end if
# 1213 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1213 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    if (patch_icpp(patch_id)%hcid == 305) then  ! 3D Axisymmetric interface from file
# 1213 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#ifdef MFC_DEBUG
# 1213 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    block
# 1213 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        use iso_fortran_env, only: output_unit
# 1213 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1213 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        print *, 'm_icpp_patches.fpp:1213: ', '@:ALLOCATE(ih(0:n_glb, 0:0))'
# 1213 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1213 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        call flush (output_unit)
# 1213 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    end block
# 1213 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#endif
# 1213 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    allocate (ih(0:n_glb, 0:0))
# 1213 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1213 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1213 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#if defined(MFC_OpenACC)
# 1213 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
!$acc enter data create(ih) 
# 1213 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#elif defined(MFC_OpenMP)
# 1213 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
!$omp target enter data map(always,alloc:ih) 
# 1213 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#endif
# 1213 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        if (interface_file == '.') then
# 1213 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            call s_mpi_abort("Error: interface_file must be specified for hcid=305")
# 1213 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        else
# 1213 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            inquire (file=trim(interface_file), exist=file_exist)
# 1213 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            if (file_exist) then
# 1213 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                open (unit=10, file=trim(interface_file), status="old", action="read")
# 1213 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                do i = 0, n_glb
# 1213 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    read (10, '(A)') line  ! Read a full line as a string
# 1213 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    value = trim(line)
# 1213 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    read (value, *) ih(i, 0)  ! Convert string to numeric value
# 1213 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    if (.not. f_is_default(normmag)) ih(i, 0) = ih(i, 0)*normmag
# 1213 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    if (.not. f_is_default(normfac)) ih(i, 0) = ih(i, 0) + normfac
# 1213 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                end do
# 1213 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                close (10)
# 1213 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            else
# 1213 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                call s_mpi_abort("Error: interface_file specified for hcid=305 does not exist")
# 1213 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            end if
# 1213 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        end if
# 1213 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    end if
 
        ! Transferring the centroid information of the plane to be swept
        x_centroid = patch_icpp(patch_id)%x_centroid
        y_centroid = patch_icpp(patch_id)%y_centroid
        z_centroid = patch_icpp(patch_id)%z_centroid
        smooth_patch_id = patch_icpp(patch_id)%smooth_patch_id
        smooth_coeff = patch_icpp(patch_id)%smooth_coeff
 
        ! Obtaining coefficients of the equation describing the sweep plane
        a = patch_icpp(patch_id)%normal(1)
        b = patch_icpp(patch_id)%normal(2)
        c = patch_icpp(patch_id)%normal(3)
        d = -a*x_centroid - b*y_centroid - c*z_centroid
 
        ! Initialize eta=1; modified if smoothing is enabled
        eta = 1._wp
 
        ! Assign patch vars if cell is covered and patch has write permission
        do k = 0, p
            do j = 0, n
                do i = 0, m
                    if (grid_geometry == 3) then
                        call s_convert_cylindrical_to_cartesian_coord(y_cc(j), z_cc(k))
                    else
                        cart_y = y_cc(j)
                        cart_z = z_cc(k)
                    end if
 
                    if (patch_icpp(patch_id)%smoothen) then
                        eta = 5.e-1_wp + 5.e-1_wp*tanh(smooth_coeff/min(dx, dy, &
                                                       & dz)*(a*x_cc(i) + b*cart_y + c*cart_z + d)/sqrt(a**2 + b**2 + c**2))
                    end if
 
                    if ((a*x_cc(i) + b*cart_y + c*cart_z + d >= 0._wp .and. patch_icpp(patch_id)%alter_patch(patch_id_fp(i, j, &
                        & k))) .or. patch_id_fp(i, j, k) == smooth_patch_id) then
                        call s_assign_patch_primitive_variables(patch_id, i, j, k, eta, q_prim_vf, patch_id_fp)
 
 
                        if (patch_icpp(patch_id)%hcid /= dflt_int) then
    select case (patch_icpp(patch_id)%hcid)
# 1253 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    case (300)  ! Rayleigh-Taylor instability
# 1253 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        rhoh = 3._wp
# 1253 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        rhol = 1._wp
# 1253 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        pref = 1.e5_wp
# 1253 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        pint = pref
# 1253 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        h = 0.7_wp
# 1253 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        lam = 0.2_wp
# 1253 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        wl = 2._wp*pi/lam
# 1253 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        amp = 0.025_wp/wl
# 1253 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1253 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        inth = amp*(sin(2._wp*pi*x_cc(i)/lam - pi/2._wp) + sin(2._wp*pi*z_cc(k)/lam - pi/2._wp)) + h
# 1253 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1253 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        alph = 5.e-1_wp*(1._wp + tanh((y_cc(j) - inth)/2.5e-3_wp))
# 1253 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1253 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        if (alph < eps) alph = eps
# 1253 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        if (alph > 1._wp - eps) alph = 1._wp - eps
# 1253 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1253 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        if (y_cc(j) > inth) then
# 1253 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%adv%beg)%sf(i, j, k) = alph
# 1253 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%adv%end)%sf(i, j, k) = 1._wp - alph
# 1253 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%cont%beg)%sf(i, j, k) = alph*rhoh
# 1253 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%cont%end)%sf(i, j, k) = (1._wp - alph)*rhol
# 1253 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%E)%sf(i, j, k) = pref + rhoh*9.81_wp*(1.2_wp - y_cc(j))
# 1253 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        else
# 1253 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%adv%beg)%sf(i, j, k) = alph
# 1253 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%adv%end)%sf(i, j, k) = 1._wp - alph
# 1253 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%cont%beg)%sf(i, j, k) = alph*rhoh
# 1253 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%cont%end)%sf(i, j, k) = (1._wp - alph)*rhol
# 1253 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            pint = pref + rhoh*9.81_wp*(1.2_wp - inth)
# 1253 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%E)%sf(i, j, k) = pint + rhol*9.81_wp*(inth - y_cc(j))
# 1253 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        end if
# 1253 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    case (301)  ! (3D lung geometry in X direction, |sin(*)+sin(*)|)
# 1253 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        h = 0.0_wp
# 1253 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        lam = 1.0_wp
# 1253 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        amp = patch_icpp(patch_id)%a(2)
# 1253 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        inth = amp*abs((sin(2*pi*y_cc(j)/lam - pi/2) + sin(2*pi*z_cc(k)/lam - pi/2)) + h)
# 1253 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        if (x_cc(i) > inth) then
# 1253 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%cont%beg)%sf(i, j, k) = patch_icpp(1)%alpha_rho(1)
# 1253 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%cont%end)%sf(i, j, k) = patch_icpp(1)%alpha_rho(2)
# 1253 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%E)%sf(i, j, k) = patch_icpp(1)%pres
# 1253 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%adv%beg)%sf(i, j, k) = patch_icpp(1)%alpha(1)
# 1253 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%adv%end)%sf(i, j, k) = patch_icpp(1)%alpha(2)
# 1253 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        end if
# 1253 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    case (302)  ! 3D Jet with IGR
# 1253 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ux_th = 10*sqrt(1.4*0.4)
# 1253 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ux_am = 0.0*sqrt(1.4)
# 1253 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        p_th = 2.0_wp
# 1253 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        p_am = 1.0_wp
# 1253 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        rho_th = 1._wp
# 1253 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        rho_am = 1._wp
# 1253 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        y_th = 0.0_wp
# 1253 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        z_th = 0.0_wp
# 1253 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        r_th = 1._wp
# 1253 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        eps_smooth = 1._wp
# 1253 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        eps = 1e-6
# 1253 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1253 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        r = sqrt((y_cc(j) - y_th)**2._wp + (z_cc(k) - z_th)**2._wp)
# 1253 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        rcut = f_cut_on(r - r_th, eps_smooth)
# 1253 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        xcut = f_cut_on(x_cc(i), eps_smooth)
# 1253 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1253 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        q_prim_vf(eqn_idx%mom%beg)%sf(i, j, k) = ux_th*rcut*xcut + ux_am
# 1253 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        q_prim_vf(eqn_idx%mom%beg + 1)%sf(i, j, k) = 0._wp
# 1253 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        q_prim_vf(eqn_idx%mom%end)%sf(i, j, k) = 0._wp
# 1253 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1253 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        if (num_fluids == 1) then
# 1253 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%cont%beg)%sf(i, j, k) = (rho_th - rho_am)*rcut*xcut + rho_am
# 1253 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        else
# 1253 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%adv%beg)%sf(i, j, k) = (1._wp - 2._wp*eps)*rcut*xcut + eps
# 1253 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%cont%beg)%sf(i, j, k) = rho_th*q_prim_vf(eqn_idx%adv%beg)%sf(i, j, k)
# 1253 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%cont%end)%sf(i, j, k) = rho_am*(1._wp - q_prim_vf(eqn_idx%adv%beg)%sf(i, j, k))
# 1253 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        end if
# 1253 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1253 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        q_prim_vf(eqn_idx%E)%sf(i, j, k) = p_th*rcut*xcut + p_am
# 1253 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    case (303)  ! 3D Multijet
# 1253 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        eps_smooth = 3.0_wp
# 1253 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ux_th = 10*sqrt(1.4*0.4)
# 1253 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ux_am = 2.5*sqrt(1.4*0.4)
# 1253 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        p_th = 0.8_wp
# 1253 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        p_am = 0.4_wp
# 1253 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        rho_th = 1._wp
# 1253 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        rho_am = 1._wp
# 1253 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        eps = 1e-6
# 1253 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1253 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        rcut = rcut_arr(j, k)
# 1253 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        xcut = f_cut_on(x_cc(i), eps_smooth)
# 1253 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1253 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        q_prim_vf(eqn_idx%mom%beg)%sf(i, j, k) = ux_th*rcut*xcut + ux_am
# 1253 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        q_prim_vf(eqn_idx%mom%beg + 1)%sf(i, j, k) = 0._wp
# 1253 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        q_prim_vf(eqn_idx%mom%end)%sf(i, j, k) = 0._wp
# 1253 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1253 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        if (num_fluids == 1) then
# 1253 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%cont%beg)%sf(i, j, k) = (rho_th - rho_am)*rcut*xcut + rho_am
# 1253 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        else
# 1253 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%adv%beg)%sf(i, j, k) = (1._wp - 2._wp*eps)*rcut*xcut + eps
# 1253 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%cont%beg)%sf(i, j, k) = rho_th*q_prim_vf(eqn_idx%adv%beg)%sf(i, j, k)
# 1253 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%cont%end)%sf(i, j, k) = rho_am*(1._wp - q_prim_vf(eqn_idx%adv%beg)%sf(i, j, k))
# 1253 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        end if
# 1253 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1253 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        q_prim_vf(eqn_idx%E)%sf(i, j, k) = p_th*rcut*xcut + p_am
# 1253 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    case (304)  ! 3D Interface from file cartesian
# 1253 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        alph = 0.5_wp*(1 + (1._wp - 2._wp*eps)*tanh((ih(start_idx(2) + j, start_idx(3) + k) - x_cc(i))*(0.5_wp/dx)))
# 1253 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1253 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        q_prim_vf(eqn_idx%adv%beg)%sf(i, j, k) = alph
# 1253 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        q_prim_vf(eqn_idx%adv%end)%sf(i, j, k) = 1._wp - alph
# 1253 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1253 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        q_prim_vf(eqn_idx%cont%beg)%sf(i, j, k) = q_prim_vf(eqn_idx%adv%beg)%sf(i, j, k)*(950._wp/1000._wp)
# 1253 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        q_prim_vf(eqn_idx%cont%end)%sf(i, j, k) = q_prim_vf(eqn_idx%adv%end)%sf(i, j, k)*(1._wp/1000._wp)
# 1253 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1253 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        q_prim_vf(eqn_idx%E)%sf(i, j, k) = p0_ic + (q_prim_vf(eqn_idx%cont%beg)%sf(i, j, k) + q_prim_vf(eqn_idx%cont%end)%sf(i, &
# 1253 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                  & j, k))*g0_ic*(ih(start_idx(2) + j, start_idx(3) + k) - x_cc(i))
# 1253 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1253 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        if (surface_tension) q_prim_vf(eqn_idx%c)%sf(i, j, k) = alph
# 1253 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    case (305)  ! 3D Interface from file axisymmetric
# 1253 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        alph = 0.5_wp*(1 + (1._wp - 2._wp*eps)*tanh((ih(start_idx(2) + j, 0) - x_cc(i))*(0.01_wp/dx)))
# 1253 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1253 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        q_prim_vf(eqn_idx%adv%beg)%sf(i, j, k) = alph
# 1253 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        q_prim_vf(eqn_idx%adv%end)%sf(i, j, k) = 1._wp - alph
# 1253 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1253 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        q_prim_vf(eqn_idx%cont%beg)%sf(i, j, k) = q_prim_vf(eqn_idx%adv%beg)%sf(i, j, k)*1._wp
# 1253 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        q_prim_vf(eqn_idx%cont%end)%sf(i, j, k) = q_prim_vf(eqn_idx%adv%end)%sf(i, j, k)*(1._wp/950._wp)
# 1253 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1253 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        q_prim_vf(eqn_idx%E)%sf(i, j, k) = p0_ic + (q_prim_vf(eqn_idx%cont%beg)%sf(i, j, k) + q_prim_vf(eqn_idx%cont%end)%sf(i, &
# 1253 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                  & j, k))*g0_ic*(ih(start_idx(1) + i, start_idx(3) + k) - y_cc(j))
# 1253 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1253 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        if (surface_tension) q_prim_vf(eqn_idx%c)%sf(i, j, k) = alph
# 1253 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    case (370)  ! 3D extrusion of 2D profile from external data
# 1253 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! This hardcoded case extrudes a 2D profile to initialize a 3D simulation domain
# 1253 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    if (.not. files_loaded) then
# 1253 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        max_files = merge(sys_size, sys_size - 1, num_dims == 1)
# 1253 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        do f = 1, max_files
# 1253 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            write (file_num_str, '(I0)') f
# 1253 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            filenames(f) = trim(files_dir) // "/" // "prim." // trim(file_num_str) // ".00." // trim(file_extension) // ".dat"
# 1253 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        end do
# 1253 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1253 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! Common file reading setup
# 1253 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        open (newunit=unit2, file=trim(filenames(1)), status='old', action='read', iostat=ios2)
# 1253 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        if (ios2 /= 0) call s_mpi_abort("Error opening file: " // trim(filenames(1)))
# 1253 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1253 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        select case (num_dims)
# 1253 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        case (1, 2)  ! 1D and 2D cases are similar
# 1253 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            ! Count lines
# 1253 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            line_count = 0
# 1253 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            do
# 1253 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                read (unit2, *, iostat=ios2) dummy_x, dummy_y
# 1253 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                if (ios2 /= 0) exit
# 1253 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                line_count = line_count + 1
# 1253 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            end do
# 1253 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            close (unit2)
# 1253 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1253 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            xrows = line_count
# 1253 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            yrows = 1
# 1253 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            index_x = 0
# 1253 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            if (num_dims == 2) index_x = i
# 1253 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#ifdef MFC_DEBUG
# 1253 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    block
# 1253 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        use iso_fortran_env, only: output_unit
# 1253 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1253 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        print *, 'm_icpp_patches.fpp:1253: ', '@:ALLOCATE(x_coords(xRows), stored_values(xRows, 1, sys_size))'
# 1253 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1253 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        call flush (output_unit)
# 1253 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    end block
# 1253 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#endif
# 1253 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    allocate (x_coords(xrows), stored_values(xrows, 1, sys_size))
# 1253 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1253 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1253 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1253 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#if defined(MFC_OpenACC)
# 1253 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
!$acc enter data create(x_coords, stored_values) 
# 1253 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#elif defined(MFC_OpenMP)
# 1253 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
!$omp target enter data map(always,alloc:x_coords, stored_values) 
# 1253 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#endif
# 1253 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1253 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            ! Read data from all files
# 1253 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            do f = 1, max_files
# 1253 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                open (newunit=unit, file=trim(filenames(f)), status='old', action='read', iostat=ios)
# 1253 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                if (ios /= 0) call s_mpi_abort("Error opening file: " // trim(filenames(f)))
# 1253 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1253 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                do iter = 1, xrows
# 1253 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    read (unit, *, iostat=ios) x_coords(iter), stored_values(iter, 1, f)
# 1253 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    if (ios /= 0) call s_mpi_abort("Error reading file: " // trim(filenames(f)))
# 1253 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                end do
# 1253 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                close (unit)
# 1253 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            end do
# 1253 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1253 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            ! Calculate offsets
# 1253 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            domain_xstart = x_coords(1)
# 1253 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            x_step = x_cc(1) - x_cc(0)
# 1253 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            delta_x = merge(x_cc(0) - domain_xstart, x_cc(index_x) - domain_xstart, num_dims == 1)
# 1253 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            global_offset_x = nint(abs(delta_x)/x_step)
# 1253 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        case (3)  ! 3D case - determine grid structure
# 1253 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            ! Find yRows by counting rows with same x
# 1253 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            read (unit2, *, iostat=ios2) x0, y0, dummy_z
# 1253 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            if (ios2 /= 0) call s_mpi_abort("Error reading first line")
# 1253 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1253 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            yrows = 1
# 1253 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            do
# 1253 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                read (unit2, *, iostat=ios2) dummy_x, dummy_y, dummy_z
# 1253 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                if (ios2 /= 0) exit
# 1253 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                if (f_approx_equal(dummy_x, x0) .and. (.not. f_approx_equal(dummy_y, y0))) then
# 1253 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    yrows = yrows + 1
# 1253 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                else
# 1253 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    exit
# 1253 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                end if
# 1253 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            end do
# 1253 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            close (unit2)
# 1253 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1253 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            ! Count total rows
# 1253 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            open (newunit=unit2, file=trim(filenames(1)), status='old', action='read', iostat=ios2)
# 1253 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            nrows = 0
# 1253 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            do
# 1253 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                read (unit2, *, iostat=ios2) dummy_x, dummy_y, dummy_z
# 1253 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                if (ios2 /= 0) exit
# 1253 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                nrows = nrows + 1
# 1253 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            end do
# 1253 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            close (unit2)
# 1253 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1253 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            xrows = nrows/yrows
# 1253 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#ifdef MFC_DEBUG
# 1253 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    block
# 1253 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        use iso_fortran_env, only: output_unit
# 1253 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1253 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        print *, 'm_icpp_patches.fpp:1253: ', '@:ALLOCATE(x_coords(nrows), y_coords(nrows), stored_values(xRows, yRows, sys_size))'
# 1253 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1253 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        call flush (output_unit)
# 1253 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    end block
# 1253 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#endif
# 1253 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    allocate (x_coords(nrows), y_coords(nrows), stored_values(xrows, yrows, sys_size))
# 1253 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1253 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1253 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1253 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1253 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#if defined(MFC_OpenACC)
# 1253 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
!$acc enter data create(x_coords, y_coords, stored_values) 
# 1253 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#elif defined(MFC_OpenMP)
# 1253 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
!$omp target enter data map(always,alloc:x_coords, y_coords, stored_values) 
# 1253 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#endif
# 1253 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            index_x = i
# 1253 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            index_y = j
# 1253 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1253 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            ! Read all files
# 1253 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            do f = 1, max_files
# 1253 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                open (newunit=unit, file=trim(filenames(f)), status='old', action='read', iostat=ios)
# 1253 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                if (ios /= 0) then
# 1253 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    if (f == 1) call s_mpi_abort("Error opening file: " // trim(filenames(f)))
# 1253 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    cycle
# 1253 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                end if
# 1253 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1253 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                iter = 0
# 1253 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                do iix = 1, xrows
# 1253 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    do iiy = 1, yrows
# 1253 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                        iter = iter + 1
# 1253 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                        if (f == 1) then
# 1253 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                            read (unit, *, iostat=ios) x_coords(iter), y_coords(iter), stored_values(iix, iiy, f)
# 1253 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                        else
# 1253 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                            read (unit, *, iostat=ios) dummy_x, dummy_y, stored_values(iix, iiy, f)
# 1253 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                        end if
# 1253 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                        if (ios /= 0) call s_mpi_abort("Error reading data")
# 1253 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    end do
# 1253 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                end do
# 1253 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                close (unit)
# 1253 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            end do
# 1253 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1253 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            ! Calculate offsets
# 1253 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            x_step = x_cc(1) - x_cc(0)
# 1253 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            y_step = y_cc(1) - y_cc(0)
# 1253 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            delta_x = x_cc(index_x) - x_coords(1)
# 1253 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            delta_y = y_cc(index_y) - y_coords(1)
# 1253 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            global_offset_x = nint(abs(delta_x)/x_step)
# 1253 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            global_offset_y = nint(abs(delta_y)/y_step)
# 1253 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        end select
# 1253 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1253 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        files_loaded = .true.
# 1253 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    end if
# 1253 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1253 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    ! Data assignment
# 1253 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    select case (num_dims)
# 1253 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    case (1)
# 1253 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        idx = i + 1 + global_offset_x
# 1253 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! idx must land inside the file's row range: this rank's subdomain offset
# 1253 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! (global_offset_x) was derived from this rank's own grid, so a miss means the
# 1253 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! IC file is misaligned/mis-sized for the run grid, not a normal boundary case.
# 1253 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        if (idx < 1 .or. idx > xrows) &
# 1253 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            & call s_mpi_abort("Hardcoded IC extrusion: row index out of range (IC file misaligned with the run grid)")
# 1253 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        do f = 1, sys_size
# 1253 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(f)%sf(i, 0, 0) = stored_values(idx, 1, f)
# 1253 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        end do
# 1253 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    case (2)
# 1253 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        idx = i + 1 + global_offset_x - index_x
# 1253 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        if (idx < 1 .or. idx > xrows) &
# 1253 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            & call s_mpi_abort("Hardcoded IC extrusion: row index out of range (IC file misaligned with the run grid)")
# 1253 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        do f = 1, sys_size - 1
# 1253 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            jump = merge(1, 0, f >= eqn_idx%mom%end)
# 1253 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(f + jump)%sf(i, j, 0) = stored_values(idx, 1, f)
# 1253 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        end do
# 1253 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        q_prim_vf(eqn_idx%mom%end)%sf(i, j, 0) = 0.0_wp
# 1253 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    case (3)
# 1253 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        idx = i + 1 + global_offset_x - index_x
# 1253 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        idy = j + 1 + global_offset_y - index_y
# 1253 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        if (idx < 1 .or. idx > xrows .or. idy < 1 .or. idy > yrows) &
# 1253 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            & call s_mpi_abort("Hardcoded IC extrusion: row/column index out of range (IC file misaligned with the run grid)")
# 1253 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        do f = 1, sys_size - 1
# 1253 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            jump = merge(1, 0, f >= eqn_idx%mom%end)
# 1253 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(f + jump)%sf(i, j, k) = stored_values(idx, idy, f)
# 1253 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        end do
# 1253 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        q_prim_vf(eqn_idx%mom%end)%sf(i, j, k) = 0.0_wp
# 1253 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    end select
# 1253 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    case (380)  ! Taylor-Green vortex
# 1253 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! This is patch is hard-coded for test suite optimization used in the 3D_TaylorGreenVortex case: This analytic patch used
# 1253 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! geometry 9
# 1253 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        mach = 0.1
# 1253 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        if (patch_id == 1) then
# 1253 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%E)%sf(i, j, &
# 1253 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                      & k) = 101325 + (mach**2*376.636429464809**2/16)*(cos(2*x_cc(i)/1) + cos(2*y_cc(j)/1))*(cos(2*z_cc(k)/1) + 2)
# 1253 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%mom%beg + 0)%sf(i, j, k) = mach*376.636429464809*sin(x_cc(i)/1)*cos(y_cc(j)/1)*sin(z_cc(k)/1)
# 1253 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%mom%beg + 1)%sf(i, j, k) = -mach*376.636429464809*cos(x_cc(i)/1)*sin(y_cc(j)/1)*sin(z_cc(k)/1)
# 1253 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        end if
# 1253 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    case default
# 1253 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        call s_int_to_str(patch_id, istr)
# 1253 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        call s_mpi_abort("Invalid hcid specified for patch " // trim(istr))
# 1253 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    end select
                        end if
 
                        ! Updating the patch identities bookkeeping variable
                        if (1._wp - eta < sgm_eps) patch_id_fp(i, j, k) = patch_id
                    end if
                end do
            end do
        end do
    if (allocated(stored_values)) then
# 1262 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#ifdef MFC_DEBUG
# 1262 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    block
# 1262 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        use iso_fortran_env, only: output_unit
# 1262 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1262 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        print *, 'm_icpp_patches.fpp:1262: ', '@:DEALLOCATE(stored_values)'
# 1262 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1262 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        call flush (output_unit)
# 1262 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    end block
# 1262 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#endif
# 1262 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1262 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#if defined(MFC_OpenACC)
# 1262 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
!$acc exit data delete(stored_values) 
# 1262 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#elif defined(MFC_OpenMP)
# 1262 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
!$omp target exit data map(release:stored_values) 
# 1262 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#endif
# 1262 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    deallocate (stored_values)
# 1262 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#ifdef MFC_DEBUG
# 1262 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    block
# 1262 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        use iso_fortran_env, only: output_unit
# 1262 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1262 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        print *, 'm_icpp_patches.fpp:1262: ', '@:DEALLOCATE(x_coords)'
# 1262 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1262 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        call flush (output_unit)
# 1262 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    end block
# 1262 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#endif
# 1262 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1262 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#if defined(MFC_OpenACC)
# 1262 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
!$acc exit data delete(x_coords) 
# 1262 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#elif defined(MFC_OpenMP)
# 1262 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
!$omp target exit data map(release:x_coords) 
# 1262 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#endif
# 1262 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    deallocate (x_coords)
# 1262 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    end if
# 1262 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1262 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    if (allocated(y_coords)) then
# 1262 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#ifdef MFC_DEBUG
# 1262 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    block
# 1262 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        use iso_fortran_env, only: output_unit
# 1262 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1262 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        print *, 'm_icpp_patches.fpp:1262: ', '@:DEALLOCATE(y_coords)'
# 1262 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1262 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        call flush (output_unit)
# 1262 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    end block
# 1262 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#endif
# 1262 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1262 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#if defined(MFC_OpenACC)
# 1262 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
!$acc exit data delete(y_coords) 
# 1262 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#elif defined(MFC_OpenMP)
# 1262 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
!$omp target exit data map(release:y_coords) 
# 1262 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#endif
# 1262 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    deallocate (y_coords)
# 1262 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    end if
# 1262 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1262 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    files_loaded = .false.
# 1262 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1262 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    if (allocated(stored_values274)) then
# 1262 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#ifdef MFC_DEBUG
# 1262 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    block
# 1262 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        use iso_fortran_env, only: output_unit
# 1262 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1262 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        print *, 'm_icpp_patches.fpp:1262: ', '@:DEALLOCATE(stored_values274)'
# 1262 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1262 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        call flush (output_unit)
# 1262 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    end block
# 1262 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#endif
# 1262 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1262 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#if defined(MFC_OpenACC)
# 1262 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
!$acc exit data delete(stored_values274) 
# 1262 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#elif defined(MFC_OpenMP)
# 1262 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
!$omp target exit data map(release:stored_values274) 
# 1262 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#endif
# 1262 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    deallocate (stored_values274)
# 1262 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    end if
# 1262 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1262 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    files_loaded274 = .false.
 
    end subroutine s_icpp_sweep_plane
 
    !> The STL patch is a 2/3D geometry that is imported from an STL file.
    subroutine s_icpp_model(patch_id, patch_id_fp, q_prim_vf)
 
        integer, intent(in) :: patch_id
 
#ifdef MFC_MIXED_PRECISION
        integer(kind=1), dimension(0:m,0:n,0:p), intent(inout) :: patch_id_fp
#else
        integer, dimension(0:m,0:n,0:p), intent(inout) :: patch_id_fp
#endif
        type(scalar_field), dimension(1:sys_size), intent(inout) :: q_prim_vf
        integer :: i, j, k                 !< loop iterators
        integer :: model_id                !< Index into the preloading stl_models(:)
        real(wp) :: threshold              !< Inside/outside cutoff for this model
        real(wp), dimension(1:3) :: point  !< Cell-center query point
        logical :: in_box                  !< Whether the cell center lies in the model's bounding box
 
        model_id = patch_icpp(patch_id)%model_id
        threshold = stl_models(model_id)%model_threshold
 
        do i = 0, m; do j = 0, n; do k = 0, p
            point = (/x_cc(i), y_cc(j), 0._wp/)
            if (p > 0) point(3) = z_cc(k)
            if (grid_geometry == 3) point = f_convert_cyl_to_cart(point)
 
            ! Run the winding test only on cells whose Cartesian point lies inside the bounding box, else skip the calculation
            in_box = point(1) >= stl_bounding_boxes(model_id, 1, 1) .and. point(1) <= stl_bounding_boxes(model_id, 1, &
                           & 3) .and. point(2) >= stl_bounding_boxes(model_id, 2, &
                           & 1) .and. point(2) <= stl_bounding_boxes(model_id, 2, 3)
            if (p > 0 .or. grid_geometry == 3) then
                in_box = in_box .and. point(3) >= stl_bounding_boxes(model_id, 3, &
                                            & 1) .and. point(3) <= stl_bounding_boxes(model_id, 3, 3)
            end if
 
            if (in_box) then
                eta = f_model_is_inside(gpu_ntrs(model_id), model_id, point)
            else
                eta = 0._wp
            end if
 
            if (eta > threshold) then
                eta = 1._wp
            else if (.not. patch_icpp(patch_id)%smoothen) then
                eta = 0._wp
            end if
 
            call s_assign_patch_primitive_variables(patch_id, i, j, k, eta, q_prim_vf, patch_id_fp)
 
 
        end do; end do; end do
 
    end subroutine s_icpp_model
 
    !> Convert cylindrical (r, theta) coordinates to Cartesian (y, z) module variables.
    subroutine s_convert_cylindrical_to_cartesian_coord(cyl_y, cyl_z)
 
 
# 1322 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#if MFC_OpenACC
# 1322 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
!$acc routine seq 
# 1322 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#elif MFC_OpenMP
# 1322 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1322 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1322 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
!$omp declare target device_type(any) 
# 1322 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#endif
 
        real(wp), intent(in) :: cyl_y, cyl_z
 
        cart_y = cyl_y*sin(cyl_z)
        cart_z = cyl_y*cos(cyl_z)
 
    end subroutine s_convert_cylindrical_to_cartesian_coord
 
    !> Return a 3D Cartesian coordinate vector from a cylindrical (x, r, theta) input vector.
    function f_convert_cyl_to_cart(cyl) result(cart)
 
 
# 1334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#if MFC_OpenACC
# 1334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
!$acc routine seq 
# 1334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#elif MFC_OpenMP
# 1334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
!$omp declare target device_type(any) 
# 1334 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#endif
 
        real(wp), dimension(1:3), intent(in) :: cyl
        real(wp), dimension(1:3)             :: cart
 
        cart = (/cyl(1), cyl(2)*sin(cyl(3)), cyl(2)*cos(cyl(3))/)
 
    end function f_convert_cyl_to_cart
 
    !> Archimedes spiral function
    elemental function f_r(myth, offset, a)
 
 
# 1346 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#if MFC_OpenACC
# 1346 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
!$acc routine seq 
# 1346 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#elif MFC_OpenMP
# 1346 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1346 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1346 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
!$omp declare target device_type(any) 
# 1346 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#endif
        real(wp), intent(in) :: myth, offset, a
        real(wp)             :: b
        real(wp)             :: f_r
 
        ! r(th) = a + b*th
 
        b = 2._wp*a/(2._wp*pi)
        f_r = a + b*myth + offset
 
    end function f_r
 
end module m_icpp_patches