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.
# 9 "/home/runner/work/MFC/MFC/src/common/include/case.fpp"
 
! For moving immersed boundaries in simulation
# 14 "/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.<timestep>.dat` where timestep uses `zeros_default` padding
!> - Files are read from directory specified by `init_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 uses `zeros_default` parameter (default: "000000") for timestep padding
!> @note Directory path is hardcoded in `init_dir` parameter - modify as needed
!> @warning Aborts execution if file reading errors occur.
 
# 56 "/home/runner/work/MFC/MFC/src/common/include/ExtrusionHardcodedIC.fpp"
 
# 194 "/home/runner/work/MFC/MFC/src/common/include/ExtrusionHardcodedIC.fpp"
 
# 205 "/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"
 
# 74 "/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
# 26 "/home/runner/work/MFC/MFC/src/common/include/2dHardcodedIC.fpp"
 
# 349 "/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
# 66 "/home/runner/work/MFC/MFC/src/common/include/3dHardcodedIC.fpp"
 
# 186 "/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"
! 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"
! 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"
! 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. NVIDIA unified memory page placement hint
# 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_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
    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
 
        !  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
# 174 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    integer                                 :: f, iter, ios, ios2, unit, unit2, idx, idy, index_x, index_y, jump, line_count, ycount
# 174 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    real(wp)                                :: x_len, x_step, y_len, y_step
# 174 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    real(wp)                                :: dummy_x, dummy_y, dummy_z, x0, y0
# 174 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    integer                                 :: global_offset_x, global_offset_y       !< MPI subdomain offset
# 174 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    real(wp)                                :: delta_x, delta_y
# 174 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    character(len=100), dimension(sys_size) :: fileNames                              !< Arrays to store all data from files
# 174 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    character(len=200)                      :: errmsg
# 174 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    real(wp), allocatable                   :: stored_values(:,:,:)
# 174 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    real(wp), allocatable                   :: x_coords(:), y_coords(:)
# 174 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    logical                                 :: files_loaded = .false.
# 174 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    real(wp)                                :: domain_xstart, domain_xend, domain_ystart, domain_yend
# 174 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    character(len=*), parameter             :: init_dir = "/home/MFC/FilesDirectory"  !< For example /home/MFC/examples/1D_Shock/D/
# 174 "/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
# 174 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    character(len=20)                       :: zeros_part                             !< For the trailing zeros part
# 174 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    character(len=6), parameter             :: zeros_default = "000000"               !< Default zeros (can be changed)
    ! Place any declaration of intermediate variables here
# 175 "/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)
# 204 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    case (150)  ! 1D Smooth Alfven Case for MHD
# 204 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! velocity
# 204 "/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))
# 204 "/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))
# 204 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 204 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! magnetic field
# 204 "/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))
# 204 "/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))
# 204 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    case (170)  ! 1D profile from external data (e.g. Cantera, SDtoolbox)
# 204 "/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,
# 204 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! SDtoolbox)
# 204 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    if (.not. files_loaded) then
# 204 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        max_files = merge(sys_size, sys_size - 1, num_dims == 1)
# 204 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        do f = 1, max_files
# 204 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            write (file_num_str, '(I0)') f
# 204 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            filenames(f) = trim(init_dir) // "prim." // trim(file_num_str) // ".00." // zeros_default // ".dat"
# 204 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        end do
# 204 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 204 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! Common file reading setup
# 204 "/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)
# 204 "/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)))
# 204 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 204 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        select case (num_dims)
# 204 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        case (1, 2)  ! 1D and 2D cases are similar
# 204 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            ! Count lines
# 204 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            line_count = 0
# 204 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            do
# 204 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                read (unit2, *, iostat=ios2) dummy_x, dummy_y
# 204 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                if (ios2 /= 0) exit
# 204 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                line_count = line_count + 1
# 204 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            end do
# 204 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            close (unit2)
# 204 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 204 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            xrows = line_count
# 204 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            yrows = 1
# 204 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            index_x = 0
# 204 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            if (num_dims == 2) index_x = i
# 204 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#ifdef MFC_DEBUG
# 204 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    block
# 204 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        use iso_fortran_env, only: output_unit
# 204 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 204 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        print *, 'm_icpp_patches.fpp:204: ', '@:ALLOCATE(x_coords(xRows), stored_values(xRows, 1, sys_size))'
# 204 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 204 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        call flush (output_unit)
# 204 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    end block
# 204 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#endif
# 204 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    allocate (x_coords(xrows), stored_values(xrows, 1, sys_size))
# 204 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 204 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 204 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 204 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#if defined(MFC_OpenACC)
# 204 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
!$acc enter data create(x_coords, stored_values) 
# 204 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#elif defined(MFC_OpenMP)
# 204 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
!$omp target enter data map(always,alloc:x_coords, stored_values) 
# 204 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#endif
# 204 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 204 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            ! Read data from all files
# 204 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            do f = 1, max_files
# 204 "/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)
# 204 "/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)))
# 204 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 204 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                do iter = 1, xrows
# 204 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    read (unit, *, iostat=ios) x_coords(iter), stored_values(iter, 1, f)
# 204 "/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)))
# 204 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                end do
# 204 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                close (unit)
# 204 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            end do
# 204 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 204 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            ! Calculate offsets
# 204 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            domain_xstart = x_coords(1)
# 204 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            x_step = x_cc(1) - x_cc(0)
# 204 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            delta_x = merge(x_cc(0) - domain_xstart + x_step/2.0, x_cc(index_x) - domain_xstart + x_step/2.0, num_dims == 1)
# 204 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            global_offset_x = nint(abs(delta_x)/x_step)
# 204 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        case (3)  ! 3D case - determine grid structure
# 204 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            ! Find yRows by counting rows with same x
# 204 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            read (unit2, *, iostat=ios2) x0, y0, dummy_z
# 204 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            if (ios2 /= 0) call s_mpi_abort("Error reading first line")
# 204 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 204 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            yrows = 1
# 204 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            do
# 204 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                read (unit2, *, iostat=ios2) dummy_x, dummy_y, dummy_z
# 204 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                if (ios2 /= 0) exit
# 204 "/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
# 204 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    yrows = yrows + 1
# 204 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                else
# 204 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    exit
# 204 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                end if
# 204 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            end do
# 204 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            close (unit2)
# 204 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 204 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            ! Count total rows
# 204 "/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)
# 204 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            nrows = 0
# 204 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            do
# 204 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                read (unit2, *, iostat=ios2) dummy_x, dummy_y, dummy_z
# 204 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                if (ios2 /= 0) exit
# 204 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                nrows = nrows + 1
# 204 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            end do
# 204 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            close (unit2)
# 204 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 204 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            xrows = nrows/yrows
# 204 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#ifdef MFC_DEBUG
# 204 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    block
# 204 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        use iso_fortran_env, only: output_unit
# 204 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 204 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        print *, 'm_icpp_patches.fpp:204: ', '@:ALLOCATE(x_coords(nrows), y_coords(nrows), stored_values(xRows, yRows, sys_size))'
# 204 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 204 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        call flush (output_unit)
# 204 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    end block
# 204 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#endif
# 204 "/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))
# 204 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 204 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 204 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 204 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 204 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#if defined(MFC_OpenACC)
# 204 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
!$acc enter data create(x_coords, y_coords, stored_values) 
# 204 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#elif defined(MFC_OpenMP)
# 204 "/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) 
# 204 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#endif
# 204 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            index_x = i
# 204 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            index_y = j
# 204 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 204 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            ! Read all files
# 204 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            do f = 1, max_files
# 204 "/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)
# 204 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                if (ios /= 0) then
# 204 "/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)))
# 204 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    cycle
# 204 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                end if
# 204 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 204 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                iter = 0
# 204 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                do iix = 1, xrows
# 204 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    do iiy = 1, yrows
# 204 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                        iter = iter + 1
# 204 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                        if (f == 1) then
# 204 "/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)
# 204 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                        else
# 204 "/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)
# 204 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                        end if
# 204 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                        if (ios /= 0) call s_mpi_abort("Error reading data")
# 204 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    end do
# 204 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                end do
# 204 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                close (unit)
# 204 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            end do
# 204 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 204 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            ! Calculate offsets
# 204 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            x_step = x_cc(1) - x_cc(0)
# 204 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            y_step = y_cc(1) - y_cc(0)
# 204 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            delta_x = x_cc(index_x) - x_coords(1) + x_step/2.0_wp
# 204 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            delta_y = y_cc(index_y) - y_coords(1) + y_step/2.0_wp
# 204 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            global_offset_x = nint(abs(delta_x)/x_step)
# 204 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            global_offset_y = nint(abs(delta_y)/y_step)
# 204 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        end select
# 204 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 204 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        files_loaded = .true.
# 204 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    end if
# 204 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 204 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    ! Data assignment
# 204 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    select case (num_dims)
# 204 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    case (1)
# 204 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        idx = i + 1 + global_offset_x
# 204 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        do f = 1, sys_size
# 204 "/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)
# 204 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        end do
# 204 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    case (2)
# 204 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        idx = i + 1 + global_offset_x - index_x
# 204 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        do f = 1, sys_size - 1
# 204 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            jump = merge(1, 0, f >= eqn_idx%mom%end)
# 204 "/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)
# 204 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        end do
# 204 "/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
# 204 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    case (3)
# 204 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        idx = i + 1 + global_offset_x - index_x
# 204 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        idy = j + 1 + global_offset_y - index_y
# 204 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        do f = 1, sys_size - 1
# 204 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            jump = merge(1, 0, f >= eqn_idx%mom%end)
# 204 "/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)
# 204 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        end do
# 204 "/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
# 204 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    end select
# 204 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    case (180)  ! Shu-Osher problem
# 204 "/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 +
# 204 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! 0.2*sin(5*x)"
# 204 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        if (patch_id == 2) then
# 204 "/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))
# 204 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        end if
# 204 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    case (181)  ! Titarev-Torro problem
# 204 "/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)":
# 204 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! "1 + 0.1*sin(20*x*pi)"
# 204 "/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)
# 204 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    case (182)  ! Multi-component diffusion
# 204 "/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)
# 204 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        x_mid_diffu = 0.05_wp/2.0_wp
# 204 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        width_sq = (2.5_wp*10.0_wp**(-3.0_wp))**2
# 204 "/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)
# 204 "/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
# 204 "/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
# 204 "/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
# 204 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 204 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        y1 = (0.195_wp - 0.142_wp)*profile_shape + 0.142_wp
# 204 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        y2 = (0.0_wp - 0.1_wp)*profile_shape + 0.1_wp
# 204 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        y3 = (0.214_wp - 0.0_wp)*profile_shape + 0.0_wp
# 204 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        y4 = (0.591_wp - 0.758_wp)*profile_shape + 0.758_wp
# 204 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 204 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        q_prim_vf(eqn_idx%species%beg)%sf(i, 0, 0) = y1
# 204 "/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
# 204 "/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
# 204 "/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
# 204 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 204 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        temp = (320.0_wp - 1350.0_wp)*profile_shape + 1350.0_wp
# 204 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 204 "/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
# 204 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 204 "/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)
# 204 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 204 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    case(191)  ! 1D Dual Isothermal case
# 204 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 204 "/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
# 204 "/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
# 204 "/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
# 204 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 204 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        if (x_cc(i) <= 0.025_wp) then
# 204 "/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)
# 204 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        else
# 204 "/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)
# 204 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        end if
# 204 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 204 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        molar_mass_inv = 1.0_wp/2.01588_wp
# 204 "/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)
# 204 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    case default
# 204 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        call s_int_to_str(patch_id, istr)
# 204 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        call s_mpi_abort("Invalid hcid specified for patch " // trim(istr))
# 204 "/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
# 211 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#ifdef MFC_DEBUG
# 211 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    block
# 211 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        use iso_fortran_env, only: output_unit
# 211 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 211 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        print *, 'm_icpp_patches.fpp:211: ', '@:DEALLOCATE(stored_values)'
# 211 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 211 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        call flush (output_unit)
# 211 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    end block
# 211 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#endif
# 211 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 211 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#if defined(MFC_OpenACC)
# 211 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
!$acc exit data delete(stored_values) 
# 211 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#elif defined(MFC_OpenMP)
# 211 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
!$omp target exit data map(release:stored_values) 
# 211 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#endif
# 211 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    deallocate (stored_values)
# 211 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#ifdef MFC_DEBUG
# 211 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    block
# 211 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        use iso_fortran_env, only: output_unit
# 211 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 211 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        print *, 'm_icpp_patches.fpp:211: ', '@:DEALLOCATE(x_coords)'
# 211 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 211 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        call flush (output_unit)
# 211 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    end block
# 211 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#endif
# 211 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 211 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#if defined(MFC_OpenACC)
# 211 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
!$acc exit data delete(x_coords) 
# 211 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#elif defined(MFC_OpenMP)
# 211 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
!$omp target exit data map(release:x_coords) 
# 211 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#endif
# 211 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    deallocate (x_coords)
# 211 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    end if
# 211 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 211 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    if (allocated(y_coords)) then
# 211 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#ifdef MFC_DEBUG
# 211 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    block
# 211 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        use iso_fortran_env, only: output_unit
# 211 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 211 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        print *, 'm_icpp_patches.fpp:211: ', '@:DEALLOCATE(y_coords)'
# 211 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 211 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        call flush (output_unit)
# 211 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    end block
# 211 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#endif
# 211 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 211 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#if defined(MFC_OpenACC)
# 211 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
!$acc exit data delete(y_coords) 
# 211 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#elif defined(MFC_OpenMP)
# 211 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
!$omp target exit data map(release:y_coords) 
# 211 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#endif
# 211 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    deallocate (y_coords)
# 211 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    end if
 
    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
# 231 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    integer                                 :: f, iter, ios, ios2, unit, unit2, idx, idy, index_x, index_y, jump, line_count, ycount
# 231 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    real(wp)                                :: x_len, x_step, y_len, y_step
# 231 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    real(wp)                                :: dummy_x, dummy_y, dummy_z, x0, y0
# 231 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    integer                                 :: global_offset_x, global_offset_y       !< MPI subdomain offset
# 231 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    real(wp)                                :: delta_x, delta_y
# 231 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    character(len=100), dimension(sys_size) :: filenames                              !< Arrays to store all data from files
# 231 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    character(len=200)                      :: errmsg
# 231 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    real(wp), allocatable                   :: stored_values(:,:,:)
# 231 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    real(wp), allocatable                   :: x_coords(:), y_coords(:)
# 231 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    logical                                 :: files_loaded = .false.
# 231 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    real(wp)                                :: domain_xstart, domain_xend, domain_ystart, domain_yend
# 231 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    character(len=*), parameter             :: init_dir = "/home/MFC/FilesDirectory"  !< For example /home/MFC/examples/1D_Shock/D/
# 231 "/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
# 231 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    character(len=20)                       :: zeros_part                             !< For the trailing zeros part
# 231 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    character(len=6), parameter             :: zeros_default = "000000"               !< Default zeros (can be changed)
    ! Place any declaration of intermediate variables here
# 232 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    real(wp) :: eps, eps_mhd, c_mhd
# 232 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    real(wp) :: r, rmax, gam, umax, p0
# 232 "/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
# 232 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    real(wp) :: factor
# 232 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    real(wp) :: r0, alpha, r2
# 232 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    real(wp) :: sina, cosa
# 232 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    real(wp) :: r_sq
# 232 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 232 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    ! # 291 - Shear/Thermal Layer Case
# 232 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    real(wp) :: delta_shear, u_max, u_mean
# 232 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    real(wp) :: t_wall, t_inf, p_atm, t_loc
# 232 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    real(wp) :: delta_th, r_mix
# 232 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    real(wp) :: y_n2, y_o2, mw_n2, mw_o2
# 232 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    real(wp) :: bottom_blend_u, bottom_blend_t
# 232 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 232 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    ! # 207
# 232 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    real(wp) :: sigma, gauss1, gauss2
# 232 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 232 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    ! # 208
# 232 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    real(wp) :: ei, d, fsm, alpha_air, alpha_sf6
# 232 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 232 "/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
# 267 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    case (200)  ! Two-fluid cubic interface
# 267 "/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
# 267 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            ! Volume Fractions
# 267 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%adv%beg)%sf(i, j, 0) = eps
# 267 "/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
# 267 "/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
# 267 "/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
# 267 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%E)%sf(i, j, 0) = 1000._wp
# 267 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        end if
# 267 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    case (202)  ! Gresho vortex (Gouasmi et al 2022 JCP)
# 267 "/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
# 267 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        rmax = 0.2_wp
# 267 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 267 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        gam = 1._wp + 1._wp/fluid_pp(1)%gamma
# 267 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        umax = 2*pi*rmax*patch_icpp(patch_id)%vel(2)
# 267 "/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)
# 267 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 267 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        if (r < rmax) then
# 267 "/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
# 267 "/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
# 267 "/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)
# 267 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        else if (r < 2*rmax) then
# 267 "/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)
# 267 "/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)
# 267 "/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)))
# 267 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        else
# 267 "/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
# 267 "/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
# 267 "/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))
# 267 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        end if
# 267 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    case (203)  ! Gresho vortex (Gouasmi et al 2022 JCP) with density correction
# 267 "/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
# 267 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        rmax = 0.2_wp
# 267 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 267 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        gam = 1._wp + 1._wp/fluid_pp(1)%gamma
# 267 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        umax = 2*pi*rmax*patch_icpp(patch_id)%vel(2)
# 267 "/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)
# 267 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 267 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        if (r < rmax) then
# 267 "/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
# 267 "/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
# 267 "/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)
# 267 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        else if (r < 2*rmax) then
# 267 "/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)
# 267 "/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)
# 267 "/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)))
# 267 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        else
# 267 "/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
# 267 "/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
# 267 "/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))
# 267 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        end if
# 267 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 267 "/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)
# 267 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    case (204)  ! Rayleigh-Taylor instability
# 267 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        rhoh = 3._wp
# 267 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        rhol = 1._wp
# 267 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        pref = 1.e5_wp
# 267 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        pint = pref
# 267 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        h = 0.7_wp
# 267 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        lam = 0.2_wp
# 267 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        wl = 2._wp*pi/lam
# 267 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        amp = 0.05_wp/wl
# 267 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 267 "/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
# 267 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 267 "/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))
# 267 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 267 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        if (alph < eps) alph = eps
# 267 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        if (alph > 1._wp - eps) alph = 1._wp - eps
# 267 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 267 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        if (y_cc(j) > inth) then
# 267 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%adv%beg)%sf(i, j, 0) = alph
# 267 "/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
# 267 "/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
# 267 "/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
# 267 "/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))
# 267 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        else
# 267 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%adv%beg)%sf(i, j, 0) = alph
# 267 "/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
# 267 "/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
# 267 "/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
# 267 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            pint = pref + rhoh*9.81_wp*(1.2_wp - inth)
# 267 "/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))
# 267 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        end if
# 267 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    case (205)  ! 2D lung wave interaction problem
# 267 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        h = 0.0_wp  ! non dim origin y
# 267 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        lam = 1.0_wp  ! non dim lambda
# 267 "/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
# 267 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 267 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        inth = amp*sin(2*pi*x_cc(i)/lam - pi/2) + h
# 267 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 267 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        if (y_cc(j) > inth) then
# 267 "/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)
# 267 "/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)
# 267 "/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
# 267 "/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)
# 267 "/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)
# 267 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        end if
# 267 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    case (206)  ! 2D lung wave interaction problem - horizontal domain
# 267 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        h = 0.0_wp  ! non dim origin y
# 267 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        lam = 1.0_wp  ! non dim lambda
# 267 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        amp = patch_icpp(patch_id)%a(2)
# 267 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 267 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        intl = amp*sin(2*pi*y_cc(j)/lam - pi/2) + h
# 267 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 267 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        if (x_cc(i) > intl) then  ! this is the liquid
# 267 "/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)
# 267 "/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)
# 267 "/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
# 267 "/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)
# 267 "/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)
# 267 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        end if
# 267 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    case (207)  ! Kelvin Helmholtz Instability
# 267 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        sigma = 0.05_wp/sqrt(2.0_wp)
# 267 "/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))
# 267 "/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))
# 267 "/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)
# 267 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    case (208)  ! Richtmeyer Meshkov Instability
# 267 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        lam = 1.0_wp
# 267 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        eps = 1.0e-6_wp
# 267 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ei = 5.0_wp
# 267 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! Smoothening function to smooth out sharp discontinuity in the interface
# 267 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        if (x_cc(i) <= 0.7_wp*lam) then
# 267 "/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)))
# 267 "/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))))
# 267 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            alpha_air = eps + (1.0_wp - 2.0_wp*eps)*fsm
# 267 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            alpha_sf6 = 1.0_wp - alpha_air
# 267 "/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
# 267 "/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
# 267 "/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
# 267 "/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
# 267 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        end if
# 267 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    case (250)  ! MHD Orszag-Tang vortex
# 267 "/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),
# 267 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! sin(4*pi*x)/sqrt(4*pi), 0)
# 267 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 267 "/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))
# 267 "/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))
# 267 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 267 "/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)
# 267 "/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)
# 267 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    case (251)  ! RMHD Cylindrical Blast Wave [Mignone, 2006: Section 4.3.1]
# 267 "/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
# 267 "/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
# 267 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%E)%sf(i, j, 0) = 1.0
# 267 "/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
# 267 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            ! Linear interpolation between r=0.08 and r=1.0
# 267 "/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)
# 267 "/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)
# 267 "/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)
# 267 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        else
# 267 "/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
# 267 "/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
# 267 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        end if
# 267 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 267 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! case 252 is for the 2D MHD Rotor problem
# 267 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    case (252)  ! 2D MHD Rotor Problem
# 267 "/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.
# 267 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        !
# 267 "/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
# 267 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! velocity w=20, giving v_tan=2 at r=0.1
# 267 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 267 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! Calculate distance squared from the center
# 267 "/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
# 267 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 267 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! inner radius of 0.1
# 267 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        if (r_sq <= 0.1**2) then
# 267 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            ! -- Inside the rotor -- Set density uniformly to 10
# 267 "/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
# 267 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 267 "/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)
# 267 "/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)
# 267 "/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)
# 267 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 267 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            ! taper width of 0.015
# 267 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        else if (r_sq <= 0.115**2) then
# 267 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            ! linearly smooth the function between r = 0.1 and 0.115
# 267 "/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)
# 267 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 267 "/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)
# 267 "/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)
# 267 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        end if
# 267 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    case (253)  ! MHD Smooth Magnetic Vortex
# 267 "/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.
# 267 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! Fernandez, A. Christophe, N.C. Nguyen, J. Peraire
# 267 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 267 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! velocity
# 267 "/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))
# 267 "/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))
# 267 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 267 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! magnetic field
# 267 "/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)
# 267 "/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)
# 267 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 267 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! pressure
# 267 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        q_prim_vf(eqn_idx%E)%sf(i, j, &
# 267 "/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)
# 267 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    case (260)  ! Gaussian Divergence Pulse
# 267 "/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)
# 267 "/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
# 267 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! initialized to zero everywhere.
# 267 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 267 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        eps_mhd = patch_icpp(patch_id)%a(2)
# 267 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        sigma = patch_icpp(patch_id)%a(3)
# 267 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        c_mhd = eps_mhd*sigma*sqrt(pi)*0.5_wp
# 267 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 267 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! B-field
# 267 "/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)
# 267 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    case (261)  ! Blob
# 267 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        r0 = 1._wp/sqrt(8._wp)
# 267 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        r2 = x_cc(i)**2 + y_cc(j)**2
# 267 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        r = sqrt(r2)
# 267 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        alpha = r/r0
# 267 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        if (alpha < 1) then
# 267 "/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)
# 267 "/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)
# 267 "/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)
# 267 "/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
# 267 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        end if
# 267 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    case (262)  ! Tilted 2D MHD shock‐tube at α = arctan2 (≈63.4°)
# 267 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! rotate by \alpha = atan(2)
# 267 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        alpha = atan(2._wp)
# 267 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        cosa = cos(alpha)
# 267 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        sina = sin(alpha)
# 267 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! projection along shock normal
# 267 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        r = x_cc(i)*cosa + y_cc(j)*sina
# 267 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 267 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        if (r <= 0.5_wp) then
# 267 "/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)
# 267 "/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
# 267 "/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
# 267 "/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
# 267 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%E)%sf(i, j, 0) = 20._wp
# 267 "/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
# 267 "/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
# 267 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        else
# 267 "/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)
# 267 "/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
# 267 "/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
# 267 "/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
# 267 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%E)%sf(i, j, 0) = 1._wp
# 267 "/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
# 267 "/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
# 267 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        end if
# 267 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! v^z and B^z remain zero by default
# 267 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    case (270)  ! 2D extrusion of 1D profile from external data
# 267 "/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
# 267 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    if (.not. files_loaded) then
# 267 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        max_files = merge(sys_size, sys_size - 1, num_dims == 1)
# 267 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        do f = 1, max_files
# 267 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            write (file_num_str, '(I0)') f
# 267 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            filenames(f) = trim(init_dir) // "prim." // trim(file_num_str) // ".00." // zeros_default // ".dat"
# 267 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        end do
# 267 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 267 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! Common file reading setup
# 267 "/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)
# 267 "/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)))
# 267 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 267 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        select case (num_dims)
# 267 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        case (1, 2)  ! 1D and 2D cases are similar
# 267 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            ! Count lines
# 267 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            line_count = 0
# 267 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            do
# 267 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                read (unit2, *, iostat=ios2) dummy_x, dummy_y
# 267 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                if (ios2 /= 0) exit
# 267 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                line_count = line_count + 1
# 267 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            end do
# 267 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            close (unit2)
# 267 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 267 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            xrows = line_count
# 267 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            yrows = 1
# 267 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            index_x = 0
# 267 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            if (num_dims == 2) index_x = i
# 267 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#ifdef MFC_DEBUG
# 267 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    block
# 267 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        use iso_fortran_env, only: output_unit
# 267 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 267 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        print *, 'm_icpp_patches.fpp:267: ', '@:ALLOCATE(x_coords(xRows), stored_values(xRows, 1, sys_size))'
# 267 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 267 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        call flush (output_unit)
# 267 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    end block
# 267 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#endif
# 267 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    allocate (x_coords(xrows), stored_values(xrows, 1, sys_size))
# 267 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 267 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 267 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 267 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#if defined(MFC_OpenACC)
# 267 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
!$acc enter data create(x_coords, stored_values) 
# 267 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#elif defined(MFC_OpenMP)
# 267 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
!$omp target enter data map(always,alloc:x_coords, stored_values) 
# 267 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#endif
# 267 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 267 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            ! Read data from all files
# 267 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            do f = 1, max_files
# 267 "/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)
# 267 "/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)))
# 267 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 267 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                do iter = 1, xrows
# 267 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    read (unit, *, iostat=ios) x_coords(iter), stored_values(iter, 1, f)
# 267 "/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)))
# 267 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                end do
# 267 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                close (unit)
# 267 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            end do
# 267 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 267 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            ! Calculate offsets
# 267 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            domain_xstart = x_coords(1)
# 267 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            x_step = x_cc(1) - x_cc(0)
# 267 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            delta_x = merge(x_cc(0) - domain_xstart + x_step/2.0, x_cc(index_x) - domain_xstart + x_step/2.0, num_dims == 1)
# 267 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            global_offset_x = nint(abs(delta_x)/x_step)
# 267 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        case (3)  ! 3D case - determine grid structure
# 267 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            ! Find yRows by counting rows with same x
# 267 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            read (unit2, *, iostat=ios2) x0, y0, dummy_z
# 267 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            if (ios2 /= 0) call s_mpi_abort("Error reading first line")
# 267 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 267 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            yrows = 1
# 267 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            do
# 267 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                read (unit2, *, iostat=ios2) dummy_x, dummy_y, dummy_z
# 267 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                if (ios2 /= 0) exit
# 267 "/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
# 267 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    yrows = yrows + 1
# 267 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                else
# 267 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    exit
# 267 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                end if
# 267 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            end do
# 267 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            close (unit2)
# 267 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 267 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            ! Count total rows
# 267 "/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)
# 267 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            nrows = 0
# 267 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            do
# 267 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                read (unit2, *, iostat=ios2) dummy_x, dummy_y, dummy_z
# 267 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                if (ios2 /= 0) exit
# 267 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                nrows = nrows + 1
# 267 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            end do
# 267 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            close (unit2)
# 267 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 267 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            xrows = nrows/yrows
# 267 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#ifdef MFC_DEBUG
# 267 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    block
# 267 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        use iso_fortran_env, only: output_unit
# 267 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 267 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        print *, 'm_icpp_patches.fpp:267: ', '@:ALLOCATE(x_coords(nrows), y_coords(nrows), stored_values(xRows, yRows, sys_size))'
# 267 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 267 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        call flush (output_unit)
# 267 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    end block
# 267 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#endif
# 267 "/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))
# 267 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 267 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 267 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 267 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 267 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#if defined(MFC_OpenACC)
# 267 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
!$acc enter data create(x_coords, y_coords, stored_values) 
# 267 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#elif defined(MFC_OpenMP)
# 267 "/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) 
# 267 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#endif
# 267 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            index_x = i
# 267 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            index_y = j
# 267 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 267 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            ! Read all files
# 267 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            do f = 1, max_files
# 267 "/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)
# 267 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                if (ios /= 0) then
# 267 "/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)))
# 267 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    cycle
# 267 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                end if
# 267 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 267 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                iter = 0
# 267 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                do iix = 1, xrows
# 267 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    do iiy = 1, yrows
# 267 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                        iter = iter + 1
# 267 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                        if (f == 1) then
# 267 "/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)
# 267 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                        else
# 267 "/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)
# 267 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                        end if
# 267 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                        if (ios /= 0) call s_mpi_abort("Error reading data")
# 267 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    end do
# 267 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                end do
# 267 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                close (unit)
# 267 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            end do
# 267 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 267 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            ! Calculate offsets
# 267 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            x_step = x_cc(1) - x_cc(0)
# 267 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            y_step = y_cc(1) - y_cc(0)
# 267 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            delta_x = x_cc(index_x) - x_coords(1) + x_step/2.0_wp
# 267 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            delta_y = y_cc(index_y) - y_coords(1) + y_step/2.0_wp
# 267 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            global_offset_x = nint(abs(delta_x)/x_step)
# 267 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            global_offset_y = nint(abs(delta_y)/y_step)
# 267 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        end select
# 267 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 267 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        files_loaded = .true.
# 267 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    end if
# 267 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 267 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    ! Data assignment
# 267 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    select case (num_dims)
# 267 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    case (1)
# 267 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        idx = i + 1 + global_offset_x
# 267 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        do f = 1, sys_size
# 267 "/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)
# 267 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        end do
# 267 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    case (2)
# 267 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        idx = i + 1 + global_offset_x - index_x
# 267 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        do f = 1, sys_size - 1
# 267 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            jump = merge(1, 0, f >= eqn_idx%mom%end)
# 267 "/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)
# 267 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        end do
# 267 "/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
# 267 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    case (3)
# 267 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        idx = i + 1 + global_offset_x - index_x
# 267 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        idy = j + 1 + global_offset_y - index_y
# 267 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        do f = 1, sys_size - 1
# 267 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            jump = merge(1, 0, f >= eqn_idx%mom%end)
# 267 "/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)
# 267 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        end do
# 267 "/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
# 267 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    end select
# 267 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    case (280)  ! Isentropic vortex
# 267 "/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
# 267 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! geometry 2
# 267 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        if (patch_id == 1) then
# 267 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%E)%sf(i, j, &
# 267 "/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) &
# 267 "/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)
# 267 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%cont%beg + 0)%sf(i, j, &
# 267 "/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) &
# 267 "/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
# 267 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%mom%beg + 0)%sf(i, j, &
# 267 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                      & 0) = 0.0 + (y_cc(j) - patch_icpp(1)%y_centroid)*(5.0/(2.0*pi))*exp(1.0*(1.0 - (x_cc(i) - patch_icpp(1) &
# 267 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                      & %x_centroid)**2.0 - (y_cc(j) - patch_icpp(1)%y_centroid)**2.0))
# 267 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%mom%beg + 1)%sf(i, j, &
# 267 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                      & 0) = 0.0 - (x_cc(i) - patch_icpp(1)%x_centroid)*(5.0/(2.0*pi))*exp(1.0*(1.0 - (x_cc(i) - patch_icpp(1) &
# 267 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                      & %x_centroid)**2.0 - (y_cc(j) - patch_icpp(1)%y_centroid)**2.0))
# 267 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        end if
# 267 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    case (281)  ! Acoustic pulse
# 267 "/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
# 267 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! geometry 2
# 267 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        if (patch_id == 2) then
# 267 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%E)%sf(i, j, &
# 267 "/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))
# 267 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%cont%beg + 0)%sf(i, j, &
# 267 "/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))
# 267 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        end if
# 267 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    case (282)  ! Zero-circulation vortex
# 267 "/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
# 267 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! geometry 2
# 267 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        if (patch_id == 2) then
# 267 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%E)%sf(i, j, &
# 267 "/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))
# 267 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%cont%beg + 0)%sf(i, j, &
# 267 "/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))
# 267 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%mom%beg + 0)%sf(i, j, &
# 267 "/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)))
# 267 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%mom%beg + 1)%sf(i, j, &
# 267 "/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)))
# 267 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        end if
# 267 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    case (291)  ! Isothermal Flat Plate
# 267 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        t_inf = 1125.0_wp
# 267 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        t_wall = 600.0_wp
# 267 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        p_atm = 101325.0_wp
# 267 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 267 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! Boundary/Shear Layer thicknesses
# 267 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        delta_th = 0.0003_wp  ! Thermal BL thickness
# 267 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        delta_shear = 8e-3_wp  ! Velocity BL thickness
# 267 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 267 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        u_max = 50.0_wp  ! Freestream Velocity (m/s)
# 267 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 267 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        mw_n2 = 28.0134e-3_wp
# 267 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        mw_o2 = 31.999e-3_wp
# 267 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        y_n2 = 0.767_wp
# 267 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        y_o2 = 0.233_wp
# 267 "/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))
# 267 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        bottom_blend_u = tanh(y_cc(j)/delta_shear)
# 267 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        bottom_blend_t = tanh(y_cc(j)/delta_th)
# 267 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        u_mean = u_max*bottom_blend_u
# 267 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        t_loc = t_wall + (t_inf - t_wall)*bottom_blend_t
# 267 "/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)
# 267 "/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
# 267 "/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
# 267 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        q_prim_vf(eqn_idx%E)%sf(i, j, 0) = p_atm
# 267 "/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
# 267 "/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
# 267 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    case default
# 267 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        if (proc_rank == 0) then
# 267 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            call s_int_to_str(patch_id, istr)
# 267 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            call s_mpi_abort("Invalid hcid specified for patch " // trim(istr))
# 267 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        end if
# 267 "/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
# 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: ', '@:DEALLOCATE(stored_values)'
# 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"
 
# 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 exit data delete(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 exit data map(release: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"
    deallocate (stored_values)
# 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: ', '@:DEALLOCATE(x_coords)'
# 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"
 
# 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 exit data delete(x_coords) 
# 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 exit data map(release:x_coords) 
# 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"
    deallocate (x_coords)
# 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"
    if (allocated(y_coords)) 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: ', '@:DEALLOCATE(y_coords)'
# 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"
 
# 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 exit data delete(y_coords) 
# 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 exit data map(release:y_coords) 
# 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"
    deallocate (y_coords)
# 275 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    end if
 
    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
# 295 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    integer                                 :: f, iter, ios, ios2, unit, unit2, idx, idy, index_x, index_y, jump, line_count, ycount
# 295 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    real(wp)                                :: x_len, x_step, y_len, y_step
# 295 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    real(wp)                                :: dummy_x, dummy_y, dummy_z, x0, y0
# 295 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    integer                                 :: global_offset_x, global_offset_y       !< MPI subdomain offset
# 295 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    real(wp)                                :: delta_x, delta_y
# 295 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    character(len=100), dimension(sys_size) :: fileNames                              !< Arrays to store all data from files
# 295 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    character(len=200)                      :: errmsg
# 295 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    real(wp), allocatable                   :: stored_values(:,:,:)
# 295 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    real(wp), allocatable                   :: x_coords(:), y_coords(:)
# 295 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    logical                                 :: files_loaded = .false.
# 295 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    real(wp)                                :: domain_xstart, domain_xend, domain_ystart, domain_yend
# 295 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    character(len=*), parameter             :: init_dir = "/home/MFC/FilesDirectory"  !< For example /home/MFC/examples/1D_Shock/D/
# 295 "/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
# 295 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    character(len=20)                       :: zeros_part                             !< For the trailing zeros part
# 295 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    character(len=6), parameter             :: zeros_default = "000000"               !< Default zeros (can be changed)
    ! Place any declaration of intermediate variables here
# 296 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    real(wp) :: eps, eps_mhd, C_mhd
# 296 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    real(wp) :: r, rmax, gam, umax, p0
# 296 "/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
# 296 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    real(wp) :: factor
# 296 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    real(wp) :: r0, alpha, r2
# 296 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    real(wp) :: sinA, cosA
# 296 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    real(wp) :: r_sq
# 296 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 296 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    ! # 291 - Shear/Thermal Layer Case
# 296 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    real(wp) :: delta_shear, u_max, u_mean
# 296 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    real(wp) :: T_wall, T_inf, P_atm, T_loc
# 296 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    real(wp) :: delta_th, R_mix
# 296 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    real(wp) :: Y_N2, Y_O2, MW_N2, MW_O2
# 296 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    real(wp) :: bottom_blend_u, bottom_blend_T
# 296 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 296 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    ! # 207
# 296 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    real(wp) :: sigma, gauss1, gauss2
# 296 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 296 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    ! # 208
# 296 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    real(wp) :: ei, d, fsm, alpha_air, alpha_sf6
# 296 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 296 "/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 (((x_cc(i) - x_centroid)**2 + (y_cc(j) - y_centroid)**2 <= radius**2 .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
# 325 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    case (200)  ! Two-fluid cubic interface
# 325 "/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
# 325 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            ! Volume Fractions
# 325 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%adv%beg)%sf(i, j, 0) = eps
# 325 "/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
# 325 "/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
# 325 "/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
# 325 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%E)%sf(i, j, 0) = 1000._wp
# 325 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        end if
# 325 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    case (202)  ! Gresho vortex (Gouasmi et al 2022 JCP)
# 325 "/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
# 325 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        rmax = 0.2_wp
# 325 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 325 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        gam = 1._wp + 1._wp/fluid_pp(1)%gamma
# 325 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        umax = 2*pi*rmax*patch_icpp(patch_id)%vel(2)
# 325 "/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)
# 325 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 325 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        if (r < rmax) then
# 325 "/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
# 325 "/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
# 325 "/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)
# 325 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        else if (r < 2*rmax) then
# 325 "/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)
# 325 "/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)
# 325 "/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)))
# 325 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        else
# 325 "/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
# 325 "/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
# 325 "/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))
# 325 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        end if
# 325 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    case (203)  ! Gresho vortex (Gouasmi et al 2022 JCP) with density correction
# 325 "/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
# 325 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        rmax = 0.2_wp
# 325 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 325 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        gam = 1._wp + 1._wp/fluid_pp(1)%gamma
# 325 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        umax = 2*pi*rmax*patch_icpp(patch_id)%vel(2)
# 325 "/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)
# 325 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 325 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        if (r < rmax) then
# 325 "/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
# 325 "/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
# 325 "/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)
# 325 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        else if (r < 2*rmax) then
# 325 "/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)
# 325 "/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)
# 325 "/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)))
# 325 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        else
# 325 "/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
# 325 "/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
# 325 "/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))
# 325 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        end if
# 325 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 325 "/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)
# 325 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    case (204)  ! Rayleigh-Taylor instability
# 325 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        rhoh = 3._wp
# 325 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        rhol = 1._wp
# 325 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        pref = 1.e5_wp
# 325 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        pint = pref
# 325 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        h = 0.7_wp
# 325 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        lam = 0.2_wp
# 325 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        wl = 2._wp*pi/lam
# 325 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        amp = 0.05_wp/wl
# 325 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 325 "/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
# 325 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 325 "/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))
# 325 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 325 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        if (alph < eps) alph = eps
# 325 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        if (alph > 1._wp - eps) alph = 1._wp - eps
# 325 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 325 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        if (y_cc(j) > inth) then
# 325 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%adv%beg)%sf(i, j, 0) = alph
# 325 "/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
# 325 "/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
# 325 "/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
# 325 "/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))
# 325 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        else
# 325 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%adv%beg)%sf(i, j, 0) = alph
# 325 "/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
# 325 "/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
# 325 "/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
# 325 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            pint = pref + rhoh*9.81_wp*(1.2_wp - inth)
# 325 "/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))
# 325 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        end if
# 325 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    case (205)  ! 2D lung wave interaction problem
# 325 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        h = 0.0_wp  ! non dim origin y
# 325 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        lam = 1.0_wp  ! non dim lambda
# 325 "/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
# 325 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 325 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        inth = amp*sin(2*pi*x_cc(i)/lam - pi/2) + h
# 325 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 325 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        if (y_cc(j) > inth) then
# 325 "/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)
# 325 "/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)
# 325 "/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
# 325 "/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)
# 325 "/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)
# 325 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        end if
# 325 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    case (206)  ! 2D lung wave interaction problem - horizontal domain
# 325 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        h = 0.0_wp  ! non dim origin y
# 325 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        lam = 1.0_wp  ! non dim lambda
# 325 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        amp = patch_icpp(patch_id)%a(2)
# 325 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 325 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        intl = amp*sin(2*pi*y_cc(j)/lam - pi/2) + h
# 325 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 325 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        if (x_cc(i) > intl) then  ! this is the liquid
# 325 "/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)
# 325 "/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)
# 325 "/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
# 325 "/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)
# 325 "/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)
# 325 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        end if
# 325 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    case (207)  ! Kelvin Helmholtz Instability
# 325 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        sigma = 0.05_wp/sqrt(2.0_wp)
# 325 "/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))
# 325 "/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))
# 325 "/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)
# 325 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    case (208)  ! Richtmeyer Meshkov Instability
# 325 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        lam = 1.0_wp
# 325 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        eps = 1.0e-6_wp
# 325 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ei = 5.0_wp
# 325 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! Smoothening function to smooth out sharp discontinuity in the interface
# 325 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        if (x_cc(i) <= 0.7_wp*lam) then
# 325 "/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)))
# 325 "/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))))
# 325 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            alpha_air = eps + (1.0_wp - 2.0_wp*eps)*fsm
# 325 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            alpha_sf6 = 1.0_wp - alpha_air
# 325 "/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
# 325 "/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
# 325 "/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
# 325 "/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
# 325 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        end if
# 325 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    case (250)  ! MHD Orszag-Tang vortex
# 325 "/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),
# 325 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! sin(4*pi*x)/sqrt(4*pi), 0)
# 325 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 325 "/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))
# 325 "/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))
# 325 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 325 "/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)
# 325 "/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)
# 325 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    case (251)  ! RMHD Cylindrical Blast Wave [Mignone, 2006: Section 4.3.1]
# 325 "/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
# 325 "/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
# 325 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%E)%sf(i, j, 0) = 1.0
# 325 "/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
# 325 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            ! Linear interpolation between r=0.08 and r=1.0
# 325 "/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)
# 325 "/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)
# 325 "/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)
# 325 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        else
# 325 "/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
# 325 "/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
# 325 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        end if
# 325 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 325 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! case 252 is for the 2D MHD Rotor problem
# 325 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    case (252)  ! 2D MHD Rotor Problem
# 325 "/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.
# 325 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        !
# 325 "/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
# 325 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! velocity w=20, giving v_tan=2 at r=0.1
# 325 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 325 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! Calculate distance squared from the center
# 325 "/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
# 325 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 325 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! inner radius of 0.1
# 325 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        if (r_sq <= 0.1**2) then
# 325 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            ! -- Inside the rotor -- Set density uniformly to 10
# 325 "/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
# 325 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 325 "/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)
# 325 "/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)
# 325 "/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)
# 325 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 325 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            ! taper width of 0.015
# 325 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        else if (r_sq <= 0.115**2) then
# 325 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            ! linearly smooth the function between r = 0.1 and 0.115
# 325 "/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)
# 325 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 325 "/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)
# 325 "/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)
# 325 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        end if
# 325 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    case (253)  ! MHD Smooth Magnetic Vortex
# 325 "/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.
# 325 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! Fernandez, A. Christophe, N.C. Nguyen, J. Peraire
# 325 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 325 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! velocity
# 325 "/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))
# 325 "/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))
# 325 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 325 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! magnetic field
# 325 "/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)
# 325 "/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)
# 325 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 325 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! pressure
# 325 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        q_prim_vf(eqn_idx%E)%sf(i, j, &
# 325 "/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)
# 325 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    case (260)  ! Gaussian Divergence Pulse
# 325 "/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)
# 325 "/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
# 325 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! initialized to zero everywhere.
# 325 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 325 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        eps_mhd = patch_icpp(patch_id)%a(2)
# 325 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        sigma = patch_icpp(patch_id)%a(3)
# 325 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        c_mhd = eps_mhd*sigma*sqrt(pi)*0.5_wp
# 325 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 325 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! B-field
# 325 "/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)
# 325 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    case (261)  ! Blob
# 325 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        r0 = 1._wp/sqrt(8._wp)
# 325 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        r2 = x_cc(i)**2 + y_cc(j)**2
# 325 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        r = sqrt(r2)
# 325 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        alpha = r/r0
# 325 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        if (alpha < 1) then
# 325 "/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)
# 325 "/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)
# 325 "/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)
# 325 "/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
# 325 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        end if
# 325 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    case (262)  ! Tilted 2D MHD shock‐tube at α = arctan2 (≈63.4°)
# 325 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! rotate by \alpha = atan(2)
# 325 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        alpha = atan(2._wp)
# 325 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        cosa = cos(alpha)
# 325 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        sina = sin(alpha)
# 325 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! projection along shock normal
# 325 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        r = x_cc(i)*cosa + y_cc(j)*sina
# 325 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 325 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        if (r <= 0.5_wp) then
# 325 "/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)
# 325 "/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
# 325 "/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
# 325 "/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
# 325 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%E)%sf(i, j, 0) = 20._wp
# 325 "/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
# 325 "/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
# 325 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        else
# 325 "/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)
# 325 "/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
# 325 "/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
# 325 "/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
# 325 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%E)%sf(i, j, 0) = 1._wp
# 325 "/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
# 325 "/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
# 325 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        end if
# 325 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! v^z and B^z remain zero by default
# 325 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    case (270)  ! 2D extrusion of 1D profile from external data
# 325 "/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
# 325 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    if (.not. files_loaded) then
# 325 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        max_files = merge(sys_size, sys_size - 1, num_dims == 1)
# 325 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        do f = 1, max_files
# 325 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            write (file_num_str, '(I0)') f
# 325 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            filenames(f) = trim(init_dir) // "prim." // trim(file_num_str) // ".00." // zeros_default // ".dat"
# 325 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        end do
# 325 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 325 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! Common file reading setup
# 325 "/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)
# 325 "/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)))
# 325 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 325 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        select case (num_dims)
# 325 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        case (1, 2)  ! 1D and 2D cases are similar
# 325 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            ! Count lines
# 325 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            line_count = 0
# 325 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            do
# 325 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                read (unit2, *, iostat=ios2) dummy_x, dummy_y
# 325 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                if (ios2 /= 0) exit
# 325 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                line_count = line_count + 1
# 325 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            end do
# 325 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            close (unit2)
# 325 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 325 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            xrows = line_count
# 325 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            yrows = 1
# 325 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            index_x = 0
# 325 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            if (num_dims == 2) index_x = i
# 325 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#ifdef MFC_DEBUG
# 325 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    block
# 325 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        use iso_fortran_env, only: output_unit
# 325 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 325 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        print *, 'm_icpp_patches.fpp:325: ', '@:ALLOCATE(x_coords(xRows), stored_values(xRows, 1, sys_size))'
# 325 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 325 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        call flush (output_unit)
# 325 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    end block
# 325 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#endif
# 325 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    allocate (x_coords(xrows), stored_values(xrows, 1, sys_size))
# 325 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 325 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 325 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 325 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#if defined(MFC_OpenACC)
# 325 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
!$acc enter data create(x_coords, stored_values) 
# 325 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#elif defined(MFC_OpenMP)
# 325 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
!$omp target enter data map(always,alloc:x_coords, stored_values) 
# 325 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#endif
# 325 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 325 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            ! Read data from all files
# 325 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            do f = 1, max_files
# 325 "/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)
# 325 "/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)))
# 325 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 325 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                do iter = 1, xrows
# 325 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    read (unit, *, iostat=ios) x_coords(iter), stored_values(iter, 1, f)
# 325 "/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)))
# 325 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                end do
# 325 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                close (unit)
# 325 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            end do
# 325 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 325 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            ! Calculate offsets
# 325 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            domain_xstart = x_coords(1)
# 325 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            x_step = x_cc(1) - x_cc(0)
# 325 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            delta_x = merge(x_cc(0) - domain_xstart + x_step/2.0, x_cc(index_x) - domain_xstart + x_step/2.0, num_dims == 1)
# 325 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            global_offset_x = nint(abs(delta_x)/x_step)
# 325 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        case (3)  ! 3D case - determine grid structure
# 325 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            ! Find yRows by counting rows with same x
# 325 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            read (unit2, *, iostat=ios2) x0, y0, dummy_z
# 325 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            if (ios2 /= 0) call s_mpi_abort("Error reading first line")
# 325 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 325 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            yrows = 1
# 325 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            do
# 325 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                read (unit2, *, iostat=ios2) dummy_x, dummy_y, dummy_z
# 325 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                if (ios2 /= 0) exit
# 325 "/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
# 325 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    yrows = yrows + 1
# 325 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                else
# 325 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    exit
# 325 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                end if
# 325 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            end do
# 325 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            close (unit2)
# 325 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 325 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            ! Count total rows
# 325 "/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)
# 325 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            nrows = 0
# 325 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            do
# 325 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                read (unit2, *, iostat=ios2) dummy_x, dummy_y, dummy_z
# 325 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                if (ios2 /= 0) exit
# 325 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                nrows = nrows + 1
# 325 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            end do
# 325 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            close (unit2)
# 325 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 325 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            xrows = nrows/yrows
# 325 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#ifdef MFC_DEBUG
# 325 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    block
# 325 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        use iso_fortran_env, only: output_unit
# 325 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 325 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        print *, 'm_icpp_patches.fpp:325: ', '@:ALLOCATE(x_coords(nrows), y_coords(nrows), stored_values(xRows, yRows, sys_size))'
# 325 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 325 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        call flush (output_unit)
# 325 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    end block
# 325 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#endif
# 325 "/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))
# 325 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 325 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 325 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 325 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 325 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#if defined(MFC_OpenACC)
# 325 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
!$acc enter data create(x_coords, y_coords, stored_values) 
# 325 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#elif defined(MFC_OpenMP)
# 325 "/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) 
# 325 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#endif
# 325 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            index_x = i
# 325 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            index_y = j
# 325 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 325 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            ! Read all files
# 325 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            do f = 1, max_files
# 325 "/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)
# 325 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                if (ios /= 0) then
# 325 "/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)))
# 325 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    cycle
# 325 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                end if
# 325 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 325 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                iter = 0
# 325 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                do iix = 1, xrows
# 325 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    do iiy = 1, yrows
# 325 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                        iter = iter + 1
# 325 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                        if (f == 1) then
# 325 "/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)
# 325 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                        else
# 325 "/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)
# 325 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                        end if
# 325 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                        if (ios /= 0) call s_mpi_abort("Error reading data")
# 325 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    end do
# 325 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                end do
# 325 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                close (unit)
# 325 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            end do
# 325 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 325 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            ! Calculate offsets
# 325 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            x_step = x_cc(1) - x_cc(0)
# 325 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            y_step = y_cc(1) - y_cc(0)
# 325 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            delta_x = x_cc(index_x) - x_coords(1) + x_step/2.0_wp
# 325 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            delta_y = y_cc(index_y) - y_coords(1) + y_step/2.0_wp
# 325 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            global_offset_x = nint(abs(delta_x)/x_step)
# 325 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            global_offset_y = nint(abs(delta_y)/y_step)
# 325 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        end select
# 325 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 325 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        files_loaded = .true.
# 325 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    end if
# 325 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 325 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    ! Data assignment
# 325 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    select case (num_dims)
# 325 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    case (1)
# 325 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        idx = i + 1 + global_offset_x
# 325 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        do f = 1, sys_size
# 325 "/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)
# 325 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        end do
# 325 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    case (2)
# 325 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        idx = i + 1 + global_offset_x - index_x
# 325 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        do f = 1, sys_size - 1
# 325 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            jump = merge(1, 0, f >= eqn_idx%mom%end)
# 325 "/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)
# 325 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        end do
# 325 "/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
# 325 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    case (3)
# 325 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        idx = i + 1 + global_offset_x - index_x
# 325 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        idy = j + 1 + global_offset_y - index_y
# 325 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        do f = 1, sys_size - 1
# 325 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            jump = merge(1, 0, f >= eqn_idx%mom%end)
# 325 "/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)
# 325 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        end do
# 325 "/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
# 325 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    end select
# 325 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    case (280)  ! Isentropic vortex
# 325 "/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
# 325 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! geometry 2
# 325 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        if (patch_id == 1) then
# 325 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%E)%sf(i, j, &
# 325 "/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) &
# 325 "/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)
# 325 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%cont%beg + 0)%sf(i, j, &
# 325 "/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) &
# 325 "/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
# 325 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%mom%beg + 0)%sf(i, j, &
# 325 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                      & 0) = 0.0 + (y_cc(j) - patch_icpp(1)%y_centroid)*(5.0/(2.0*pi))*exp(1.0*(1.0 - (x_cc(i) - patch_icpp(1) &
# 325 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                      & %x_centroid)**2.0 - (y_cc(j) - patch_icpp(1)%y_centroid)**2.0))
# 325 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%mom%beg + 1)%sf(i, j, &
# 325 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                      & 0) = 0.0 - (x_cc(i) - patch_icpp(1)%x_centroid)*(5.0/(2.0*pi))*exp(1.0*(1.0 - (x_cc(i) - patch_icpp(1) &
# 325 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                      & %x_centroid)**2.0 - (y_cc(j) - patch_icpp(1)%y_centroid)**2.0))
# 325 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        end if
# 325 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    case (281)  ! Acoustic pulse
# 325 "/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
# 325 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! geometry 2
# 325 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        if (patch_id == 2) then
# 325 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%E)%sf(i, j, &
# 325 "/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))
# 325 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%cont%beg + 0)%sf(i, j, &
# 325 "/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))
# 325 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        end if
# 325 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    case (282)  ! Zero-circulation vortex
# 325 "/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
# 325 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! geometry 2
# 325 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        if (patch_id == 2) then
# 325 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%E)%sf(i, j, &
# 325 "/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))
# 325 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%cont%beg + 0)%sf(i, j, &
# 325 "/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))
# 325 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%mom%beg + 0)%sf(i, j, &
# 325 "/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)))
# 325 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%mom%beg + 1)%sf(i, j, &
# 325 "/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)))
# 325 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        end if
# 325 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    case (291)  ! Isothermal Flat Plate
# 325 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        t_inf = 1125.0_wp
# 325 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        t_wall = 600.0_wp
# 325 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        p_atm = 101325.0_wp
# 325 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 325 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! Boundary/Shear Layer thicknesses
# 325 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        delta_th = 0.0003_wp  ! Thermal BL thickness
# 325 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        delta_shear = 8e-3_wp  ! Velocity BL thickness
# 325 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 325 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        u_max = 50.0_wp  ! Freestream Velocity (m/s)
# 325 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 325 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        mw_n2 = 28.0134e-3_wp
# 325 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        mw_o2 = 31.999e-3_wp
# 325 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        y_n2 = 0.767_wp
# 325 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        y_o2 = 0.233_wp
# 325 "/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))
# 325 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        bottom_blend_u = tanh(y_cc(j)/delta_shear)
# 325 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        bottom_blend_t = tanh(y_cc(j)/delta_th)
# 325 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        u_mean = u_max*bottom_blend_u
# 325 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        t_loc = t_wall + (t_inf - t_wall)*bottom_blend_t
# 325 "/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)
# 325 "/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
# 325 "/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
# 325 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        q_prim_vf(eqn_idx%E)%sf(i, j, 0) = p_atm
# 325 "/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
# 325 "/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
# 325 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    case default
# 325 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        if (proc_rank == 0) then
# 325 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            call s_int_to_str(patch_id, istr)
# 325 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            call s_mpi_abort("Invalid hcid specified for patch " // trim(istr))
# 325 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        end if
# 325 "/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
# 330 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#ifdef MFC_DEBUG
# 330 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    block
# 330 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        use iso_fortran_env, only: output_unit
# 330 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 330 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        print *, 'm_icpp_patches.fpp:330: ', '@:DEALLOCATE(stored_values)'
# 330 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 330 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        call flush (output_unit)
# 330 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    end block
# 330 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#endif
# 330 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 330 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#if defined(MFC_OpenACC)
# 330 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
!$acc exit data delete(stored_values) 
# 330 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#elif defined(MFC_OpenMP)
# 330 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
!$omp target exit data map(release:stored_values) 
# 330 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#endif
# 330 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    deallocate (stored_values)
# 330 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#ifdef MFC_DEBUG
# 330 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    block
# 330 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        use iso_fortran_env, only: output_unit
# 330 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 330 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        print *, 'm_icpp_patches.fpp:330: ', '@:DEALLOCATE(x_coords)'
# 330 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 330 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        call flush (output_unit)
# 330 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    end block
# 330 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#endif
# 330 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 330 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#if defined(MFC_OpenACC)
# 330 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
!$acc exit data delete(x_coords) 
# 330 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#elif defined(MFC_OpenMP)
# 330 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
!$omp target exit data map(release:x_coords) 
# 330 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#endif
# 330 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    deallocate (x_coords)
# 330 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    end if
# 330 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 330 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    if (allocated(y_coords)) then
# 330 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#ifdef MFC_DEBUG
# 330 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    block
# 330 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        use iso_fortran_env, only: output_unit
# 330 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 330 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        print *, 'm_icpp_patches.fpp:330: ', '@:DEALLOCATE(y_coords)'
# 330 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 330 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        call flush (output_unit)
# 330 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    end block
# 330 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#endif
# 330 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 330 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#if defined(MFC_OpenACC)
# 330 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
!$acc exit data delete(y_coords) 
# 330 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#elif defined(MFC_OpenMP)
# 330 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
!$omp target exit data map(release:y_coords) 
# 330 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#endif
# 330 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    deallocate (y_coords)
# 330 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    end if
 
    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
# 351 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    integer                                 :: f, iter, ios, ios2, unit, unit2, idx, idy, index_x, index_y, jump, line_count, ycount
# 351 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    real(wp)                                :: x_len, x_step, y_len, y_step
# 351 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    real(wp)                                :: dummy_x, dummy_y, dummy_z, x0, y0
# 351 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    integer                                 :: global_offset_x, global_offset_y       !< MPI subdomain offset
# 351 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    real(wp)                                :: delta_x, delta_y
# 351 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    character(len=100), dimension(sys_size) :: fileNames                              !< Arrays to store all data from files
# 351 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    character(len=200)                      :: errmsg
# 351 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    real(wp), allocatable                   :: stored_values(:,:,:)
# 351 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    real(wp), allocatable                   :: x_coords(:), y_coords(:)
# 351 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    logical                                 :: files_loaded = .false.
# 351 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    real(wp)                                :: domain_xstart, domain_xend, domain_ystart, domain_yend
# 351 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    character(len=*), parameter             :: init_dir = "/home/MFC/FilesDirectory"  !< For example /home/MFC/examples/1D_Shock/D/
# 351 "/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
# 351 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    character(len=20)                       :: zeros_part                             !< For the trailing zeros part
# 351 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    character(len=6), parameter             :: zeros_default = "000000"               !< Default zeros (can be changed)
    ! Place any declaration of intermediate variables here
# 352 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    real(wp) :: eps, eps_mhd, C_mhd
# 352 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    real(wp) :: r, rmax, gam, umax, p0
# 352 "/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
# 352 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    real(wp) :: factor
# 352 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    real(wp) :: r0, alpha, r2
# 352 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    real(wp) :: sinA, cosA
# 352 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    real(wp) :: r_sq
# 352 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 352 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    ! # 291 - Shear/Thermal Layer Case
# 352 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    real(wp) :: delta_shear, u_max, u_mean
# 352 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    real(wp) :: T_wall, T_inf, P_atm, T_loc
# 352 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    real(wp) :: delta_th, R_mix
# 352 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    real(wp) :: Y_N2, Y_O2, MW_N2, MW_O2
# 352 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    real(wp) :: bottom_blend_u, bottom_blend_T
# 352 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 352 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    ! # 207
# 352 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    real(wp) :: sigma, gauss1, gauss2
# 352 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 352 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    ! # 208
# 352 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    real(wp) :: ei, d, fsm, alpha_air, alpha_sf6
# 352 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 352 "/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
# 376 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    case (200)  ! Two-fluid cubic interface
# 376 "/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
# 376 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            ! Volume Fractions
# 376 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%adv%beg)%sf(i, j, 0) = eps
# 376 "/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
# 376 "/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
# 376 "/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
# 376 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%E)%sf(i, j, 0) = 1000._wp
# 376 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        end if
# 376 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    case (202)  ! Gresho vortex (Gouasmi et al 2022 JCP)
# 376 "/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
# 376 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        rmax = 0.2_wp
# 376 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 376 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        gam = 1._wp + 1._wp/fluid_pp(1)%gamma
# 376 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        umax = 2*pi*rmax*patch_icpp(patch_id)%vel(2)
# 376 "/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)
# 376 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 376 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        if (r < rmax) then
# 376 "/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
# 376 "/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
# 376 "/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)
# 376 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        else if (r < 2*rmax) then
# 376 "/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)
# 376 "/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)
# 376 "/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)))
# 376 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        else
# 376 "/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
# 376 "/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
# 376 "/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))
# 376 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        end if
# 376 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    case (203)  ! Gresho vortex (Gouasmi et al 2022 JCP) with density correction
# 376 "/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
# 376 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        rmax = 0.2_wp
# 376 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 376 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        gam = 1._wp + 1._wp/fluid_pp(1)%gamma
# 376 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        umax = 2*pi*rmax*patch_icpp(patch_id)%vel(2)
# 376 "/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)
# 376 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 376 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        if (r < rmax) then
# 376 "/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
# 376 "/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
# 376 "/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)
# 376 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        else if (r < 2*rmax) then
# 376 "/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)
# 376 "/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)
# 376 "/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)))
# 376 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        else
# 376 "/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
# 376 "/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
# 376 "/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))
# 376 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        end if
# 376 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 376 "/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)
# 376 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    case (204)  ! Rayleigh-Taylor instability
# 376 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        rhoh = 3._wp
# 376 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        rhol = 1._wp
# 376 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        pref = 1.e5_wp
# 376 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        pint = pref
# 376 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        h = 0.7_wp
# 376 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        lam = 0.2_wp
# 376 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        wl = 2._wp*pi/lam
# 376 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        amp = 0.05_wp/wl
# 376 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 376 "/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
# 376 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 376 "/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))
# 376 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 376 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        if (alph < eps) alph = eps
# 376 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        if (alph > 1._wp - eps) alph = 1._wp - eps
# 376 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 376 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        if (y_cc(j) > inth) then
# 376 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%adv%beg)%sf(i, j, 0) = alph
# 376 "/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
# 376 "/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
# 376 "/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
# 376 "/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))
# 376 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        else
# 376 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%adv%beg)%sf(i, j, 0) = alph
# 376 "/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
# 376 "/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
# 376 "/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
# 376 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            pint = pref + rhoh*9.81_wp*(1.2_wp - inth)
# 376 "/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))
# 376 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        end if
# 376 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    case (205)  ! 2D lung wave interaction problem
# 376 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        h = 0.0_wp  ! non dim origin y
# 376 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        lam = 1.0_wp  ! non dim lambda
# 376 "/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
# 376 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 376 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        inth = amp*sin(2*pi*x_cc(i)/lam - pi/2) + h
# 376 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 376 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        if (y_cc(j) > inth) then
# 376 "/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)
# 376 "/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)
# 376 "/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
# 376 "/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)
# 376 "/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)
# 376 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        end if
# 376 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    case (206)  ! 2D lung wave interaction problem - horizontal domain
# 376 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        h = 0.0_wp  ! non dim origin y
# 376 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        lam = 1.0_wp  ! non dim lambda
# 376 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        amp = patch_icpp(patch_id)%a(2)
# 376 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 376 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        intl = amp*sin(2*pi*y_cc(j)/lam - pi/2) + h
# 376 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 376 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        if (x_cc(i) > intl) then  ! this is the liquid
# 376 "/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)
# 376 "/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)
# 376 "/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
# 376 "/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)
# 376 "/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)
# 376 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        end if
# 376 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    case (207)  ! Kelvin Helmholtz Instability
# 376 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        sigma = 0.05_wp/sqrt(2.0_wp)
# 376 "/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))
# 376 "/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))
# 376 "/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)
# 376 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    case (208)  ! Richtmeyer Meshkov Instability
# 376 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        lam = 1.0_wp
# 376 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        eps = 1.0e-6_wp
# 376 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ei = 5.0_wp
# 376 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! Smoothening function to smooth out sharp discontinuity in the interface
# 376 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        if (x_cc(i) <= 0.7_wp*lam) then
# 376 "/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)))
# 376 "/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))))
# 376 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            alpha_air = eps + (1.0_wp - 2.0_wp*eps)*fsm
# 376 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            alpha_sf6 = 1.0_wp - alpha_air
# 376 "/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
# 376 "/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
# 376 "/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
# 376 "/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
# 376 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        end if
# 376 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    case (250)  ! MHD Orszag-Tang vortex
# 376 "/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),
# 376 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! sin(4*pi*x)/sqrt(4*pi), 0)
# 376 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 376 "/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))
# 376 "/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))
# 376 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 376 "/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)
# 376 "/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)
# 376 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    case (251)  ! RMHD Cylindrical Blast Wave [Mignone, 2006: Section 4.3.1]
# 376 "/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
# 376 "/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
# 376 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%E)%sf(i, j, 0) = 1.0
# 376 "/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
# 376 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            ! Linear interpolation between r=0.08 and r=1.0
# 376 "/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)
# 376 "/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)
# 376 "/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)
# 376 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        else
# 376 "/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
# 376 "/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
# 376 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        end if
# 376 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 376 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! case 252 is for the 2D MHD Rotor problem
# 376 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    case (252)  ! 2D MHD Rotor Problem
# 376 "/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.
# 376 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        !
# 376 "/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
# 376 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! velocity w=20, giving v_tan=2 at r=0.1
# 376 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 376 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! Calculate distance squared from the center
# 376 "/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
# 376 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 376 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! inner radius of 0.1
# 376 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        if (r_sq <= 0.1**2) then
# 376 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            ! -- Inside the rotor -- Set density uniformly to 10
# 376 "/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
# 376 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 376 "/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)
# 376 "/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)
# 376 "/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)
# 376 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 376 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            ! taper width of 0.015
# 376 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        else if (r_sq <= 0.115**2) then
# 376 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            ! linearly smooth the function between r = 0.1 and 0.115
# 376 "/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)
# 376 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 376 "/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)
# 376 "/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)
# 376 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        end if
# 376 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    case (253)  ! MHD Smooth Magnetic Vortex
# 376 "/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.
# 376 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! Fernandez, A. Christophe, N.C. Nguyen, J. Peraire
# 376 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 376 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! velocity
# 376 "/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))
# 376 "/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))
# 376 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 376 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! magnetic field
# 376 "/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)
# 376 "/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)
# 376 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 376 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! pressure
# 376 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        q_prim_vf(eqn_idx%E)%sf(i, j, &
# 376 "/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)
# 376 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    case (260)  ! Gaussian Divergence Pulse
# 376 "/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)
# 376 "/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
# 376 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! initialized to zero everywhere.
# 376 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 376 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        eps_mhd = patch_icpp(patch_id)%a(2)
# 376 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        sigma = patch_icpp(patch_id)%a(3)
# 376 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        c_mhd = eps_mhd*sigma*sqrt(pi)*0.5_wp
# 376 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 376 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! B-field
# 376 "/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)
# 376 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    case (261)  ! Blob
# 376 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        r0 = 1._wp/sqrt(8._wp)
# 376 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        r2 = x_cc(i)**2 + y_cc(j)**2
# 376 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        r = sqrt(r2)
# 376 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        alpha = r/r0
# 376 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        if (alpha < 1) then
# 376 "/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)
# 376 "/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)
# 376 "/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)
# 376 "/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
# 376 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        end if
# 376 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    case (262)  ! Tilted 2D MHD shock‐tube at α = arctan2 (≈63.4°)
# 376 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! rotate by \alpha = atan(2)
# 376 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        alpha = atan(2._wp)
# 376 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        cosa = cos(alpha)
# 376 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        sina = sin(alpha)
# 376 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! projection along shock normal
# 376 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        r = x_cc(i)*cosa + y_cc(j)*sina
# 376 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 376 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        if (r <= 0.5_wp) then
# 376 "/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)
# 376 "/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
# 376 "/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
# 376 "/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
# 376 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%E)%sf(i, j, 0) = 20._wp
# 376 "/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
# 376 "/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
# 376 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        else
# 376 "/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)
# 376 "/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
# 376 "/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
# 376 "/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
# 376 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%E)%sf(i, j, 0) = 1._wp
# 376 "/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
# 376 "/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
# 376 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        end if
# 376 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! v^z and B^z remain zero by default
# 376 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    case (270)  ! 2D extrusion of 1D profile from external data
# 376 "/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
# 376 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    if (.not. files_loaded) then
# 376 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        max_files = merge(sys_size, sys_size - 1, num_dims == 1)
# 376 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        do f = 1, max_files
# 376 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            write (file_num_str, '(I0)') f
# 376 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            filenames(f) = trim(init_dir) // "prim." // trim(file_num_str) // ".00." // zeros_default // ".dat"
# 376 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        end do
# 376 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 376 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! Common file reading setup
# 376 "/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)
# 376 "/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)))
# 376 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 376 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        select case (num_dims)
# 376 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        case (1, 2)  ! 1D and 2D cases are similar
# 376 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            ! Count lines
# 376 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            line_count = 0
# 376 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            do
# 376 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                read (unit2, *, iostat=ios2) dummy_x, dummy_y
# 376 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                if (ios2 /= 0) exit
# 376 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                line_count = line_count + 1
# 376 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            end do
# 376 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            close (unit2)
# 376 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 376 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            xrows = line_count
# 376 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            yrows = 1
# 376 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            index_x = 0
# 376 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            if (num_dims == 2) index_x = i
# 376 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#ifdef MFC_DEBUG
# 376 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    block
# 376 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        use iso_fortran_env, only: output_unit
# 376 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 376 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        print *, 'm_icpp_patches.fpp:376: ', '@:ALLOCATE(x_coords(xRows), stored_values(xRows, 1, sys_size))'
# 376 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 376 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        call flush (output_unit)
# 376 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    end block
# 376 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#endif
# 376 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    allocate (x_coords(xrows), stored_values(xrows, 1, sys_size))
# 376 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 376 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 376 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 376 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#if defined(MFC_OpenACC)
# 376 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
!$acc enter data create(x_coords, stored_values) 
# 376 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#elif defined(MFC_OpenMP)
# 376 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
!$omp target enter data map(always,alloc:x_coords, stored_values) 
# 376 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#endif
# 376 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 376 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            ! Read data from all files
# 376 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            do f = 1, max_files
# 376 "/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)
# 376 "/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)))
# 376 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 376 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                do iter = 1, xrows
# 376 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    read (unit, *, iostat=ios) x_coords(iter), stored_values(iter, 1, f)
# 376 "/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)))
# 376 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                end do
# 376 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                close (unit)
# 376 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            end do
# 376 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 376 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            ! Calculate offsets
# 376 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            domain_xstart = x_coords(1)
# 376 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            x_step = x_cc(1) - x_cc(0)
# 376 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            delta_x = merge(x_cc(0) - domain_xstart + x_step/2.0, x_cc(index_x) - domain_xstart + x_step/2.0, num_dims == 1)
# 376 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            global_offset_x = nint(abs(delta_x)/x_step)
# 376 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        case (3)  ! 3D case - determine grid structure
# 376 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            ! Find yRows by counting rows with same x
# 376 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            read (unit2, *, iostat=ios2) x0, y0, dummy_z
# 376 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            if (ios2 /= 0) call s_mpi_abort("Error reading first line")
# 376 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 376 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            yrows = 1
# 376 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            do
# 376 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                read (unit2, *, iostat=ios2) dummy_x, dummy_y, dummy_z
# 376 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                if (ios2 /= 0) exit
# 376 "/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
# 376 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    yrows = yrows + 1
# 376 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                else
# 376 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    exit
# 376 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                end if
# 376 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            end do
# 376 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            close (unit2)
# 376 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 376 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            ! Count total rows
# 376 "/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)
# 376 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            nrows = 0
# 376 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            do
# 376 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                read (unit2, *, iostat=ios2) dummy_x, dummy_y, dummy_z
# 376 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                if (ios2 /= 0) exit
# 376 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                nrows = nrows + 1
# 376 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            end do
# 376 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            close (unit2)
# 376 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 376 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            xrows = nrows/yrows
# 376 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#ifdef MFC_DEBUG
# 376 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    block
# 376 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        use iso_fortran_env, only: output_unit
# 376 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 376 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        print *, 'm_icpp_patches.fpp:376: ', '@:ALLOCATE(x_coords(nrows), y_coords(nrows), stored_values(xRows, yRows, sys_size))'
# 376 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 376 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        call flush (output_unit)
# 376 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    end block
# 376 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#endif
# 376 "/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))
# 376 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 376 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 376 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 376 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 376 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#if defined(MFC_OpenACC)
# 376 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
!$acc enter data create(x_coords, y_coords, stored_values) 
# 376 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#elif defined(MFC_OpenMP)
# 376 "/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) 
# 376 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#endif
# 376 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            index_x = i
# 376 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            index_y = j
# 376 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 376 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            ! Read all files
# 376 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            do f = 1, max_files
# 376 "/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)
# 376 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                if (ios /= 0) then
# 376 "/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)))
# 376 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    cycle
# 376 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                end if
# 376 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 376 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                iter = 0
# 376 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                do iix = 1, xrows
# 376 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    do iiy = 1, yrows
# 376 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                        iter = iter + 1
# 376 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                        if (f == 1) then
# 376 "/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)
# 376 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                        else
# 376 "/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)
# 376 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                        end if
# 376 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                        if (ios /= 0) call s_mpi_abort("Error reading data")
# 376 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    end do
# 376 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                end do
# 376 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                close (unit)
# 376 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            end do
# 376 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 376 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            ! Calculate offsets
# 376 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            x_step = x_cc(1) - x_cc(0)
# 376 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            y_step = y_cc(1) - y_cc(0)
# 376 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            delta_x = x_cc(index_x) - x_coords(1) + x_step/2.0_wp
# 376 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            delta_y = y_cc(index_y) - y_coords(1) + y_step/2.0_wp
# 376 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            global_offset_x = nint(abs(delta_x)/x_step)
# 376 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            global_offset_y = nint(abs(delta_y)/y_step)
# 376 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        end select
# 376 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 376 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        files_loaded = .true.
# 376 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    end if
# 376 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 376 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    ! Data assignment
# 376 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    select case (num_dims)
# 376 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    case (1)
# 376 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        idx = i + 1 + global_offset_x
# 376 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        do f = 1, sys_size
# 376 "/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)
# 376 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        end do
# 376 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    case (2)
# 376 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        idx = i + 1 + global_offset_x - index_x
# 376 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        do f = 1, sys_size - 1
# 376 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            jump = merge(1, 0, f >= eqn_idx%mom%end)
# 376 "/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)
# 376 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        end do
# 376 "/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
# 376 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    case (3)
# 376 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        idx = i + 1 + global_offset_x - index_x
# 376 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        idy = j + 1 + global_offset_y - index_y
# 376 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        do f = 1, sys_size - 1
# 376 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            jump = merge(1, 0, f >= eqn_idx%mom%end)
# 376 "/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)
# 376 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        end do
# 376 "/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
# 376 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    end select
# 376 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    case (280)  ! Isentropic vortex
# 376 "/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
# 376 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! geometry 2
# 376 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        if (patch_id == 1) then
# 376 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%E)%sf(i, j, &
# 376 "/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) &
# 376 "/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)
# 376 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%cont%beg + 0)%sf(i, j, &
# 376 "/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) &
# 376 "/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
# 376 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%mom%beg + 0)%sf(i, j, &
# 376 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                      & 0) = 0.0 + (y_cc(j) - patch_icpp(1)%y_centroid)*(5.0/(2.0*pi))*exp(1.0*(1.0 - (x_cc(i) - patch_icpp(1) &
# 376 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                      & %x_centroid)**2.0 - (y_cc(j) - patch_icpp(1)%y_centroid)**2.0))
# 376 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%mom%beg + 1)%sf(i, j, &
# 376 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                      & 0) = 0.0 - (x_cc(i) - patch_icpp(1)%x_centroid)*(5.0/(2.0*pi))*exp(1.0*(1.0 - (x_cc(i) - patch_icpp(1) &
# 376 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                      & %x_centroid)**2.0 - (y_cc(j) - patch_icpp(1)%y_centroid)**2.0))
# 376 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        end if
# 376 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    case (281)  ! Acoustic pulse
# 376 "/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
# 376 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! geometry 2
# 376 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        if (patch_id == 2) then
# 376 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%E)%sf(i, j, &
# 376 "/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))
# 376 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%cont%beg + 0)%sf(i, j, &
# 376 "/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))
# 376 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        end if
# 376 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    case (282)  ! Zero-circulation vortex
# 376 "/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
# 376 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! geometry 2
# 376 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        if (patch_id == 2) then
# 376 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%E)%sf(i, j, &
# 376 "/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))
# 376 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%cont%beg + 0)%sf(i, j, &
# 376 "/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))
# 376 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%mom%beg + 0)%sf(i, j, &
# 376 "/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)))
# 376 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%mom%beg + 1)%sf(i, j, &
# 376 "/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)))
# 376 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        end if
# 376 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    case (291)  ! Isothermal Flat Plate
# 376 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        t_inf = 1125.0_wp
# 376 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        t_wall = 600.0_wp
# 376 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        p_atm = 101325.0_wp
# 376 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 376 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! Boundary/Shear Layer thicknesses
# 376 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        delta_th = 0.0003_wp  ! Thermal BL thickness
# 376 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        delta_shear = 8e-3_wp  ! Velocity BL thickness
# 376 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 376 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        u_max = 50.0_wp  ! Freestream Velocity (m/s)
# 376 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 376 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        mw_n2 = 28.0134e-3_wp
# 376 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        mw_o2 = 31.999e-3_wp
# 376 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        y_n2 = 0.767_wp
# 376 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        y_o2 = 0.233_wp
# 376 "/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))
# 376 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        bottom_blend_u = tanh(y_cc(j)/delta_shear)
# 376 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        bottom_blend_t = tanh(y_cc(j)/delta_th)
# 376 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        u_mean = u_max*bottom_blend_u
# 376 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        t_loc = t_wall + (t_inf - t_wall)*bottom_blend_t
# 376 "/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)
# 376 "/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
# 376 "/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
# 376 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        q_prim_vf(eqn_idx%E)%sf(i, j, 0) = p_atm
# 376 "/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
# 376 "/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
# 376 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    case default
# 376 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        if (proc_rank == 0) then
# 376 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            call s_int_to_str(patch_id, istr)
# 376 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            call s_mpi_abort("Invalid hcid specified for patch " // trim(istr))
# 376 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        end if
# 376 "/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
# 387 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#ifdef MFC_DEBUG
# 387 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    block
# 387 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        use iso_fortran_env, only: output_unit
# 387 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 387 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        print *, 'm_icpp_patches.fpp:387: ', '@:DEALLOCATE(stored_values)'
# 387 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 387 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        call flush (output_unit)
# 387 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    end block
# 387 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#endif
# 387 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 387 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#if defined(MFC_OpenACC)
# 387 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
!$acc exit data delete(stored_values) 
# 387 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#elif defined(MFC_OpenMP)
# 387 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
!$omp target exit data map(release:stored_values) 
# 387 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#endif
# 387 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    deallocate (stored_values)
# 387 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#ifdef MFC_DEBUG
# 387 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    block
# 387 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        use iso_fortran_env, only: output_unit
# 387 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 387 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        print *, 'm_icpp_patches.fpp:387: ', '@:DEALLOCATE(x_coords)'
# 387 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 387 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        call flush (output_unit)
# 387 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    end block
# 387 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#endif
# 387 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 387 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#if defined(MFC_OpenACC)
# 387 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
!$acc exit data delete(x_coords) 
# 387 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#elif defined(MFC_OpenMP)
# 387 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
!$omp target exit data map(release:x_coords) 
# 387 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#endif
# 387 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    deallocate (x_coords)
# 387 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    end if
# 387 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 387 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    if (allocated(y_coords)) then
# 387 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#ifdef MFC_DEBUG
# 387 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    block
# 387 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        use iso_fortran_env, only: output_unit
# 387 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 387 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        print *, 'm_icpp_patches.fpp:387: ', '@:DEALLOCATE(y_coords)'
# 387 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 387 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        call flush (output_unit)
# 387 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    end block
# 387 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#endif
# 387 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 387 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#if defined(MFC_OpenACC)
# 387 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
!$acc exit data delete(y_coords) 
# 387 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#elif defined(MFC_OpenMP)
# 387 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
!$omp target exit data map(release:y_coords) 
# 387 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#endif
# 387 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    deallocate (y_coords)
# 387 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    end if
 
    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
# 408 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    integer                                 :: f, iter, ios, ios2, unit, unit2, idx, idy, index_x, index_y, jump, line_count, ycount
# 408 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    real(wp)                                :: x_len, x_step, y_len, y_step
# 408 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    real(wp)                                :: dummy_x, dummy_y, dummy_z, x0, y0
# 408 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    integer                                 :: global_offset_x, global_offset_y       !< MPI subdomain offset
# 408 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    real(wp)                                :: delta_x, delta_y
# 408 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    character(len=100), dimension(sys_size) :: fileNames                              !< Arrays to store all data from files
# 408 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    character(len=200)                      :: errmsg
# 408 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    real(wp), allocatable                   :: stored_values(:,:,:)
# 408 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    real(wp), allocatable                   :: x_coords(:), y_coords(:)
# 408 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    logical                                 :: files_loaded = .false.
# 408 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    real(wp)                                :: domain_xstart, domain_xend, domain_ystart, domain_yend
# 408 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    character(len=*), parameter             :: init_dir = "/home/MFC/FilesDirectory"  !< For example /home/MFC/examples/1D_Shock/D/
# 408 "/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
# 408 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    character(len=20)                       :: zeros_part                             !< For the trailing zeros part
# 408 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    character(len=6), parameter             :: zeros_default = "000000"               !< Default zeros (can be changed)
    ! Place any declaration of intermediate variables here
# 409 "/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
# 409 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    real(wp) :: eps
# 409 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 409 "/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
# 409 "/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
# 409 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    ! Variables to describe initial condition of jet
# 409 "/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
# 409 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    real(wp)                     :: rcut, xcut  !< Intermediate variables for creating smooth initial condition
# 409 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    real(wp), dimension(0:n,0:p) :: rcut_arr
# 409 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    integer                      :: l, q, s     !< Iterators for reading input files
# 409 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    integer                      :: start, end  !< Ints to keep track of position in file
# 409 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    character(len=1000)          :: line        !< String to store line in file
# 409 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    character(len=25)            :: value       !< String to store value in line
# 409 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    integer                      :: NJet        !< Number of jets
# 409 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 409 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    eps = 1e-9_wp
# 409 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 409 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    if (patch_icpp(patch_id)%hcid == 303) then
# 409 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        eps_smooth = 3._wp
# 409 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        open (unit=10, file="njet.txt", status="old", action="read")
# 409 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        read (10, *) njet
# 409 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        close (10)
# 409 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 409 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        allocate (y_th_arr(0:njet - 1))
# 409 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        allocate (z_th_arr(0:njet - 1))
# 409 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        allocate (r_th_arr(0:njet - 1))
# 409 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 409 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        open (unit=10, file="jets.csv", status="old", action="read")
# 409 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        do q = 0, njet - 1
# 409 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            read (10, '(A)') line  ! Read a full line as a string
# 409 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            start = 1
# 409 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 409 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            do l = 0, 2
# 409 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                end = index(line(start:), ',')  ! Find the next comma
# 409 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                if (end == 0) then
# 409 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    value = trim(adjustl(line(start:)))  ! Last value in the line
# 409 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                else
# 409 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    value = trim(adjustl(line(start:start + end - 2)))  ! Extract substring
# 409 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    start = start + end  ! Move to next value
# 409 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                end if
# 409 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                if (l == 0) then
# 409 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    read (value, *) y_th_arr(q)  ! Convert string to numeric value
# 409 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                else if (l == 1) then
# 409 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    read (value, *) z_th_arr(q)
# 409 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                else
# 409 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    read (value, *) r_th_arr(q)
# 409 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                end if
# 409 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            end do
# 409 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        end do
# 409 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        close (10)
# 409 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 409 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        do q = 0, p
# 409 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            do l = 0, n
# 409 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                rcut = 0._wp
# 409 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                do s = 0, njet - 1
# 409 "/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)
# 409 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    rcut = rcut + f_cut_on(r - r_th_arr(s), eps_smooth)
# 409 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                end do
# 409 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                rcut_arr(l, q) = rcut
# 409 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            end do
# 409 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        end do
# 409 "/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)
# 438 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    case (300)  ! Rayleigh-Taylor instability
# 438 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        rhoh = 3._wp
# 438 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        rhol = 1._wp
# 438 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        pref = 1.e5_wp
# 438 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        pint = pref
# 438 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        h = 0.7_wp
# 438 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        lam = 0.2_wp
# 438 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        wl = 2._wp*pi/lam
# 438 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        amp = 0.025_wp/wl
# 438 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 438 "/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
# 438 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 438 "/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))
# 438 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 438 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        if (alph < eps) alph = eps
# 438 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        if (alph > 1._wp - eps) alph = 1._wp - eps
# 438 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 438 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        if (y_cc(j) > inth) then
# 438 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%adv%beg)%sf(i, j, k) = alph
# 438 "/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
# 438 "/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
# 438 "/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
# 438 "/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))
# 438 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        else
# 438 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%adv%beg)%sf(i, j, k) = alph
# 438 "/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
# 438 "/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
# 438 "/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
# 438 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            pint = pref + rhoh*9.81_wp*(1.2_wp - inth)
# 438 "/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))
# 438 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        end if
# 438 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    case (301)  ! (3D lung geometry in X direction, |sin(*)+sin(*)|)
# 438 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        h = 0.0_wp
# 438 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        lam = 1.0_wp
# 438 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        amp = patch_icpp(patch_id)%a(2)
# 438 "/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)
# 438 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        if (x_cc(i) > inth) then
# 438 "/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)
# 438 "/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)
# 438 "/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
# 438 "/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)
# 438 "/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)
# 438 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        end if
# 438 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    case (302)  ! 3D Jet with IGR
# 438 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ux_th = 10*sqrt(1.4*0.4)
# 438 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ux_am = 0.0*sqrt(1.4)
# 438 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        p_th = 2.0_wp
# 438 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        p_am = 1.0_wp
# 438 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        rho_th = 1._wp
# 438 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        rho_am = 1._wp
# 438 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        y_th = 0.0_wp
# 438 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        z_th = 0.0_wp
# 438 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        r_th = 1._wp
# 438 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        eps_smooth = 1._wp
# 438 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        eps = 1e-6
# 438 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 438 "/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)
# 438 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        rcut = f_cut_on(r - r_th, eps_smooth)
# 438 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        xcut = f_cut_on(x_cc(i), eps_smooth)
# 438 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 438 "/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
# 438 "/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
# 438 "/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
# 438 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 438 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        if (num_fluids == 1) then
# 438 "/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
# 438 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        else
# 438 "/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
# 438 "/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)
# 438 "/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))
# 438 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        end if
# 438 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 438 "/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
# 438 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    case (303)  ! 3D Multijet
# 438 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        eps_smooth = 3.0_wp
# 438 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ux_th = 10*sqrt(1.4*0.4)
# 438 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ux_am = 2.5*sqrt(1.4*0.4)
# 438 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        p_th = 0.8_wp
# 438 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        p_am = 0.4_wp
# 438 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        rho_th = 1._wp
# 438 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        rho_am = 1._wp
# 438 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        eps = 1e-6
# 438 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 438 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        rcut = rcut_arr(j, k)
# 438 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        xcut = f_cut_on(x_cc(i), eps_smooth)
# 438 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 438 "/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
# 438 "/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
# 438 "/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
# 438 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 438 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        if (num_fluids == 1) then
# 438 "/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
# 438 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        else
# 438 "/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
# 438 "/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)
# 438 "/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))
# 438 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        end if
# 438 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 438 "/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
# 438 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    case (370)  ! 3D extrusion of 2D profile from external data
# 438 "/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
# 438 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    if (.not. files_loaded) then
# 438 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        max_files = merge(sys_size, sys_size - 1, num_dims == 1)
# 438 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        do f = 1, max_files
# 438 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            write (file_num_str, '(I0)') f
# 438 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            filenames(f) = trim(init_dir) // "prim." // trim(file_num_str) // ".00." // zeros_default // ".dat"
# 438 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        end do
# 438 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 438 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! Common file reading setup
# 438 "/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)
# 438 "/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)))
# 438 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 438 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        select case (num_dims)
# 438 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        case (1, 2)  ! 1D and 2D cases are similar
# 438 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            ! Count lines
# 438 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            line_count = 0
# 438 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            do
# 438 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                read (unit2, *, iostat=ios2) dummy_x, dummy_y
# 438 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                if (ios2 /= 0) exit
# 438 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                line_count = line_count + 1
# 438 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            end do
# 438 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            close (unit2)
# 438 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 438 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            xrows = line_count
# 438 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            yrows = 1
# 438 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            index_x = 0
# 438 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            if (num_dims == 2) index_x = i
# 438 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#ifdef MFC_DEBUG
# 438 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    block
# 438 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        use iso_fortran_env, only: output_unit
# 438 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 438 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        print *, 'm_icpp_patches.fpp:438: ', '@:ALLOCATE(x_coords(xRows), stored_values(xRows, 1, sys_size))'
# 438 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 438 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        call flush (output_unit)
# 438 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    end block
# 438 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#endif
# 438 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    allocate (x_coords(xrows), stored_values(xrows, 1, sys_size))
# 438 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 438 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 438 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 438 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#if defined(MFC_OpenACC)
# 438 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
!$acc enter data create(x_coords, stored_values) 
# 438 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#elif defined(MFC_OpenMP)
# 438 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
!$omp target enter data map(always,alloc:x_coords, stored_values) 
# 438 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#endif
# 438 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 438 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            ! Read data from all files
# 438 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            do f = 1, max_files
# 438 "/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)
# 438 "/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)))
# 438 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 438 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                do iter = 1, xrows
# 438 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    read (unit, *, iostat=ios) x_coords(iter), stored_values(iter, 1, f)
# 438 "/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)))
# 438 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                end do
# 438 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                close (unit)
# 438 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            end do
# 438 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 438 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            ! Calculate offsets
# 438 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            domain_xstart = x_coords(1)
# 438 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            x_step = x_cc(1) - x_cc(0)
# 438 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            delta_x = merge(x_cc(0) - domain_xstart + x_step/2.0, x_cc(index_x) - domain_xstart + x_step/2.0, num_dims == 1)
# 438 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            global_offset_x = nint(abs(delta_x)/x_step)
# 438 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        case (3)  ! 3D case - determine grid structure
# 438 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            ! Find yRows by counting rows with same x
# 438 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            read (unit2, *, iostat=ios2) x0, y0, dummy_z
# 438 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            if (ios2 /= 0) call s_mpi_abort("Error reading first line")
# 438 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 438 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            yrows = 1
# 438 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            do
# 438 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                read (unit2, *, iostat=ios2) dummy_x, dummy_y, dummy_z
# 438 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                if (ios2 /= 0) exit
# 438 "/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
# 438 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    yrows = yrows + 1
# 438 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                else
# 438 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    exit
# 438 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                end if
# 438 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            end do
# 438 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            close (unit2)
# 438 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 438 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            ! Count total rows
# 438 "/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)
# 438 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            nrows = 0
# 438 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            do
# 438 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                read (unit2, *, iostat=ios2) dummy_x, dummy_y, dummy_z
# 438 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                if (ios2 /= 0) exit
# 438 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                nrows = nrows + 1
# 438 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            end do
# 438 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            close (unit2)
# 438 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 438 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            xrows = nrows/yrows
# 438 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#ifdef MFC_DEBUG
# 438 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    block
# 438 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        use iso_fortran_env, only: output_unit
# 438 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 438 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        print *, 'm_icpp_patches.fpp:438: ', '@:ALLOCATE(x_coords(nrows), y_coords(nrows), stored_values(xRows, yRows, sys_size))'
# 438 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 438 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        call flush (output_unit)
# 438 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    end block
# 438 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#endif
# 438 "/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))
# 438 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 438 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 438 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 438 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 438 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#if defined(MFC_OpenACC)
# 438 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
!$acc enter data create(x_coords, y_coords, stored_values) 
# 438 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#elif defined(MFC_OpenMP)
# 438 "/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) 
# 438 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#endif
# 438 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            index_x = i
# 438 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            index_y = j
# 438 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 438 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            ! Read all files
# 438 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            do f = 1, max_files
# 438 "/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)
# 438 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                if (ios /= 0) then
# 438 "/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)))
# 438 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    cycle
# 438 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                end if
# 438 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 438 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                iter = 0
# 438 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                do iix = 1, xrows
# 438 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    do iiy = 1, yrows
# 438 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                        iter = iter + 1
# 438 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                        if (f == 1) then
# 438 "/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)
# 438 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                        else
# 438 "/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)
# 438 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                        end if
# 438 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                        if (ios /= 0) call s_mpi_abort("Error reading data")
# 438 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    end do
# 438 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                end do
# 438 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                close (unit)
# 438 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            end do
# 438 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 438 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            ! Calculate offsets
# 438 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            x_step = x_cc(1) - x_cc(0)
# 438 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            y_step = y_cc(1) - y_cc(0)
# 438 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            delta_x = x_cc(index_x) - x_coords(1) + x_step/2.0_wp
# 438 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            delta_y = y_cc(index_y) - y_coords(1) + y_step/2.0_wp
# 438 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            global_offset_x = nint(abs(delta_x)/x_step)
# 438 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            global_offset_y = nint(abs(delta_y)/y_step)
# 438 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        end select
# 438 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 438 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        files_loaded = .true.
# 438 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    end if
# 438 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 438 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    ! Data assignment
# 438 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    select case (num_dims)
# 438 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    case (1)
# 438 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        idx = i + 1 + global_offset_x
# 438 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        do f = 1, sys_size
# 438 "/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)
# 438 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        end do
# 438 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    case (2)
# 438 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        idx = i + 1 + global_offset_x - index_x
# 438 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        do f = 1, sys_size - 1
# 438 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            jump = merge(1, 0, f >= eqn_idx%mom%end)
# 438 "/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)
# 438 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        end do
# 438 "/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
# 438 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    case (3)
# 438 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        idx = i + 1 + global_offset_x - index_x
# 438 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        idy = j + 1 + global_offset_y - index_y
# 438 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        do f = 1, sys_size - 1
# 438 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            jump = merge(1, 0, f >= eqn_idx%mom%end)
# 438 "/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)
# 438 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        end do
# 438 "/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
# 438 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    end select
# 438 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    case (380)  ! Taylor-Green vortex
# 438 "/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
# 438 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! geometry 9
# 438 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        mach = 0.1
# 438 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        if (patch_id == 1) then
# 438 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%E)%sf(i, j, &
# 438 "/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)
# 438 "/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)
# 438 "/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)
# 438 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        end if
# 438 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    case default
# 438 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        call s_int_to_str(patch_id, istr)
# 438 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        call s_mpi_abort("Invalid hcid specified for patch " // trim(istr))
# 438 "/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
# 450 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#ifdef MFC_DEBUG
# 450 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    block
# 450 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        use iso_fortran_env, only: output_unit
# 450 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 450 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        print *, 'm_icpp_patches.fpp:450: ', '@:DEALLOCATE(stored_values)'
# 450 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 450 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        call flush (output_unit)
# 450 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    end block
# 450 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#endif
# 450 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 450 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#if defined(MFC_OpenACC)
# 450 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
!$acc exit data delete(stored_values) 
# 450 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#elif defined(MFC_OpenMP)
# 450 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
!$omp target exit data map(release:stored_values) 
# 450 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#endif
# 450 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    deallocate (stored_values)
# 450 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#ifdef MFC_DEBUG
# 450 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    block
# 450 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        use iso_fortran_env, only: output_unit
# 450 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 450 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        print *, 'm_icpp_patches.fpp:450: ', '@:DEALLOCATE(x_coords)'
# 450 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 450 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        call flush (output_unit)
# 450 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    end block
# 450 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#endif
# 450 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 450 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#if defined(MFC_OpenACC)
# 450 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
!$acc exit data delete(x_coords) 
# 450 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#elif defined(MFC_OpenMP)
# 450 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
!$omp target exit data map(release:x_coords) 
# 450 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#endif
# 450 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    deallocate (x_coords)
# 450 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    end if
# 450 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 450 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    if (allocated(y_coords)) then
# 450 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#ifdef MFC_DEBUG
# 450 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    block
# 450 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        use iso_fortran_env, only: output_unit
# 450 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 450 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        print *, 'm_icpp_patches.fpp:450: ', '@:DEALLOCATE(y_coords)'
# 450 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 450 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        call flush (output_unit)
# 450 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    end block
# 450 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#endif
# 450 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 450 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#if defined(MFC_OpenACC)
# 450 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
!$acc exit data delete(y_coords) 
# 450 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#elif defined(MFC_OpenMP)
# 450 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
!$omp target exit data map(release:y_coords) 
# 450 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#endif
# 450 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    deallocate (y_coords)
# 450 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    end if
 
    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
# 469 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    integer                                 :: f, iter, ios, ios2, unit, unit2, idx, idy, index_x, index_y, jump, line_count, ycount
# 469 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    real(wp)                                :: x_len, x_step, y_len, y_step
# 469 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    real(wp)                                :: dummy_x, dummy_y, dummy_z, x0, y0
# 469 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    integer                                 :: global_offset_x, global_offset_y       !< MPI subdomain offset
# 469 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    real(wp)                                :: delta_x, delta_y
# 469 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    character(len=100), dimension(sys_size) :: fileNames                              !< Arrays to store all data from files
# 469 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    character(len=200)                      :: errmsg
# 469 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    real(wp), allocatable                   :: stored_values(:,:,:)
# 469 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    real(wp), allocatable                   :: x_coords(:), y_coords(:)
# 469 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    logical                                 :: files_loaded = .false.
# 469 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    real(wp)                                :: domain_xstart, domain_xend, domain_ystart, domain_yend
# 469 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    character(len=*), parameter             :: init_dir = "/home/MFC/FilesDirectory"  !< For example /home/MFC/examples/1D_Shock/D/
# 469 "/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
# 469 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    character(len=20)                       :: zeros_part                             !< For the trailing zeros part
# 469 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    character(len=6), parameter             :: zeros_default = "000000"               !< Default zeros (can be changed)
    ! Place any declaration of intermediate variables here
# 470 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    real(wp) :: eps, eps_mhd, C_mhd
# 470 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    real(wp) :: r, rmax, gam, umax, p0
# 470 "/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
# 470 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    real(wp) :: factor
# 470 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    real(wp) :: r0, alpha, r2
# 470 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    real(wp) :: sinA, cosA
# 470 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    real(wp) :: r_sq
# 470 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 470 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    ! # 291 - Shear/Thermal Layer Case
# 470 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    real(wp) :: delta_shear, u_max, u_mean
# 470 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    real(wp) :: T_wall, T_inf, P_atm, T_loc
# 470 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    real(wp) :: delta_th, R_mix
# 470 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    real(wp) :: Y_N2, Y_O2, MW_N2, MW_O2
# 470 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    real(wp) :: bottom_blend_u, bottom_blend_T
# 470 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 470 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    ! # 207
# 470 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    real(wp) :: sigma, gauss1, gauss2
# 470 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 470 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    ! # 208
# 470 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    real(wp) :: ei, d, fsm, alpha_air, alpha_sf6
# 470 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 470 "/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 ((((x_cc(i) - x_centroid)/a)**2 + ((y_cc(j) - y_centroid)/b)**2 <= 1._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
# 498 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    case (200)  ! Two-fluid cubic interface
# 498 "/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
# 498 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            ! Volume Fractions
# 498 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%adv%beg)%sf(i, j, 0) = eps
# 498 "/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
# 498 "/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
# 498 "/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
# 498 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%E)%sf(i, j, 0) = 1000._wp
# 498 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        end if
# 498 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    case (202)  ! Gresho vortex (Gouasmi et al 2022 JCP)
# 498 "/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
# 498 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        rmax = 0.2_wp
# 498 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 498 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        gam = 1._wp + 1._wp/fluid_pp(1)%gamma
# 498 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        umax = 2*pi*rmax*patch_icpp(patch_id)%vel(2)
# 498 "/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)
# 498 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 498 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        if (r < rmax) then
# 498 "/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
# 498 "/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
# 498 "/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)
# 498 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        else if (r < 2*rmax) then
# 498 "/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)
# 498 "/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)
# 498 "/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)))
# 498 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        else
# 498 "/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
# 498 "/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
# 498 "/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))
# 498 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        end if
# 498 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    case (203)  ! Gresho vortex (Gouasmi et al 2022 JCP) with density correction
# 498 "/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
# 498 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        rmax = 0.2_wp
# 498 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 498 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        gam = 1._wp + 1._wp/fluid_pp(1)%gamma
# 498 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        umax = 2*pi*rmax*patch_icpp(patch_id)%vel(2)
# 498 "/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)
# 498 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 498 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        if (r < rmax) then
# 498 "/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
# 498 "/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
# 498 "/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)
# 498 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        else if (r < 2*rmax) then
# 498 "/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)
# 498 "/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)
# 498 "/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)))
# 498 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        else
# 498 "/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
# 498 "/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
# 498 "/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))
# 498 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        end if
# 498 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 498 "/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)
# 498 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    case (204)  ! Rayleigh-Taylor instability
# 498 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        rhoh = 3._wp
# 498 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        rhol = 1._wp
# 498 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        pref = 1.e5_wp
# 498 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        pint = pref
# 498 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        h = 0.7_wp
# 498 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        lam = 0.2_wp
# 498 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        wl = 2._wp*pi/lam
# 498 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        amp = 0.05_wp/wl
# 498 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 498 "/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
# 498 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 498 "/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))
# 498 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 498 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        if (alph < eps) alph = eps
# 498 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        if (alph > 1._wp - eps) alph = 1._wp - eps
# 498 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 498 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        if (y_cc(j) > inth) then
# 498 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%adv%beg)%sf(i, j, 0) = alph
# 498 "/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
# 498 "/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
# 498 "/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
# 498 "/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))
# 498 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        else
# 498 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%adv%beg)%sf(i, j, 0) = alph
# 498 "/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
# 498 "/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
# 498 "/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
# 498 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            pint = pref + rhoh*9.81_wp*(1.2_wp - inth)
# 498 "/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))
# 498 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        end if
# 498 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    case (205)  ! 2D lung wave interaction problem
# 498 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        h = 0.0_wp  ! non dim origin y
# 498 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        lam = 1.0_wp  ! non dim lambda
# 498 "/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
# 498 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 498 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        inth = amp*sin(2*pi*x_cc(i)/lam - pi/2) + h
# 498 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 498 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        if (y_cc(j) > inth) then
# 498 "/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)
# 498 "/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)
# 498 "/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
# 498 "/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)
# 498 "/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)
# 498 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        end if
# 498 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    case (206)  ! 2D lung wave interaction problem - horizontal domain
# 498 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        h = 0.0_wp  ! non dim origin y
# 498 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        lam = 1.0_wp  ! non dim lambda
# 498 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        amp = patch_icpp(patch_id)%a(2)
# 498 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 498 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        intl = amp*sin(2*pi*y_cc(j)/lam - pi/2) + h
# 498 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 498 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        if (x_cc(i) > intl) then  ! this is the liquid
# 498 "/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)
# 498 "/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)
# 498 "/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
# 498 "/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)
# 498 "/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)
# 498 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        end if
# 498 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    case (207)  ! Kelvin Helmholtz Instability
# 498 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        sigma = 0.05_wp/sqrt(2.0_wp)
# 498 "/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))
# 498 "/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))
# 498 "/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)
# 498 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    case (208)  ! Richtmeyer Meshkov Instability
# 498 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        lam = 1.0_wp
# 498 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        eps = 1.0e-6_wp
# 498 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ei = 5.0_wp
# 498 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! Smoothening function to smooth out sharp discontinuity in the interface
# 498 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        if (x_cc(i) <= 0.7_wp*lam) then
# 498 "/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)))
# 498 "/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))))
# 498 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            alpha_air = eps + (1.0_wp - 2.0_wp*eps)*fsm
# 498 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            alpha_sf6 = 1.0_wp - alpha_air
# 498 "/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
# 498 "/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
# 498 "/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
# 498 "/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
# 498 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        end if
# 498 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    case (250)  ! MHD Orszag-Tang vortex
# 498 "/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),
# 498 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! sin(4*pi*x)/sqrt(4*pi), 0)
# 498 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 498 "/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))
# 498 "/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))
# 498 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 498 "/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)
# 498 "/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)
# 498 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    case (251)  ! RMHD Cylindrical Blast Wave [Mignone, 2006: Section 4.3.1]
# 498 "/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
# 498 "/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
# 498 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%E)%sf(i, j, 0) = 1.0
# 498 "/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
# 498 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            ! Linear interpolation between r=0.08 and r=1.0
# 498 "/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)
# 498 "/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)
# 498 "/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)
# 498 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        else
# 498 "/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
# 498 "/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
# 498 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        end if
# 498 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 498 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! case 252 is for the 2D MHD Rotor problem
# 498 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    case (252)  ! 2D MHD Rotor Problem
# 498 "/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.
# 498 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        !
# 498 "/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
# 498 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! velocity w=20, giving v_tan=2 at r=0.1
# 498 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 498 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! Calculate distance squared from the center
# 498 "/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
# 498 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 498 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! inner radius of 0.1
# 498 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        if (r_sq <= 0.1**2) then
# 498 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            ! -- Inside the rotor -- Set density uniformly to 10
# 498 "/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
# 498 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 498 "/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)
# 498 "/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)
# 498 "/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)
# 498 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 498 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            ! taper width of 0.015
# 498 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        else if (r_sq <= 0.115**2) then
# 498 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            ! linearly smooth the function between r = 0.1 and 0.115
# 498 "/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)
# 498 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 498 "/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)
# 498 "/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)
# 498 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        end if
# 498 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    case (253)  ! MHD Smooth Magnetic Vortex
# 498 "/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.
# 498 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! Fernandez, A. Christophe, N.C. Nguyen, J. Peraire
# 498 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 498 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! velocity
# 498 "/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))
# 498 "/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))
# 498 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 498 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! magnetic field
# 498 "/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)
# 498 "/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)
# 498 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 498 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! pressure
# 498 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        q_prim_vf(eqn_idx%E)%sf(i, j, &
# 498 "/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)
# 498 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    case (260)  ! Gaussian Divergence Pulse
# 498 "/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)
# 498 "/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
# 498 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! initialized to zero everywhere.
# 498 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 498 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        eps_mhd = patch_icpp(patch_id)%a(2)
# 498 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        sigma = patch_icpp(patch_id)%a(3)
# 498 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        c_mhd = eps_mhd*sigma*sqrt(pi)*0.5_wp
# 498 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 498 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! B-field
# 498 "/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)
# 498 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    case (261)  ! Blob
# 498 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        r0 = 1._wp/sqrt(8._wp)
# 498 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        r2 = x_cc(i)**2 + y_cc(j)**2
# 498 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        r = sqrt(r2)
# 498 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        alpha = r/r0
# 498 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        if (alpha < 1) then
# 498 "/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)
# 498 "/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)
# 498 "/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)
# 498 "/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
# 498 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        end if
# 498 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    case (262)  ! Tilted 2D MHD shock‐tube at α = arctan2 (≈63.4°)
# 498 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! rotate by \alpha = atan(2)
# 498 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        alpha = atan(2._wp)
# 498 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        cosa = cos(alpha)
# 498 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        sina = sin(alpha)
# 498 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! projection along shock normal
# 498 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        r = x_cc(i)*cosa + y_cc(j)*sina
# 498 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 498 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        if (r <= 0.5_wp) then
# 498 "/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)
# 498 "/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
# 498 "/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
# 498 "/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
# 498 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%E)%sf(i, j, 0) = 20._wp
# 498 "/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
# 498 "/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
# 498 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        else
# 498 "/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)
# 498 "/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
# 498 "/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
# 498 "/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
# 498 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%E)%sf(i, j, 0) = 1._wp
# 498 "/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
# 498 "/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
# 498 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        end if
# 498 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! v^z and B^z remain zero by default
# 498 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    case (270)  ! 2D extrusion of 1D profile from external data
# 498 "/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
# 498 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    if (.not. files_loaded) then
# 498 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        max_files = merge(sys_size, sys_size - 1, num_dims == 1)
# 498 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        do f = 1, max_files
# 498 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            write (file_num_str, '(I0)') f
# 498 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            filenames(f) = trim(init_dir) // "prim." // trim(file_num_str) // ".00." // zeros_default // ".dat"
# 498 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        end do
# 498 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 498 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! Common file reading setup
# 498 "/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)
# 498 "/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)))
# 498 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 498 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        select case (num_dims)
# 498 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        case (1, 2)  ! 1D and 2D cases are similar
# 498 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            ! Count lines
# 498 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            line_count = 0
# 498 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            do
# 498 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                read (unit2, *, iostat=ios2) dummy_x, dummy_y
# 498 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                if (ios2 /= 0) exit
# 498 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                line_count = line_count + 1
# 498 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            end do
# 498 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            close (unit2)
# 498 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 498 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            xrows = line_count
# 498 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            yrows = 1
# 498 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            index_x = 0
# 498 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            if (num_dims == 2) index_x = i
# 498 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#ifdef MFC_DEBUG
# 498 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    block
# 498 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        use iso_fortran_env, only: output_unit
# 498 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 498 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        print *, 'm_icpp_patches.fpp:498: ', '@:ALLOCATE(x_coords(xRows), stored_values(xRows, 1, sys_size))'
# 498 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 498 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        call flush (output_unit)
# 498 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    end block
# 498 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#endif
# 498 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    allocate (x_coords(xrows), stored_values(xrows, 1, sys_size))
# 498 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 498 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 498 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 498 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#if defined(MFC_OpenACC)
# 498 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
!$acc enter data create(x_coords, stored_values) 
# 498 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#elif defined(MFC_OpenMP)
# 498 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
!$omp target enter data map(always,alloc:x_coords, stored_values) 
# 498 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#endif
# 498 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 498 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            ! Read data from all files
# 498 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            do f = 1, max_files
# 498 "/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)
# 498 "/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)))
# 498 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 498 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                do iter = 1, xrows
# 498 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    read (unit, *, iostat=ios) x_coords(iter), stored_values(iter, 1, f)
# 498 "/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)))
# 498 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                end do
# 498 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                close (unit)
# 498 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            end do
# 498 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 498 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            ! Calculate offsets
# 498 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            domain_xstart = x_coords(1)
# 498 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            x_step = x_cc(1) - x_cc(0)
# 498 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            delta_x = merge(x_cc(0) - domain_xstart + x_step/2.0, x_cc(index_x) - domain_xstart + x_step/2.0, num_dims == 1)
# 498 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            global_offset_x = nint(abs(delta_x)/x_step)
# 498 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        case (3)  ! 3D case - determine grid structure
# 498 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            ! Find yRows by counting rows with same x
# 498 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            read (unit2, *, iostat=ios2) x0, y0, dummy_z
# 498 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            if (ios2 /= 0) call s_mpi_abort("Error reading first line")
# 498 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 498 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            yrows = 1
# 498 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            do
# 498 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                read (unit2, *, iostat=ios2) dummy_x, dummy_y, dummy_z
# 498 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                if (ios2 /= 0) exit
# 498 "/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
# 498 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    yrows = yrows + 1
# 498 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                else
# 498 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    exit
# 498 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                end if
# 498 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            end do
# 498 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            close (unit2)
# 498 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 498 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            ! Count total rows
# 498 "/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)
# 498 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            nrows = 0
# 498 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            do
# 498 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                read (unit2, *, iostat=ios2) dummy_x, dummy_y, dummy_z
# 498 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                if (ios2 /= 0) exit
# 498 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                nrows = nrows + 1
# 498 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            end do
# 498 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            close (unit2)
# 498 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 498 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            xrows = nrows/yrows
# 498 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#ifdef MFC_DEBUG
# 498 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    block
# 498 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        use iso_fortran_env, only: output_unit
# 498 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 498 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        print *, 'm_icpp_patches.fpp:498: ', '@:ALLOCATE(x_coords(nrows), y_coords(nrows), stored_values(xRows, yRows, sys_size))'
# 498 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 498 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        call flush (output_unit)
# 498 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    end block
# 498 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#endif
# 498 "/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))
# 498 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 498 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 498 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 498 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 498 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#if defined(MFC_OpenACC)
# 498 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
!$acc enter data create(x_coords, y_coords, stored_values) 
# 498 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#elif defined(MFC_OpenMP)
# 498 "/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) 
# 498 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#endif
# 498 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            index_x = i
# 498 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            index_y = j
# 498 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 498 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            ! Read all files
# 498 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            do f = 1, max_files
# 498 "/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)
# 498 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                if (ios /= 0) then
# 498 "/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)))
# 498 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    cycle
# 498 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                end if
# 498 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 498 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                iter = 0
# 498 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                do iix = 1, xrows
# 498 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    do iiy = 1, yrows
# 498 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                        iter = iter + 1
# 498 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                        if (f == 1) then
# 498 "/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)
# 498 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                        else
# 498 "/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)
# 498 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                        end if
# 498 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                        if (ios /= 0) call s_mpi_abort("Error reading data")
# 498 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    end do
# 498 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                end do
# 498 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                close (unit)
# 498 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            end do
# 498 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 498 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            ! Calculate offsets
# 498 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            x_step = x_cc(1) - x_cc(0)
# 498 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            y_step = y_cc(1) - y_cc(0)
# 498 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            delta_x = x_cc(index_x) - x_coords(1) + x_step/2.0_wp
# 498 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            delta_y = y_cc(index_y) - y_coords(1) + y_step/2.0_wp
# 498 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            global_offset_x = nint(abs(delta_x)/x_step)
# 498 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            global_offset_y = nint(abs(delta_y)/y_step)
# 498 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        end select
# 498 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 498 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        files_loaded = .true.
# 498 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    end if
# 498 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 498 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    ! Data assignment
# 498 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    select case (num_dims)
# 498 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    case (1)
# 498 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        idx = i + 1 + global_offset_x
# 498 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        do f = 1, sys_size
# 498 "/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)
# 498 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        end do
# 498 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    case (2)
# 498 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        idx = i + 1 + global_offset_x - index_x
# 498 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        do f = 1, sys_size - 1
# 498 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            jump = merge(1, 0, f >= eqn_idx%mom%end)
# 498 "/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)
# 498 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        end do
# 498 "/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
# 498 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    case (3)
# 498 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        idx = i + 1 + global_offset_x - index_x
# 498 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        idy = j + 1 + global_offset_y - index_y
# 498 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        do f = 1, sys_size - 1
# 498 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            jump = merge(1, 0, f >= eqn_idx%mom%end)
# 498 "/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)
# 498 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        end do
# 498 "/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
# 498 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    end select
# 498 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    case (280)  ! Isentropic vortex
# 498 "/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
# 498 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! geometry 2
# 498 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        if (patch_id == 1) then
# 498 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%E)%sf(i, j, &
# 498 "/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) &
# 498 "/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)
# 498 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%cont%beg + 0)%sf(i, j, &
# 498 "/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) &
# 498 "/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
# 498 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%mom%beg + 0)%sf(i, j, &
# 498 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                      & 0) = 0.0 + (y_cc(j) - patch_icpp(1)%y_centroid)*(5.0/(2.0*pi))*exp(1.0*(1.0 - (x_cc(i) - patch_icpp(1) &
# 498 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                      & %x_centroid)**2.0 - (y_cc(j) - patch_icpp(1)%y_centroid)**2.0))
# 498 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%mom%beg + 1)%sf(i, j, &
# 498 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                      & 0) = 0.0 - (x_cc(i) - patch_icpp(1)%x_centroid)*(5.0/(2.0*pi))*exp(1.0*(1.0 - (x_cc(i) - patch_icpp(1) &
# 498 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                      & %x_centroid)**2.0 - (y_cc(j) - patch_icpp(1)%y_centroid)**2.0))
# 498 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        end if
# 498 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    case (281)  ! Acoustic pulse
# 498 "/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
# 498 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! geometry 2
# 498 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        if (patch_id == 2) then
# 498 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%E)%sf(i, j, &
# 498 "/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))
# 498 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%cont%beg + 0)%sf(i, j, &
# 498 "/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))
# 498 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        end if
# 498 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    case (282)  ! Zero-circulation vortex
# 498 "/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
# 498 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! geometry 2
# 498 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        if (patch_id == 2) then
# 498 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%E)%sf(i, j, &
# 498 "/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))
# 498 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%cont%beg + 0)%sf(i, j, &
# 498 "/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))
# 498 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%mom%beg + 0)%sf(i, j, &
# 498 "/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)))
# 498 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%mom%beg + 1)%sf(i, j, &
# 498 "/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)))
# 498 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        end if
# 498 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    case (291)  ! Isothermal Flat Plate
# 498 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        t_inf = 1125.0_wp
# 498 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        t_wall = 600.0_wp
# 498 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        p_atm = 101325.0_wp
# 498 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 498 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! Boundary/Shear Layer thicknesses
# 498 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        delta_th = 0.0003_wp  ! Thermal BL thickness
# 498 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        delta_shear = 8e-3_wp  ! Velocity BL thickness
# 498 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 498 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        u_max = 50.0_wp  ! Freestream Velocity (m/s)
# 498 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 498 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        mw_n2 = 28.0134e-3_wp
# 498 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        mw_o2 = 31.999e-3_wp
# 498 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        y_n2 = 0.767_wp
# 498 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        y_o2 = 0.233_wp
# 498 "/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))
# 498 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        bottom_blend_u = tanh(y_cc(j)/delta_shear)
# 498 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        bottom_blend_t = tanh(y_cc(j)/delta_th)
# 498 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        u_mean = u_max*bottom_blend_u
# 498 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        t_loc = t_wall + (t_inf - t_wall)*bottom_blend_t
# 498 "/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)
# 498 "/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
# 498 "/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
# 498 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        q_prim_vf(eqn_idx%E)%sf(i, j, 0) = p_atm
# 498 "/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
# 498 "/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
# 498 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    case default
# 498 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        if (proc_rank == 0) then
# 498 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            call s_int_to_str(patch_id, istr)
# 498 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            call s_mpi_abort("Invalid hcid specified for patch " // trim(istr))
# 498 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        end if
# 498 "/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
# 506 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#ifdef MFC_DEBUG
# 506 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    block
# 506 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        use iso_fortran_env, only: output_unit
# 506 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 506 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        print *, 'm_icpp_patches.fpp:506: ', '@:DEALLOCATE(stored_values)'
# 506 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 506 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        call flush (output_unit)
# 506 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    end block
# 506 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#endif
# 506 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 506 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#if defined(MFC_OpenACC)
# 506 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
!$acc exit data delete(stored_values) 
# 506 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#elif defined(MFC_OpenMP)
# 506 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
!$omp target exit data map(release:stored_values) 
# 506 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#endif
# 506 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    deallocate (stored_values)
# 506 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#ifdef MFC_DEBUG
# 506 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    block
# 506 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        use iso_fortran_env, only: output_unit
# 506 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 506 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        print *, 'm_icpp_patches.fpp:506: ', '@:DEALLOCATE(x_coords)'
# 506 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 506 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        call flush (output_unit)
# 506 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    end block
# 506 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#endif
# 506 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 506 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#if defined(MFC_OpenACC)
# 506 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
!$acc exit data delete(x_coords) 
# 506 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#elif defined(MFC_OpenMP)
# 506 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
!$omp target exit data map(release:x_coords) 
# 506 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#endif
# 506 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    deallocate (x_coords)
# 506 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    end if
# 506 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 506 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    if (allocated(y_coords)) then
# 506 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#ifdef MFC_DEBUG
# 506 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    block
# 506 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        use iso_fortran_env, only: output_unit
# 506 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 506 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        print *, 'm_icpp_patches.fpp:506: ', '@:DEALLOCATE(y_coords)'
# 506 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 506 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        call flush (output_unit)
# 506 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    end block
# 506 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#endif
# 506 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 506 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#if defined(MFC_OpenACC)
# 506 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
!$acc exit data delete(y_coords) 
# 506 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#elif defined(MFC_OpenMP)
# 506 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
!$omp target exit data map(release:y_coords) 
# 506 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#endif
# 506 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    deallocate (y_coords)
# 506 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    end if
 
    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
# 528 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    integer                                 :: f, iter, ios, ios2, unit, unit2, idx, idy, index_x, index_y, jump, line_count, ycount
# 528 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    real(wp)                                :: x_len, x_step, y_len, y_step
# 528 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    real(wp)                                :: dummy_x, dummy_y, dummy_z, x0, y0
# 528 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    integer                                 :: global_offset_x, global_offset_y       !< MPI subdomain offset
# 528 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    real(wp)                                :: delta_x, delta_y
# 528 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    character(len=100), dimension(sys_size) :: fileNames                              !< Arrays to store all data from files
# 528 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    character(len=200)                      :: errmsg
# 528 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    real(wp), allocatable                   :: stored_values(:,:,:)
# 528 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    real(wp), allocatable                   :: x_coords(:), y_coords(:)
# 528 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    logical                                 :: files_loaded = .false.
# 528 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    real(wp)                                :: domain_xstart, domain_xend, domain_ystart, domain_yend
# 528 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    character(len=*), parameter             :: init_dir = "/home/MFC/FilesDirectory"  !< For example /home/MFC/examples/1D_Shock/D/
# 528 "/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
# 528 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    character(len=20)                       :: zeros_part                             !< For the trailing zeros part
# 528 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    character(len=6), parameter             :: zeros_default = "000000"               !< Default zeros (can be changed)
    ! Place any declaration of intermediate variables here
# 529 "/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
# 529 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    real(wp) :: eps
# 529 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 529 "/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
# 529 "/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
# 529 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    ! Variables to describe initial condition of jet
# 529 "/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
# 529 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    real(wp)                     :: rcut, xcut  !< Intermediate variables for creating smooth initial condition
# 529 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    real(wp), dimension(0:n,0:p) :: rcut_arr
# 529 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    integer                      :: l, q, s     !< Iterators for reading input files
# 529 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    integer                      :: start, end  !< Ints to keep track of position in file
# 529 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    character(len=1000)          :: line        !< String to store line in file
# 529 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    character(len=25)            :: value       !< String to store value in line
# 529 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    integer                      :: NJet        !< Number of jets
# 529 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 529 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    eps = 1e-9_wp
# 529 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 529 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    if (patch_icpp(patch_id)%hcid == 303) then
# 529 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        eps_smooth = 3._wp
# 529 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        open (unit=10, file="njet.txt", status="old", action="read")
# 529 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        read (10, *) njet
# 529 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        close (10)
# 529 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 529 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        allocate (y_th_arr(0:njet - 1))
# 529 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        allocate (z_th_arr(0:njet - 1))
# 529 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        allocate (r_th_arr(0:njet - 1))
# 529 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 529 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        open (unit=10, file="jets.csv", status="old", action="read")
# 529 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        do q = 0, njet - 1
# 529 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            read (10, '(A)') line  ! Read a full line as a string
# 529 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            start = 1
# 529 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 529 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            do l = 0, 2
# 529 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                end = index(line(start:), ',')  ! Find the next comma
# 529 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                if (end == 0) then
# 529 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    value = trim(adjustl(line(start:)))  ! Last value in the line
# 529 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                else
# 529 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    value = trim(adjustl(line(start:start + end - 2)))  ! Extract substring
# 529 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    start = start + end  ! Move to next value
# 529 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                end if
# 529 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                if (l == 0) then
# 529 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    read (value, *) y_th_arr(q)  ! Convert string to numeric value
# 529 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                else if (l == 1) then
# 529 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    read (value, *) z_th_arr(q)
# 529 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                else
# 529 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    read (value, *) r_th_arr(q)
# 529 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                end if
# 529 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            end do
# 529 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        end do
# 529 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        close (10)
# 529 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 529 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        do q = 0, p
# 529 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            do l = 0, n
# 529 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                rcut = 0._wp
# 529 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                do s = 0, njet - 1
# 529 "/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)
# 529 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    rcut = rcut + f_cut_on(r - r_th_arr(s), eps_smooth)
# 529 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                end do
# 529 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                rcut_arr(l, q) = rcut
# 529 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            end do
# 529 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        end do
# 529 "/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)
# 568 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    case (300)  ! Rayleigh-Taylor instability
# 568 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        rhoh = 3._wp
# 568 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        rhol = 1._wp
# 568 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        pref = 1.e5_wp
# 568 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        pint = pref
# 568 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        h = 0.7_wp
# 568 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        lam = 0.2_wp
# 568 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        wl = 2._wp*pi/lam
# 568 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        amp = 0.025_wp/wl
# 568 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 568 "/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
# 568 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 568 "/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))
# 568 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 568 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        if (alph < eps) alph = eps
# 568 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        if (alph > 1._wp - eps) alph = 1._wp - eps
# 568 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 568 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        if (y_cc(j) > inth) then
# 568 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%adv%beg)%sf(i, j, k) = alph
# 568 "/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
# 568 "/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
# 568 "/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
# 568 "/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))
# 568 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        else
# 568 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%adv%beg)%sf(i, j, k) = alph
# 568 "/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
# 568 "/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
# 568 "/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
# 568 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            pint = pref + rhoh*9.81_wp*(1.2_wp - inth)
# 568 "/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))
# 568 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        end if
# 568 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    case (301)  ! (3D lung geometry in X direction, |sin(*)+sin(*)|)
# 568 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        h = 0.0_wp
# 568 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        lam = 1.0_wp
# 568 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        amp = patch_icpp(patch_id)%a(2)
# 568 "/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)
# 568 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        if (x_cc(i) > inth) then
# 568 "/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)
# 568 "/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)
# 568 "/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
# 568 "/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)
# 568 "/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)
# 568 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        end if
# 568 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    case (302)  ! 3D Jet with IGR
# 568 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ux_th = 10*sqrt(1.4*0.4)
# 568 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ux_am = 0.0*sqrt(1.4)
# 568 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        p_th = 2.0_wp
# 568 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        p_am = 1.0_wp
# 568 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        rho_th = 1._wp
# 568 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        rho_am = 1._wp
# 568 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        y_th = 0.0_wp
# 568 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        z_th = 0.0_wp
# 568 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        r_th = 1._wp
# 568 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        eps_smooth = 1._wp
# 568 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        eps = 1e-6
# 568 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 568 "/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)
# 568 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        rcut = f_cut_on(r - r_th, eps_smooth)
# 568 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        xcut = f_cut_on(x_cc(i), eps_smooth)
# 568 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 568 "/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
# 568 "/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
# 568 "/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
# 568 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 568 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        if (num_fluids == 1) then
# 568 "/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
# 568 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        else
# 568 "/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
# 568 "/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)
# 568 "/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))
# 568 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        end if
# 568 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 568 "/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
# 568 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    case (303)  ! 3D Multijet
# 568 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        eps_smooth = 3.0_wp
# 568 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ux_th = 10*sqrt(1.4*0.4)
# 568 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ux_am = 2.5*sqrt(1.4*0.4)
# 568 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        p_th = 0.8_wp
# 568 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        p_am = 0.4_wp
# 568 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        rho_th = 1._wp
# 568 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        rho_am = 1._wp
# 568 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        eps = 1e-6
# 568 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 568 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        rcut = rcut_arr(j, k)
# 568 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        xcut = f_cut_on(x_cc(i), eps_smooth)
# 568 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 568 "/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
# 568 "/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
# 568 "/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
# 568 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 568 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        if (num_fluids == 1) then
# 568 "/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
# 568 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        else
# 568 "/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
# 568 "/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)
# 568 "/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))
# 568 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        end if
# 568 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 568 "/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
# 568 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    case (370)  ! 3D extrusion of 2D profile from external data
# 568 "/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
# 568 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    if (.not. files_loaded) then
# 568 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        max_files = merge(sys_size, sys_size - 1, num_dims == 1)
# 568 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        do f = 1, max_files
# 568 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            write (file_num_str, '(I0)') f
# 568 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            filenames(f) = trim(init_dir) // "prim." // trim(file_num_str) // ".00." // zeros_default // ".dat"
# 568 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        end do
# 568 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 568 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! Common file reading setup
# 568 "/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)
# 568 "/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)))
# 568 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 568 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        select case (num_dims)
# 568 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        case (1, 2)  ! 1D and 2D cases are similar
# 568 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            ! Count lines
# 568 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            line_count = 0
# 568 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            do
# 568 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                read (unit2, *, iostat=ios2) dummy_x, dummy_y
# 568 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                if (ios2 /= 0) exit
# 568 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                line_count = line_count + 1
# 568 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            end do
# 568 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            close (unit2)
# 568 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 568 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            xrows = line_count
# 568 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            yrows = 1
# 568 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            index_x = 0
# 568 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            if (num_dims == 2) index_x = i
# 568 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#ifdef MFC_DEBUG
# 568 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    block
# 568 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        use iso_fortran_env, only: output_unit
# 568 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 568 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        print *, 'm_icpp_patches.fpp:568: ', '@:ALLOCATE(x_coords(xRows), stored_values(xRows, 1, sys_size))'
# 568 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 568 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        call flush (output_unit)
# 568 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    end block
# 568 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#endif
# 568 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    allocate (x_coords(xrows), stored_values(xrows, 1, sys_size))
# 568 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 568 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 568 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 568 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#if defined(MFC_OpenACC)
# 568 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
!$acc enter data create(x_coords, stored_values) 
# 568 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#elif defined(MFC_OpenMP)
# 568 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
!$omp target enter data map(always,alloc:x_coords, stored_values) 
# 568 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#endif
# 568 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 568 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            ! Read data from all files
# 568 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            do f = 1, max_files
# 568 "/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)
# 568 "/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)))
# 568 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 568 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                do iter = 1, xrows
# 568 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    read (unit, *, iostat=ios) x_coords(iter), stored_values(iter, 1, f)
# 568 "/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)))
# 568 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                end do
# 568 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                close (unit)
# 568 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            end do
# 568 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 568 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            ! Calculate offsets
# 568 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            domain_xstart = x_coords(1)
# 568 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            x_step = x_cc(1) - x_cc(0)
# 568 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            delta_x = merge(x_cc(0) - domain_xstart + x_step/2.0, x_cc(index_x) - domain_xstart + x_step/2.0, num_dims == 1)
# 568 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            global_offset_x = nint(abs(delta_x)/x_step)
# 568 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        case (3)  ! 3D case - determine grid structure
# 568 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            ! Find yRows by counting rows with same x
# 568 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            read (unit2, *, iostat=ios2) x0, y0, dummy_z
# 568 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            if (ios2 /= 0) call s_mpi_abort("Error reading first line")
# 568 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 568 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            yrows = 1
# 568 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            do
# 568 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                read (unit2, *, iostat=ios2) dummy_x, dummy_y, dummy_z
# 568 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                if (ios2 /= 0) exit
# 568 "/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
# 568 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    yrows = yrows + 1
# 568 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                else
# 568 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    exit
# 568 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                end if
# 568 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            end do
# 568 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            close (unit2)
# 568 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 568 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            ! Count total rows
# 568 "/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)
# 568 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            nrows = 0
# 568 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            do
# 568 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                read (unit2, *, iostat=ios2) dummy_x, dummy_y, dummy_z
# 568 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                if (ios2 /= 0) exit
# 568 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                nrows = nrows + 1
# 568 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            end do
# 568 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            close (unit2)
# 568 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 568 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            xrows = nrows/yrows
# 568 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#ifdef MFC_DEBUG
# 568 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    block
# 568 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        use iso_fortran_env, only: output_unit
# 568 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 568 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        print *, 'm_icpp_patches.fpp:568: ', '@:ALLOCATE(x_coords(nrows), y_coords(nrows), stored_values(xRows, yRows, sys_size))'
# 568 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 568 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        call flush (output_unit)
# 568 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    end block
# 568 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#endif
# 568 "/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))
# 568 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 568 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 568 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 568 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 568 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#if defined(MFC_OpenACC)
# 568 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
!$acc enter data create(x_coords, y_coords, stored_values) 
# 568 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#elif defined(MFC_OpenMP)
# 568 "/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) 
# 568 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#endif
# 568 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            index_x = i
# 568 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            index_y = j
# 568 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 568 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            ! Read all files
# 568 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            do f = 1, max_files
# 568 "/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)
# 568 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                if (ios /= 0) then
# 568 "/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)))
# 568 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    cycle
# 568 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                end if
# 568 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 568 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                iter = 0
# 568 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                do iix = 1, xrows
# 568 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    do iiy = 1, yrows
# 568 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                        iter = iter + 1
# 568 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                        if (f == 1) then
# 568 "/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)
# 568 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                        else
# 568 "/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)
# 568 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                        end if
# 568 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                        if (ios /= 0) call s_mpi_abort("Error reading data")
# 568 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    end do
# 568 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                end do
# 568 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                close (unit)
# 568 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            end do
# 568 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 568 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            ! Calculate offsets
# 568 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            x_step = x_cc(1) - x_cc(0)
# 568 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            y_step = y_cc(1) - y_cc(0)
# 568 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            delta_x = x_cc(index_x) - x_coords(1) + x_step/2.0_wp
# 568 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            delta_y = y_cc(index_y) - y_coords(1) + y_step/2.0_wp
# 568 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            global_offset_x = nint(abs(delta_x)/x_step)
# 568 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            global_offset_y = nint(abs(delta_y)/y_step)
# 568 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        end select
# 568 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 568 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        files_loaded = .true.
# 568 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    end if
# 568 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 568 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    ! Data assignment
# 568 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    select case (num_dims)
# 568 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    case (1)
# 568 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        idx = i + 1 + global_offset_x
# 568 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        do f = 1, sys_size
# 568 "/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)
# 568 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        end do
# 568 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    case (2)
# 568 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        idx = i + 1 + global_offset_x - index_x
# 568 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        do f = 1, sys_size - 1
# 568 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            jump = merge(1, 0, f >= eqn_idx%mom%end)
# 568 "/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)
# 568 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        end do
# 568 "/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
# 568 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    case (3)
# 568 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        idx = i + 1 + global_offset_x - index_x
# 568 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        idy = j + 1 + global_offset_y - index_y
# 568 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        do f = 1, sys_size - 1
# 568 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            jump = merge(1, 0, f >= eqn_idx%mom%end)
# 568 "/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)
# 568 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        end do
# 568 "/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
# 568 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    end select
# 568 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    case (380)  ! Taylor-Green vortex
# 568 "/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
# 568 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! geometry 9
# 568 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        mach = 0.1
# 568 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        if (patch_id == 1) then
# 568 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%E)%sf(i, j, &
# 568 "/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)
# 568 "/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)
# 568 "/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)
# 568 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        end if
# 568 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    case default
# 568 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        call s_int_to_str(patch_id, istr)
# 568 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        call s_mpi_abort("Invalid hcid specified for patch " // trim(istr))
# 568 "/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
# 577 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#ifdef MFC_DEBUG
# 577 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    block
# 577 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        use iso_fortran_env, only: output_unit
# 577 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 577 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        print *, 'm_icpp_patches.fpp:577: ', '@:DEALLOCATE(stored_values)'
# 577 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 577 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        call flush (output_unit)
# 577 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    end block
# 577 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#endif
# 577 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 577 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#if defined(MFC_OpenACC)
# 577 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
!$acc exit data delete(stored_values) 
# 577 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#elif defined(MFC_OpenMP)
# 577 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
!$omp target exit data map(release:stored_values) 
# 577 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#endif
# 577 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    deallocate (stored_values)
# 577 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#ifdef MFC_DEBUG
# 577 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    block
# 577 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        use iso_fortran_env, only: output_unit
# 577 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 577 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        print *, 'm_icpp_patches.fpp:577: ', '@:DEALLOCATE(x_coords)'
# 577 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 577 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        call flush (output_unit)
# 577 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    end block
# 577 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#endif
# 577 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 577 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#if defined(MFC_OpenACC)
# 577 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
!$acc exit data delete(x_coords) 
# 577 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#elif defined(MFC_OpenMP)
# 577 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
!$omp target exit data map(release:x_coords) 
# 577 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#endif
# 577 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    deallocate (x_coords)
# 577 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    end if
# 577 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 577 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    if (allocated(y_coords)) then
# 577 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#ifdef MFC_DEBUG
# 577 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    block
# 577 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        use iso_fortran_env, only: output_unit
# 577 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 577 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        print *, 'm_icpp_patches.fpp:577: ', '@:DEALLOCATE(y_coords)'
# 577 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 577 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        call flush (output_unit)
# 577 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    end block
# 577 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#endif
# 577 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 577 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#if defined(MFC_OpenACC)
# 577 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
!$acc exit data delete(y_coords) 
# 577 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#elif defined(MFC_OpenMP)
# 577 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
!$omp target exit data map(release:y_coords) 
# 577 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#endif
# 577 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    deallocate (y_coords)
# 577 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    end if
 
    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
# 598 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    integer                                 :: f, iter, ios, ios2, unit, unit2, idx, idy, index_x, index_y, jump, line_count, ycount
# 598 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    real(wp)                                :: x_len, x_step, y_len, y_step
# 598 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    real(wp)                                :: dummy_x, dummy_y, dummy_z, x0, y0
# 598 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    integer                                 :: global_offset_x, global_offset_y       !< MPI subdomain offset
# 598 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    real(wp)                                :: delta_x, delta_y
# 598 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    character(len=100), dimension(sys_size) :: fileNames                              !< Arrays to store all data from files
# 598 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    character(len=200)                      :: errmsg
# 598 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    real(wp), allocatable                   :: stored_values(:,:,:)
# 598 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    real(wp), allocatable                   :: x_coords(:), y_coords(:)
# 598 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    logical                                 :: files_loaded = .false.
# 598 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    real(wp)                                :: domain_xstart, domain_xend, domain_ystart, domain_yend
# 598 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    character(len=*), parameter             :: init_dir = "/home/MFC/FilesDirectory"  !< For example /home/MFC/examples/1D_Shock/D/
# 598 "/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
# 598 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    character(len=20)                       :: zeros_part                             !< For the trailing zeros part
# 598 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    character(len=6), parameter             :: zeros_default = "000000"               !< Default zeros (can be changed)
    ! Place any declaration of intermediate variables here
# 599 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    real(wp) :: eps, eps_mhd, C_mhd
# 599 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    real(wp) :: r, rmax, gam, umax, p0
# 599 "/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
# 599 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    real(wp) :: factor
# 599 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    real(wp) :: r0, alpha, r2
# 599 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    real(wp) :: sinA, cosA
# 599 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    real(wp) :: r_sq
# 599 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 599 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    ! # 291 - Shear/Thermal Layer Case
# 599 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    real(wp) :: delta_shear, u_max, u_mean
# 599 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    real(wp) :: T_wall, T_inf, P_atm, T_loc
# 599 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    real(wp) :: delta_th, R_mix
# 599 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    real(wp) :: Y_N2, Y_O2, MW_N2, MW_O2
# 599 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    real(wp) :: bottom_blend_u, bottom_blend_T
# 599 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 599 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    ! # 207
# 599 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    real(wp) :: sigma, gauss1, gauss2
# 599 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 599 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    ! # 208
# 599 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    real(wp) :: ei, d, fsm, alpha_air, alpha_sf6
# 599 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 599 "/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 (x_boundary%beg <= x_cc(i) .and. x_boundary%end >= x_cc(i) .and. y_boundary%beg <= y_cc(j) &
                    & .and. y_boundary%end >= y_cc(j)) 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
# 631 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    case (200)  ! Two-fluid cubic interface
# 631 "/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
# 631 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            ! Volume Fractions
# 631 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%adv%beg)%sf(i, j, 0) = eps
# 631 "/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
# 631 "/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
# 631 "/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
# 631 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%E)%sf(i, j, 0) = 1000._wp
# 631 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        end if
# 631 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    case (202)  ! Gresho vortex (Gouasmi et al 2022 JCP)
# 631 "/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
# 631 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        rmax = 0.2_wp
# 631 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 631 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        gam = 1._wp + 1._wp/fluid_pp(1)%gamma
# 631 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        umax = 2*pi*rmax*patch_icpp(patch_id)%vel(2)
# 631 "/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)
# 631 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 631 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        if (r < rmax) then
# 631 "/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
# 631 "/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
# 631 "/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)
# 631 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        else if (r < 2*rmax) then
# 631 "/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)
# 631 "/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)
# 631 "/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)))
# 631 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        else
# 631 "/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
# 631 "/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
# 631 "/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))
# 631 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        end if
# 631 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    case (203)  ! Gresho vortex (Gouasmi et al 2022 JCP) with density correction
# 631 "/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
# 631 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        rmax = 0.2_wp
# 631 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 631 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        gam = 1._wp + 1._wp/fluid_pp(1)%gamma
# 631 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        umax = 2*pi*rmax*patch_icpp(patch_id)%vel(2)
# 631 "/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)
# 631 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 631 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        if (r < rmax) then
# 631 "/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
# 631 "/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
# 631 "/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)
# 631 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        else if (r < 2*rmax) then
# 631 "/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)
# 631 "/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)
# 631 "/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)))
# 631 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        else
# 631 "/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
# 631 "/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
# 631 "/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))
# 631 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        end if
# 631 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 631 "/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)
# 631 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    case (204)  ! Rayleigh-Taylor instability
# 631 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        rhoh = 3._wp
# 631 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        rhol = 1._wp
# 631 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        pref = 1.e5_wp
# 631 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        pint = pref
# 631 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        h = 0.7_wp
# 631 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        lam = 0.2_wp
# 631 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        wl = 2._wp*pi/lam
# 631 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        amp = 0.05_wp/wl
# 631 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 631 "/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
# 631 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 631 "/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))
# 631 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 631 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        if (alph < eps) alph = eps
# 631 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        if (alph > 1._wp - eps) alph = 1._wp - eps
# 631 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 631 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        if (y_cc(j) > inth) then
# 631 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%adv%beg)%sf(i, j, 0) = alph
# 631 "/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
# 631 "/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
# 631 "/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
# 631 "/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))
# 631 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        else
# 631 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%adv%beg)%sf(i, j, 0) = alph
# 631 "/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
# 631 "/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
# 631 "/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
# 631 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            pint = pref + rhoh*9.81_wp*(1.2_wp - inth)
# 631 "/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))
# 631 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        end if
# 631 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    case (205)  ! 2D lung wave interaction problem
# 631 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        h = 0.0_wp  ! non dim origin y
# 631 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        lam = 1.0_wp  ! non dim lambda
# 631 "/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
# 631 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 631 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        inth = amp*sin(2*pi*x_cc(i)/lam - pi/2) + h
# 631 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 631 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        if (y_cc(j) > inth) then
# 631 "/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)
# 631 "/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)
# 631 "/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
# 631 "/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)
# 631 "/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)
# 631 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        end if
# 631 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    case (206)  ! 2D lung wave interaction problem - horizontal domain
# 631 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        h = 0.0_wp  ! non dim origin y
# 631 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        lam = 1.0_wp  ! non dim lambda
# 631 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        amp = patch_icpp(patch_id)%a(2)
# 631 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 631 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        intl = amp*sin(2*pi*y_cc(j)/lam - pi/2) + h
# 631 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 631 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        if (x_cc(i) > intl) then  ! this is the liquid
# 631 "/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)
# 631 "/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)
# 631 "/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
# 631 "/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)
# 631 "/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)
# 631 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        end if
# 631 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    case (207)  ! Kelvin Helmholtz Instability
# 631 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        sigma = 0.05_wp/sqrt(2.0_wp)
# 631 "/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))
# 631 "/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))
# 631 "/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)
# 631 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    case (208)  ! Richtmeyer Meshkov Instability
# 631 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        lam = 1.0_wp
# 631 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        eps = 1.0e-6_wp
# 631 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ei = 5.0_wp
# 631 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! Smoothening function to smooth out sharp discontinuity in the interface
# 631 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        if (x_cc(i) <= 0.7_wp*lam) then
# 631 "/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)))
# 631 "/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))))
# 631 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            alpha_air = eps + (1.0_wp - 2.0_wp*eps)*fsm
# 631 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            alpha_sf6 = 1.0_wp - alpha_air
# 631 "/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
# 631 "/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
# 631 "/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
# 631 "/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
# 631 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        end if
# 631 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    case (250)  ! MHD Orszag-Tang vortex
# 631 "/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),
# 631 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! sin(4*pi*x)/sqrt(4*pi), 0)
# 631 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 631 "/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))
# 631 "/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))
# 631 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 631 "/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)
# 631 "/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)
# 631 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    case (251)  ! RMHD Cylindrical Blast Wave [Mignone, 2006: Section 4.3.1]
# 631 "/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
# 631 "/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
# 631 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%E)%sf(i, j, 0) = 1.0
# 631 "/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
# 631 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            ! Linear interpolation between r=0.08 and r=1.0
# 631 "/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)
# 631 "/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)
# 631 "/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)
# 631 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        else
# 631 "/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
# 631 "/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
# 631 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        end if
# 631 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 631 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! case 252 is for the 2D MHD Rotor problem
# 631 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    case (252)  ! 2D MHD Rotor Problem
# 631 "/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.
# 631 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        !
# 631 "/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
# 631 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! velocity w=20, giving v_tan=2 at r=0.1
# 631 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 631 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! Calculate distance squared from the center
# 631 "/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
# 631 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 631 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! inner radius of 0.1
# 631 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        if (r_sq <= 0.1**2) then
# 631 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            ! -- Inside the rotor -- Set density uniformly to 10
# 631 "/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
# 631 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 631 "/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)
# 631 "/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)
# 631 "/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)
# 631 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 631 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            ! taper width of 0.015
# 631 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        else if (r_sq <= 0.115**2) then
# 631 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            ! linearly smooth the function between r = 0.1 and 0.115
# 631 "/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)
# 631 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 631 "/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)
# 631 "/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)
# 631 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        end if
# 631 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    case (253)  ! MHD Smooth Magnetic Vortex
# 631 "/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.
# 631 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! Fernandez, A. Christophe, N.C. Nguyen, J. Peraire
# 631 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 631 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! velocity
# 631 "/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))
# 631 "/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))
# 631 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 631 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! magnetic field
# 631 "/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)
# 631 "/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)
# 631 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 631 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! pressure
# 631 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        q_prim_vf(eqn_idx%E)%sf(i, j, &
# 631 "/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)
# 631 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    case (260)  ! Gaussian Divergence Pulse
# 631 "/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)
# 631 "/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
# 631 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! initialized to zero everywhere.
# 631 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 631 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        eps_mhd = patch_icpp(patch_id)%a(2)
# 631 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        sigma = patch_icpp(patch_id)%a(3)
# 631 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        c_mhd = eps_mhd*sigma*sqrt(pi)*0.5_wp
# 631 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 631 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! B-field
# 631 "/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)
# 631 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    case (261)  ! Blob
# 631 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        r0 = 1._wp/sqrt(8._wp)
# 631 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        r2 = x_cc(i)**2 + y_cc(j)**2
# 631 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        r = sqrt(r2)
# 631 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        alpha = r/r0
# 631 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        if (alpha < 1) then
# 631 "/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)
# 631 "/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)
# 631 "/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)
# 631 "/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
# 631 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        end if
# 631 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    case (262)  ! Tilted 2D MHD shock‐tube at α = arctan2 (≈63.4°)
# 631 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! rotate by \alpha = atan(2)
# 631 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        alpha = atan(2._wp)
# 631 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        cosa = cos(alpha)
# 631 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        sina = sin(alpha)
# 631 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! projection along shock normal
# 631 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        r = x_cc(i)*cosa + y_cc(j)*sina
# 631 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 631 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        if (r <= 0.5_wp) then
# 631 "/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)
# 631 "/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
# 631 "/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
# 631 "/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
# 631 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%E)%sf(i, j, 0) = 20._wp
# 631 "/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
# 631 "/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
# 631 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        else
# 631 "/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)
# 631 "/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
# 631 "/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
# 631 "/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
# 631 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%E)%sf(i, j, 0) = 1._wp
# 631 "/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
# 631 "/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
# 631 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        end if
# 631 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! v^z and B^z remain zero by default
# 631 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    case (270)  ! 2D extrusion of 1D profile from external data
# 631 "/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
# 631 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    if (.not. files_loaded) then
# 631 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        max_files = merge(sys_size, sys_size - 1, num_dims == 1)
# 631 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        do f = 1, max_files
# 631 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            write (file_num_str, '(I0)') f
# 631 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            filenames(f) = trim(init_dir) // "prim." // trim(file_num_str) // ".00." // zeros_default // ".dat"
# 631 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        end do
# 631 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 631 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! Common file reading setup
# 631 "/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)
# 631 "/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)))
# 631 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 631 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        select case (num_dims)
# 631 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        case (1, 2)  ! 1D and 2D cases are similar
# 631 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            ! Count lines
# 631 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            line_count = 0
# 631 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            do
# 631 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                read (unit2, *, iostat=ios2) dummy_x, dummy_y
# 631 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                if (ios2 /= 0) exit
# 631 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                line_count = line_count + 1
# 631 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            end do
# 631 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            close (unit2)
# 631 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 631 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            xrows = line_count
# 631 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            yrows = 1
# 631 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            index_x = 0
# 631 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            if (num_dims == 2) index_x = i
# 631 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#ifdef MFC_DEBUG
# 631 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    block
# 631 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        use iso_fortran_env, only: output_unit
# 631 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 631 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        print *, 'm_icpp_patches.fpp:631: ', '@:ALLOCATE(x_coords(xRows), stored_values(xRows, 1, sys_size))'
# 631 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 631 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        call flush (output_unit)
# 631 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    end block
# 631 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#endif
# 631 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    allocate (x_coords(xrows), stored_values(xrows, 1, sys_size))
# 631 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 631 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 631 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 631 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#if defined(MFC_OpenACC)
# 631 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
!$acc enter data create(x_coords, stored_values) 
# 631 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#elif defined(MFC_OpenMP)
# 631 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
!$omp target enter data map(always,alloc:x_coords, stored_values) 
# 631 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#endif
# 631 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 631 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            ! Read data from all files
# 631 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            do f = 1, max_files
# 631 "/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)
# 631 "/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)))
# 631 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 631 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                do iter = 1, xrows
# 631 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    read (unit, *, iostat=ios) x_coords(iter), stored_values(iter, 1, f)
# 631 "/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)))
# 631 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                end do
# 631 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                close (unit)
# 631 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            end do
# 631 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 631 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            ! Calculate offsets
# 631 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            domain_xstart = x_coords(1)
# 631 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            x_step = x_cc(1) - x_cc(0)
# 631 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            delta_x = merge(x_cc(0) - domain_xstart + x_step/2.0, x_cc(index_x) - domain_xstart + x_step/2.0, num_dims == 1)
# 631 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            global_offset_x = nint(abs(delta_x)/x_step)
# 631 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        case (3)  ! 3D case - determine grid structure
# 631 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            ! Find yRows by counting rows with same x
# 631 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            read (unit2, *, iostat=ios2) x0, y0, dummy_z
# 631 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            if (ios2 /= 0) call s_mpi_abort("Error reading first line")
# 631 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 631 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            yrows = 1
# 631 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            do
# 631 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                read (unit2, *, iostat=ios2) dummy_x, dummy_y, dummy_z
# 631 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                if (ios2 /= 0) exit
# 631 "/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
# 631 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    yrows = yrows + 1
# 631 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                else
# 631 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    exit
# 631 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                end if
# 631 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            end do
# 631 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            close (unit2)
# 631 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 631 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            ! Count total rows
# 631 "/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)
# 631 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            nrows = 0
# 631 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            do
# 631 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                read (unit2, *, iostat=ios2) dummy_x, dummy_y, dummy_z
# 631 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                if (ios2 /= 0) exit
# 631 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                nrows = nrows + 1
# 631 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            end do
# 631 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            close (unit2)
# 631 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 631 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            xrows = nrows/yrows
# 631 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#ifdef MFC_DEBUG
# 631 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    block
# 631 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        use iso_fortran_env, only: output_unit
# 631 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 631 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        print *, 'm_icpp_patches.fpp:631: ', '@:ALLOCATE(x_coords(nrows), y_coords(nrows), stored_values(xRows, yRows, sys_size))'
# 631 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 631 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        call flush (output_unit)
# 631 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    end block
# 631 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#endif
# 631 "/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))
# 631 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 631 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 631 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 631 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 631 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#if defined(MFC_OpenACC)
# 631 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
!$acc enter data create(x_coords, y_coords, stored_values) 
# 631 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#elif defined(MFC_OpenMP)
# 631 "/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) 
# 631 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#endif
# 631 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            index_x = i
# 631 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            index_y = j
# 631 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 631 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            ! Read all files
# 631 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            do f = 1, max_files
# 631 "/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)
# 631 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                if (ios /= 0) then
# 631 "/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)))
# 631 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    cycle
# 631 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                end if
# 631 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 631 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                iter = 0
# 631 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                do iix = 1, xrows
# 631 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    do iiy = 1, yrows
# 631 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                        iter = iter + 1
# 631 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                        if (f == 1) then
# 631 "/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)
# 631 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                        else
# 631 "/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)
# 631 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                        end if
# 631 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                        if (ios /= 0) call s_mpi_abort("Error reading data")
# 631 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    end do
# 631 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                end do
# 631 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                close (unit)
# 631 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            end do
# 631 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 631 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            ! Calculate offsets
# 631 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            x_step = x_cc(1) - x_cc(0)
# 631 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            y_step = y_cc(1) - y_cc(0)
# 631 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            delta_x = x_cc(index_x) - x_coords(1) + x_step/2.0_wp
# 631 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            delta_y = y_cc(index_y) - y_coords(1) + y_step/2.0_wp
# 631 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            global_offset_x = nint(abs(delta_x)/x_step)
# 631 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            global_offset_y = nint(abs(delta_y)/y_step)
# 631 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        end select
# 631 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 631 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        files_loaded = .true.
# 631 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    end if
# 631 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 631 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    ! Data assignment
# 631 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    select case (num_dims)
# 631 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    case (1)
# 631 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        idx = i + 1 + global_offset_x
# 631 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        do f = 1, sys_size
# 631 "/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)
# 631 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        end do
# 631 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    case (2)
# 631 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        idx = i + 1 + global_offset_x - index_x
# 631 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        do f = 1, sys_size - 1
# 631 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            jump = merge(1, 0, f >= eqn_idx%mom%end)
# 631 "/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)
# 631 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        end do
# 631 "/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
# 631 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    case (3)
# 631 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        idx = i + 1 + global_offset_x - index_x
# 631 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        idy = j + 1 + global_offset_y - index_y
# 631 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        do f = 1, sys_size - 1
# 631 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            jump = merge(1, 0, f >= eqn_idx%mom%end)
# 631 "/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)
# 631 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        end do
# 631 "/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
# 631 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    end select
# 631 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    case (280)  ! Isentropic vortex
# 631 "/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
# 631 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! geometry 2
# 631 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        if (patch_id == 1) then
# 631 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%E)%sf(i, j, &
# 631 "/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) &
# 631 "/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)
# 631 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%cont%beg + 0)%sf(i, j, &
# 631 "/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) &
# 631 "/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
# 631 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%mom%beg + 0)%sf(i, j, &
# 631 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                      & 0) = 0.0 + (y_cc(j) - patch_icpp(1)%y_centroid)*(5.0/(2.0*pi))*exp(1.0*(1.0 - (x_cc(i) - patch_icpp(1) &
# 631 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                      & %x_centroid)**2.0 - (y_cc(j) - patch_icpp(1)%y_centroid)**2.0))
# 631 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%mom%beg + 1)%sf(i, j, &
# 631 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                      & 0) = 0.0 - (x_cc(i) - patch_icpp(1)%x_centroid)*(5.0/(2.0*pi))*exp(1.0*(1.0 - (x_cc(i) - patch_icpp(1) &
# 631 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                      & %x_centroid)**2.0 - (y_cc(j) - patch_icpp(1)%y_centroid)**2.0))
# 631 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        end if
# 631 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    case (281)  ! Acoustic pulse
# 631 "/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
# 631 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! geometry 2
# 631 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        if (patch_id == 2) then
# 631 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%E)%sf(i, j, &
# 631 "/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))
# 631 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%cont%beg + 0)%sf(i, j, &
# 631 "/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))
# 631 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        end if
# 631 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    case (282)  ! Zero-circulation vortex
# 631 "/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
# 631 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! geometry 2
# 631 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        if (patch_id == 2) then
# 631 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%E)%sf(i, j, &
# 631 "/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))
# 631 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%cont%beg + 0)%sf(i, j, &
# 631 "/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))
# 631 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%mom%beg + 0)%sf(i, j, &
# 631 "/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)))
# 631 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%mom%beg + 1)%sf(i, j, &
# 631 "/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)))
# 631 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        end if
# 631 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    case (291)  ! Isothermal Flat Plate
# 631 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        t_inf = 1125.0_wp
# 631 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        t_wall = 600.0_wp
# 631 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        p_atm = 101325.0_wp
# 631 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 631 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! Boundary/Shear Layer thicknesses
# 631 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        delta_th = 0.0003_wp  ! Thermal BL thickness
# 631 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        delta_shear = 8e-3_wp  ! Velocity BL thickness
# 631 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 631 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        u_max = 50.0_wp  ! Freestream Velocity (m/s)
# 631 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 631 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        mw_n2 = 28.0134e-3_wp
# 631 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        mw_o2 = 31.999e-3_wp
# 631 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        y_n2 = 0.767_wp
# 631 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        y_o2 = 0.233_wp
# 631 "/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))
# 631 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        bottom_blend_u = tanh(y_cc(j)/delta_shear)
# 631 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        bottom_blend_t = tanh(y_cc(j)/delta_th)
# 631 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        u_mean = u_max*bottom_blend_u
# 631 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        t_loc = t_wall + (t_inf - t_wall)*bottom_blend_t
# 631 "/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)
# 631 "/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
# 631 "/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
# 631 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        q_prim_vf(eqn_idx%E)%sf(i, j, 0) = p_atm
# 631 "/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
# 631 "/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
# 631 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    case default
# 631 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        if (proc_rank == 0) then
# 631 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            call s_int_to_str(patch_id, istr)
# 631 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            call s_mpi_abort("Invalid hcid specified for patch " // trim(istr))
# 631 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        end if
# 631 "/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 == 4)) 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
# 647 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#ifdef MFC_DEBUG
# 647 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    block
# 647 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        use iso_fortran_env, only: output_unit
# 647 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 647 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        print *, 'm_icpp_patches.fpp:647: ', '@:DEALLOCATE(stored_values)'
# 647 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 647 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        call flush (output_unit)
# 647 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    end block
# 647 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#endif
# 647 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 647 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#if defined(MFC_OpenACC)
# 647 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
!$acc exit data delete(stored_values) 
# 647 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#elif defined(MFC_OpenMP)
# 647 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
!$omp target exit data map(release:stored_values) 
# 647 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#endif
# 647 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    deallocate (stored_values)
# 647 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#ifdef MFC_DEBUG
# 647 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    block
# 647 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        use iso_fortran_env, only: output_unit
# 647 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 647 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        print *, 'm_icpp_patches.fpp:647: ', '@:DEALLOCATE(x_coords)'
# 647 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 647 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        call flush (output_unit)
# 647 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    end block
# 647 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#endif
# 647 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 647 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#if defined(MFC_OpenACC)
# 647 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
!$acc exit data delete(x_coords) 
# 647 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#elif defined(MFC_OpenMP)
# 647 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
!$omp target exit data map(release:x_coords) 
# 647 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#endif
# 647 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    deallocate (x_coords)
# 647 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    end if
# 647 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 647 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    if (allocated(y_coords)) then
# 647 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#ifdef MFC_DEBUG
# 647 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    block
# 647 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        use iso_fortran_env, only: output_unit
# 647 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 647 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        print *, 'm_icpp_patches.fpp:647: ', '@:DEALLOCATE(y_coords)'
# 647 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 647 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        call flush (output_unit)
# 647 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    end block
# 647 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#endif
# 647 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 647 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#if defined(MFC_OpenACC)
# 647 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
!$acc exit data delete(y_coords) 
# 647 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#elif defined(MFC_OpenMP)
# 647 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
!$omp target exit data map(release:y_coords) 
# 647 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#endif
# 647 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    deallocate (y_coords)
# 647 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    end if
 
    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
# 668 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    integer                                 :: f, iter, ios, ios2, unit, unit2, idx, idy, index_x, index_y, jump, line_count, ycount
# 668 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    real(wp)                                :: x_len, x_step, y_len, y_step
# 668 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    real(wp)                                :: dummy_x, dummy_y, dummy_z, x0, y0
# 668 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    integer                                 :: global_offset_x, global_offset_y       !< MPI subdomain offset
# 668 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    real(wp)                                :: delta_x, delta_y
# 668 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    character(len=100), dimension(sys_size) :: fileNames                              !< Arrays to store all data from files
# 668 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    character(len=200)                      :: errmsg
# 668 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    real(wp), allocatable                   :: stored_values(:,:,:)
# 668 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    real(wp), allocatable                   :: x_coords(:), y_coords(:)
# 668 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    logical                                 :: files_loaded = .false.
# 668 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    real(wp)                                :: domain_xstart, domain_xend, domain_ystart, domain_yend
# 668 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    character(len=*), parameter             :: init_dir = "/home/MFC/FilesDirectory"  !< For example /home/MFC/examples/1D_Shock/D/
# 668 "/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
# 668 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    character(len=20)                       :: zeros_part                             !< For the trailing zeros part
# 668 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    character(len=6), parameter             :: zeros_default = "000000"               !< Default zeros (can be changed)
    ! Place any declaration of intermediate variables here
# 669 "/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
# 669 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    real(wp) :: eps
# 669 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 669 "/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
# 669 "/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
# 669 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    ! Variables to describe initial condition of jet
# 669 "/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
# 669 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    real(wp)                     :: rcut, xcut  !< Intermediate variables for creating smooth initial condition
# 669 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    real(wp), dimension(0:n,0:p) :: rcut_arr
# 669 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    integer                      :: l, q, s     !< Iterators for reading input files
# 669 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    integer                      :: start, end  !< Ints to keep track of position in file
# 669 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    character(len=1000)          :: line        !< String to store line in file
# 669 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    character(len=25)            :: value       !< String to store value in line
# 669 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    integer                      :: NJet        !< Number of jets
# 669 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 669 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    eps = 1e-9_wp
# 669 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 669 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    if (patch_icpp(patch_id)%hcid == 303) then
# 669 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        eps_smooth = 3._wp
# 669 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        open (unit=10, file="njet.txt", status="old", action="read")
# 669 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        read (10, *) njet
# 669 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        close (10)
# 669 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 669 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        allocate (y_th_arr(0:njet - 1))
# 669 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        allocate (z_th_arr(0:njet - 1))
# 669 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        allocate (r_th_arr(0:njet - 1))
# 669 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 669 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        open (unit=10, file="jets.csv", status="old", action="read")
# 669 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        do q = 0, njet - 1
# 669 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            read (10, '(A)') line  ! Read a full line as a string
# 669 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            start = 1
# 669 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 669 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            do l = 0, 2
# 669 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                end = index(line(start:), ',')  ! Find the next comma
# 669 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                if (end == 0) then
# 669 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    value = trim(adjustl(line(start:)))  ! Last value in the line
# 669 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                else
# 669 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    value = trim(adjustl(line(start:start + end - 2)))  ! Extract substring
# 669 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    start = start + end  ! Move to next value
# 669 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                end if
# 669 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                if (l == 0) then
# 669 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    read (value, *) y_th_arr(q)  ! Convert string to numeric value
# 669 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                else if (l == 1) then
# 669 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    read (value, *) z_th_arr(q)
# 669 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                else
# 669 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    read (value, *) r_th_arr(q)
# 669 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                end if
# 669 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            end do
# 669 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        end do
# 669 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        close (10)
# 669 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 669 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        do q = 0, p
# 669 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            do l = 0, n
# 669 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                rcut = 0._wp
# 669 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                do s = 0, njet - 1
# 669 "/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)
# 669 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    rcut = rcut + f_cut_on(r - r_th_arr(s), eps_smooth)
# 669 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                end do
# 669 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                rcut_arr(l, q) = rcut
# 669 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            end do
# 669 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        end do
# 669 "/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)
# 698 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    case (300)  ! Rayleigh-Taylor instability
# 698 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        rhoh = 3._wp
# 698 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        rhol = 1._wp
# 698 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        pref = 1.e5_wp
# 698 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        pint = pref
# 698 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        h = 0.7_wp
# 698 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        lam = 0.2_wp
# 698 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        wl = 2._wp*pi/lam
# 698 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        amp = 0.025_wp/wl
# 698 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 698 "/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
# 698 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 698 "/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))
# 698 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 698 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        if (alph < eps) alph = eps
# 698 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        if (alph > 1._wp - eps) alph = 1._wp - eps
# 698 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 698 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        if (y_cc(j) > inth) then
# 698 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%adv%beg)%sf(i, j, k) = alph
# 698 "/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
# 698 "/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
# 698 "/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
# 698 "/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))
# 698 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        else
# 698 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%adv%beg)%sf(i, j, k) = alph
# 698 "/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
# 698 "/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
# 698 "/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
# 698 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            pint = pref + rhoh*9.81_wp*(1.2_wp - inth)
# 698 "/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))
# 698 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        end if
# 698 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    case (301)  ! (3D lung geometry in X direction, |sin(*)+sin(*)|)
# 698 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        h = 0.0_wp
# 698 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        lam = 1.0_wp
# 698 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        amp = patch_icpp(patch_id)%a(2)
# 698 "/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)
# 698 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        if (x_cc(i) > inth) then
# 698 "/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)
# 698 "/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)
# 698 "/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
# 698 "/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)
# 698 "/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)
# 698 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        end if
# 698 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    case (302)  ! 3D Jet with IGR
# 698 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ux_th = 10*sqrt(1.4*0.4)
# 698 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ux_am = 0.0*sqrt(1.4)
# 698 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        p_th = 2.0_wp
# 698 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        p_am = 1.0_wp
# 698 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        rho_th = 1._wp
# 698 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        rho_am = 1._wp
# 698 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        y_th = 0.0_wp
# 698 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        z_th = 0.0_wp
# 698 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        r_th = 1._wp
# 698 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        eps_smooth = 1._wp
# 698 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        eps = 1e-6
# 698 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 698 "/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)
# 698 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        rcut = f_cut_on(r - r_th, eps_smooth)
# 698 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        xcut = f_cut_on(x_cc(i), eps_smooth)
# 698 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 698 "/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
# 698 "/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
# 698 "/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
# 698 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 698 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        if (num_fluids == 1) then
# 698 "/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
# 698 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        else
# 698 "/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
# 698 "/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)
# 698 "/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))
# 698 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        end if
# 698 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 698 "/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
# 698 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    case (303)  ! 3D Multijet
# 698 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        eps_smooth = 3.0_wp
# 698 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ux_th = 10*sqrt(1.4*0.4)
# 698 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ux_am = 2.5*sqrt(1.4*0.4)
# 698 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        p_th = 0.8_wp
# 698 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        p_am = 0.4_wp
# 698 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        rho_th = 1._wp
# 698 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        rho_am = 1._wp
# 698 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        eps = 1e-6
# 698 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 698 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        rcut = rcut_arr(j, k)
# 698 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        xcut = f_cut_on(x_cc(i), eps_smooth)
# 698 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 698 "/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
# 698 "/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
# 698 "/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
# 698 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 698 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        if (num_fluids == 1) then
# 698 "/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
# 698 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        else
# 698 "/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
# 698 "/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)
# 698 "/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))
# 698 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        end if
# 698 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 698 "/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
# 698 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    case (370)  ! 3D extrusion of 2D profile from external data
# 698 "/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
# 698 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    if (.not. files_loaded) then
# 698 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        max_files = merge(sys_size, sys_size - 1, num_dims == 1)
# 698 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        do f = 1, max_files
# 698 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            write (file_num_str, '(I0)') f
# 698 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            filenames(f) = trim(init_dir) // "prim." // trim(file_num_str) // ".00." // zeros_default // ".dat"
# 698 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        end do
# 698 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 698 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! Common file reading setup
# 698 "/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)
# 698 "/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)))
# 698 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 698 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        select case (num_dims)
# 698 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        case (1, 2)  ! 1D and 2D cases are similar
# 698 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            ! Count lines
# 698 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            line_count = 0
# 698 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            do
# 698 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                read (unit2, *, iostat=ios2) dummy_x, dummy_y
# 698 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                if (ios2 /= 0) exit
# 698 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                line_count = line_count + 1
# 698 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            end do
# 698 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            close (unit2)
# 698 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 698 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            xrows = line_count
# 698 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            yrows = 1
# 698 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            index_x = 0
# 698 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            if (num_dims == 2) index_x = i
# 698 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#ifdef MFC_DEBUG
# 698 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    block
# 698 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        use iso_fortran_env, only: output_unit
# 698 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 698 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        print *, 'm_icpp_patches.fpp:698: ', '@:ALLOCATE(x_coords(xRows), stored_values(xRows, 1, sys_size))'
# 698 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 698 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        call flush (output_unit)
# 698 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    end block
# 698 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#endif
# 698 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    allocate (x_coords(xrows), stored_values(xrows, 1, sys_size))
# 698 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 698 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 698 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 698 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#if defined(MFC_OpenACC)
# 698 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
!$acc enter data create(x_coords, stored_values) 
# 698 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#elif defined(MFC_OpenMP)
# 698 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
!$omp target enter data map(always,alloc:x_coords, stored_values) 
# 698 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#endif
# 698 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 698 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            ! Read data from all files
# 698 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            do f = 1, max_files
# 698 "/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)
# 698 "/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)))
# 698 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 698 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                do iter = 1, xrows
# 698 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    read (unit, *, iostat=ios) x_coords(iter), stored_values(iter, 1, f)
# 698 "/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)))
# 698 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                end do
# 698 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                close (unit)
# 698 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            end do
# 698 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 698 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            ! Calculate offsets
# 698 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            domain_xstart = x_coords(1)
# 698 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            x_step = x_cc(1) - x_cc(0)
# 698 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            delta_x = merge(x_cc(0) - domain_xstart + x_step/2.0, x_cc(index_x) - domain_xstart + x_step/2.0, num_dims == 1)
# 698 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            global_offset_x = nint(abs(delta_x)/x_step)
# 698 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        case (3)  ! 3D case - determine grid structure
# 698 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            ! Find yRows by counting rows with same x
# 698 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            read (unit2, *, iostat=ios2) x0, y0, dummy_z
# 698 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            if (ios2 /= 0) call s_mpi_abort("Error reading first line")
# 698 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 698 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            yrows = 1
# 698 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            do
# 698 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                read (unit2, *, iostat=ios2) dummy_x, dummy_y, dummy_z
# 698 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                if (ios2 /= 0) exit
# 698 "/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
# 698 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    yrows = yrows + 1
# 698 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                else
# 698 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    exit
# 698 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                end if
# 698 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            end do
# 698 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            close (unit2)
# 698 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 698 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            ! Count total rows
# 698 "/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)
# 698 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            nrows = 0
# 698 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            do
# 698 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                read (unit2, *, iostat=ios2) dummy_x, dummy_y, dummy_z
# 698 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                if (ios2 /= 0) exit
# 698 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                nrows = nrows + 1
# 698 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            end do
# 698 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            close (unit2)
# 698 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 698 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            xrows = nrows/yrows
# 698 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#ifdef MFC_DEBUG
# 698 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    block
# 698 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        use iso_fortran_env, only: output_unit
# 698 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 698 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        print *, 'm_icpp_patches.fpp:698: ', '@:ALLOCATE(x_coords(nrows), y_coords(nrows), stored_values(xRows, yRows, sys_size))'
# 698 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 698 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        call flush (output_unit)
# 698 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    end block
# 698 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#endif
# 698 "/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))
# 698 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 698 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 698 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 698 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 698 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#if defined(MFC_OpenACC)
# 698 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
!$acc enter data create(x_coords, y_coords, stored_values) 
# 698 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#elif defined(MFC_OpenMP)
# 698 "/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) 
# 698 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#endif
# 698 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            index_x = i
# 698 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            index_y = j
# 698 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 698 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            ! Read all files
# 698 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            do f = 1, max_files
# 698 "/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)
# 698 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                if (ios /= 0) then
# 698 "/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)))
# 698 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    cycle
# 698 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                end if
# 698 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 698 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                iter = 0
# 698 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                do iix = 1, xrows
# 698 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    do iiy = 1, yrows
# 698 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                        iter = iter + 1
# 698 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                        if (f == 1) then
# 698 "/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)
# 698 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                        else
# 698 "/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)
# 698 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                        end if
# 698 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                        if (ios /= 0) call s_mpi_abort("Error reading data")
# 698 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    end do
# 698 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                end do
# 698 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                close (unit)
# 698 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            end do
# 698 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 698 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            ! Calculate offsets
# 698 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            x_step = x_cc(1) - x_cc(0)
# 698 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            y_step = y_cc(1) - y_cc(0)
# 698 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            delta_x = x_cc(index_x) - x_coords(1) + x_step/2.0_wp
# 698 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            delta_y = y_cc(index_y) - y_coords(1) + y_step/2.0_wp
# 698 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            global_offset_x = nint(abs(delta_x)/x_step)
# 698 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            global_offset_y = nint(abs(delta_y)/y_step)
# 698 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        end select
# 698 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 698 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        files_loaded = .true.
# 698 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    end if
# 698 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 698 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    ! Data assignment
# 698 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    select case (num_dims)
# 698 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    case (1)
# 698 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        idx = i + 1 + global_offset_x
# 698 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        do f = 1, sys_size
# 698 "/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)
# 698 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        end do
# 698 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    case (2)
# 698 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        idx = i + 1 + global_offset_x - index_x
# 698 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        do f = 1, sys_size - 1
# 698 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            jump = merge(1, 0, f >= eqn_idx%mom%end)
# 698 "/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)
# 698 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        end do
# 698 "/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
# 698 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    case (3)
# 698 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        idx = i + 1 + global_offset_x - index_x
# 698 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        idy = j + 1 + global_offset_y - index_y
# 698 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        do f = 1, sys_size - 1
# 698 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            jump = merge(1, 0, f >= eqn_idx%mom%end)
# 698 "/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)
# 698 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        end do
# 698 "/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
# 698 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    end select
# 698 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    case (380)  ! Taylor-Green vortex
# 698 "/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
# 698 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! geometry 9
# 698 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        mach = 0.1
# 698 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        if (patch_id == 1) then
# 698 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%E)%sf(i, j, &
# 698 "/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)
# 698 "/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)
# 698 "/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)
# 698 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        end if
# 698 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    case default
# 698 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        call s_int_to_str(patch_id, istr)
# 698 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        call s_mpi_abort("Invalid hcid specified for patch " // trim(istr))
# 698 "/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
# 706 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#ifdef MFC_DEBUG
# 706 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    block
# 706 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        use iso_fortran_env, only: output_unit
# 706 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 706 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        print *, 'm_icpp_patches.fpp:706: ', '@:DEALLOCATE(stored_values)'
# 706 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 706 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        call flush (output_unit)
# 706 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    end block
# 706 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#endif
# 706 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 706 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#if defined(MFC_OpenACC)
# 706 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
!$acc exit data delete(stored_values) 
# 706 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#elif defined(MFC_OpenMP)
# 706 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
!$omp target exit data map(release:stored_values) 
# 706 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#endif
# 706 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    deallocate (stored_values)
# 706 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#ifdef MFC_DEBUG
# 706 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    block
# 706 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        use iso_fortran_env, only: output_unit
# 706 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 706 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        print *, 'm_icpp_patches.fpp:706: ', '@:DEALLOCATE(x_coords)'
# 706 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 706 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        call flush (output_unit)
# 706 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    end block
# 706 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#endif
# 706 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 706 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#if defined(MFC_OpenACC)
# 706 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
!$acc exit data delete(x_coords) 
# 706 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#elif defined(MFC_OpenMP)
# 706 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
!$omp target exit data map(release:x_coords) 
# 706 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#endif
# 706 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    deallocate (x_coords)
# 706 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    end if
# 706 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 706 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    if (allocated(y_coords)) then
# 706 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#ifdef MFC_DEBUG
# 706 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    block
# 706 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        use iso_fortran_env, only: output_unit
# 706 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 706 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        print *, 'm_icpp_patches.fpp:706: ', '@:DEALLOCATE(y_coords)'
# 706 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 706 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        call flush (output_unit)
# 706 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    end block
# 706 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#endif
# 706 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 706 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#if defined(MFC_OpenACC)
# 706 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
!$acc exit data delete(y_coords) 
# 706 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#elif defined(MFC_OpenMP)
# 706 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
!$omp target exit data map(release:y_coords) 
# 706 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#endif
# 706 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    deallocate (y_coords)
# 706 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    end if
 
    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
# 726 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    integer                                 :: f, iter, ios, ios2, unit, unit2, idx, idy, index_x, index_y, jump, line_count, ycount
# 726 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    real(wp)                                :: x_len, x_step, y_len, y_step
# 726 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    real(wp)                                :: dummy_x, dummy_y, dummy_z, x0, y0
# 726 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    integer                                 :: global_offset_x, global_offset_y       !< MPI subdomain offset
# 726 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    real(wp)                                :: delta_x, delta_y
# 726 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    character(len=100), dimension(sys_size) :: fileNames                              !< Arrays to store all data from files
# 726 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    character(len=200)                      :: errmsg
# 726 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    real(wp), allocatable                   :: stored_values(:,:,:)
# 726 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    real(wp), allocatable                   :: x_coords(:), y_coords(:)
# 726 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    logical                                 :: files_loaded = .false.
# 726 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    real(wp)                                :: domain_xstart, domain_xend, domain_ystart, domain_yend
# 726 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    character(len=*), parameter             :: init_dir = "/home/MFC/FilesDirectory"  !< For example /home/MFC/examples/1D_Shock/D/
# 726 "/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
# 726 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    character(len=20)                       :: zeros_part                             !< For the trailing zeros part
# 726 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    character(len=6), parameter             :: zeros_default = "000000"               !< Default zeros (can be changed)
    ! Place any declaration of intermediate variables here
# 727 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    real(wp) :: eps, eps_mhd, C_mhd
# 727 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    real(wp) :: r, rmax, gam, umax, p0
# 727 "/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
# 727 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    real(wp) :: factor
# 727 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    real(wp) :: r0, alpha, r2
# 727 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    real(wp) :: sinA, cosA
# 727 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    real(wp) :: r_sq
# 727 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 727 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    ! # 291 - Shear/Thermal Layer Case
# 727 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    real(wp) :: delta_shear, u_max, u_mean
# 727 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    real(wp) :: T_wall, T_inf, P_atm, T_loc
# 727 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    real(wp) :: delta_th, R_mix
# 727 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    real(wp) :: Y_N2, Y_O2, MW_N2, MW_O2
# 727 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    real(wp) :: bottom_blend_u, bottom_blend_T
# 727 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 727 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    ! # 207
# 727 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    real(wp) :: sigma, gauss1, gauss2
# 727 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 727 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    ! # 208
# 727 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    real(wp) :: ei, d, fsm, alpha_air, alpha_sf6
# 727 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 727 "/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 (x_boundary%beg <= x_cc(i) .and. x_boundary%end >= x_cc(i) .and. y_boundary%beg <= y_cc(j) &
                    & .and. y_boundary%end >= y_cc(j) .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
# 760 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    case (200)  ! Two-fluid cubic interface
# 760 "/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
# 760 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            ! Volume Fractions
# 760 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%adv%beg)%sf(i, j, 0) = eps
# 760 "/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
# 760 "/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
# 760 "/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
# 760 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%E)%sf(i, j, 0) = 1000._wp
# 760 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        end if
# 760 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    case (202)  ! Gresho vortex (Gouasmi et al 2022 JCP)
# 760 "/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
# 760 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        rmax = 0.2_wp
# 760 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 760 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        gam = 1._wp + 1._wp/fluid_pp(1)%gamma
# 760 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        umax = 2*pi*rmax*patch_icpp(patch_id)%vel(2)
# 760 "/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)
# 760 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 760 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        if (r < rmax) then
# 760 "/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
# 760 "/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
# 760 "/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)
# 760 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        else if (r < 2*rmax) then
# 760 "/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)
# 760 "/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)
# 760 "/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)))
# 760 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        else
# 760 "/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
# 760 "/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
# 760 "/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))
# 760 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        end if
# 760 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    case (203)  ! Gresho vortex (Gouasmi et al 2022 JCP) with density correction
# 760 "/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
# 760 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        rmax = 0.2_wp
# 760 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 760 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        gam = 1._wp + 1._wp/fluid_pp(1)%gamma
# 760 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        umax = 2*pi*rmax*patch_icpp(patch_id)%vel(2)
# 760 "/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)
# 760 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 760 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        if (r < rmax) then
# 760 "/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
# 760 "/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
# 760 "/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)
# 760 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        else if (r < 2*rmax) then
# 760 "/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)
# 760 "/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)
# 760 "/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)))
# 760 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        else
# 760 "/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
# 760 "/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
# 760 "/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))
# 760 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        end if
# 760 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 760 "/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)
# 760 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    case (204)  ! Rayleigh-Taylor instability
# 760 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        rhoh = 3._wp
# 760 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        rhol = 1._wp
# 760 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        pref = 1.e5_wp
# 760 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        pint = pref
# 760 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        h = 0.7_wp
# 760 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        lam = 0.2_wp
# 760 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        wl = 2._wp*pi/lam
# 760 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        amp = 0.05_wp/wl
# 760 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 760 "/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
# 760 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 760 "/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))
# 760 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 760 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        if (alph < eps) alph = eps
# 760 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        if (alph > 1._wp - eps) alph = 1._wp - eps
# 760 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 760 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        if (y_cc(j) > inth) then
# 760 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%adv%beg)%sf(i, j, 0) = alph
# 760 "/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
# 760 "/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
# 760 "/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
# 760 "/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))
# 760 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        else
# 760 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%adv%beg)%sf(i, j, 0) = alph
# 760 "/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
# 760 "/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
# 760 "/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
# 760 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            pint = pref + rhoh*9.81_wp*(1.2_wp - inth)
# 760 "/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))
# 760 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        end if
# 760 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    case (205)  ! 2D lung wave interaction problem
# 760 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        h = 0.0_wp  ! non dim origin y
# 760 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        lam = 1.0_wp  ! non dim lambda
# 760 "/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
# 760 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 760 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        inth = amp*sin(2*pi*x_cc(i)/lam - pi/2) + h
# 760 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 760 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        if (y_cc(j) > inth) then
# 760 "/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)
# 760 "/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)
# 760 "/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
# 760 "/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)
# 760 "/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)
# 760 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        end if
# 760 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    case (206)  ! 2D lung wave interaction problem - horizontal domain
# 760 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        h = 0.0_wp  ! non dim origin y
# 760 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        lam = 1.0_wp  ! non dim lambda
# 760 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        amp = patch_icpp(patch_id)%a(2)
# 760 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 760 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        intl = amp*sin(2*pi*y_cc(j)/lam - pi/2) + h
# 760 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 760 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        if (x_cc(i) > intl) then  ! this is the liquid
# 760 "/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)
# 760 "/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)
# 760 "/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
# 760 "/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)
# 760 "/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)
# 760 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        end if
# 760 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    case (207)  ! Kelvin Helmholtz Instability
# 760 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        sigma = 0.05_wp/sqrt(2.0_wp)
# 760 "/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))
# 760 "/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))
# 760 "/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)
# 760 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    case (208)  ! Richtmeyer Meshkov Instability
# 760 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        lam = 1.0_wp
# 760 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        eps = 1.0e-6_wp
# 760 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ei = 5.0_wp
# 760 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! Smoothening function to smooth out sharp discontinuity in the interface
# 760 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        if (x_cc(i) <= 0.7_wp*lam) then
# 760 "/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)))
# 760 "/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))))
# 760 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            alpha_air = eps + (1.0_wp - 2.0_wp*eps)*fsm
# 760 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            alpha_sf6 = 1.0_wp - alpha_air
# 760 "/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
# 760 "/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
# 760 "/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
# 760 "/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
# 760 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        end if
# 760 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    case (250)  ! MHD Orszag-Tang vortex
# 760 "/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),
# 760 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! sin(4*pi*x)/sqrt(4*pi), 0)
# 760 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 760 "/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))
# 760 "/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))
# 760 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 760 "/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)
# 760 "/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)
# 760 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    case (251)  ! RMHD Cylindrical Blast Wave [Mignone, 2006: Section 4.3.1]
# 760 "/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
# 760 "/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
# 760 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%E)%sf(i, j, 0) = 1.0
# 760 "/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
# 760 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            ! Linear interpolation between r=0.08 and r=1.0
# 760 "/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)
# 760 "/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)
# 760 "/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)
# 760 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        else
# 760 "/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
# 760 "/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
# 760 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        end if
# 760 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 760 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! case 252 is for the 2D MHD Rotor problem
# 760 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    case (252)  ! 2D MHD Rotor Problem
# 760 "/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.
# 760 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        !
# 760 "/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
# 760 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! velocity w=20, giving v_tan=2 at r=0.1
# 760 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 760 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! Calculate distance squared from the center
# 760 "/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
# 760 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 760 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! inner radius of 0.1
# 760 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        if (r_sq <= 0.1**2) then
# 760 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            ! -- Inside the rotor -- Set density uniformly to 10
# 760 "/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
# 760 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 760 "/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)
# 760 "/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)
# 760 "/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)
# 760 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 760 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            ! taper width of 0.015
# 760 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        else if (r_sq <= 0.115**2) then
# 760 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            ! linearly smooth the function between r = 0.1 and 0.115
# 760 "/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)
# 760 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 760 "/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)
# 760 "/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)
# 760 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        end if
# 760 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    case (253)  ! MHD Smooth Magnetic Vortex
# 760 "/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.
# 760 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! Fernandez, A. Christophe, N.C. Nguyen, J. Peraire
# 760 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 760 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! velocity
# 760 "/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))
# 760 "/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))
# 760 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 760 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! magnetic field
# 760 "/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)
# 760 "/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)
# 760 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 760 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! pressure
# 760 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        q_prim_vf(eqn_idx%E)%sf(i, j, &
# 760 "/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)
# 760 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    case (260)  ! Gaussian Divergence Pulse
# 760 "/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)
# 760 "/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
# 760 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! initialized to zero everywhere.
# 760 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 760 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        eps_mhd = patch_icpp(patch_id)%a(2)
# 760 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        sigma = patch_icpp(patch_id)%a(3)
# 760 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        c_mhd = eps_mhd*sigma*sqrt(pi)*0.5_wp
# 760 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 760 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! B-field
# 760 "/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)
# 760 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    case (261)  ! Blob
# 760 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        r0 = 1._wp/sqrt(8._wp)
# 760 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        r2 = x_cc(i)**2 + y_cc(j)**2
# 760 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        r = sqrt(r2)
# 760 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        alpha = r/r0
# 760 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        if (alpha < 1) then
# 760 "/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)
# 760 "/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)
# 760 "/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)
# 760 "/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
# 760 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        end if
# 760 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    case (262)  ! Tilted 2D MHD shock‐tube at α = arctan2 (≈63.4°)
# 760 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! rotate by \alpha = atan(2)
# 760 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        alpha = atan(2._wp)
# 760 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        cosa = cos(alpha)
# 760 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        sina = sin(alpha)
# 760 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! projection along shock normal
# 760 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        r = x_cc(i)*cosa + y_cc(j)*sina
# 760 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 760 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        if (r <= 0.5_wp) then
# 760 "/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)
# 760 "/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
# 760 "/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
# 760 "/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
# 760 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%E)%sf(i, j, 0) = 20._wp
# 760 "/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
# 760 "/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
# 760 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        else
# 760 "/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)
# 760 "/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
# 760 "/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
# 760 "/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
# 760 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%E)%sf(i, j, 0) = 1._wp
# 760 "/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
# 760 "/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
# 760 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        end if
# 760 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! v^z and B^z remain zero by default
# 760 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    case (270)  ! 2D extrusion of 1D profile from external data
# 760 "/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
# 760 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    if (.not. files_loaded) then
# 760 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        max_files = merge(sys_size, sys_size - 1, num_dims == 1)
# 760 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        do f = 1, max_files
# 760 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            write (file_num_str, '(I0)') f
# 760 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            filenames(f) = trim(init_dir) // "prim." // trim(file_num_str) // ".00." // zeros_default // ".dat"
# 760 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        end do
# 760 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 760 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! Common file reading setup
# 760 "/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)
# 760 "/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)))
# 760 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 760 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        select case (num_dims)
# 760 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        case (1, 2)  ! 1D and 2D cases are similar
# 760 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            ! Count lines
# 760 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            line_count = 0
# 760 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            do
# 760 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                read (unit2, *, iostat=ios2) dummy_x, dummy_y
# 760 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                if (ios2 /= 0) exit
# 760 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                line_count = line_count + 1
# 760 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            end do
# 760 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            close (unit2)
# 760 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 760 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            xrows = line_count
# 760 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            yrows = 1
# 760 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            index_x = 0
# 760 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            if (num_dims == 2) index_x = i
# 760 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#ifdef MFC_DEBUG
# 760 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    block
# 760 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        use iso_fortran_env, only: output_unit
# 760 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 760 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        print *, 'm_icpp_patches.fpp:760: ', '@:ALLOCATE(x_coords(xRows), stored_values(xRows, 1, sys_size))'
# 760 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 760 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        call flush (output_unit)
# 760 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    end block
# 760 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#endif
# 760 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    allocate (x_coords(xrows), stored_values(xrows, 1, sys_size))
# 760 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 760 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 760 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 760 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#if defined(MFC_OpenACC)
# 760 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
!$acc enter data create(x_coords, stored_values) 
# 760 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#elif defined(MFC_OpenMP)
# 760 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
!$omp target enter data map(always,alloc:x_coords, stored_values) 
# 760 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#endif
# 760 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 760 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            ! Read data from all files
# 760 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            do f = 1, max_files
# 760 "/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)
# 760 "/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)))
# 760 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 760 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                do iter = 1, xrows
# 760 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    read (unit, *, iostat=ios) x_coords(iter), stored_values(iter, 1, f)
# 760 "/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)))
# 760 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                end do
# 760 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                close (unit)
# 760 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            end do
# 760 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 760 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            ! Calculate offsets
# 760 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            domain_xstart = x_coords(1)
# 760 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            x_step = x_cc(1) - x_cc(0)
# 760 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            delta_x = merge(x_cc(0) - domain_xstart + x_step/2.0, x_cc(index_x) - domain_xstart + x_step/2.0, num_dims == 1)
# 760 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            global_offset_x = nint(abs(delta_x)/x_step)
# 760 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        case (3)  ! 3D case - determine grid structure
# 760 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            ! Find yRows by counting rows with same x
# 760 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            read (unit2, *, iostat=ios2) x0, y0, dummy_z
# 760 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            if (ios2 /= 0) call s_mpi_abort("Error reading first line")
# 760 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 760 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            yrows = 1
# 760 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            do
# 760 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                read (unit2, *, iostat=ios2) dummy_x, dummy_y, dummy_z
# 760 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                if (ios2 /= 0) exit
# 760 "/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
# 760 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    yrows = yrows + 1
# 760 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                else
# 760 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    exit
# 760 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                end if
# 760 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            end do
# 760 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            close (unit2)
# 760 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 760 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            ! Count total rows
# 760 "/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)
# 760 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            nrows = 0
# 760 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            do
# 760 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                read (unit2, *, iostat=ios2) dummy_x, dummy_y, dummy_z
# 760 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                if (ios2 /= 0) exit
# 760 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                nrows = nrows + 1
# 760 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            end do
# 760 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            close (unit2)
# 760 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 760 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            xrows = nrows/yrows
# 760 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#ifdef MFC_DEBUG
# 760 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    block
# 760 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        use iso_fortran_env, only: output_unit
# 760 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 760 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        print *, 'm_icpp_patches.fpp:760: ', '@:ALLOCATE(x_coords(nrows), y_coords(nrows), stored_values(xRows, yRows, sys_size))'
# 760 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 760 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        call flush (output_unit)
# 760 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    end block
# 760 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#endif
# 760 "/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))
# 760 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 760 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 760 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 760 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 760 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#if defined(MFC_OpenACC)
# 760 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
!$acc enter data create(x_coords, y_coords, stored_values) 
# 760 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#elif defined(MFC_OpenMP)
# 760 "/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) 
# 760 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#endif
# 760 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            index_x = i
# 760 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            index_y = j
# 760 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 760 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            ! Read all files
# 760 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            do f = 1, max_files
# 760 "/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)
# 760 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                if (ios /= 0) then
# 760 "/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)))
# 760 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    cycle
# 760 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                end if
# 760 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 760 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                iter = 0
# 760 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                do iix = 1, xrows
# 760 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    do iiy = 1, yrows
# 760 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                        iter = iter + 1
# 760 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                        if (f == 1) then
# 760 "/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)
# 760 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                        else
# 760 "/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)
# 760 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                        end if
# 760 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                        if (ios /= 0) call s_mpi_abort("Error reading data")
# 760 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    end do
# 760 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                end do
# 760 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                close (unit)
# 760 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            end do
# 760 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 760 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            ! Calculate offsets
# 760 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            x_step = x_cc(1) - x_cc(0)
# 760 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            y_step = y_cc(1) - y_cc(0)
# 760 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            delta_x = x_cc(index_x) - x_coords(1) + x_step/2.0_wp
# 760 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            delta_y = y_cc(index_y) - y_coords(1) + y_step/2.0_wp
# 760 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            global_offset_x = nint(abs(delta_x)/x_step)
# 760 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            global_offset_y = nint(abs(delta_y)/y_step)
# 760 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        end select
# 760 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 760 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        files_loaded = .true.
# 760 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    end if
# 760 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 760 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    ! Data assignment
# 760 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    select case (num_dims)
# 760 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    case (1)
# 760 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        idx = i + 1 + global_offset_x
# 760 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        do f = 1, sys_size
# 760 "/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)
# 760 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        end do
# 760 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    case (2)
# 760 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        idx = i + 1 + global_offset_x - index_x
# 760 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        do f = 1, sys_size - 1
# 760 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            jump = merge(1, 0, f >= eqn_idx%mom%end)
# 760 "/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)
# 760 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        end do
# 760 "/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
# 760 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    case (3)
# 760 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        idx = i + 1 + global_offset_x - index_x
# 760 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        idy = j + 1 + global_offset_y - index_y
# 760 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        do f = 1, sys_size - 1
# 760 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            jump = merge(1, 0, f >= eqn_idx%mom%end)
# 760 "/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)
# 760 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        end do
# 760 "/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
# 760 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    end select
# 760 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    case (280)  ! Isentropic vortex
# 760 "/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
# 760 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! geometry 2
# 760 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        if (patch_id == 1) then
# 760 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%E)%sf(i, j, &
# 760 "/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) &
# 760 "/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)
# 760 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%cont%beg + 0)%sf(i, j, &
# 760 "/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) &
# 760 "/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
# 760 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%mom%beg + 0)%sf(i, j, &
# 760 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                      & 0) = 0.0 + (y_cc(j) - patch_icpp(1)%y_centroid)*(5.0/(2.0*pi))*exp(1.0*(1.0 - (x_cc(i) - patch_icpp(1) &
# 760 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                      & %x_centroid)**2.0 - (y_cc(j) - patch_icpp(1)%y_centroid)**2.0))
# 760 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%mom%beg + 1)%sf(i, j, &
# 760 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                      & 0) = 0.0 - (x_cc(i) - patch_icpp(1)%x_centroid)*(5.0/(2.0*pi))*exp(1.0*(1.0 - (x_cc(i) - patch_icpp(1) &
# 760 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                      & %x_centroid)**2.0 - (y_cc(j) - patch_icpp(1)%y_centroid)**2.0))
# 760 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        end if
# 760 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    case (281)  ! Acoustic pulse
# 760 "/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
# 760 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! geometry 2
# 760 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        if (patch_id == 2) then
# 760 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%E)%sf(i, j, &
# 760 "/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))
# 760 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%cont%beg + 0)%sf(i, j, &
# 760 "/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))
# 760 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        end if
# 760 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    case (282)  ! Zero-circulation vortex
# 760 "/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
# 760 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! geometry 2
# 760 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        if (patch_id == 2) then
# 760 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%E)%sf(i, j, &
# 760 "/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))
# 760 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%cont%beg + 0)%sf(i, j, &
# 760 "/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))
# 760 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%mom%beg + 0)%sf(i, j, &
# 760 "/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)))
# 760 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%mom%beg + 1)%sf(i, j, &
# 760 "/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)))
# 760 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        end if
# 760 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    case (291)  ! Isothermal Flat Plate
# 760 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        t_inf = 1125.0_wp
# 760 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        t_wall = 600.0_wp
# 760 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        p_atm = 101325.0_wp
# 760 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 760 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! Boundary/Shear Layer thicknesses
# 760 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        delta_th = 0.0003_wp  ! Thermal BL thickness
# 760 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        delta_shear = 8e-3_wp  ! Velocity BL thickness
# 760 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 760 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        u_max = 50.0_wp  ! Freestream Velocity (m/s)
# 760 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 760 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        mw_n2 = 28.0134e-3_wp
# 760 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        mw_o2 = 31.999e-3_wp
# 760 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        y_n2 = 0.767_wp
# 760 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        y_o2 = 0.233_wp
# 760 "/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))
# 760 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        bottom_blend_u = tanh(y_cc(j)/delta_shear)
# 760 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        bottom_blend_t = tanh(y_cc(j)/delta_th)
# 760 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        u_mean = u_max*bottom_blend_u
# 760 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        t_loc = t_wall + (t_inf - t_wall)*bottom_blend_t
# 760 "/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)
# 760 "/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
# 760 "/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
# 760 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        q_prim_vf(eqn_idx%E)%sf(i, j, 0) = p_atm
# 760 "/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
# 760 "/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
# 760 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    case default
# 760 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        if (proc_rank == 0) then
# 760 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            call s_int_to_str(patch_id, istr)
# 760 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            call s_mpi_abort("Invalid hcid specified for patch " // trim(istr))
# 760 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        end if
# 760 "/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
# 775 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#ifdef MFC_DEBUG
# 775 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    block
# 775 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        use iso_fortran_env, only: output_unit
# 775 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 775 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        print *, 'm_icpp_patches.fpp:775: ', '@:DEALLOCATE(stored_values)'
# 775 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 775 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        call flush (output_unit)
# 775 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    end block
# 775 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#endif
# 775 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 775 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#if defined(MFC_OpenACC)
# 775 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
!$acc exit data delete(stored_values) 
# 775 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#elif defined(MFC_OpenMP)
# 775 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
!$omp target exit data map(release:stored_values) 
# 775 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#endif
# 775 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    deallocate (stored_values)
# 775 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#ifdef MFC_DEBUG
# 775 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    block
# 775 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        use iso_fortran_env, only: output_unit
# 775 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 775 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        print *, 'm_icpp_patches.fpp:775: ', '@:DEALLOCATE(x_coords)'
# 775 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 775 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        call flush (output_unit)
# 775 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    end block
# 775 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#endif
# 775 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 775 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#if defined(MFC_OpenACC)
# 775 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
!$acc exit data delete(x_coords) 
# 775 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#elif defined(MFC_OpenMP)
# 775 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
!$omp target exit data map(release:x_coords) 
# 775 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#endif
# 775 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    deallocate (x_coords)
# 775 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    end if
# 775 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 775 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    if (allocated(y_coords)) then
# 775 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#ifdef MFC_DEBUG
# 775 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    block
# 775 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        use iso_fortran_env, only: output_unit
# 775 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 775 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        print *, 'm_icpp_patches.fpp:775: ', '@:DEALLOCATE(y_coords)'
# 775 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 775 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        call flush (output_unit)
# 775 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    end block
# 775 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#endif
# 775 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 775 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#if defined(MFC_OpenACC)
# 775 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
!$acc exit data delete(y_coords) 
# 775 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#elif defined(MFC_OpenMP)
# 775 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
!$omp target exit data map(release:y_coords) 
# 775 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#endif
# 775 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    deallocate (y_coords)
# 775 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    end if
 
    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
# 799 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    integer                                 :: f, iter, ios, ios2, unit, unit2, idx, idy, index_x, index_y, jump, line_count, ycount
# 799 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    real(wp)                                :: x_len, x_step, y_len, y_step
# 799 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    real(wp)                                :: dummy_x, dummy_y, dummy_z, x0, y0
# 799 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    integer                                 :: global_offset_x, global_offset_y       !< MPI subdomain offset
# 799 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    real(wp)                                :: delta_x, delta_y
# 799 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    character(len=100), dimension(sys_size) :: fileNames                              !< Arrays to store all data from files
# 799 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    character(len=200)                      :: errmsg
# 799 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    real(wp), allocatable                   :: stored_values(:,:,:)
# 799 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    real(wp), allocatable                   :: x_coords(:), y_coords(:)
# 799 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    logical                                 :: files_loaded = .false.
# 799 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    real(wp)                                :: domain_xstart, domain_xend, domain_ystart, domain_yend
# 799 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    character(len=*), parameter             :: init_dir = "/home/MFC/FilesDirectory"  !< For example /home/MFC/examples/1D_Shock/D/
# 799 "/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
# 799 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    character(len=20)                       :: zeros_part                             !< For the trailing zeros part
# 799 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    character(len=6), parameter             :: zeros_default = "000000"               !< Default zeros (can be changed)
    ! Place any declaration of intermediate variables here
# 800 "/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)
# 825 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    case (150)  ! 1D Smooth Alfven Case for MHD
# 825 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! velocity
# 825 "/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))
# 825 "/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))
# 825 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 825 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! magnetic field
# 825 "/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))
# 825 "/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))
# 825 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    case (170)  ! 1D profile from external data (e.g. Cantera, SDtoolbox)
# 825 "/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,
# 825 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! SDtoolbox)
# 825 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    if (.not. files_loaded) then
# 825 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        max_files = merge(sys_size, sys_size - 1, num_dims == 1)
# 825 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        do f = 1, max_files
# 825 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            write (file_num_str, '(I0)') f
# 825 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            filenames(f) = trim(init_dir) // "prim." // trim(file_num_str) // ".00." // zeros_default // ".dat"
# 825 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        end do
# 825 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 825 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! Common file reading setup
# 825 "/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)
# 825 "/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)))
# 825 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 825 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        select case (num_dims)
# 825 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        case (1, 2)  ! 1D and 2D cases are similar
# 825 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            ! Count lines
# 825 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            line_count = 0
# 825 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            do
# 825 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                read (unit2, *, iostat=ios2) dummy_x, dummy_y
# 825 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                if (ios2 /= 0) exit
# 825 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                line_count = line_count + 1
# 825 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            end do
# 825 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            close (unit2)
# 825 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 825 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            xrows = line_count
# 825 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            yrows = 1
# 825 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            index_x = 0
# 825 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            if (num_dims == 2) index_x = i
# 825 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#ifdef MFC_DEBUG
# 825 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    block
# 825 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        use iso_fortran_env, only: output_unit
# 825 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 825 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        print *, 'm_icpp_patches.fpp:825: ', '@:ALLOCATE(x_coords(xRows), stored_values(xRows, 1, sys_size))'
# 825 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 825 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        call flush (output_unit)
# 825 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    end block
# 825 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#endif
# 825 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    allocate (x_coords(xrows), stored_values(xrows, 1, sys_size))
# 825 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 825 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 825 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 825 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#if defined(MFC_OpenACC)
# 825 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
!$acc enter data create(x_coords, stored_values) 
# 825 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#elif defined(MFC_OpenMP)
# 825 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
!$omp target enter data map(always,alloc:x_coords, stored_values) 
# 825 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#endif
# 825 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 825 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            ! Read data from all files
# 825 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            do f = 1, max_files
# 825 "/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)
# 825 "/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)))
# 825 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 825 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                do iter = 1, xrows
# 825 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    read (unit, *, iostat=ios) x_coords(iter), stored_values(iter, 1, f)
# 825 "/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)))
# 825 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                end do
# 825 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                close (unit)
# 825 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            end do
# 825 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 825 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            ! Calculate offsets
# 825 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            domain_xstart = x_coords(1)
# 825 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            x_step = x_cc(1) - x_cc(0)
# 825 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            delta_x = merge(x_cc(0) - domain_xstart + x_step/2.0, x_cc(index_x) - domain_xstart + x_step/2.0, num_dims == 1)
# 825 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            global_offset_x = nint(abs(delta_x)/x_step)
# 825 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        case (3)  ! 3D case - determine grid structure
# 825 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            ! Find yRows by counting rows with same x
# 825 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            read (unit2, *, iostat=ios2) x0, y0, dummy_z
# 825 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            if (ios2 /= 0) call s_mpi_abort("Error reading first line")
# 825 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 825 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            yrows = 1
# 825 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            do
# 825 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                read (unit2, *, iostat=ios2) dummy_x, dummy_y, dummy_z
# 825 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                if (ios2 /= 0) exit
# 825 "/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
# 825 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    yrows = yrows + 1
# 825 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                else
# 825 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    exit
# 825 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                end if
# 825 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            end do
# 825 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            close (unit2)
# 825 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 825 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            ! Count total rows
# 825 "/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)
# 825 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            nrows = 0
# 825 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            do
# 825 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                read (unit2, *, iostat=ios2) dummy_x, dummy_y, dummy_z
# 825 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                if (ios2 /= 0) exit
# 825 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                nrows = nrows + 1
# 825 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            end do
# 825 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            close (unit2)
# 825 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 825 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            xrows = nrows/yrows
# 825 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#ifdef MFC_DEBUG
# 825 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    block
# 825 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        use iso_fortran_env, only: output_unit
# 825 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 825 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        print *, 'm_icpp_patches.fpp:825: ', '@:ALLOCATE(x_coords(nrows), y_coords(nrows), stored_values(xRows, yRows, sys_size))'
# 825 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 825 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        call flush (output_unit)
# 825 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    end block
# 825 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#endif
# 825 "/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))
# 825 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 825 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 825 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 825 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 825 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#if defined(MFC_OpenACC)
# 825 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
!$acc enter data create(x_coords, y_coords, stored_values) 
# 825 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#elif defined(MFC_OpenMP)
# 825 "/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) 
# 825 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#endif
# 825 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            index_x = i
# 825 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            index_y = j
# 825 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 825 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            ! Read all files
# 825 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            do f = 1, max_files
# 825 "/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)
# 825 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                if (ios /= 0) then
# 825 "/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)))
# 825 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    cycle
# 825 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                end if
# 825 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 825 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                iter = 0
# 825 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                do iix = 1, xrows
# 825 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    do iiy = 1, yrows
# 825 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                        iter = iter + 1
# 825 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                        if (f == 1) then
# 825 "/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)
# 825 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                        else
# 825 "/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)
# 825 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                        end if
# 825 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                        if (ios /= 0) call s_mpi_abort("Error reading data")
# 825 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    end do
# 825 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                end do
# 825 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                close (unit)
# 825 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            end do
# 825 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 825 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            ! Calculate offsets
# 825 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            x_step = x_cc(1) - x_cc(0)
# 825 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            y_step = y_cc(1) - y_cc(0)
# 825 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            delta_x = x_cc(index_x) - x_coords(1) + x_step/2.0_wp
# 825 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            delta_y = y_cc(index_y) - y_coords(1) + y_step/2.0_wp
# 825 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            global_offset_x = nint(abs(delta_x)/x_step)
# 825 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            global_offset_y = nint(abs(delta_y)/y_step)
# 825 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        end select
# 825 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 825 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        files_loaded = .true.
# 825 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    end if
# 825 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 825 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    ! Data assignment
# 825 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    select case (num_dims)
# 825 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    case (1)
# 825 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        idx = i + 1 + global_offset_x
# 825 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        do f = 1, sys_size
# 825 "/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)
# 825 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        end do
# 825 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    case (2)
# 825 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        idx = i + 1 + global_offset_x - index_x
# 825 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        do f = 1, sys_size - 1
# 825 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            jump = merge(1, 0, f >= eqn_idx%mom%end)
# 825 "/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)
# 825 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        end do
# 825 "/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
# 825 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    case (3)
# 825 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        idx = i + 1 + global_offset_x - index_x
# 825 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        idy = j + 1 + global_offset_y - index_y
# 825 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        do f = 1, sys_size - 1
# 825 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            jump = merge(1, 0, f >= eqn_idx%mom%end)
# 825 "/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)
# 825 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        end do
# 825 "/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
# 825 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    end select
# 825 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    case (180)  ! Shu-Osher problem
# 825 "/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 +
# 825 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! 0.2*sin(5*x)"
# 825 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        if (patch_id == 2) then
# 825 "/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))
# 825 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        end if
# 825 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    case (181)  ! Titarev-Torro problem
# 825 "/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)":
# 825 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! "1 + 0.1*sin(20*x*pi)"
# 825 "/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)
# 825 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    case (182)  ! Multi-component diffusion
# 825 "/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)
# 825 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        x_mid_diffu = 0.05_wp/2.0_wp
# 825 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        width_sq = (2.5_wp*10.0_wp**(-3.0_wp))**2
# 825 "/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)
# 825 "/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
# 825 "/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
# 825 "/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
# 825 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 825 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        y1 = (0.195_wp - 0.142_wp)*profile_shape + 0.142_wp
# 825 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        y2 = (0.0_wp - 0.1_wp)*profile_shape + 0.1_wp
# 825 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        y3 = (0.214_wp - 0.0_wp)*profile_shape + 0.0_wp
# 825 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        y4 = (0.591_wp - 0.758_wp)*profile_shape + 0.758_wp
# 825 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 825 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        q_prim_vf(eqn_idx%species%beg)%sf(i, 0, 0) = y1
# 825 "/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
# 825 "/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
# 825 "/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
# 825 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 825 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        temp = (320.0_wp - 1350.0_wp)*profile_shape + 1350.0_wp
# 825 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 825 "/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
# 825 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 825 "/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)
# 825 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 825 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    case(191)  ! 1D Dual Isothermal case
# 825 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 825 "/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
# 825 "/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
# 825 "/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
# 825 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 825 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        if (x_cc(i) <= 0.025_wp) then
# 825 "/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)
# 825 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        else
# 825 "/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)
# 825 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        end if
# 825 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 825 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        molar_mass_inv = 1.0_wp/2.01588_wp
# 825 "/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)
# 825 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    case default
# 825 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        call s_int_to_str(patch_id, istr)
# 825 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        call s_mpi_abort("Invalid hcid specified for patch " // trim(istr))
# 825 "/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
# 829 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#ifdef MFC_DEBUG
# 829 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    block
# 829 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        use iso_fortran_env, only: output_unit
# 829 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 829 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        print *, 'm_icpp_patches.fpp:829: ', '@:DEALLOCATE(stored_values)'
# 829 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 829 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        call flush (output_unit)
# 829 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    end block
# 829 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#endif
# 829 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 829 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#if defined(MFC_OpenACC)
# 829 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
!$acc exit data delete(stored_values) 
# 829 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#elif defined(MFC_OpenMP)
# 829 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
!$omp target exit data map(release:stored_values) 
# 829 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#endif
# 829 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    deallocate (stored_values)
# 829 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#ifdef MFC_DEBUG
# 829 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    block
# 829 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        use iso_fortran_env, only: output_unit
# 829 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 829 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        print *, 'm_icpp_patches.fpp:829: ', '@:DEALLOCATE(x_coords)'
# 829 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 829 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        call flush (output_unit)
# 829 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    end block
# 829 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#endif
# 829 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 829 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#if defined(MFC_OpenACC)
# 829 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
!$acc exit data delete(x_coords) 
# 829 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#elif defined(MFC_OpenMP)
# 829 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
!$omp target exit data map(release:x_coords) 
# 829 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#endif
# 829 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    deallocate (x_coords)
# 829 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    end if
# 829 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 829 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    if (allocated(y_coords)) then
# 829 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#ifdef MFC_DEBUG
# 829 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    block
# 829 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        use iso_fortran_env, only: output_unit
# 829 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 829 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        print *, 'm_icpp_patches.fpp:829: ', '@:DEALLOCATE(y_coords)'
# 829 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 829 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        call flush (output_unit)
# 829 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    end block
# 829 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#endif
# 829 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 829 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#if defined(MFC_OpenACC)
# 829 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
!$acc exit data delete(y_coords) 
# 829 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#elif defined(MFC_OpenMP)
# 829 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
!$omp target exit data map(release:y_coords) 
# 829 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#endif
# 829 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    deallocate (y_coords)
# 829 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    end if
 
    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
# 971 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    integer                                 :: f, iter, ios, ios2, unit, unit2, idx, idy, index_x, index_y, jump, line_count, ycount
# 971 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    real(wp)                                :: x_len, x_step, y_len, y_step
# 971 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    real(wp)                                :: dummy_x, dummy_y, dummy_z, x0, y0
# 971 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    integer                                 :: global_offset_x, global_offset_y       !< MPI subdomain offset
# 971 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    real(wp)                                :: delta_x, delta_y
# 971 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    character(len=100), dimension(sys_size) :: fileNames                              !< Arrays to store all data from files
# 971 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    character(len=200)                      :: errmsg
# 971 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    real(wp), allocatable                   :: stored_values(:,:,:)
# 971 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    real(wp), allocatable                   :: x_coords(:), y_coords(:)
# 971 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    logical                                 :: files_loaded = .false.
# 971 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    real(wp)                                :: domain_xstart, domain_xend, domain_ystart, domain_yend
# 971 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    character(len=*), parameter             :: init_dir = "/home/MFC/FilesDirectory"  !< For example /home/MFC/examples/1D_Shock/D/
# 971 "/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
# 971 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    character(len=20)                       :: zeros_part                             !< For the trailing zeros part
# 971 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    character(len=6), parameter             :: zeros_default = "000000"               !< Default zeros (can be changed)
    ! Place any declaration of intermediate variables here
# 972 "/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
# 972 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    real(wp) :: eps
# 972 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 972 "/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
# 972 "/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
# 972 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    ! Variables to describe initial condition of jet
# 972 "/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
# 972 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    real(wp)                     :: rcut, xcut  !< Intermediate variables for creating smooth initial condition
# 972 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    real(wp), dimension(0:n,0:p) :: rcut_arr
# 972 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    integer                      :: l, q, s     !< Iterators for reading input files
# 972 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    integer                      :: start, end  !< Ints to keep track of position in file
# 972 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    character(len=1000)          :: line        !< String to store line in file
# 972 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    character(len=25)            :: value       !< String to store value in line
# 972 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    integer                      :: NJet        !< Number of jets
# 972 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 972 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    eps = 1e-9_wp
# 972 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 972 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    if (patch_icpp(patch_id)%hcid == 303) then
# 972 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        eps_smooth = 3._wp
# 972 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        open (unit=10, file="njet.txt", status="old", action="read")
# 972 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        read (10, *) njet
# 972 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        close (10)
# 972 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 972 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        allocate (y_th_arr(0:njet - 1))
# 972 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        allocate (z_th_arr(0:njet - 1))
# 972 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        allocate (r_th_arr(0:njet - 1))
# 972 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 972 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        open (unit=10, file="jets.csv", status="old", action="read")
# 972 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        do q = 0, njet - 1
# 972 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            read (10, '(A)') line  ! Read a full line as a string
# 972 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            start = 1
# 972 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 972 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            do l = 0, 2
# 972 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                end = index(line(start:), ',')  ! Find the next comma
# 972 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                if (end == 0) then
# 972 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    value = trim(adjustl(line(start:)))  ! Last value in the line
# 972 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                else
# 972 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    value = trim(adjustl(line(start:start + end - 2)))  ! Extract substring
# 972 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    start = start + end  ! Move to next value
# 972 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                end if
# 972 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                if (l == 0) then
# 972 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    read (value, *) y_th_arr(q)  ! Convert string to numeric value
# 972 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                else if (l == 1) then
# 972 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    read (value, *) z_th_arr(q)
# 972 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                else
# 972 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    read (value, *) r_th_arr(q)
# 972 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                end if
# 972 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            end do
# 972 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        end do
# 972 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        close (10)
# 972 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 972 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        do q = 0, p
# 972 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            do l = 0, n
# 972 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                rcut = 0._wp
# 972 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                do s = 0, njet - 1
# 972 "/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)
# 972 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    rcut = rcut + f_cut_on(r - r_th_arr(s), eps_smooth)
# 972 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                end do
# 972 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                rcut_arr(l, q) = rcut
# 972 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            end do
# 972 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        end do
# 972 "/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 ((((x_cc(i) - x_centroid)**2 + (cart_y - y_centroid)**2 + (cart_z - z_centroid)**2 <= radius**2) &
                        & .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)
# 1011 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    case (300)  ! Rayleigh-Taylor instability
# 1011 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        rhoh = 3._wp
# 1011 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        rhol = 1._wp
# 1011 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        pref = 1.e5_wp
# 1011 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        pint = pref
# 1011 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        h = 0.7_wp
# 1011 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        lam = 0.2_wp
# 1011 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        wl = 2._wp*pi/lam
# 1011 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        amp = 0.025_wp/wl
# 1011 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1011 "/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
# 1011 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1011 "/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))
# 1011 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1011 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        if (alph < eps) alph = eps
# 1011 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        if (alph > 1._wp - eps) alph = 1._wp - eps
# 1011 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1011 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        if (y_cc(j) > inth) then
# 1011 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%adv%beg)%sf(i, j, k) = alph
# 1011 "/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
# 1011 "/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
# 1011 "/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
# 1011 "/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))
# 1011 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        else
# 1011 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%adv%beg)%sf(i, j, k) = alph
# 1011 "/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
# 1011 "/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
# 1011 "/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
# 1011 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            pint = pref + rhoh*9.81_wp*(1.2_wp - inth)
# 1011 "/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))
# 1011 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        end if
# 1011 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    case (301)  ! (3D lung geometry in X direction, |sin(*)+sin(*)|)
# 1011 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        h = 0.0_wp
# 1011 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        lam = 1.0_wp
# 1011 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        amp = patch_icpp(patch_id)%a(2)
# 1011 "/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)
# 1011 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        if (x_cc(i) > inth) then
# 1011 "/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)
# 1011 "/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)
# 1011 "/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
# 1011 "/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)
# 1011 "/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)
# 1011 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        end if
# 1011 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    case (302)  ! 3D Jet with IGR
# 1011 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ux_th = 10*sqrt(1.4*0.4)
# 1011 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ux_am = 0.0*sqrt(1.4)
# 1011 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        p_th = 2.0_wp
# 1011 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        p_am = 1.0_wp
# 1011 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        rho_th = 1._wp
# 1011 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        rho_am = 1._wp
# 1011 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        y_th = 0.0_wp
# 1011 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        z_th = 0.0_wp
# 1011 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        r_th = 1._wp
# 1011 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        eps_smooth = 1._wp
# 1011 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        eps = 1e-6
# 1011 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1011 "/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)
# 1011 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        rcut = f_cut_on(r - r_th, eps_smooth)
# 1011 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        xcut = f_cut_on(x_cc(i), eps_smooth)
# 1011 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1011 "/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
# 1011 "/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
# 1011 "/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
# 1011 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1011 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        if (num_fluids == 1) then
# 1011 "/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
# 1011 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        else
# 1011 "/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
# 1011 "/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)
# 1011 "/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))
# 1011 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        end if
# 1011 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1011 "/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
# 1011 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    case (303)  ! 3D Multijet
# 1011 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        eps_smooth = 3.0_wp
# 1011 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ux_th = 10*sqrt(1.4*0.4)
# 1011 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ux_am = 2.5*sqrt(1.4*0.4)
# 1011 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        p_th = 0.8_wp
# 1011 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        p_am = 0.4_wp
# 1011 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        rho_th = 1._wp
# 1011 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        rho_am = 1._wp
# 1011 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        eps = 1e-6
# 1011 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1011 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        rcut = rcut_arr(j, k)
# 1011 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        xcut = f_cut_on(x_cc(i), eps_smooth)
# 1011 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1011 "/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
# 1011 "/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
# 1011 "/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
# 1011 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1011 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        if (num_fluids == 1) then
# 1011 "/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
# 1011 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        else
# 1011 "/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
# 1011 "/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)
# 1011 "/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))
# 1011 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        end if
# 1011 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1011 "/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
# 1011 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    case (370)  ! 3D extrusion of 2D profile from external data
# 1011 "/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
# 1011 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    if (.not. files_loaded) then
# 1011 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        max_files = merge(sys_size, sys_size - 1, num_dims == 1)
# 1011 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        do f = 1, max_files
# 1011 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            write (file_num_str, '(I0)') f
# 1011 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            filenames(f) = trim(init_dir) // "prim." // trim(file_num_str) // ".00." // zeros_default // ".dat"
# 1011 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        end do
# 1011 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1011 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! Common file reading setup
# 1011 "/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)
# 1011 "/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)))
# 1011 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1011 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        select case (num_dims)
# 1011 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        case (1, 2)  ! 1D and 2D cases are similar
# 1011 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            ! Count lines
# 1011 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            line_count = 0
# 1011 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            do
# 1011 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                read (unit2, *, iostat=ios2) dummy_x, dummy_y
# 1011 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                if (ios2 /= 0) exit
# 1011 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                line_count = line_count + 1
# 1011 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            end do
# 1011 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            close (unit2)
# 1011 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1011 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            xrows = line_count
# 1011 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            yrows = 1
# 1011 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            index_x = 0
# 1011 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            if (num_dims == 2) index_x = i
# 1011 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#ifdef MFC_DEBUG
# 1011 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    block
# 1011 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        use iso_fortran_env, only: output_unit
# 1011 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1011 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        print *, 'm_icpp_patches.fpp:1011: ', '@:ALLOCATE(x_coords(xRows), stored_values(xRows, 1, sys_size))'
# 1011 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1011 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        call flush (output_unit)
# 1011 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    end block
# 1011 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#endif
# 1011 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    allocate (x_coords(xrows), stored_values(xrows, 1, sys_size))
# 1011 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1011 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1011 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1011 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#if defined(MFC_OpenACC)
# 1011 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
!$acc enter data create(x_coords, stored_values) 
# 1011 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#elif defined(MFC_OpenMP)
# 1011 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
!$omp target enter data map(always,alloc:x_coords, stored_values) 
# 1011 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#endif
# 1011 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1011 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            ! Read data from all files
# 1011 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            do f = 1, max_files
# 1011 "/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)
# 1011 "/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)))
# 1011 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1011 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                do iter = 1, xrows
# 1011 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    read (unit, *, iostat=ios) x_coords(iter), stored_values(iter, 1, f)
# 1011 "/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)))
# 1011 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                end do
# 1011 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                close (unit)
# 1011 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            end do
# 1011 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1011 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            ! Calculate offsets
# 1011 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            domain_xstart = x_coords(1)
# 1011 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            x_step = x_cc(1) - x_cc(0)
# 1011 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            delta_x = merge(x_cc(0) - domain_xstart + x_step/2.0, x_cc(index_x) - domain_xstart + x_step/2.0, num_dims == 1)
# 1011 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            global_offset_x = nint(abs(delta_x)/x_step)
# 1011 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        case (3)  ! 3D case - determine grid structure
# 1011 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            ! Find yRows by counting rows with same x
# 1011 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            read (unit2, *, iostat=ios2) x0, y0, dummy_z
# 1011 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            if (ios2 /= 0) call s_mpi_abort("Error reading first line")
# 1011 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1011 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            yrows = 1
# 1011 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            do
# 1011 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                read (unit2, *, iostat=ios2) dummy_x, dummy_y, dummy_z
# 1011 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                if (ios2 /= 0) exit
# 1011 "/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
# 1011 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    yrows = yrows + 1
# 1011 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                else
# 1011 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    exit
# 1011 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                end if
# 1011 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            end do
# 1011 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            close (unit2)
# 1011 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1011 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            ! Count total rows
# 1011 "/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)
# 1011 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            nrows = 0
# 1011 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            do
# 1011 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                read (unit2, *, iostat=ios2) dummy_x, dummy_y, dummy_z
# 1011 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                if (ios2 /= 0) exit
# 1011 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                nrows = nrows + 1
# 1011 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            end do
# 1011 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            close (unit2)
# 1011 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1011 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            xrows = nrows/yrows
# 1011 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#ifdef MFC_DEBUG
# 1011 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    block
# 1011 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        use iso_fortran_env, only: output_unit
# 1011 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1011 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        print *, 'm_icpp_patches.fpp:1011: ', '@:ALLOCATE(x_coords(nrows), y_coords(nrows), stored_values(xRows, yRows, sys_size))'
# 1011 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1011 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        call flush (output_unit)
# 1011 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    end block
# 1011 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#endif
# 1011 "/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))
# 1011 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1011 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1011 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1011 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1011 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#if defined(MFC_OpenACC)
# 1011 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
!$acc enter data create(x_coords, y_coords, stored_values) 
# 1011 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#elif defined(MFC_OpenMP)
# 1011 "/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) 
# 1011 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#endif
# 1011 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            index_x = i
# 1011 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            index_y = j
# 1011 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1011 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            ! Read all files
# 1011 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            do f = 1, max_files
# 1011 "/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)
# 1011 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                if (ios /= 0) then
# 1011 "/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)))
# 1011 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    cycle
# 1011 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                end if
# 1011 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1011 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                iter = 0
# 1011 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                do iix = 1, xrows
# 1011 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    do iiy = 1, yrows
# 1011 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                        iter = iter + 1
# 1011 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                        if (f == 1) then
# 1011 "/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)
# 1011 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                        else
# 1011 "/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)
# 1011 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                        end if
# 1011 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                        if (ios /= 0) call s_mpi_abort("Error reading data")
# 1011 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    end do
# 1011 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                end do
# 1011 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                close (unit)
# 1011 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            end do
# 1011 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1011 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            ! Calculate offsets
# 1011 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            x_step = x_cc(1) - x_cc(0)
# 1011 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            y_step = y_cc(1) - y_cc(0)
# 1011 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            delta_x = x_cc(index_x) - x_coords(1) + x_step/2.0_wp
# 1011 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            delta_y = y_cc(index_y) - y_coords(1) + y_step/2.0_wp
# 1011 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            global_offset_x = nint(abs(delta_x)/x_step)
# 1011 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            global_offset_y = nint(abs(delta_y)/y_step)
# 1011 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        end select
# 1011 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1011 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        files_loaded = .true.
# 1011 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    end if
# 1011 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1011 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    ! Data assignment
# 1011 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    select case (num_dims)
# 1011 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    case (1)
# 1011 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        idx = i + 1 + global_offset_x
# 1011 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        do f = 1, sys_size
# 1011 "/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)
# 1011 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        end do
# 1011 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    case (2)
# 1011 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        idx = i + 1 + global_offset_x - index_x
# 1011 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        do f = 1, sys_size - 1
# 1011 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            jump = merge(1, 0, f >= eqn_idx%mom%end)
# 1011 "/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)
# 1011 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        end do
# 1011 "/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
# 1011 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    case (3)
# 1011 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        idx = i + 1 + global_offset_x - index_x
# 1011 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        idy = j + 1 + global_offset_y - index_y
# 1011 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        do f = 1, sys_size - 1
# 1011 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            jump = merge(1, 0, f >= eqn_idx%mom%end)
# 1011 "/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)
# 1011 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        end do
# 1011 "/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
# 1011 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    end select
# 1011 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    case (380)  ! Taylor-Green vortex
# 1011 "/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
# 1011 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! geometry 9
# 1011 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        mach = 0.1
# 1011 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        if (patch_id == 1) then
# 1011 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%E)%sf(i, j, &
# 1011 "/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)
# 1011 "/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)
# 1011 "/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)
# 1011 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        end if
# 1011 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    case default
# 1011 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        call s_int_to_str(patch_id, istr)
# 1011 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        call s_mpi_abort("Invalid hcid specified for patch " // trim(istr))
# 1011 "/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
# 1017 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#ifdef MFC_DEBUG
# 1017 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    block
# 1017 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        use iso_fortran_env, only: output_unit
# 1017 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1017 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        print *, 'm_icpp_patches.fpp:1017: ', '@:DEALLOCATE(stored_values)'
# 1017 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1017 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        call flush (output_unit)
# 1017 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    end block
# 1017 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#endif
# 1017 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1017 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#if defined(MFC_OpenACC)
# 1017 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
!$acc exit data delete(stored_values) 
# 1017 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#elif defined(MFC_OpenMP)
# 1017 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
!$omp target exit data map(release:stored_values) 
# 1017 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#endif
# 1017 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    deallocate (stored_values)
# 1017 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#ifdef MFC_DEBUG
# 1017 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    block
# 1017 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        use iso_fortran_env, only: output_unit
# 1017 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1017 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        print *, 'm_icpp_patches.fpp:1017: ', '@:DEALLOCATE(x_coords)'
# 1017 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1017 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        call flush (output_unit)
# 1017 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    end block
# 1017 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#endif
# 1017 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1017 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#if defined(MFC_OpenACC)
# 1017 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
!$acc exit data delete(x_coords) 
# 1017 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#elif defined(MFC_OpenMP)
# 1017 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
!$omp target exit data map(release:x_coords) 
# 1017 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#endif
# 1017 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    deallocate (x_coords)
# 1017 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    end if
# 1017 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1017 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    if (allocated(y_coords)) then
# 1017 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#ifdef MFC_DEBUG
# 1017 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    block
# 1017 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        use iso_fortran_env, only: output_unit
# 1017 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1017 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        print *, 'm_icpp_patches.fpp:1017: ', '@:DEALLOCATE(y_coords)'
# 1017 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1017 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        call flush (output_unit)
# 1017 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    end block
# 1017 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#endif
# 1017 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1017 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#if defined(MFC_OpenACC)
# 1017 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
!$acc exit data delete(y_coords) 
# 1017 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#elif defined(MFC_OpenMP)
# 1017 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
!$omp target exit data map(release:y_coords) 
# 1017 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#endif
# 1017 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    deallocate (y_coords)
# 1017 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    end if
 
    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
# 1037 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    integer                                 :: f, iter, ios, ios2, unit, unit2, idx, idy, index_x, index_y, jump, line_count, ycount
# 1037 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    real(wp)                                :: x_len, x_step, y_len, y_step
# 1037 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    real(wp)                                :: dummy_x, dummy_y, dummy_z, x0, y0
# 1037 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    integer                                 :: global_offset_x, global_offset_y       !< MPI subdomain offset
# 1037 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    real(wp)                                :: delta_x, delta_y
# 1037 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    character(len=100), dimension(sys_size) :: fileNames                              !< Arrays to store all data from files
# 1037 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    character(len=200)                      :: errmsg
# 1037 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    real(wp), allocatable                   :: stored_values(:,:,:)
# 1037 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    real(wp), allocatable                   :: x_coords(:), y_coords(:)
# 1037 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    logical                                 :: files_loaded = .false.
# 1037 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    real(wp)                                :: domain_xstart, domain_xend, domain_ystart, domain_yend
# 1037 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    character(len=*), parameter             :: init_dir = "/home/MFC/FilesDirectory"  !< For example /home/MFC/examples/1D_Shock/D/
# 1037 "/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
# 1037 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    character(len=20)                       :: zeros_part                             !< For the trailing zeros part
# 1037 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    character(len=6), parameter             :: zeros_default = "000000"               !< Default zeros (can be changed)
    ! Place any declaration of intermediate variables here
# 1038 "/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
# 1038 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    real(wp) :: eps
# 1038 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1038 "/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
# 1038 "/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
# 1038 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    ! Variables to describe initial condition of jet
# 1038 "/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
# 1038 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    real(wp)                     :: rcut, xcut  !< Intermediate variables for creating smooth initial condition
# 1038 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    real(wp), dimension(0:n,0:p) :: rcut_arr
# 1038 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    integer                      :: l, q, s     !< Iterators for reading input files
# 1038 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    integer                      :: start, end  !< Ints to keep track of position in file
# 1038 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    character(len=1000)          :: line        !< String to store line in file
# 1038 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    character(len=25)            :: value       !< String to store value in line
# 1038 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    integer                      :: NJet        !< Number of jets
# 1038 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1038 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    eps = 1e-9_wp
# 1038 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1038 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    if (patch_icpp(patch_id)%hcid == 303) then
# 1038 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        eps_smooth = 3._wp
# 1038 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        open (unit=10, file="njet.txt", status="old", action="read")
# 1038 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        read (10, *) njet
# 1038 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        close (10)
# 1038 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1038 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        allocate (y_th_arr(0:njet - 1))
# 1038 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        allocate (z_th_arr(0:njet - 1))
# 1038 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        allocate (r_th_arr(0:njet - 1))
# 1038 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1038 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        open (unit=10, file="jets.csv", status="old", action="read")
# 1038 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        do q = 0, njet - 1
# 1038 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            read (10, '(A)') line  ! Read a full line as a string
# 1038 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            start = 1
# 1038 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1038 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            do l = 0, 2
# 1038 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                end = index(line(start:), ',')  ! Find the next comma
# 1038 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                if (end == 0) then
# 1038 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    value = trim(adjustl(line(start:)))  ! Last value in the line
# 1038 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                else
# 1038 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    value = trim(adjustl(line(start:start + end - 2)))  ! Extract substring
# 1038 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    start = start + end  ! Move to next value
# 1038 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                end if
# 1038 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                if (l == 0) then
# 1038 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    read (value, *) y_th_arr(q)  ! Convert string to numeric value
# 1038 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                else if (l == 1) then
# 1038 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    read (value, *) z_th_arr(q)
# 1038 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                else
# 1038 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    read (value, *) r_th_arr(q)
# 1038 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                end if
# 1038 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            end do
# 1038 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        end do
# 1038 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        close (10)
# 1038 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1038 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        do q = 0, p
# 1038 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            do l = 0, n
# 1038 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                rcut = 0._wp
# 1038 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                do s = 0, njet - 1
# 1038 "/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)
# 1038 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    rcut = rcut + f_cut_on(r - r_th_arr(s), eps_smooth)
# 1038 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                end do
# 1038 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                rcut_arr(l, q) = rcut
# 1038 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            end do
# 1038 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        end do
# 1038 "/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 (x_boundary%beg <= x_cc(i) .and. x_boundary%end >= x_cc(i) &
                        & .and. y_boundary%beg <= cart_y .and. y_boundary%end >= cart_y .and. z_boundary%beg <= cart_z .and. z_boundary%end >= cart_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)
# 1077 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    case (300)  ! Rayleigh-Taylor instability
# 1077 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        rhoh = 3._wp
# 1077 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        rhol = 1._wp
# 1077 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        pref = 1.e5_wp
# 1077 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        pint = pref
# 1077 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        h = 0.7_wp
# 1077 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        lam = 0.2_wp
# 1077 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        wl = 2._wp*pi/lam
# 1077 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        amp = 0.025_wp/wl
# 1077 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1077 "/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
# 1077 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1077 "/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))
# 1077 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1077 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        if (alph < eps) alph = eps
# 1077 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        if (alph > 1._wp - eps) alph = 1._wp - eps
# 1077 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1077 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        if (y_cc(j) > inth) then
# 1077 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%adv%beg)%sf(i, j, k) = alph
# 1077 "/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
# 1077 "/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
# 1077 "/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
# 1077 "/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))
# 1077 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        else
# 1077 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%adv%beg)%sf(i, j, k) = alph
# 1077 "/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
# 1077 "/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
# 1077 "/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
# 1077 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            pint = pref + rhoh*9.81_wp*(1.2_wp - inth)
# 1077 "/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))
# 1077 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        end if
# 1077 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    case (301)  ! (3D lung geometry in X direction, |sin(*)+sin(*)|)
# 1077 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        h = 0.0_wp
# 1077 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        lam = 1.0_wp
# 1077 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        amp = patch_icpp(patch_id)%a(2)
# 1077 "/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)
# 1077 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        if (x_cc(i) > inth) then
# 1077 "/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)
# 1077 "/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)
# 1077 "/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
# 1077 "/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)
# 1077 "/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)
# 1077 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        end if
# 1077 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    case (302)  ! 3D Jet with IGR
# 1077 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ux_th = 10*sqrt(1.4*0.4)
# 1077 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ux_am = 0.0*sqrt(1.4)
# 1077 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        p_th = 2.0_wp
# 1077 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        p_am = 1.0_wp
# 1077 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        rho_th = 1._wp
# 1077 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        rho_am = 1._wp
# 1077 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        y_th = 0.0_wp
# 1077 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        z_th = 0.0_wp
# 1077 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        r_th = 1._wp
# 1077 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        eps_smooth = 1._wp
# 1077 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        eps = 1e-6
# 1077 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1077 "/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)
# 1077 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        rcut = f_cut_on(r - r_th, eps_smooth)
# 1077 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        xcut = f_cut_on(x_cc(i), eps_smooth)
# 1077 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1077 "/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
# 1077 "/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
# 1077 "/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
# 1077 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1077 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        if (num_fluids == 1) then
# 1077 "/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
# 1077 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        else
# 1077 "/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
# 1077 "/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)
# 1077 "/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))
# 1077 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        end if
# 1077 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1077 "/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
# 1077 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    case (303)  ! 3D Multijet
# 1077 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        eps_smooth = 3.0_wp
# 1077 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ux_th = 10*sqrt(1.4*0.4)
# 1077 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ux_am = 2.5*sqrt(1.4*0.4)
# 1077 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        p_th = 0.8_wp
# 1077 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        p_am = 0.4_wp
# 1077 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        rho_th = 1._wp
# 1077 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        rho_am = 1._wp
# 1077 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        eps = 1e-6
# 1077 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1077 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        rcut = rcut_arr(j, k)
# 1077 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        xcut = f_cut_on(x_cc(i), eps_smooth)
# 1077 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1077 "/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
# 1077 "/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
# 1077 "/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
# 1077 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1077 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        if (num_fluids == 1) then
# 1077 "/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
# 1077 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        else
# 1077 "/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
# 1077 "/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)
# 1077 "/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))
# 1077 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        end if
# 1077 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1077 "/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
# 1077 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    case (370)  ! 3D extrusion of 2D profile from external data
# 1077 "/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
# 1077 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    if (.not. files_loaded) then
# 1077 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        max_files = merge(sys_size, sys_size - 1, num_dims == 1)
# 1077 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        do f = 1, max_files
# 1077 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            write (file_num_str, '(I0)') f
# 1077 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            filenames(f) = trim(init_dir) // "prim." // trim(file_num_str) // ".00." // zeros_default // ".dat"
# 1077 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        end do
# 1077 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1077 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! Common file reading setup
# 1077 "/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)
# 1077 "/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)))
# 1077 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1077 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        select case (num_dims)
# 1077 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        case (1, 2)  ! 1D and 2D cases are similar
# 1077 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            ! Count lines
# 1077 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            line_count = 0
# 1077 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            do
# 1077 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                read (unit2, *, iostat=ios2) dummy_x, dummy_y
# 1077 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                if (ios2 /= 0) exit
# 1077 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                line_count = line_count + 1
# 1077 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            end do
# 1077 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            close (unit2)
# 1077 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1077 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            xrows = line_count
# 1077 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            yrows = 1
# 1077 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            index_x = 0
# 1077 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            if (num_dims == 2) index_x = i
# 1077 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#ifdef MFC_DEBUG
# 1077 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    block
# 1077 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        use iso_fortran_env, only: output_unit
# 1077 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1077 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        print *, 'm_icpp_patches.fpp:1077: ', '@:ALLOCATE(x_coords(xRows), stored_values(xRows, 1, sys_size))'
# 1077 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1077 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        call flush (output_unit)
# 1077 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    end block
# 1077 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#endif
# 1077 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    allocate (x_coords(xrows), stored_values(xrows, 1, sys_size))
# 1077 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1077 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1077 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1077 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#if defined(MFC_OpenACC)
# 1077 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
!$acc enter data create(x_coords, stored_values) 
# 1077 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#elif defined(MFC_OpenMP)
# 1077 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
!$omp target enter data map(always,alloc:x_coords, stored_values) 
# 1077 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#endif
# 1077 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1077 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            ! Read data from all files
# 1077 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            do f = 1, max_files
# 1077 "/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)
# 1077 "/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)))
# 1077 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1077 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                do iter = 1, xrows
# 1077 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    read (unit, *, iostat=ios) x_coords(iter), stored_values(iter, 1, f)
# 1077 "/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)))
# 1077 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                end do
# 1077 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                close (unit)
# 1077 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            end do
# 1077 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1077 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            ! Calculate offsets
# 1077 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            domain_xstart = x_coords(1)
# 1077 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            x_step = x_cc(1) - x_cc(0)
# 1077 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            delta_x = merge(x_cc(0) - domain_xstart + x_step/2.0, x_cc(index_x) - domain_xstart + x_step/2.0, num_dims == 1)
# 1077 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            global_offset_x = nint(abs(delta_x)/x_step)
# 1077 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        case (3)  ! 3D case - determine grid structure
# 1077 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            ! Find yRows by counting rows with same x
# 1077 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            read (unit2, *, iostat=ios2) x0, y0, dummy_z
# 1077 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            if (ios2 /= 0) call s_mpi_abort("Error reading first line")
# 1077 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1077 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            yrows = 1
# 1077 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            do
# 1077 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                read (unit2, *, iostat=ios2) dummy_x, dummy_y, dummy_z
# 1077 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                if (ios2 /= 0) exit
# 1077 "/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
# 1077 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    yrows = yrows + 1
# 1077 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                else
# 1077 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    exit
# 1077 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                end if
# 1077 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            end do
# 1077 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            close (unit2)
# 1077 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1077 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            ! Count total rows
# 1077 "/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)
# 1077 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            nrows = 0
# 1077 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            do
# 1077 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                read (unit2, *, iostat=ios2) dummy_x, dummy_y, dummy_z
# 1077 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                if (ios2 /= 0) exit
# 1077 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                nrows = nrows + 1
# 1077 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            end do
# 1077 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            close (unit2)
# 1077 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1077 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            xrows = nrows/yrows
# 1077 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#ifdef MFC_DEBUG
# 1077 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    block
# 1077 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        use iso_fortran_env, only: output_unit
# 1077 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1077 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        print *, 'm_icpp_patches.fpp:1077: ', '@:ALLOCATE(x_coords(nrows), y_coords(nrows), stored_values(xRows, yRows, sys_size))'
# 1077 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1077 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        call flush (output_unit)
# 1077 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    end block
# 1077 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#endif
# 1077 "/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))
# 1077 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1077 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1077 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1077 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1077 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#if defined(MFC_OpenACC)
# 1077 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
!$acc enter data create(x_coords, y_coords, stored_values) 
# 1077 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#elif defined(MFC_OpenMP)
# 1077 "/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) 
# 1077 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#endif
# 1077 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            index_x = i
# 1077 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            index_y = j
# 1077 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1077 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            ! Read all files
# 1077 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            do f = 1, max_files
# 1077 "/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)
# 1077 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                if (ios /= 0) then
# 1077 "/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)))
# 1077 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    cycle
# 1077 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                end if
# 1077 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1077 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                iter = 0
# 1077 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                do iix = 1, xrows
# 1077 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    do iiy = 1, yrows
# 1077 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                        iter = iter + 1
# 1077 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                        if (f == 1) then
# 1077 "/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)
# 1077 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                        else
# 1077 "/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)
# 1077 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                        end if
# 1077 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                        if (ios /= 0) call s_mpi_abort("Error reading data")
# 1077 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    end do
# 1077 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                end do
# 1077 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                close (unit)
# 1077 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            end do
# 1077 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1077 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            ! Calculate offsets
# 1077 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            x_step = x_cc(1) - x_cc(0)
# 1077 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            y_step = y_cc(1) - y_cc(0)
# 1077 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            delta_x = x_cc(index_x) - x_coords(1) + x_step/2.0_wp
# 1077 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            delta_y = y_cc(index_y) - y_coords(1) + y_step/2.0_wp
# 1077 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            global_offset_x = nint(abs(delta_x)/x_step)
# 1077 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            global_offset_y = nint(abs(delta_y)/y_step)
# 1077 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        end select
# 1077 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1077 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        files_loaded = .true.
# 1077 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    end if
# 1077 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1077 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    ! Data assignment
# 1077 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    select case (num_dims)
# 1077 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    case (1)
# 1077 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        idx = i + 1 + global_offset_x
# 1077 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        do f = 1, sys_size
# 1077 "/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)
# 1077 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        end do
# 1077 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    case (2)
# 1077 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        idx = i + 1 + global_offset_x - index_x
# 1077 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        do f = 1, sys_size - 1
# 1077 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            jump = merge(1, 0, f >= eqn_idx%mom%end)
# 1077 "/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)
# 1077 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        end do
# 1077 "/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
# 1077 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    case (3)
# 1077 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        idx = i + 1 + global_offset_x - index_x
# 1077 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        idy = j + 1 + global_offset_y - index_y
# 1077 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        do f = 1, sys_size - 1
# 1077 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            jump = merge(1, 0, f >= eqn_idx%mom%end)
# 1077 "/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)
# 1077 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        end do
# 1077 "/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
# 1077 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    end select
# 1077 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    case (380)  ! Taylor-Green vortex
# 1077 "/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
# 1077 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! geometry 9
# 1077 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        mach = 0.1
# 1077 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        if (patch_id == 1) then
# 1077 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%E)%sf(i, j, &
# 1077 "/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)
# 1077 "/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)
# 1077 "/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)
# 1077 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        end if
# 1077 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    case default
# 1077 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        call s_int_to_str(patch_id, istr)
# 1077 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        call s_mpi_abort("Invalid hcid specified for patch " // trim(istr))
# 1077 "/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
# 1087 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#ifdef MFC_DEBUG
# 1087 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    block
# 1087 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        use iso_fortran_env, only: output_unit
# 1087 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1087 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        print *, 'm_icpp_patches.fpp:1087: ', '@:DEALLOCATE(stored_values)'
# 1087 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1087 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        call flush (output_unit)
# 1087 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    end block
# 1087 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#endif
# 1087 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1087 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#if defined(MFC_OpenACC)
# 1087 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
!$acc exit data delete(stored_values) 
# 1087 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#elif defined(MFC_OpenMP)
# 1087 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
!$omp target exit data map(release:stored_values) 
# 1087 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#endif
# 1087 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    deallocate (stored_values)
# 1087 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#ifdef MFC_DEBUG
# 1087 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    block
# 1087 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        use iso_fortran_env, only: output_unit
# 1087 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1087 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        print *, 'm_icpp_patches.fpp:1087: ', '@:DEALLOCATE(x_coords)'
# 1087 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1087 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        call flush (output_unit)
# 1087 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    end block
# 1087 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#endif
# 1087 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1087 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#if defined(MFC_OpenACC)
# 1087 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
!$acc exit data delete(x_coords) 
# 1087 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#elif defined(MFC_OpenMP)
# 1087 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
!$omp target exit data map(release:x_coords) 
# 1087 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#endif
# 1087 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    deallocate (x_coords)
# 1087 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    end if
# 1087 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1087 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    if (allocated(y_coords)) then
# 1087 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#ifdef MFC_DEBUG
# 1087 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    block
# 1087 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        use iso_fortran_env, only: output_unit
# 1087 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1087 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        print *, 'm_icpp_patches.fpp:1087: ', '@:DEALLOCATE(y_coords)'
# 1087 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1087 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        call flush (output_unit)
# 1087 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    end block
# 1087 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#endif
# 1087 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1087 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#if defined(MFC_OpenACC)
# 1087 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
!$acc exit data delete(y_coords) 
# 1087 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#elif defined(MFC_OpenMP)
# 1087 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
!$omp target exit data map(release:y_coords) 
# 1087 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#endif
# 1087 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    deallocate (y_coords)
# 1087 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    end if
 
    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
# 1108 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    integer                                 :: f, iter, ios, ios2, unit, unit2, idx, idy, index_x, index_y, jump, line_count, ycount
# 1108 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    real(wp)                                :: x_len, x_step, y_len, y_step
# 1108 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    real(wp)                                :: dummy_x, dummy_y, dummy_z, x0, y0
# 1108 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    integer                                 :: global_offset_x, global_offset_y       !< MPI subdomain offset
# 1108 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    real(wp)                                :: delta_x, delta_y
# 1108 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    character(len=100), dimension(sys_size) :: fileNames                              !< Arrays to store all data from files
# 1108 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    character(len=200)                      :: errmsg
# 1108 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    real(wp), allocatable                   :: stored_values(:,:,:)
# 1108 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    real(wp), allocatable                   :: x_coords(:), y_coords(:)
# 1108 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    logical                                 :: files_loaded = .false.
# 1108 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    real(wp)                                :: domain_xstart, domain_xend, domain_ystart, domain_yend
# 1108 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    character(len=*), parameter             :: init_dir = "/home/MFC/FilesDirectory"  !< For example /home/MFC/examples/1D_Shock/D/
# 1108 "/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
# 1108 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    character(len=20)                       :: zeros_part                             !< For the trailing zeros part
# 1108 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    character(len=6), parameter             :: zeros_default = "000000"               !< Default zeros (can be changed)
    ! Place any declaration of intermediate variables here
# 1109 "/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
# 1109 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    real(wp) :: eps
# 1109 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1109 "/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
# 1109 "/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
# 1109 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    ! Variables to describe initial condition of jet
# 1109 "/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
# 1109 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    real(wp)                     :: rcut, xcut  !< Intermediate variables for creating smooth initial condition
# 1109 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    real(wp), dimension(0:n,0:p) :: rcut_arr
# 1109 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    integer                      :: l, q, s     !< Iterators for reading input files
# 1109 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    integer                      :: start, end  !< Ints to keep track of position in file
# 1109 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    character(len=1000)          :: line        !< String to store line in file
# 1109 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    character(len=25)            :: value       !< String to store value in line
# 1109 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    integer                      :: NJet        !< Number of jets
# 1109 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1109 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    eps = 1e-9_wp
# 1109 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1109 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    if (patch_icpp(patch_id)%hcid == 303) then
# 1109 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        eps_smooth = 3._wp
# 1109 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        open (unit=10, file="njet.txt", status="old", action="read")
# 1109 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        read (10, *) njet
# 1109 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        close (10)
# 1109 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1109 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        allocate (y_th_arr(0:njet - 1))
# 1109 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        allocate (z_th_arr(0:njet - 1))
# 1109 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        allocate (r_th_arr(0:njet - 1))
# 1109 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1109 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        open (unit=10, file="jets.csv", status="old", action="read")
# 1109 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        do q = 0, njet - 1
# 1109 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            read (10, '(A)') line  ! Read a full line as a string
# 1109 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            start = 1
# 1109 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1109 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            do l = 0, 2
# 1109 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                end = index(line(start:), ',')  ! Find the next comma
# 1109 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                if (end == 0) then
# 1109 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    value = trim(adjustl(line(start:)))  ! Last value in the line
# 1109 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                else
# 1109 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    value = trim(adjustl(line(start:start + end - 2)))  ! Extract substring
# 1109 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    start = start + end  ! Move to next value
# 1109 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                end if
# 1109 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                if (l == 0) then
# 1109 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    read (value, *) y_th_arr(q)  ! Convert string to numeric value
# 1109 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                else if (l == 1) then
# 1109 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    read (value, *) z_th_arr(q)
# 1109 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                else
# 1109 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    read (value, *) r_th_arr(q)
# 1109 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                end if
# 1109 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            end do
# 1109 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        end do
# 1109 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        close (10)
# 1109 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1109 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        do q = 0, p
# 1109 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            do l = 0, n
# 1109 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                rcut = 0._wp
# 1109 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                do s = 0, njet - 1
# 1109 "/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)
# 1109 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    rcut = rcut + f_cut_on(r - r_th_arr(s), eps_smooth)
# 1109 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                end do
# 1109 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                rcut_arr(l, q) = rcut
# 1109 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            end do
# 1109 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        end do
# 1109 "/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. (cart_y - y_centroid)**2 + (cart_z - z_centroid) &
                        & **2 <= radius**2 .and. x_boundary%beg <= x_cc(i) .and. x_boundary%end >= x_cc(i)) &
                        & .or. (.not. f_is_default(length_y) .and. (x_cc(i) - x_centroid)**2 + (cart_z - z_centroid) &
                        & **2 <= radius**2 .and. y_boundary%beg <= cart_y .and. y_boundary%end >= cart_y) &
                        & .or. (.not. f_is_default(length_z) .and. (x_cc(i) - x_centroid)**2 + (cart_y - y_centroid) &
                        & **2 <= radius**2 .and. z_boundary%beg <= cart_z .and. z_boundary%end >= cart_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)
# 1173 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    case (300)  ! Rayleigh-Taylor instability
# 1173 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        rhoh = 3._wp
# 1173 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        rhol = 1._wp
# 1173 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        pref = 1.e5_wp
# 1173 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        pint = pref
# 1173 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        h = 0.7_wp
# 1173 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        lam = 0.2_wp
# 1173 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        wl = 2._wp*pi/lam
# 1173 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        amp = 0.025_wp/wl
# 1173 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1173 "/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
# 1173 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1173 "/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))
# 1173 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1173 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        if (alph < eps) alph = eps
# 1173 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        if (alph > 1._wp - eps) alph = 1._wp - eps
# 1173 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1173 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        if (y_cc(j) > inth) then
# 1173 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%adv%beg)%sf(i, j, k) = alph
# 1173 "/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
# 1173 "/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
# 1173 "/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
# 1173 "/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))
# 1173 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        else
# 1173 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%adv%beg)%sf(i, j, k) = alph
# 1173 "/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
# 1173 "/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
# 1173 "/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
# 1173 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            pint = pref + rhoh*9.81_wp*(1.2_wp - inth)
# 1173 "/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))
# 1173 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        end if
# 1173 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    case (301)  ! (3D lung geometry in X direction, |sin(*)+sin(*)|)
# 1173 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        h = 0.0_wp
# 1173 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        lam = 1.0_wp
# 1173 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        amp = patch_icpp(patch_id)%a(2)
# 1173 "/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)
# 1173 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        if (x_cc(i) > inth) then
# 1173 "/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)
# 1173 "/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)
# 1173 "/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
# 1173 "/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)
# 1173 "/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)
# 1173 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        end if
# 1173 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    case (302)  ! 3D Jet with IGR
# 1173 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ux_th = 10*sqrt(1.4*0.4)
# 1173 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ux_am = 0.0*sqrt(1.4)
# 1173 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        p_th = 2.0_wp
# 1173 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        p_am = 1.0_wp
# 1173 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        rho_th = 1._wp
# 1173 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        rho_am = 1._wp
# 1173 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        y_th = 0.0_wp
# 1173 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        z_th = 0.0_wp
# 1173 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        r_th = 1._wp
# 1173 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        eps_smooth = 1._wp
# 1173 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        eps = 1e-6
# 1173 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1173 "/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)
# 1173 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        rcut = f_cut_on(r - r_th, eps_smooth)
# 1173 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        xcut = f_cut_on(x_cc(i), eps_smooth)
# 1173 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1173 "/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
# 1173 "/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
# 1173 "/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
# 1173 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1173 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        if (num_fluids == 1) then
# 1173 "/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
# 1173 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        else
# 1173 "/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
# 1173 "/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)
# 1173 "/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))
# 1173 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        end if
# 1173 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1173 "/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
# 1173 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    case (303)  ! 3D Multijet
# 1173 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        eps_smooth = 3.0_wp
# 1173 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ux_th = 10*sqrt(1.4*0.4)
# 1173 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ux_am = 2.5*sqrt(1.4*0.4)
# 1173 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        p_th = 0.8_wp
# 1173 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        p_am = 0.4_wp
# 1173 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        rho_th = 1._wp
# 1173 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        rho_am = 1._wp
# 1173 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        eps = 1e-6
# 1173 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1173 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        rcut = rcut_arr(j, k)
# 1173 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        xcut = f_cut_on(x_cc(i), eps_smooth)
# 1173 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1173 "/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
# 1173 "/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
# 1173 "/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
# 1173 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1173 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        if (num_fluids == 1) then
# 1173 "/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
# 1173 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        else
# 1173 "/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
# 1173 "/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)
# 1173 "/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))
# 1173 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        end if
# 1173 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1173 "/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
# 1173 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    case (370)  ! 3D extrusion of 2D profile from external data
# 1173 "/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
# 1173 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    if (.not. files_loaded) then
# 1173 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        max_files = merge(sys_size, sys_size - 1, num_dims == 1)
# 1173 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        do f = 1, max_files
# 1173 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            write (file_num_str, '(I0)') f
# 1173 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            filenames(f) = trim(init_dir) // "prim." // trim(file_num_str) // ".00." // zeros_default // ".dat"
# 1173 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        end do
# 1173 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1173 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! Common file reading setup
# 1173 "/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)
# 1173 "/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)))
# 1173 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1173 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        select case (num_dims)
# 1173 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        case (1, 2)  ! 1D and 2D cases are similar
# 1173 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            ! Count lines
# 1173 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            line_count = 0
# 1173 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            do
# 1173 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                read (unit2, *, iostat=ios2) dummy_x, dummy_y
# 1173 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                if (ios2 /= 0) exit
# 1173 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                line_count = line_count + 1
# 1173 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            end do
# 1173 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            close (unit2)
# 1173 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1173 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            xrows = line_count
# 1173 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            yrows = 1
# 1173 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            index_x = 0
# 1173 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            if (num_dims == 2) index_x = i
# 1173 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#ifdef MFC_DEBUG
# 1173 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    block
# 1173 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        use iso_fortran_env, only: output_unit
# 1173 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1173 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        print *, 'm_icpp_patches.fpp:1173: ', '@:ALLOCATE(x_coords(xRows), stored_values(xRows, 1, sys_size))'
# 1173 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1173 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        call flush (output_unit)
# 1173 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    end block
# 1173 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#endif
# 1173 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    allocate (x_coords(xrows), stored_values(xrows, 1, sys_size))
# 1173 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1173 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1173 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1173 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#if defined(MFC_OpenACC)
# 1173 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
!$acc enter data create(x_coords, stored_values) 
# 1173 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#elif defined(MFC_OpenMP)
# 1173 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
!$omp target enter data map(always,alloc:x_coords, stored_values) 
# 1173 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#endif
# 1173 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1173 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            ! Read data from all files
# 1173 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            do f = 1, max_files
# 1173 "/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)
# 1173 "/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)))
# 1173 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1173 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                do iter = 1, xrows
# 1173 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    read (unit, *, iostat=ios) x_coords(iter), stored_values(iter, 1, f)
# 1173 "/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)))
# 1173 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                end do
# 1173 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                close (unit)
# 1173 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            end do
# 1173 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1173 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            ! Calculate offsets
# 1173 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            domain_xstart = x_coords(1)
# 1173 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            x_step = x_cc(1) - x_cc(0)
# 1173 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            delta_x = merge(x_cc(0) - domain_xstart + x_step/2.0, x_cc(index_x) - domain_xstart + x_step/2.0, num_dims == 1)
# 1173 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            global_offset_x = nint(abs(delta_x)/x_step)
# 1173 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        case (3)  ! 3D case - determine grid structure
# 1173 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            ! Find yRows by counting rows with same x
# 1173 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            read (unit2, *, iostat=ios2) x0, y0, dummy_z
# 1173 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            if (ios2 /= 0) call s_mpi_abort("Error reading first line")
# 1173 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1173 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            yrows = 1
# 1173 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            do
# 1173 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                read (unit2, *, iostat=ios2) dummy_x, dummy_y, dummy_z
# 1173 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                if (ios2 /= 0) exit
# 1173 "/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
# 1173 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    yrows = yrows + 1
# 1173 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                else
# 1173 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    exit
# 1173 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                end if
# 1173 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            end do
# 1173 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            close (unit2)
# 1173 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1173 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            ! Count total rows
# 1173 "/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)
# 1173 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            nrows = 0
# 1173 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            do
# 1173 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                read (unit2, *, iostat=ios2) dummy_x, dummy_y, dummy_z
# 1173 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                if (ios2 /= 0) exit
# 1173 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                nrows = nrows + 1
# 1173 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            end do
# 1173 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            close (unit2)
# 1173 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1173 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            xrows = nrows/yrows
# 1173 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#ifdef MFC_DEBUG
# 1173 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    block
# 1173 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        use iso_fortran_env, only: output_unit
# 1173 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1173 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        print *, 'm_icpp_patches.fpp:1173: ', '@:ALLOCATE(x_coords(nrows), y_coords(nrows), stored_values(xRows, yRows, sys_size))'
# 1173 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1173 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        call flush (output_unit)
# 1173 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    end block
# 1173 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#endif
# 1173 "/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))
# 1173 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1173 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1173 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1173 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1173 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#if defined(MFC_OpenACC)
# 1173 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
!$acc enter data create(x_coords, y_coords, stored_values) 
# 1173 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#elif defined(MFC_OpenMP)
# 1173 "/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) 
# 1173 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#endif
# 1173 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            index_x = i
# 1173 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            index_y = j
# 1173 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1173 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            ! Read all files
# 1173 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            do f = 1, max_files
# 1173 "/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)
# 1173 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                if (ios /= 0) then
# 1173 "/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)))
# 1173 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    cycle
# 1173 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                end if
# 1173 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1173 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                iter = 0
# 1173 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                do iix = 1, xrows
# 1173 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    do iiy = 1, yrows
# 1173 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                        iter = iter + 1
# 1173 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                        if (f == 1) then
# 1173 "/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)
# 1173 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                        else
# 1173 "/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)
# 1173 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                        end if
# 1173 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                        if (ios /= 0) call s_mpi_abort("Error reading data")
# 1173 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    end do
# 1173 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                end do
# 1173 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                close (unit)
# 1173 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            end do
# 1173 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1173 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            ! Calculate offsets
# 1173 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            x_step = x_cc(1) - x_cc(0)
# 1173 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            y_step = y_cc(1) - y_cc(0)
# 1173 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            delta_x = x_cc(index_x) - x_coords(1) + x_step/2.0_wp
# 1173 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            delta_y = y_cc(index_y) - y_coords(1) + y_step/2.0_wp
# 1173 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            global_offset_x = nint(abs(delta_x)/x_step)
# 1173 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            global_offset_y = nint(abs(delta_y)/y_step)
# 1173 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        end select
# 1173 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1173 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        files_loaded = .true.
# 1173 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    end if
# 1173 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1173 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    ! Data assignment
# 1173 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    select case (num_dims)
# 1173 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    case (1)
# 1173 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        idx = i + 1 + global_offset_x
# 1173 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        do f = 1, sys_size
# 1173 "/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)
# 1173 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        end do
# 1173 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    case (2)
# 1173 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        idx = i + 1 + global_offset_x - index_x
# 1173 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        do f = 1, sys_size - 1
# 1173 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            jump = merge(1, 0, f >= eqn_idx%mom%end)
# 1173 "/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)
# 1173 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        end do
# 1173 "/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
# 1173 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    case (3)
# 1173 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        idx = i + 1 + global_offset_x - index_x
# 1173 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        idy = j + 1 + global_offset_y - index_y
# 1173 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        do f = 1, sys_size - 1
# 1173 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            jump = merge(1, 0, f >= eqn_idx%mom%end)
# 1173 "/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)
# 1173 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        end do
# 1173 "/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
# 1173 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    end select
# 1173 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    case (380)  ! Taylor-Green vortex
# 1173 "/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
# 1173 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! geometry 9
# 1173 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        mach = 0.1
# 1173 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        if (patch_id == 1) then
# 1173 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%E)%sf(i, j, &
# 1173 "/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)
# 1173 "/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)
# 1173 "/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)
# 1173 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        end if
# 1173 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    case default
# 1173 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        call s_int_to_str(patch_id, istr)
# 1173 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        call s_mpi_abort("Invalid hcid specified for patch " // trim(istr))
# 1173 "/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
# 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: ', '@:DEALLOCATE(stored_values)'
# 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"
 
# 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 exit data delete(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 exit data map(release: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"
    deallocate (stored_values)
# 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: ', '@:DEALLOCATE(x_coords)'
# 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"
 
# 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 exit data delete(x_coords) 
# 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 exit data map(release:x_coords) 
# 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"
    deallocate (x_coords)
# 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"
    if (allocated(y_coords)) then
# 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: ', '@:DEALLOCATE(y_coords)'
# 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"
 
# 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 exit data delete(y_coords) 
# 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 exit data map(release:y_coords) 
# 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"
    deallocate (y_coords)
# 1182 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    end if
 
    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
# 1203 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    integer                                 :: f, iter, ios, ios2, unit, unit2, idx, idy, index_x, index_y, jump, line_count, ycount
# 1203 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    real(wp)                                :: x_len, x_step, y_len, y_step
# 1203 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    real(wp)                                :: dummy_x, dummy_y, dummy_z, x0, y0
# 1203 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    integer                                 :: global_offset_x, global_offset_y       !< MPI subdomain offset
# 1203 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    real(wp)                                :: delta_x, delta_y
# 1203 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    character(len=100), dimension(sys_size) :: fileNames                              !< Arrays to store all data from files
# 1203 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    character(len=200)                      :: errmsg
# 1203 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    real(wp), allocatable                   :: stored_values(:,:,:)
# 1203 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    real(wp), allocatable                   :: x_coords(:), y_coords(:)
# 1203 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    logical                                 :: files_loaded = .false.
# 1203 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    real(wp)                                :: domain_xstart, domain_xend, domain_ystart, domain_yend
# 1203 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    character(len=*), parameter             :: init_dir = "/home/MFC/FilesDirectory"  !< For example /home/MFC/examples/1D_Shock/D/
# 1203 "/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
# 1203 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    character(len=20)                       :: zeros_part                             !< For the trailing zeros part
# 1203 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    character(len=6), parameter             :: zeros_default = "000000"               !< Default zeros (can be changed)
    ! Place any declaration of intermediate variables here
# 1204 "/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
# 1204 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    real(wp) :: eps
# 1204 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1204 "/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
# 1204 "/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
# 1204 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    ! Variables to describe initial condition of jet
# 1204 "/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
# 1204 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    real(wp)                     :: rcut, xcut  !< Intermediate variables for creating smooth initial condition
# 1204 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    real(wp), dimension(0:n,0:p) :: rcut_arr
# 1204 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    integer                      :: l, q, s     !< Iterators for reading input files
# 1204 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    integer                      :: start, end  !< Ints to keep track of position in file
# 1204 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    character(len=1000)          :: line        !< String to store line in file
# 1204 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    character(len=25)            :: value       !< String to store value in line
# 1204 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    integer                      :: NJet        !< Number of jets
# 1204 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1204 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    eps = 1e-9_wp
# 1204 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1204 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    if (patch_icpp(patch_id)%hcid == 303) then
# 1204 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        eps_smooth = 3._wp
# 1204 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        open (unit=10, file="njet.txt", status="old", action="read")
# 1204 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        read (10, *) njet
# 1204 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        close (10)
# 1204 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1204 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        allocate (y_th_arr(0:njet - 1))
# 1204 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        allocate (z_th_arr(0:njet - 1))
# 1204 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        allocate (r_th_arr(0:njet - 1))
# 1204 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1204 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        open (unit=10, file="jets.csv", status="old", action="read")
# 1204 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        do q = 0, njet - 1
# 1204 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            read (10, '(A)') line  ! Read a full line as a string
# 1204 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            start = 1
# 1204 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1204 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            do l = 0, 2
# 1204 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                end = index(line(start:), ',')  ! Find the next comma
# 1204 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                if (end == 0) then
# 1204 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    value = trim(adjustl(line(start:)))  ! Last value in the line
# 1204 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                else
# 1204 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    value = trim(adjustl(line(start:start + end - 2)))  ! Extract substring
# 1204 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    start = start + end  ! Move to next value
# 1204 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                end if
# 1204 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                if (l == 0) then
# 1204 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    read (value, *) y_th_arr(q)  ! Convert string to numeric value
# 1204 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                else if (l == 1) then
# 1204 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    read (value, *) z_th_arr(q)
# 1204 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                else
# 1204 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    read (value, *) r_th_arr(q)
# 1204 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                end if
# 1204 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            end do
# 1204 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        end do
# 1204 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        close (10)
# 1204 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1204 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        do q = 0, p
# 1204 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            do l = 0, n
# 1204 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                rcut = 0._wp
# 1204 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                do s = 0, njet - 1
# 1204 "/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)
# 1204 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    rcut = rcut + f_cut_on(r - r_th_arr(s), eps_smooth)
# 1204 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                end do
# 1204 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                rcut_arr(l, q) = rcut
# 1204 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            end do
# 1204 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        end do
# 1204 "/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)
# 1244 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    case (300)  ! Rayleigh-Taylor instability
# 1244 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        rhoh = 3._wp
# 1244 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        rhol = 1._wp
# 1244 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        pref = 1.e5_wp
# 1244 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        pint = pref
# 1244 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        h = 0.7_wp
# 1244 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        lam = 0.2_wp
# 1244 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        wl = 2._wp*pi/lam
# 1244 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        amp = 0.025_wp/wl
# 1244 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1244 "/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
# 1244 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1244 "/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))
# 1244 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1244 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        if (alph < eps) alph = eps
# 1244 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        if (alph > 1._wp - eps) alph = 1._wp - eps
# 1244 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1244 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        if (y_cc(j) > inth) then
# 1244 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%adv%beg)%sf(i, j, k) = alph
# 1244 "/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
# 1244 "/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
# 1244 "/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
# 1244 "/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))
# 1244 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        else
# 1244 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%adv%beg)%sf(i, j, k) = alph
# 1244 "/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
# 1244 "/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
# 1244 "/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
# 1244 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            pint = pref + rhoh*9.81_wp*(1.2_wp - inth)
# 1244 "/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))
# 1244 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        end if
# 1244 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    case (301)  ! (3D lung geometry in X direction, |sin(*)+sin(*)|)
# 1244 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        h = 0.0_wp
# 1244 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        lam = 1.0_wp
# 1244 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        amp = patch_icpp(patch_id)%a(2)
# 1244 "/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)
# 1244 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        if (x_cc(i) > inth) then
# 1244 "/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)
# 1244 "/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)
# 1244 "/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
# 1244 "/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)
# 1244 "/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)
# 1244 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        end if
# 1244 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    case (302)  ! 3D Jet with IGR
# 1244 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ux_th = 10*sqrt(1.4*0.4)
# 1244 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ux_am = 0.0*sqrt(1.4)
# 1244 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        p_th = 2.0_wp
# 1244 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        p_am = 1.0_wp
# 1244 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        rho_th = 1._wp
# 1244 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        rho_am = 1._wp
# 1244 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        y_th = 0.0_wp
# 1244 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        z_th = 0.0_wp
# 1244 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        r_th = 1._wp
# 1244 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        eps_smooth = 1._wp
# 1244 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        eps = 1e-6
# 1244 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1244 "/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)
# 1244 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        rcut = f_cut_on(r - r_th, eps_smooth)
# 1244 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        xcut = f_cut_on(x_cc(i), eps_smooth)
# 1244 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1244 "/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
# 1244 "/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
# 1244 "/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
# 1244 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1244 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        if (num_fluids == 1) then
# 1244 "/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
# 1244 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        else
# 1244 "/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
# 1244 "/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)
# 1244 "/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))
# 1244 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        end if
# 1244 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1244 "/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
# 1244 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    case (303)  ! 3D Multijet
# 1244 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        eps_smooth = 3.0_wp
# 1244 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ux_th = 10*sqrt(1.4*0.4)
# 1244 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ux_am = 2.5*sqrt(1.4*0.4)
# 1244 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        p_th = 0.8_wp
# 1244 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        p_am = 0.4_wp
# 1244 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        rho_th = 1._wp
# 1244 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        rho_am = 1._wp
# 1244 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        eps = 1e-6
# 1244 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1244 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        rcut = rcut_arr(j, k)
# 1244 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        xcut = f_cut_on(x_cc(i), eps_smooth)
# 1244 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1244 "/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
# 1244 "/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
# 1244 "/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
# 1244 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1244 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        if (num_fluids == 1) then
# 1244 "/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
# 1244 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        else
# 1244 "/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
# 1244 "/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)
# 1244 "/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))
# 1244 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        end if
# 1244 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1244 "/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
# 1244 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    case (370)  ! 3D extrusion of 2D profile from external data
# 1244 "/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
# 1244 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    if (.not. files_loaded) then
# 1244 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        max_files = merge(sys_size, sys_size - 1, num_dims == 1)
# 1244 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        do f = 1, max_files
# 1244 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            write (file_num_str, '(I0)') f
# 1244 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            filenames(f) = trim(init_dir) // "prim." // trim(file_num_str) // ".00." // zeros_default // ".dat"
# 1244 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        end do
# 1244 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1244 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! Common file reading setup
# 1244 "/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)
# 1244 "/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)))
# 1244 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1244 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        select case (num_dims)
# 1244 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        case (1, 2)  ! 1D and 2D cases are similar
# 1244 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            ! Count lines
# 1244 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            line_count = 0
# 1244 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            do
# 1244 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                read (unit2, *, iostat=ios2) dummy_x, dummy_y
# 1244 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                if (ios2 /= 0) exit
# 1244 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                line_count = line_count + 1
# 1244 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            end do
# 1244 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            close (unit2)
# 1244 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1244 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            xrows = line_count
# 1244 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            yrows = 1
# 1244 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            index_x = 0
# 1244 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            if (num_dims == 2) index_x = i
# 1244 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#ifdef MFC_DEBUG
# 1244 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    block
# 1244 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        use iso_fortran_env, only: output_unit
# 1244 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1244 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        print *, 'm_icpp_patches.fpp:1244: ', '@:ALLOCATE(x_coords(xRows), stored_values(xRows, 1, sys_size))'
# 1244 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1244 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        call flush (output_unit)
# 1244 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    end block
# 1244 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#endif
# 1244 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    allocate (x_coords(xrows), stored_values(xrows, 1, sys_size))
# 1244 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1244 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1244 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1244 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#if defined(MFC_OpenACC)
# 1244 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
!$acc enter data create(x_coords, stored_values) 
# 1244 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#elif defined(MFC_OpenMP)
# 1244 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
!$omp target enter data map(always,alloc:x_coords, stored_values) 
# 1244 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#endif
# 1244 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1244 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            ! Read data from all files
# 1244 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            do f = 1, max_files
# 1244 "/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)
# 1244 "/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)))
# 1244 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1244 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                do iter = 1, xrows
# 1244 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    read (unit, *, iostat=ios) x_coords(iter), stored_values(iter, 1, f)
# 1244 "/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)))
# 1244 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                end do
# 1244 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                close (unit)
# 1244 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            end do
# 1244 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1244 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            ! Calculate offsets
# 1244 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            domain_xstart = x_coords(1)
# 1244 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            x_step = x_cc(1) - x_cc(0)
# 1244 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            delta_x = merge(x_cc(0) - domain_xstart + x_step/2.0, x_cc(index_x) - domain_xstart + x_step/2.0, num_dims == 1)
# 1244 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            global_offset_x = nint(abs(delta_x)/x_step)
# 1244 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        case (3)  ! 3D case - determine grid structure
# 1244 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            ! Find yRows by counting rows with same x
# 1244 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            read (unit2, *, iostat=ios2) x0, y0, dummy_z
# 1244 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            if (ios2 /= 0) call s_mpi_abort("Error reading first line")
# 1244 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1244 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            yrows = 1
# 1244 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            do
# 1244 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                read (unit2, *, iostat=ios2) dummy_x, dummy_y, dummy_z
# 1244 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                if (ios2 /= 0) exit
# 1244 "/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
# 1244 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    yrows = yrows + 1
# 1244 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                else
# 1244 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    exit
# 1244 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                end if
# 1244 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            end do
# 1244 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            close (unit2)
# 1244 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1244 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            ! Count total rows
# 1244 "/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)
# 1244 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            nrows = 0
# 1244 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            do
# 1244 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                read (unit2, *, iostat=ios2) dummy_x, dummy_y, dummy_z
# 1244 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                if (ios2 /= 0) exit
# 1244 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                nrows = nrows + 1
# 1244 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            end do
# 1244 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            close (unit2)
# 1244 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1244 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            xrows = nrows/yrows
# 1244 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#ifdef MFC_DEBUG
# 1244 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    block
# 1244 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        use iso_fortran_env, only: output_unit
# 1244 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1244 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        print *, 'm_icpp_patches.fpp:1244: ', '@:ALLOCATE(x_coords(nrows), y_coords(nrows), stored_values(xRows, yRows, sys_size))'
# 1244 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1244 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        call flush (output_unit)
# 1244 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    end block
# 1244 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#endif
# 1244 "/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))
# 1244 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1244 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1244 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1244 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1244 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#if defined(MFC_OpenACC)
# 1244 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
!$acc enter data create(x_coords, y_coords, stored_values) 
# 1244 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#elif defined(MFC_OpenMP)
# 1244 "/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) 
# 1244 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#endif
# 1244 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            index_x = i
# 1244 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            index_y = j
# 1244 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1244 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            ! Read all files
# 1244 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            do f = 1, max_files
# 1244 "/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)
# 1244 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                if (ios /= 0) then
# 1244 "/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)))
# 1244 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    cycle
# 1244 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                end if
# 1244 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1244 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                iter = 0
# 1244 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                do iix = 1, xrows
# 1244 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    do iiy = 1, yrows
# 1244 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                        iter = iter + 1
# 1244 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                        if (f == 1) then
# 1244 "/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)
# 1244 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                        else
# 1244 "/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)
# 1244 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                        end if
# 1244 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                        if (ios /= 0) call s_mpi_abort("Error reading data")
# 1244 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    end do
# 1244 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                end do
# 1244 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                close (unit)
# 1244 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            end do
# 1244 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1244 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            ! Calculate offsets
# 1244 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            x_step = x_cc(1) - x_cc(0)
# 1244 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            y_step = y_cc(1) - y_cc(0)
# 1244 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            delta_x = x_cc(index_x) - x_coords(1) + x_step/2.0_wp
# 1244 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            delta_y = y_cc(index_y) - y_coords(1) + y_step/2.0_wp
# 1244 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            global_offset_x = nint(abs(delta_x)/x_step)
# 1244 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            global_offset_y = nint(abs(delta_y)/y_step)
# 1244 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        end select
# 1244 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1244 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        files_loaded = .true.
# 1244 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    end if
# 1244 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1244 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    ! Data assignment
# 1244 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    select case (num_dims)
# 1244 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    case (1)
# 1244 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        idx = i + 1 + global_offset_x
# 1244 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        do f = 1, sys_size
# 1244 "/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)
# 1244 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        end do
# 1244 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    case (2)
# 1244 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        idx = i + 1 + global_offset_x - index_x
# 1244 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        do f = 1, sys_size - 1
# 1244 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            jump = merge(1, 0, f >= eqn_idx%mom%end)
# 1244 "/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)
# 1244 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        end do
# 1244 "/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
# 1244 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    case (3)
# 1244 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        idx = i + 1 + global_offset_x - index_x
# 1244 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        idy = j + 1 + global_offset_y - index_y
# 1244 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        do f = 1, sys_size - 1
# 1244 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            jump = merge(1, 0, f >= eqn_idx%mom%end)
# 1244 "/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)
# 1244 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        end do
# 1244 "/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
# 1244 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    end select
# 1244 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    case (380)  ! Taylor-Green vortex
# 1244 "/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
# 1244 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! geometry 9
# 1244 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        mach = 0.1
# 1244 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        if (patch_id == 1) then
# 1244 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(eqn_idx%E)%sf(i, j, &
# 1244 "/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)
# 1244 "/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)
# 1244 "/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)
# 1244 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        end if
# 1244 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    case default
# 1244 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        call s_int_to_str(patch_id, istr)
# 1244 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        call s_mpi_abort("Invalid hcid specified for patch " // trim(istr))
# 1244 "/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
# 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: ', '@:DEALLOCATE(stored_values)'
# 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"
 
# 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 exit data delete(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 exit data map(release: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"
    deallocate (stored_values)
# 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: ', '@:DEALLOCATE(x_coords)'
# 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"
 
# 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 exit data delete(x_coords) 
# 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 exit data map(release:x_coords) 
# 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"
    deallocate (x_coords)
# 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"
    if (allocated(y_coords)) then
# 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: ', '@:DEALLOCATE(y_coords)'
# 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"
 
# 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 exit data delete(y_coords) 
# 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 exit data map(release:y_coords) 
# 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"
    deallocate (y_coords)
# 1253 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    end if
 
    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
 
        ! Variables for IBM+STL
        real(wp)                                :: normals(1:3)  !< Boundary normal buffer
        integer                                 :: boundary_vertex_count, boundary_edge_count, total_vertices  !< Boundary vertex
        real(wp), allocatable, dimension(:,:,:) :: boundary_v  !< Boundary vertex buffer
        integer                                 :: i, j, k  !< Generic loop iterators
        type(t_bbox)                            :: bbox, bbox_old
        type(t_model)                           :: model
        type(ic_model_parameters)               :: params
        real(wp), dimension(1:3)                :: point, model_center
        real(wp)                                :: grid_mm(1:3,1:2)
        integer                                 :: cell_num
        integer                                 :: ncells
        real(wp), dimension(1:4,1:4)            :: transform, transform_n
 
        if (proc_rank == 0) then
            print *, " * Reading model: " // trim(patch_icpp(patch_id)%model_filepath)
        end if
 
        model = f_model_read(patch_icpp(patch_id)%model_filepath)
        params%scale(:) = patch_icpp(patch_id)%model_scale(:)
        params%translate(:) = patch_icpp(patch_id)%model_translate(:)
        params%rotate(:) = patch_icpp(patch_id)%model_rotate(:)
        params%spc = patch_icpp(patch_id)%model_spc
        params%threshold = patch_icpp(patch_id)%model_threshold
 
        if (proc_rank == 0) then
            print *, " * Transforming model."
        end if
 
        ! Get the model center before transforming the model
        bbox_old = f_create_bbox(model)
        model_center(1:3) = (bbox_old%min(1:3) + bbox_old%max(1:3))/2._wp
 
        ! Compute the transform matrices for vertices and normals
        transform = f_create_transform_matrix(params, model_center)
        transform_n = f_create_transform_matrix(params)
 
        call s_transform_model(model, transform, transform_n)
 
        ! Recreate the bounding box after transformation
        bbox = f_create_bbox(model)
 
        ! Show the number of vertices in the original STL model
        if (proc_rank == 0) then
            print *, ' * Number of input model vertices:', 3*model%ntrs
        end if
 
        call s_check_boundary(model, boundary_v, boundary_vertex_count, boundary_edge_count)
 
        ! Show the number of edges and boundary edges in 2D STL models
        if (proc_rank == 0 .and. p == 0) then
            print *, ' * Number of 2D model boundary edges:', boundary_edge_count
        end if
 
        if (proc_rank == 0) then
            write (*, "(A, 3(2X, F20.10))") "    > Model:  Min:", bbox%min(1:3)
            write (*, "(A, 3(2X, F20.10))") "    >         Cen:", (bbox%min(1:3) + bbox%max(1:3))/2._wp
            write (*, "(A, 3(2X, F20.10))") "    >         Max:", bbox%max(1:3)
 
            grid_mm(1,:) = (/minval(x_cc) - 0.e5_wp*dx, maxval(x_cc) + 0.e5_wp*dx/)
            grid_mm(2,:) = (/minval(y_cc) - 0.e5_wp*dy, maxval(y_cc) + 0.e5_wp*dy/)
 
            if (p > 0) then
                grid_mm(3,:) = (/minval(z_cc) - 0.e5_wp*dz, maxval(z_cc) + 0.e5_wp*dz/)
            else
                grid_mm(3,:) = (/0._wp, 0._wp/)
            end if
 
            write (*, "(A, 3(2X, F20.10))") "    > Domain: Min:", grid_mm(:,1)
            write (*, "(A, 3(2X, F20.10))") "    >         Cen:", (grid_mm(:,1) + grid_mm(:,2))/2._wp
            write (*, "(A, 3(2X, F20.10))") "    >         Max:", grid_mm(:,2)
        end if
 
        ncells = (m + 1)*(n + 1)*(p + 1)
        do i = 0, m; do j = 0, n; do k = 0, p
            cell_num = i*(n + 1)*(p + 1) + j*(p + 1) + (k + 1)
            if (proc_rank == 0 .and. mod(cell_num, ncells/100) == 0) then
                write (*, "(A, I3, A)", advance="no") char(13) // "  * Generating grid: ", nint(100*real(cell_num)/ncells), "%"
            end if
 
            point = (/x_cc(i), y_cc(j), 0._wp/)
            if (p > 0) then
                point(3) = z_cc(k)
            end if
 
            if (grid_geometry == 3) then
                point = f_convert_cyl_to_cart(point)
            end if
 
            eta = f_model_is_inside(model, point, (/dx, dy, dz/), patch_icpp(patch_id)%model_spc)
 
            if (eta > patch_icpp(patch_id)%model_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)
 
            ! Note: Should probably use *eta* to compute primitive variables if defining them analytically.
 
        end do; end do; end do
 
        if (proc_rank == 0) then
            print *, ""
            print *, " * Cleaning up."
        end if
 
        call s_model_free(model)
 
    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)
 
 
# 1384 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#if MFC_OpenACC
# 1384 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
!$acc routine seq 
# 1384 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#elif MFC_OpenMP
# 1384 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1384 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1384 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
!$omp declare target device_type(any) 
# 1384 "/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)
 
 
# 1396 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#if MFC_OpenACC
# 1396 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
!$acc routine seq 
# 1396 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#elif MFC_OpenMP
# 1396 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1396 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1396 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
!$omp declare target device_type(any) 
# 1396 "/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)
 
 
# 1408 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#if MFC_OpenACC
# 1408 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
!$acc routine seq 
# 1408 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#elif MFC_OpenMP
# 1408 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1408 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1408 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
!$omp declare target device_type(any) 
# 1408 "/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