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
!> @brief 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 momxe
!>     - Sets momxe 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"
 
# 199 "/home/runner/work/MFC/MFC/src/common/include/ExtrusionHardcodedIC.fpp"
 
# 210 "/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"
 
# 67 "/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
# 19 "/home/runner/work/MFC/MFC/src/common/include/2dHardcodedIC.fpp"
 
# 343 "/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
# 69 "/home/runner/work/MFC/MFC/src/common/include/3dHardcodedIC.fpp"
 
# 198 "/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"
 
# 207 "/home/runner/work/MFC/MFC/src/common/include/omp_macros.fpp"
 
# 232 "/home/runner/work/MFC/MFC/src/common/include/omp_macros.fpp"
 
# 243 "/home/runner/work/MFC/MFC/src/common/include/omp_macros.fpp"
 
# 245 "/home/runner/work/MFC/MFC/src/common/include/omp_macros.fpp"
# 255 "/home/runner/work/MFC/MFC/src/common/include/omp_macros.fpp"
 
# 283 "/home/runner/work/MFC/MFC/src/common/include/omp_macros.fpp"
 
# 293 "/home/runner/work/MFC/MFC/src/common/include/omp_macros.fpp"
 
# 303 "/home/runner/work/MFC/MFC/src/common/include/omp_macros.fpp"
 
# 312 "/home/runner/work/MFC/MFC/src/common/include/omp_macros.fpp"
 
# 329 "/home/runner/work/MFC/MFC/src/common/include/omp_macros.fpp"
 
# 339 "/home/runner/work/MFC/MFC/src/common/include/omp_macros.fpp"
 
# 346 "/home/runner/work/MFC/MFC/src/common/include/omp_macros.fpp"
 
# 352 "/home/runner/work/MFC/MFC/src/common/include/omp_macros.fpp"
 
# 358 "/home/runner/work/MFC/MFC/src/common/include/omp_macros.fpp"
 
# 364 "/home/runner/work/MFC/MFC/src/common/include/omp_macros.fpp"
 
# 370 "/home/runner/work/MFC/MFC/src/common/include/omp_macros.fpp"
 
# 376 "/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"
 
# 192 "/home/runner/work/MFC/MFC/src/common/include/acc_macros.fpp"
 
# 213 "/home/runner/work/MFC/MFC/src/common/include/acc_macros.fpp"
 
# 241 "/home/runner/work/MFC/MFC/src/common/include/acc_macros.fpp"
 
# 256 "/home/runner/work/MFC/MFC/src/common/include/acc_macros.fpp"
 
# 266 "/home/runner/work/MFC/MFC/src/common/include/acc_macros.fpp"
 
# 275 "/home/runner/work/MFC/MFC/src/common/include/acc_macros.fpp"
 
# 291 "/home/runner/work/MFC/MFC/src/common/include/acc_macros.fpp"
 
# 301 "/home/runner/work/MFC/MFC/src/common/include/acc_macros.fpp"
 
# 308 "/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
 
# 21 "/home/runner/work/MFC/MFC/src/common/include/parallel_macros.fpp"
 
# 37 "/home/runner/work/MFC/MFC/src/common/include/parallel_macros.fpp"
 
# 50 "/home/runner/work/MFC/MFC/src/common/include/parallel_macros.fpp"
 
# 104 "/home/runner/work/MFC/MFC/src/common/include/parallel_macros.fpp"
 
# 119 "/home/runner/work/MFC/MFC/src/common/include/parallel_macros.fpp"
 
# 130 "/home/runner/work/MFC/MFC/src/common/include/parallel_macros.fpp"
 
# 143 "/home/runner/work/MFC/MFC/src/common/include/parallel_macros.fpp"
 
# 171 "/home/runner/work/MFC/MFC/src/common/include/parallel_macros.fpp"
 
# 182 "/home/runner/work/MFC/MFC/src/common/include/parallel_macros.fpp"
 
# 193 "/home/runner/work/MFC/MFC/src/common/include/parallel_macros.fpp"
 
# 204 "/home/runner/work/MFC/MFC/src/common/include/parallel_macros.fpp"
 
# 214 "/home/runner/work/MFC/MFC/src/common/include/parallel_macros.fpp"
 
# 225 "/home/runner/work/MFC/MFC/src/common/include/parallel_macros.fpp"
 
# 236 "/home/runner/work/MFC/MFC/src/common/include/parallel_macros.fpp"
 
# 246 "/home/runner/work/MFC/MFC/src/common/include/parallel_macros.fpp"
 
# 252 "/home/runner/work/MFC/MFC/src/common/include/parallel_macros.fpp"
 
# 258 "/home/runner/work/MFC/MFC/src/common/include/parallel_macros.fpp"
 
# 264 "/home/runner/work/MFC/MFC/src/common/include/parallel_macros.fpp"
 
# 270 "/home/runner/work/MFC/MFC/src/common/include/parallel_macros.fpp"
 
# 272 "/home/runner/work/MFC/MFC/src/common/include/parallel_macros.fpp"
# 273 "/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.
# 63 "/home/runner/work/MFC/MFC/src/common/include/macros.fpp"
 
# 81 "/home/runner/work/MFC/MFC/src/common/include/macros.fpp"
 
# 88 "/home/runner/work/MFC/MFC/src/common/include/macros.fpp"
 
# 111 "/home/runner/work/MFC/MFC/src/common/include/macros.fpp"
 
# 127 "/home/runner/work/MFC/MFC/src/common/include/macros.fpp"
 
# 153 "/home/runner/work/MFC/MFC/src/common/include/macros.fpp"
 
# 159 "/home/runner/work/MFC/MFC/src/common/include/macros.fpp"
 
# 167 "/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     !< definitions of the global parameters
 
    use m_helper_basic          !< functions to compare floating point numbers
 
    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 !<
    !! These variables are analogous in both meaning and use to the similarly
    !! named components in the ic_patch_parameters type (see m_derived_types.f90
    !! for additional details). They are employed as a means to more concisely
    !! perform the actions necessary to lay out a particular patch on the grid.
 
    real(wp) :: eta !<
    !! In the case that smoothing of patch boundaries is enabled and the boundary
    !! between two adjacent patches is to be smeared out, this variable's purpose
    !! is to act as a pseudo volume fraction to indicate the contribution of each
    !! patch toward the composition of a cell's fluid state.
 
    real(wp) :: cart_x, cart_y, cart_z
    real(wp) :: sph_phi !<
    !! Variables to be used to hold cell locations in Cartesian coordinates if
    !! 3D simulation is using cylindrical coordinates
 
    type(bounds_info) :: x_boundary, y_boundary, z_boundary  !<
    !! These variables combine the centroid and length parameters associated with
    !! a particular patch to yield the locations of the patch boundaries in the
    !! x-, y- and z-coordinate directions. They are used as a means to concisely
    !! perform the actions necessary to lay out a particular patch on the grid.
 
    character(len=5) :: istr ! string to store int to string result for error checking
 
contains
 
    !> @brief Dispatches 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
                elseif (patch_icpp(i)%geometry == 9) then
                    call s_icpp_cuboid(i, patch_id_fp, q_prim_vf)
                    ! Cylindrical patch
                elseif (patch_icpp(i)%geometry == 10) then
                    call s_icpp_cylinder(i, patch_id_fp, q_prim_vf)
                    ! Swept plane patch
                elseif (patch_icpp(i)%geometry == 11) then
                    call s_icpp_sweep_plane(i, patch_id_fp, q_prim_vf)
                    ! Ellipsoidal patch
                elseif (patch_icpp(i)%geometry == 12) then
                    call s_icpp_ellipsoid(i, patch_id_fp, q_prim_vf)
                    ! Spherical harmonic patch
                elseif (patch_icpp(i)%geometry == 14) then
                    call s_icpp_spherical_harmonic(i, patch_id_fp, q_prim_vf)
                    ! 3D Modified circular patch
                elseif (patch_icpp(i)%geometry == 19) then
                    call s_icpp_3dvarcircle(i, patch_id_fp, q_prim_vf)
                    ! 3D STL patch
                elseif (patch_icpp(i)%geometry == 21) then
                    call s_icpp_model(i, patch_id_fp, q_prim_vf)
                end if
            end do
            !> @}
 
            ! 2D Patch Geometries
        elseif (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
                elseif (patch_icpp(i)%geometry == 3) then
                    call s_icpp_rectangle(i, patch_id_fp, q_prim_vf)
                    ! Swept line patch
                elseif (patch_icpp(i)%geometry == 4) then
                    call s_icpp_sweep_line(i, patch_id_fp, q_prim_vf)
                    ! Elliptical patch
                elseif (patch_icpp(i)%geometry == 5) then
                    call s_icpp_ellipse(i, patch_id_fp, q_prim_vf)
                    ! Unimplemented patch (formerly isentropic vortex)
                elseif (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.')
                    ! Spherical Harmonic Patch
                elseif (patch_icpp(i)%geometry == 14) then
                    call s_icpp_spherical_harmonic(i, patch_id_fp, q_prim_vf)
                    ! Spiral patch
                elseif (patch_icpp(i)%geometry == 17) then
                    call s_icpp_spiral(i, patch_id_fp, q_prim_vf)
                    ! Modified circular patch
                elseif (patch_icpp(i)%geometry == 18) then
                    call s_icpp_varcircle(i, patch_id_fp, q_prim_vf)
                    ! TaylorGreen vortex patch
                elseif (patch_icpp(i)%geometry == 20) then
                    call s_icpp_2d_taylorgreen_vortex(i, patch_id_fp, q_prim_vf)
                    ! STL patch
                elseif (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
                elseif (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.
    !! @param patch_id patch identifier
    !! @param patch_id_fp Array to track patch ids
    !! @param q_prim_vf Array of primitive variables
    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
# 210 "/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
# 210 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    real(wp) :: x_len, x_step, y_len, y_step
# 210 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    real(wp) :: dummy_x, dummy_y, dummy_z, x0, y0
# 210 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    integer :: global_offset_x, global_offset_y           ! MPI subdomain offset
# 210 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    real(wp) :: delta_x, delta_y
# 210 "/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
# 210 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    character(len=200) :: errmsg
# 210 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    real(wp), allocatable :: stored_values(:, :, :)
# 210 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    real(wp), allocatable :: x_coords(:), y_coords(:)
# 210 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    logical :: files_loaded = .false.
# 210 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    real(wp) :: domain_xstart, domain_xend, domain_ystart, domain_yend
# 210 "/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/
# 210 "/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
# 210 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    character(len=20) :: zeros_part       ! For the trailing zeros part
# 210 "/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
# 211 "/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
 
        ! Since the line segment patch does not allow for its boundaries to
        ! be smoothed out, the pseudo volume fraction is set to 1 to ensure
        ! that only the current patch contributes to the fluid state in the
        ! cells that this patch covers.
        eta = 1._wp
 
        ! Checking whether the line segment covers a particular cell in the
        ! domain and verifying whether the current patch has the permission
        ! to write to that cell. If both queries check out, the primitive
        ! variables of the current patch are assigned to this cell.
        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)
# 250 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    case (150) ! 1D Smooth Alfven Case for MHD
# 250 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! velocity
# 250 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        q_prim_vf(momxb + 1)%sf(i, 0, 0) = 0.1_wp*sin(2._wp*pi*x_cc(i))
# 250 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        q_prim_vf(momxb + 2)%sf(i, 0, 0) = 0.1_wp*cos(2._wp*pi*x_cc(i))
# 250 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 250 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! magnetic field
# 250 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        q_prim_vf(b_idx%end - 1)%sf(i, 0, 0) = 0.1_wp*sin(2._wp*pi*x_cc(i))
# 250 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        q_prim_vf(b_idx%end)%sf(i, 0, 0) = 0.1_wp*cos(2._wp*pi*x_cc(i))
# 250 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 250 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    case (170)
# 250 "/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, SDtoolbox)
# 250 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 250 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    if (.not. files_loaded) then
# 250 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        max_files = merge(sys_size, sys_size - 1, num_dims == 1)
# 250 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        do f = 1, max_files
# 250 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            write (file_num_str, '(I0)') f
# 250 "/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"
# 250 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        end do
# 250 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 250 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! Common file reading setup
# 250 "/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)
# 250 "/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)))
# 250 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 250 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        select case (num_dims)
# 250 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        case (1, 2)  ! 1D and 2D cases are similar
# 250 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            ! Count lines
# 250 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            line_count = 0
# 250 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            do
# 250 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                read (unit2, *, iostat=ios2) dummy_x, dummy_y
# 250 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                if (ios2 /= 0) exit
# 250 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                line_count = line_count + 1
# 250 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            end do
# 250 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            close (unit2)
# 250 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 250 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            xrows = line_count
# 250 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            yrows = 1
# 250 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            index_x = 0
# 250 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            if (num_dims == 2) index_x = i
# 250 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#ifdef MFC_DEBUG
# 250 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    block
# 250 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        use iso_fortran_env, only: output_unit
# 250 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 250 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        print *, 'm_icpp_patches.fpp:250: ', '@:ALLOCATE(x_coords(xRows), stored_values(xRows, 1, sys_size))'
# 250 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 250 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        call flush (output_unit)
# 250 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    end block
# 250 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#endif
# 250 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    allocate (x_coords(xrows), stored_values(xrows, 1, sys_size))
# 250 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 250 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 250 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 250 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#if defined(MFC_OpenACC)
# 250 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
!$acc enter data create(x_coords, stored_values) 
# 250 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#elif defined(MFC_OpenMP)
# 250 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
!$omp target enter data map(always,alloc:x_coords, stored_values) 
# 250 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#endif
# 250 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 250 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            ! Read data from all files
# 250 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            do f = 1, max_files
# 250 "/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)
# 250 "/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)))
# 250 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 250 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                do iter = 1, xrows
# 250 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    read (unit, *, iostat=ios) x_coords(iter), stored_values(iter, 1, f)
# 250 "/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)))
# 250 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                end do
# 250 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                close (unit)
# 250 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            end do
# 250 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 250 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            ! Calculate offsets
# 250 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            domain_xstart = x_coords(1)
# 250 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            x_step = x_cc(1) - x_cc(0)
# 250 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            delta_x = merge(x_cc(0) - domain_xstart + x_step/2.0, &
# 250 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                            x_cc(index_x) - domain_xstart + x_step/2.0, num_dims == 1)
# 250 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            global_offset_x = nint(abs(delta_x)/x_step)
# 250 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 250 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        case (3)  ! 3D case - determine grid structure
# 250 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            ! Find yRows by counting rows with same x
# 250 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            read (unit2, *, iostat=ios2) x0, y0, dummy_z
# 250 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            if (ios2 /= 0) call s_mpi_abort("Error reading first line")
# 250 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 250 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            yrows = 1
# 250 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            do
# 250 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                read (unit2, *, iostat=ios2) dummy_x, dummy_y, dummy_z
# 250 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                if (ios2 /= 0) exit
# 250 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                if (dummy_x == x0 .and. dummy_y /= y0) then
# 250 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    yrows = yrows + 1
# 250 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                else
# 250 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    exit
# 250 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                end if
# 250 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            end do
# 250 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            close (unit2)
# 250 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 250 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            ! Count total rows
# 250 "/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)
# 250 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            nrows = 0
# 250 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            do
# 250 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                read (unit2, *, iostat=ios2) dummy_x, dummy_y, dummy_z
# 250 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                if (ios2 /= 0) exit
# 250 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                nrows = nrows + 1
# 250 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            end do
# 250 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            close (unit2)
# 250 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 250 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            xrows = nrows/yrows
# 250 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#ifdef MFC_DEBUG
# 250 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    block
# 250 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        use iso_fortran_env, only: output_unit
# 250 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 250 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        print *, 'm_icpp_patches.fpp:250: ', '@:ALLOCATE(x_coords(nrows), y_coords(nrows), stored_values(xRows, yRows, sys_size))'
# 250 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 250 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        call flush (output_unit)
# 250 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    end block
# 250 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#endif
# 250 "/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))
# 250 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 250 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 250 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 250 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 250 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#if defined(MFC_OpenACC)
# 250 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
!$acc enter data create(x_coords, y_coords, stored_values) 
# 250 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#elif defined(MFC_OpenMP)
# 250 "/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) 
# 250 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#endif
# 250 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            index_x = i
# 250 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            index_y = j
# 250 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 250 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            ! Read all files
# 250 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            do f = 1, max_files
# 250 "/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)
# 250 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                if (ios /= 0) then
# 250 "/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)))
# 250 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    cycle
# 250 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                end if
# 250 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 250 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                iter = 0
# 250 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                do iix = 1, xrows
# 250 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    do iiy = 1, yrows
# 250 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                        iter = iter + 1
# 250 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                        if (f == 1) then
# 250 "/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)
# 250 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                        else
# 250 "/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)
# 250 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                        end if
# 250 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                        if (ios /= 0) call s_mpi_abort("Error reading data")
# 250 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    end do
# 250 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                end do
# 250 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                close (unit)
# 250 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            end do
# 250 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 250 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            ! Calculate offsets
# 250 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            x_step = x_cc(1) - x_cc(0)
# 250 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            y_step = y_cc(1) - y_cc(0)
# 250 "/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
# 250 "/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
# 250 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            global_offset_x = nint(abs(delta_x)/x_step)
# 250 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            global_offset_y = nint(abs(delta_y)/y_step)
# 250 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        end select
# 250 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 250 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        files_loaded = .true.
# 250 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    end if
# 250 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 250 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    ! Data assignment
# 250 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    select case (num_dims)
# 250 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    case (1)
# 250 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        idx = i + 1 + global_offset_x
# 250 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        do f = 1, sys_size
# 250 "/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)
# 250 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        end do
# 250 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 250 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    case (2)
# 250 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        idx = i + 1 + global_offset_x - index_x
# 250 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        do f = 1, sys_size - 1
# 250 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            jump = merge(1, 0, f >= momxe)
# 250 "/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)
# 250 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        end do
# 250 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        q_prim_vf(momxe)%sf(i, j, 0) = 0.0_wp
# 250 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 250 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    case (3)
# 250 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        idx = i + 1 + global_offset_x - index_x
# 250 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        idy = j + 1 + global_offset_y - index_y
# 250 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        do f = 1, sys_size - 1
# 250 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            jump = merge(1, 0, f >= momxe)
# 250 "/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)
# 250 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        end do
# 250 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        q_prim_vf(momxe)%sf(i, j, k) = 0.0_wp
# 250 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    end select
# 250 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 250 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    case (180)
# 250 "/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
# 250 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! 1D_shuoser cases: "patch_icpp(2)%alpha_rho(1)": "1 + 0.2*sin(5*x)"
# 250 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        if (patch_id == 2) then
# 250 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(contxb + 0)%sf(i, 0, 0) = 1 + 0.2*sin(5*x_cc(i))
# 250 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        end if
# 250 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 250 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    case (181)
# 250 "/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
# 250 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! 1D_titarevtorro cases: "patch_icpp(2)%alpha_rho(1)": "1 + 0.1*sin(20*x*pi)"
# 250 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        q_prim_vf(contxb + 0)%sf(i, 0, 0) = 1 + 0.1*sin(20*x_cc(i)*pi)
# 250 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 250 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    case (182)
# 250 "/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)
# 250 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        x_mid_diffu = 0.05_wp/2.0_wp
# 250 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        width_sq = (2.5_wp*10.0_wp**(-3.0_wp))**2
# 250 "/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)
# 250 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        q_prim_vf(momxb)%sf(i, 0, 0) = 0.0_wp
# 250 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        q_prim_vf(e_idx)%sf(i, 0, 0) = 1.01325_wp*(10.0_wp)**5
# 250 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        q_prim_vf(advxb)%sf(i, 0, 0) = 1.0_wp
# 250 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 250 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        y1 = (0.195_wp - 0.142_wp)*profile_shape + 0.142_wp
# 250 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        y2 = (0.0_wp - 0.1_wp)*profile_shape + 0.1_wp
# 250 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        y3 = (0.214_wp - 0.0_wp)*profile_shape + 0.0_wp
# 250 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        y4 = (0.591_wp - 0.758_wp)*profile_shape + 0.758_wp
# 250 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 250 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        q_prim_vf(chemxb)%sf(i, 0, 0) = y1
# 250 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        q_prim_vf(chemxb + 1)%sf(i, 0, 0) = y2
# 250 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        q_prim_vf(chemxb + 2)%sf(i, 0, 0) = y3
# 250 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        q_prim_vf(chemxb + 3)%sf(i, 0, 0) = y4
# 250 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 250 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        temp = (320.0_wp - 1350.0_wp)*profile_shape + 1350.0_wp
# 250 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 250 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        molar_mass_inv = y1/31.998_wp + &
# 250 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                         y2/18.01508_wp + &
# 250 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                         y3/16.04256_wp + &
# 250 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                         y4/28.0134_wp
# 250 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 250 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        q_prim_vf(contxb)%sf(i, 0, 0) = 1.01325_wp*(10.0_wp)**5/(temp*8.3144626_wp*1000.0_wp*molar_mass_inv)
# 250 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 250 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    case default
# 250 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        call s_int_to_str(patch_id, istr)
# 250 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        call s_mpi_abort("Invalid hcid specified for patch "//trim(istr))
# 250 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    end select
# 250 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
                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
# 258 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#ifdef MFC_DEBUG
# 258 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    block
# 258 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        use iso_fortran_env, only: output_unit
# 258 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 258 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        print *, 'm_icpp_patches.fpp:258: ', '@:DEALLOCATE(stored_values)'
# 258 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 258 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        call flush (output_unit)
# 258 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    end block
# 258 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#endif
# 258 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 258 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#if defined(MFC_OpenACC)
# 258 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
!$acc exit data delete(stored_values) 
# 258 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#elif defined(MFC_OpenMP)
# 258 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
!$omp target exit data map(release:stored_values) 
# 258 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#endif
# 258 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    deallocate (stored_values)
# 258 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#ifdef MFC_DEBUG
# 258 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    block
# 258 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        use iso_fortran_env, only: output_unit
# 258 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 258 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        print *, 'm_icpp_patches.fpp:258: ', '@:DEALLOCATE(x_coords)'
# 258 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 258 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        call flush (output_unit)
# 258 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    end block
# 258 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#endif
# 258 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 258 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#if defined(MFC_OpenACC)
# 258 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
!$acc exit data delete(x_coords) 
# 258 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#elif defined(MFC_OpenMP)
# 258 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
!$omp target exit data map(release:x_coords) 
# 258 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#endif
# 258 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    deallocate (x_coords)
# 258 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    end if
# 258 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 258 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    if (allocated(y_coords)) then
# 258 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#ifdef MFC_DEBUG
# 258 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    block
# 258 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        use iso_fortran_env, only: output_unit
# 258 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 258 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        print *, 'm_icpp_patches.fpp:258: ', '@:DEALLOCATE(y_coords)'
# 258 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 258 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        call flush (output_unit)
# 258 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    end block
# 258 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#endif
# 258 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 258 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#if defined(MFC_OpenACC)
# 258 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
!$acc exit data delete(y_coords) 
# 258 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#elif defined(MFC_OpenMP)
# 258 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
!$omp target exit data map(release:y_coords) 
# 258 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#endif
# 258 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    deallocate (y_coords)
# 258 "/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.
        !! @param patch_id patch identifier
        !! @param patch_id_fp Array to track patch ids
        !! @param q_prim_vf Array of primitive variables
    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
# 282 "/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
# 282 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    real(wp) :: x_len, x_step, y_len, y_step
# 282 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    real(wp) :: dummy_x, dummy_y, dummy_z, x0, y0
# 282 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    integer :: global_offset_x, global_offset_y           ! MPI subdomain offset
# 282 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    real(wp) :: delta_x, delta_y
# 282 "/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
# 282 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    character(len=200) :: errmsg
# 282 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    real(wp), allocatable :: stored_values(:, :, :)
# 282 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    real(wp), allocatable :: x_coords(:), y_coords(:)
# 282 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    logical :: files_loaded = .false.
# 282 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    real(wp) :: domain_xstart, domain_xend, domain_ystart, domain_yend
# 282 "/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/
# 282 "/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
# 282 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    character(len=20) :: zeros_part       ! For the trailing zeros part
# 282 "/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
# 283 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    real(wp) :: eps, eps_mhd, c_mhd
# 283 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    real(wp) :: r, rmax, gam, umax, p0
# 283 "/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
# 283 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    real(wp) :: factor
# 283 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    real(wp) :: r0, alpha, r2
# 283 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    real(wp) :: sina, cosa
# 283 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 283 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    real(wp) :: r_sq
# 283 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 283 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    ! # 207
# 283 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    real(wp) :: sigma, gauss1, gauss2
# 283 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    ! # 208
# 283 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    real(wp) :: ei, d, fsm, alpha_air, alpha_sf6
# 283 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 283 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    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
 
# 324 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    select case (patch_icpp(patch_id)%hcid) ! 2D_hardcoded_ic example case
# 324 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 324 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    case (200)
# 324 "/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
# 324 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            ! Volume Fractions
# 324 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(advxb)%sf(i, j, 0) = eps
# 324 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(advxe)%sf(i, j, 0) = 1._wp - eps
# 324 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            ! Denssities
# 324 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(contxb)%sf(i, j, 0) = eps*1000._wp
# 324 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(contxe)%sf(i, j, 0) = (1._wp - eps)*1._wp
# 324 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            ! Pressure
# 324 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(e_idx)%sf(i, j, 0) = 1000._wp
# 324 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        end if
# 324 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    case (202) ! Gresho vortex (Gouasmi et al 2022 JCP)
# 324 "/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
# 324 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        rmax = 0.2_wp
# 324 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 324 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        gam = 1._wp + 1._wp/fluid_pp(1)%gamma
# 324 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        umax = 2*pi*rmax*patch_icpp(patch_id)%vel(2)
# 324 "/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)
# 324 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 324 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        if (r < rmax) then
# 324 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(momxb)%sf(i, j, 0) = -(y_cc(j) - 0.5_wp)*umax/rmax
# 324 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(momxe)%sf(i, j, 0) = (x_cc(i) - 0.5_wp)*umax/rmax
# 324 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(e_idx)%sf(i, j, 0) = p0 + umax**2*((r/rmax)**2._wp/2._wp)
# 324 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        else if (r < 2*rmax) then
# 324 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(momxb)%sf(i, j, 0) = -((y_cc(j) - 0.5_wp)/r)*umax*(2._wp - r/rmax)
# 324 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(momxe)%sf(i, j, 0) = ((x_cc(i) - 0.5_wp)/r)*umax*(2._wp - r/rmax)
# 324 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(e_idx)%sf(i, j, 0) = p0 + umax**2*((r/rmax)**2/2._wp + 4*(1 - (r/rmax) + log(r/rmax)))
# 324 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        else
# 324 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(momxb)%sf(i, j, 0) = 0._wp
# 324 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(momxe)%sf(i, j, 0) = 0._wp
# 324 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(e_idx)%sf(i, j, 0) = p0 + umax**2*(-2 + 4*log(2._wp))
# 324 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        end if
# 324 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    case (203) ! Gresho vortex (Gouasmi et al 2022 JCP) with density correction
# 324 "/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
# 324 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        rmax = 0.2_wp
# 324 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 324 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        gam = 1._wp + 1._wp/fluid_pp(1)%gamma
# 324 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        umax = 2*pi*rmax*patch_icpp(patch_id)%vel(2)
# 324 "/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)
# 324 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 324 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        if (r < rmax) then
# 324 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(momxb)%sf(i, j, 0) = -(y_cc(j) - 0.5_wp)*umax/rmax
# 324 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(momxe)%sf(i, j, 0) = (x_cc(i) - 0.5_wp)*umax/rmax
# 324 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(e_idx)%sf(i, j, 0) = p0 + umax**2*((r/rmax)**2._wp/2._wp)
# 324 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        else if (r < 2*rmax) then
# 324 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(momxb)%sf(i, j, 0) = -((y_cc(j) - 0.5_wp)/r)*umax*(2._wp - r/rmax)
# 324 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(momxe)%sf(i, j, 0) = ((x_cc(i) - 0.5_wp)/r)*umax*(2._wp - r/rmax)
# 324 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(e_idx)%sf(i, j, 0) = p0 + umax**2*((r/rmax)**2/2._wp + 4._wp*(1._wp - (r/rmax) + log(r/rmax)))
# 324 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        else
# 324 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(momxb)%sf(i, j, 0) = 0._wp
# 324 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(momxe)%sf(i, j, 0) = 0._wp
# 324 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(e_idx)%sf(i, j, 0) = p0 + umax**2._wp*(-2._wp + 4*log(2._wp))
# 324 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        end if
# 324 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 324 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        q_prim_vf(contxb)%sf(i, j, 0) = q_prim_vf(e_idx)%sf(i, j, 0)**(1._wp/gam)
# 324 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    case (204) ! Rayleigh-Taylor instability
# 324 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        rhoh = 3._wp
# 324 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        rhol = 1._wp
# 324 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        pref = 1.e5_wp
# 324 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        pint = pref
# 324 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        h = 0.7_wp
# 324 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        lam = 0.2_wp
# 324 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        wl = 2._wp*pi/lam
# 324 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        amp = 0.05_wp/wl
# 324 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 324 "/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
# 324 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 324 "/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))
# 324 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 324 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        if (alph < eps) alph = eps
# 324 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        if (alph > 1._wp - eps) alph = 1._wp - eps
# 324 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 324 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        if (y_cc(j) > inth) then
# 324 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(advxb)%sf(i, j, 0) = alph
# 324 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(advxe)%sf(i, j, 0) = 1._wp - alph
# 324 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(contxb)%sf(i, j, 0) = alph*rhoh
# 324 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(contxe)%sf(i, j, 0) = (1._wp - alph)*rhol
# 324 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(e_idx)%sf(i, j, 0) = pref + rhoh*9.81_wp*(1.2_wp - y_cc(j))
# 324 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        else
# 324 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(advxb)%sf(i, j, 0) = alph
# 324 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(advxe)%sf(i, j, 0) = 1._wp - alph
# 324 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(contxb)%sf(i, j, 0) = alph*rhoh
# 324 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(contxe)%sf(i, j, 0) = (1._wp - alph)*rhol
# 324 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            pint = pref + rhoh*9.81_wp*(1.2_wp - inth)
# 324 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(e_idx)%sf(i, j, 0) = pint + rhol*9.81_wp*(inth - y_cc(j))
# 324 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        end if
# 324 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 324 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    case (205) ! 2D lung wave interaction problem
# 324 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        h = 0.0_wp           !non dim origin y
# 324 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        lam = 1.0_wp         !non dim lambda
# 324 "/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
# 324 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 324 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        inth = amp*sin(2*pi*x_cc(i)/lam - pi/2) + h
# 324 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 324 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        if (y_cc(j) > inth) then
# 324 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(contxb)%sf(i, j, 0) = patch_icpp(1)%alpha_rho(1)
# 324 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(contxe)%sf(i, j, 0) = patch_icpp(1)%alpha_rho(2)
# 324 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(e_idx)%sf(i, j, 0) = patch_icpp(1)%pres
# 324 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(advxb)%sf(i, j, 0) = patch_icpp(1)%alpha(1)
# 324 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(advxe)%sf(i, j, 0) = patch_icpp(1)%alpha(2)
# 324 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        end if
# 324 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 324 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    case (206) ! 2D lung wave interaction problem - horizontal domain
# 324 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        h = 0.0_wp           !non dim origin y
# 324 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        lam = 1.0_wp         !non dim lambda
# 324 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        amp = patch_icpp(patch_id)%a(2)
# 324 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 324 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        intl = amp*sin(2*pi*y_cc(j)/lam - pi/2) + h
# 324 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 324 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        if (x_cc(i) > intl) then        !this is the liquid
# 324 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(contxb)%sf(i, j, 0) = patch_icpp(1)%alpha_rho(1)
# 324 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(contxe)%sf(i, j, 0) = patch_icpp(1)%alpha_rho(2)
# 324 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(e_idx)%sf(i, j, 0) = patch_icpp(1)%pres
# 324 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(advxb)%sf(i, j, 0) = patch_icpp(1)%alpha(1)
# 324 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(advxe)%sf(i, j, 0) = patch_icpp(1)%alpha(2)
# 324 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        end if
# 324 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 324 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    case (207) ! Kelvin Helmholtz Instability
# 324 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        sigma = 0.05_wp/sqrt(2.0_wp)
# 324 "/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))
# 324 "/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))
# 324 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        q_prim_vf(momxb + 1)%sf(i, j, 0) = &
# 324 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            0.1_wp*sin(4.0_wp*pi*x_cc(i))*(gauss1 + gauss2)
# 324 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 324 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    case (208) ! Richtmeyer Meshkov Instability
# 324 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        lam = 1.0_wp
# 324 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        eps = 1.0e-6_wp
# 324 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ei = 5.0_wp
# 324 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! Smoothening function to smooth out sharp discontinuity in the interface
# 324 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        if (x_cc(i) <= 0.7_wp*lam) then
# 324 "/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)))
# 324 "/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))))
# 324 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            alpha_air = eps + (1.0_wp - 2.0_wp*eps)*fsm
# 324 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            alpha_sf6 = 1.0_wp - alpha_air
# 324 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(contxb)%sf(i, j, 0) = alpha_sf6*5.04_wp
# 324 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(contxe)%sf(i, j, 0) = alpha_air*1.0_wp
# 324 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(advxb)%sf(i, j, 0) = alpha_sf6
# 324 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(advxe)%sf(i, j, 0) = alpha_air
# 324 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        end if
# 324 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 324 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    case (250) ! MHD Orszag-Tang vortex
# 324 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! gamma = 5/3
# 324 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        !   rho = 25/(36*pi)
# 324 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        !     p = 5/(12*pi)
# 324 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        !     v = (-sin(2*pi*y), sin(2*pi*x), 0)
# 324 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        !     B = (-sin(2*pi*y)/sqrt(4*pi), sin(4*pi*x)/sqrt(4*pi), 0)
# 324 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 324 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        q_prim_vf(momxb)%sf(i, j, 0) = -sin(2._wp*pi*y_cc(j))
# 324 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        q_prim_vf(momxb + 1)%sf(i, j, 0) = sin(2._wp*pi*x_cc(i))
# 324 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 324 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        q_prim_vf(b_idx%beg)%sf(i, j, 0) = -sin(2._wp*pi*y_cc(j))/sqrt(4._wp*pi)
# 324 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        q_prim_vf(b_idx%beg + 1)%sf(i, j, 0) = sin(4._wp*pi*x_cc(i))/sqrt(4._wp*pi)
# 324 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 324 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    case (251) ! RMHD Cylindrical Blast Wave [Mignone, 2006: Section 4.3.1]
# 324 "/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
# 324 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(contxb)%sf(i, j, 0) = 0.01
# 324 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(e_idx)%sf(i, j, 0) = 1.0
# 324 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        elseif (x_cc(i)**2 + y_cc(j)**2 <= 1._wp**2) then
# 324 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            ! Linear interpolation between r=0.08 and r=1.0
# 324 "/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)
# 324 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(contxb)%sf(i, j, 0) = 0.01_wp*factor + 1.e-4_wp*(1.0_wp - factor)
# 324 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(e_idx)%sf(i, j, 0) = 1.0_wp*factor + 3.e-5_wp*(1.0_wp - factor)
# 324 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        else
# 324 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(contxb)%sf(i, j, 0) = 1.e-4_wp
# 324 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(e_idx)%sf(i, j, 0) = 3.e-5_wp
# 324 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        end if
# 324 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 324 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! case 252 is for the 2D MHD Rotor problem
# 324 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    case (252) ! 2D MHD Rotor Problem
# 324 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! Ambient conditions are set in the JSON file.
# 324 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! This case imposes the dense, rotating cylinder.
# 324 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        !
# 324 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! gamma = 1.4
# 324 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! Ambient medium (r > 0.1):
# 324 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        !   rho = 1, p = 1, v = 0, B = (1,0,0)
# 324 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! Rotor (r <= 0.1):
# 324 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        !   rho = 10, p = 1
# 324 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        !   v has angular velocity w=20, giving v_tan=2 at r=0.1
# 324 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 324 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! Calculate distance squared from the center
# 324 "/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
# 324 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 324 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! inner radius of 0.1
# 324 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        if (r_sq <= 0.1**2) then
# 324 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            ! -- Inside the rotor --
# 324 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            ! Set density uniformly to 10
# 324 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(contxb)%sf(i, j, 0) = 10._wp
# 324 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 324 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            ! Set vup constant rotation of rate v=2
# 324 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            ! v_x = -omega * (y - y_c)
# 324 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            ! v_y =  omega * (x - x_c)
# 324 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(momxb)%sf(i, j, 0) = -20._wp*(y_cc(j) - 0.5_wp)
# 324 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(momxb + 1)%sf(i, j, 0) = 20._wp*(x_cc(i) - 0.5_wp)
# 324 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 324 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            ! taper width of 0.015
# 324 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        else if (r_sq <= 0.115**2) then
# 324 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            ! linearly smooth the function between r = 0.1 and 0.115
# 324 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(contxb)%sf(i, j, 0) = 1._wp + 9._wp*(0.115_wp - sqrt(r_sq))/(0.015_wp)
# 324 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 324 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(momxb)%sf(i, j, 0) = -(2._wp/sqrt(r_sq))*(y_cc(j) - 0.5_wp)*(0.115_wp - sqrt(r_sq))/(0.015_wp)
# 324 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(momxb + 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)
# 324 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        end if
# 324 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 324 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    case (253) ! MHD Smooth Magnetic Vortex
# 324 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! Section 5.2 of
# 324 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! Implicit hybridized discontinuous Galerkin methods for compressible magnetohydrodynamics
# 324 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! C. Ciuca, P. Fernandez, A. Christophe, N.C. Nguyen, J. Peraire
# 324 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 324 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! velocity
# 324 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        q_prim_vf(momxb)%sf(i, j, 0) = 1._wp - (y_cc(j)*exp(1 - (x_cc(i)**2 + y_cc(j)**2))/(2.*pi))
# 324 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        q_prim_vf(momxb + 1)%sf(i, j, 0) = 1._wp + (x_cc(i)*exp(1 - (x_cc(i)**2 + y_cc(j)**2))/(2.*pi))
# 324 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 324 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! magnetic field
# 324 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        q_prim_vf(b_idx%beg)%sf(i, j, 0) = -y_cc(j)*exp(1 - (x_cc(i)**2 + y_cc(j)**2))/(2.*pi)
# 324 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        q_prim_vf(b_idx%beg + 1)%sf(i, j, 0) = x_cc(i)*exp(1 - (x_cc(i)**2 + y_cc(j)**2))/(2.*pi)
# 324 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 324 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! pressure
# 324 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        q_prim_vf(e_idx)%sf(i, j, 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)
# 324 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 324 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    case (260)  ! Gaussian Divergence Pulse
# 324 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        !  Bx(x) = 1 + C * erf((x-0.5)/σ)
# 324 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        !  ⇒  ∂Bx/∂x = C * (2/√π) * exp[-((x-0.5)/σ)**2] * (1/σ)
# 324 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        !  Choose C = ε * σ * √π / 2  ⇒ ∂Bx/∂x = ε * exp[-((x-0.5)/σ)**2]
# 324 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        !  ψ is initialized to zero everywhere.
# 324 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 324 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        eps_mhd = patch_icpp(patch_id)%a(2)
# 324 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        sigma = patch_icpp(patch_id)%a(3)
# 324 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        c_mhd = eps_mhd*sigma*sqrt(pi)*0.5_wp
# 324 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 324 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! B-field
# 324 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        q_prim_vf(b_idx%beg)%sf(i, j, 0) = 1._wp + c_mhd*erf((x_cc(i) - 0.5_wp)/sigma)
# 324 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 324 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    case (261)  ! Blob
# 324 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        r0 = 1._wp/sqrt(8._wp)
# 324 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        r2 = x_cc(i)**2 + y_cc(j)**2
# 324 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        r = sqrt(r2)
# 324 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        alpha = r/r0
# 324 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        if (alpha < 1) then
# 324 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(b_idx%beg)%sf(i, j, 0) = 1._wp/sqrt(4._wp*pi)*(alpha**8 - 2._wp*alpha**4 + 1._wp)
# 324 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            ! q_prim_vf(B_idx%beg)%sf(i,j,0) = 1._wp/sqrt(4000._wp*pi) * (4096._wp*r2**4 - 128._wp*r2**2 + 1._wp)
# 324 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            ! q_prim_vf(B_idx%beg)%sf(i,j,0) = 1._wp/(4._wp*pi) * (alpha**8 - 2._wp*alpha**4 + 1._wp)
# 324 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            ! q_prim_vf(E_idx)%sf(i,j,0) = 6._wp - q_prim_vf(B_idx%beg)%sf(i,j,0)**2/2._wp
# 324 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        end if
# 324 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 324 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    case (262)  ! Tilted 2D MHD shock‐tube at α = arctan2 (≈63.4°)
# 324 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! rotate by α = atan(2)
# 324 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        alpha = atan(2._wp)
# 324 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        cosa = cos(alpha)
# 324 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        sina = sin(alpha)
# 324 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! projection along shock normal
# 324 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        r = x_cc(i)*cosa + y_cc(j)*sina
# 324 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 324 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        if (r <= 0.5_wp) then
# 324 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            ! LEFT state: ρ=1, v∥=+10, v⊥=0, p=20, B∥=B⊥=5/√(4π)
# 324 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(contxb)%sf(i, j, 0) = 1._wp
# 324 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(momxb)%sf(i, j, 0) = 10._wp*cosa
# 324 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(momxb + 1)%sf(i, j, 0) = 10._wp*sina
# 324 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(e_idx)%sf(i, j, 0) = 20._wp
# 324 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(b_idx%beg)%sf(i, j, 0) = (5._wp/sqrt(4._wp*pi))*cosa &
# 324 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                                               - (5._wp/sqrt(4._wp*pi))*sina
# 324 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(b_idx%beg + 1)%sf(i, j, 0) = (5._wp/sqrt(4._wp*pi))*sina &
# 324 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                                                   + (5._wp/sqrt(4._wp*pi))*cosa
# 324 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        else
# 324 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            ! RIGHT state: ρ=1, v∥=−10, v⊥=0, p=1, B∥=B⊥=5/√(4π)
# 324 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(contxb)%sf(i, j, 0) = 1._wp
# 324 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(momxb)%sf(i, j, 0) = -10._wp*cosa
# 324 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(momxb + 1)%sf(i, j, 0) = -10._wp*sina
# 324 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(e_idx)%sf(i, j, 0) = 1._wp
# 324 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(b_idx%beg)%sf(i, j, 0) = (5._wp/sqrt(4._wp*pi))*cosa &
# 324 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                                               - (5._wp/sqrt(4._wp*pi))*sina
# 324 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(b_idx%beg + 1)%sf(i, j, 0) = (5._wp/sqrt(4._wp*pi))*sina &
# 324 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                                                   + (5._wp/sqrt(4._wp*pi))*cosa
# 324 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        end if
# 324 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! v^z and B^z remain zero by default
# 324 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 324 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    case (270)
# 324 "/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
# 324 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 324 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    if (.not. files_loaded) then
# 324 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        max_files = merge(sys_size, sys_size - 1, num_dims == 1)
# 324 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        do f = 1, max_files
# 324 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            write (file_num_str, '(I0)') f
# 324 "/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"
# 324 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        end do
# 324 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 324 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! Common file reading setup
# 324 "/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)
# 324 "/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)))
# 324 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 324 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        select case (num_dims)
# 324 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        case (1, 2)  ! 1D and 2D cases are similar
# 324 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            ! Count lines
# 324 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            line_count = 0
# 324 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            do
# 324 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                read (unit2, *, iostat=ios2) dummy_x, dummy_y
# 324 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                if (ios2 /= 0) exit
# 324 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                line_count = line_count + 1
# 324 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            end do
# 324 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            close (unit2)
# 324 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 324 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            xrows = line_count
# 324 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            yrows = 1
# 324 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            index_x = 0
# 324 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            if (num_dims == 2) index_x = i
# 324 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#ifdef MFC_DEBUG
# 324 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    block
# 324 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        use iso_fortran_env, only: output_unit
# 324 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 324 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        print *, 'm_icpp_patches.fpp:324: ', '@:ALLOCATE(x_coords(xRows), stored_values(xRows, 1, sys_size))'
# 324 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 324 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        call flush (output_unit)
# 324 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    end block
# 324 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#endif
# 324 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    allocate (x_coords(xrows), stored_values(xrows, 1, sys_size))
# 324 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 324 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 324 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 324 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#if defined(MFC_OpenACC)
# 324 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
!$acc enter data create(x_coords, stored_values) 
# 324 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#elif defined(MFC_OpenMP)
# 324 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
!$omp target enter data map(always,alloc:x_coords, stored_values) 
# 324 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#endif
# 324 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 324 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            ! Read data from all files
# 324 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            do f = 1, max_files
# 324 "/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)
# 324 "/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)))
# 324 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 324 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                do iter = 1, xrows
# 324 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    read (unit, *, iostat=ios) x_coords(iter), stored_values(iter, 1, f)
# 324 "/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)))
# 324 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                end do
# 324 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                close (unit)
# 324 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            end do
# 324 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 324 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            ! Calculate offsets
# 324 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            domain_xstart = x_coords(1)
# 324 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            x_step = x_cc(1) - x_cc(0)
# 324 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            delta_x = merge(x_cc(0) - domain_xstart + x_step/2.0, &
# 324 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                            x_cc(index_x) - domain_xstart + x_step/2.0, num_dims == 1)
# 324 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            global_offset_x = nint(abs(delta_x)/x_step)
# 324 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 324 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        case (3)  ! 3D case - determine grid structure
# 324 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            ! Find yRows by counting rows with same x
# 324 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            read (unit2, *, iostat=ios2) x0, y0, dummy_z
# 324 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            if (ios2 /= 0) call s_mpi_abort("Error reading first line")
# 324 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 324 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            yrows = 1
# 324 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            do
# 324 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                read (unit2, *, iostat=ios2) dummy_x, dummy_y, dummy_z
# 324 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                if (ios2 /= 0) exit
# 324 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                if (dummy_x == x0 .and. dummy_y /= y0) then
# 324 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    yrows = yrows + 1
# 324 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                else
# 324 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    exit
# 324 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                end if
# 324 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            end do
# 324 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            close (unit2)
# 324 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 324 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            ! Count total rows
# 324 "/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)
# 324 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            nrows = 0
# 324 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            do
# 324 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                read (unit2, *, iostat=ios2) dummy_x, dummy_y, dummy_z
# 324 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                if (ios2 /= 0) exit
# 324 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                nrows = nrows + 1
# 324 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            end do
# 324 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            close (unit2)
# 324 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 324 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            xrows = nrows/yrows
# 324 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#ifdef MFC_DEBUG
# 324 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    block
# 324 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        use iso_fortran_env, only: output_unit
# 324 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 324 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        print *, 'm_icpp_patches.fpp:324: ', '@:ALLOCATE(x_coords(nrows), y_coords(nrows), stored_values(xRows, yRows, sys_size))'
# 324 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 324 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        call flush (output_unit)
# 324 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    end block
# 324 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#endif
# 324 "/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))
# 324 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 324 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 324 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 324 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 324 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#if defined(MFC_OpenACC)
# 324 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
!$acc enter data create(x_coords, y_coords, stored_values) 
# 324 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#elif defined(MFC_OpenMP)
# 324 "/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) 
# 324 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#endif
# 324 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            index_x = i
# 324 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            index_y = j
# 324 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 324 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            ! Read all files
# 324 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            do f = 1, max_files
# 324 "/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)
# 324 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                if (ios /= 0) then
# 324 "/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)))
# 324 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    cycle
# 324 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                end if
# 324 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 324 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                iter = 0
# 324 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                do iix = 1, xrows
# 324 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    do iiy = 1, yrows
# 324 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                        iter = iter + 1
# 324 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                        if (f == 1) then
# 324 "/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)
# 324 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                        else
# 324 "/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)
# 324 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                        end if
# 324 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                        if (ios /= 0) call s_mpi_abort("Error reading data")
# 324 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    end do
# 324 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                end do
# 324 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                close (unit)
# 324 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            end do
# 324 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 324 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            ! Calculate offsets
# 324 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            x_step = x_cc(1) - x_cc(0)
# 324 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            y_step = y_cc(1) - y_cc(0)
# 324 "/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
# 324 "/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
# 324 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            global_offset_x = nint(abs(delta_x)/x_step)
# 324 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            global_offset_y = nint(abs(delta_y)/y_step)
# 324 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        end select
# 324 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 324 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        files_loaded = .true.
# 324 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    end if
# 324 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 324 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    ! Data assignment
# 324 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    select case (num_dims)
# 324 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    case (1)
# 324 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        idx = i + 1 + global_offset_x
# 324 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        do f = 1, sys_size
# 324 "/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)
# 324 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        end do
# 324 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 324 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    case (2)
# 324 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        idx = i + 1 + global_offset_x - index_x
# 324 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        do f = 1, sys_size - 1
# 324 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            jump = merge(1, 0, f >= momxe)
# 324 "/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)
# 324 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        end do
# 324 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        q_prim_vf(momxe)%sf(i, j, 0) = 0.0_wp
# 324 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 324 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    case (3)
# 324 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        idx = i + 1 + global_offset_x - index_x
# 324 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        idy = j + 1 + global_offset_y - index_y
# 324 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        do f = 1, sys_size - 1
# 324 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            jump = merge(1, 0, f >= momxe)
# 324 "/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)
# 324 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        end do
# 324 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        q_prim_vf(momxe)%sf(i, j, k) = 0.0_wp
# 324 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    end select
# 324 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 324 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    case (280)
# 324 "/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
# 324 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! 2D_isentropicvortex case:
# 324 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! This analytic patch uses geometry 2
# 324 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        if (patch_id == 1) then
# 324 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(e_idx)%sf(i, j, 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) - patch_icpp(1)%x_centroid)**2.0 - (y_cc(j) - patch_icpp(1)%y_centroid)**2.0)))**(1.4 + 1.0)
# 324 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(contxb + 0)%sf(i, j, 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) - patch_icpp(1)%x_centroid)**2.0 - (y_cc(j) - patch_icpp(1)%y_centroid)**2.0)))**1.4
# 324 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(momxb + 0)%sf(i, j, 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)%x_centroid)**2.0 - (y_cc(j) - patch_icpp(1)%y_centroid)**2.0))
# 324 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(momxb + 1)%sf(i, j, 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)%x_centroid)**2.0 - (y_cc(j) - patch_icpp(1)%y_centroid)**2.0))
# 324 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        end if
# 324 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 324 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    case (281)
# 324 "/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
# 324 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! 2D_acoustic_pulse case:
# 324 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! This analytic patch uses geometry 2
# 324 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        if (patch_id == 2) then
# 324 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(e_idx)%sf(i, j, 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))
# 324 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(contxb + 0)%sf(i, j, 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))
# 324 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        end if
# 324 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 324 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    case (282)
# 324 "/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
# 324 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! 2D_zero_circ_vortex case:
# 324 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! This analytic patch uses geometry 2
# 324 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        if (patch_id == 2) then
# 324 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(e_idx)%sf(i, j, 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))
# 324 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(contxb + 0)%sf(i, j, 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))
# 324 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(momxb + 0)%sf(i, j, 0) = 112.99092883944267*(1 - (0.1/0.3))*y_cc(j)*exp(0.5*(1 - sqrt(x_cc(i)**2 + y_cc(j)**2)))
# 324 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(momxb + 1)%sf(i, j, 0) = 112.99092883944267*((0.1/0.3))*x_cc(i)*exp(0.5*(1 - sqrt(x_cc(i)**2 + y_cc(j)**2)))
# 324 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        end if
# 324 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 324 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    case default
# 324 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        if (proc_rank == 0) then
# 324 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            call s_int_to_str(patch_id, istr)
# 324 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            call s_mpi_abort("Invalid hcid specified for patch "//trim(istr))
# 324 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        end if
# 324 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 324 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    end select
# 324 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
                    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
# 332 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#ifdef MFC_DEBUG
# 332 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    block
# 332 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        use iso_fortran_env, only: output_unit
# 332 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 332 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        print *, 'm_icpp_patches.fpp:332: ', '@:DEALLOCATE(stored_values)'
# 332 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 332 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        call flush (output_unit)
# 332 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    end block
# 332 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#endif
# 332 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 332 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#if defined(MFC_OpenACC)
# 332 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
!$acc exit data delete(stored_values) 
# 332 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#elif defined(MFC_OpenMP)
# 332 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
!$omp target exit data map(release:stored_values) 
# 332 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#endif
# 332 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    deallocate (stored_values)
# 332 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#ifdef MFC_DEBUG
# 332 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    block
# 332 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        use iso_fortran_env, only: output_unit
# 332 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 332 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        print *, 'm_icpp_patches.fpp:332: ', '@:DEALLOCATE(x_coords)'
# 332 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 332 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        call flush (output_unit)
# 332 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    end block
# 332 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#endif
# 332 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 332 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#if defined(MFC_OpenACC)
# 332 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
!$acc exit data delete(x_coords) 
# 332 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#elif defined(MFC_OpenMP)
# 332 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
!$omp target exit data map(release:x_coords) 
# 332 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#endif
# 332 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    deallocate (x_coords)
# 332 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    end if
# 332 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 332 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    if (allocated(y_coords)) then
# 332 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#ifdef MFC_DEBUG
# 332 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    block
# 332 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        use iso_fortran_env, only: output_unit
# 332 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 332 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        print *, 'm_icpp_patches.fpp:332: ', '@:DEALLOCATE(y_coords)'
# 332 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 332 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        call flush (output_unit)
# 332 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    end block
# 332 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#endif
# 332 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 332 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#if defined(MFC_OpenACC)
# 332 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
!$acc exit data delete(y_coords) 
# 332 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#elif defined(MFC_OpenMP)
# 332 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
!$omp target exit data map(release:y_coords) 
# 332 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#endif
# 332 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    deallocate (y_coords)
# 332 "/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.
        !! @param patch_id is the patch identifier
        !! @param patch_id_fp Array to track patch ids
        !! @param q_prim_vf Array of primitive variables
    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
# 357 "/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
# 357 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    real(wp) :: x_len, x_step, y_len, y_step
# 357 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    real(wp) :: dummy_x, dummy_y, dummy_z, x0, y0
# 357 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    integer :: global_offset_x, global_offset_y           ! MPI subdomain offset
# 357 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    real(wp) :: delta_x, delta_y
# 357 "/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
# 357 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    character(len=200) :: errmsg
# 357 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    real(wp), allocatable :: stored_values(:, :, :)
# 357 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    real(wp), allocatable :: x_coords(:), y_coords(:)
# 357 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    logical :: files_loaded = .false.
# 357 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    real(wp) :: domain_xstart, domain_xend, domain_ystart, domain_yend
# 357 "/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/
# 357 "/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
# 357 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    character(len=20) :: zeros_part       ! For the trailing zeros part
# 357 "/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
# 358 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    real(wp) :: eps, eps_mhd, C_mhd
# 358 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    real(wp) :: r, rmax, gam, umax, p0
# 358 "/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
# 358 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    real(wp) :: factor
# 358 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    real(wp) :: r0, alpha, r2
# 358 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    real(wp) :: sinA, cosA
# 358 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 358 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    real(wp) :: r_sq
# 358 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 358 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    ! # 207
# 358 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    real(wp) :: sigma, gauss1, gauss2
# 358 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    ! # 208
# 358 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    real(wp) :: ei, d, fsm, alpha_air, alpha_sf6
# 358 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 358 "/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
 
        ! Initializing the pseudo volume fraction value to 1. The value will
        ! be modified as the patch is laid out on the grid, but only in the
        ! case that smoothing of the circular patch's boundary is enabled.
        eta = 1._wp
 
        ! Checking whether the circle covers a particular cell in the domain
        ! and verifying whether the current patch has permission to write to
        ! that cell. If both queries check out, the primitive variables of
        ! the current patch are assigned to this cell.
 
        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)**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
 
# 404 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    select case (patch_icpp(patch_id)%hcid) ! 2D_hardcoded_ic example case
# 404 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 404 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    case (200)
# 404 "/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
# 404 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            ! Volume Fractions
# 404 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(advxb)%sf(i, j, 0) = eps
# 404 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(advxe)%sf(i, j, 0) = 1._wp - eps
# 404 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            ! Denssities
# 404 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(contxb)%sf(i, j, 0) = eps*1000._wp
# 404 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(contxe)%sf(i, j, 0) = (1._wp - eps)*1._wp
# 404 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            ! Pressure
# 404 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(e_idx)%sf(i, j, 0) = 1000._wp
# 404 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        end if
# 404 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    case (202) ! Gresho vortex (Gouasmi et al 2022 JCP)
# 404 "/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
# 404 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        rmax = 0.2_wp
# 404 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 404 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        gam = 1._wp + 1._wp/fluid_pp(1)%gamma
# 404 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        umax = 2*pi*rmax*patch_icpp(patch_id)%vel(2)
# 404 "/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)
# 404 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 404 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        if (r < rmax) then
# 404 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(momxb)%sf(i, j, 0) = -(y_cc(j) - 0.5_wp)*umax/rmax
# 404 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(momxe)%sf(i, j, 0) = (x_cc(i) - 0.5_wp)*umax/rmax
# 404 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(e_idx)%sf(i, j, 0) = p0 + umax**2*((r/rmax)**2._wp/2._wp)
# 404 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        else if (r < 2*rmax) then
# 404 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(momxb)%sf(i, j, 0) = -((y_cc(j) - 0.5_wp)/r)*umax*(2._wp - r/rmax)
# 404 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(momxe)%sf(i, j, 0) = ((x_cc(i) - 0.5_wp)/r)*umax*(2._wp - r/rmax)
# 404 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(e_idx)%sf(i, j, 0) = p0 + umax**2*((r/rmax)**2/2._wp + 4*(1 - (r/rmax) + log(r/rmax)))
# 404 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        else
# 404 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(momxb)%sf(i, j, 0) = 0._wp
# 404 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(momxe)%sf(i, j, 0) = 0._wp
# 404 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(e_idx)%sf(i, j, 0) = p0 + umax**2*(-2 + 4*log(2._wp))
# 404 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        end if
# 404 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    case (203) ! Gresho vortex (Gouasmi et al 2022 JCP) with density correction
# 404 "/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
# 404 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        rmax = 0.2_wp
# 404 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 404 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        gam = 1._wp + 1._wp/fluid_pp(1)%gamma
# 404 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        umax = 2*pi*rmax*patch_icpp(patch_id)%vel(2)
# 404 "/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)
# 404 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 404 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        if (r < rmax) then
# 404 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(momxb)%sf(i, j, 0) = -(y_cc(j) - 0.5_wp)*umax/rmax
# 404 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(momxe)%sf(i, j, 0) = (x_cc(i) - 0.5_wp)*umax/rmax
# 404 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(e_idx)%sf(i, j, 0) = p0 + umax**2*((r/rmax)**2._wp/2._wp)
# 404 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        else if (r < 2*rmax) then
# 404 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(momxb)%sf(i, j, 0) = -((y_cc(j) - 0.5_wp)/r)*umax*(2._wp - r/rmax)
# 404 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(momxe)%sf(i, j, 0) = ((x_cc(i) - 0.5_wp)/r)*umax*(2._wp - r/rmax)
# 404 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(e_idx)%sf(i, j, 0) = p0 + umax**2*((r/rmax)**2/2._wp + 4._wp*(1._wp - (r/rmax) + log(r/rmax)))
# 404 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        else
# 404 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(momxb)%sf(i, j, 0) = 0._wp
# 404 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(momxe)%sf(i, j, 0) = 0._wp
# 404 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(e_idx)%sf(i, j, 0) = p0 + umax**2._wp*(-2._wp + 4*log(2._wp))
# 404 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        end if
# 404 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 404 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        q_prim_vf(contxb)%sf(i, j, 0) = q_prim_vf(e_idx)%sf(i, j, 0)**(1._wp/gam)
# 404 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    case (204) ! Rayleigh-Taylor instability
# 404 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        rhoh = 3._wp
# 404 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        rhol = 1._wp
# 404 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        pref = 1.e5_wp
# 404 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        pint = pref
# 404 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        h = 0.7_wp
# 404 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        lam = 0.2_wp
# 404 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        wl = 2._wp*pi/lam
# 404 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        amp = 0.05_wp/wl
# 404 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 404 "/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
# 404 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 404 "/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))
# 404 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 404 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        if (alph < eps) alph = eps
# 404 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        if (alph > 1._wp - eps) alph = 1._wp - eps
# 404 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 404 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        if (y_cc(j) > inth) then
# 404 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(advxb)%sf(i, j, 0) = alph
# 404 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(advxe)%sf(i, j, 0) = 1._wp - alph
# 404 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(contxb)%sf(i, j, 0) = alph*rhoh
# 404 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(contxe)%sf(i, j, 0) = (1._wp - alph)*rhol
# 404 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(e_idx)%sf(i, j, 0) = pref + rhoh*9.81_wp*(1.2_wp - y_cc(j))
# 404 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        else
# 404 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(advxb)%sf(i, j, 0) = alph
# 404 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(advxe)%sf(i, j, 0) = 1._wp - alph
# 404 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(contxb)%sf(i, j, 0) = alph*rhoh
# 404 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(contxe)%sf(i, j, 0) = (1._wp - alph)*rhol
# 404 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            pint = pref + rhoh*9.81_wp*(1.2_wp - inth)
# 404 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(e_idx)%sf(i, j, 0) = pint + rhol*9.81_wp*(inth - y_cc(j))
# 404 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        end if
# 404 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 404 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    case (205) ! 2D lung wave interaction problem
# 404 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        h = 0.0_wp           !non dim origin y
# 404 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        lam = 1.0_wp         !non dim lambda
# 404 "/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
# 404 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 404 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        inth = amp*sin(2*pi*x_cc(i)/lam - pi/2) + h
# 404 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 404 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        if (y_cc(j) > inth) then
# 404 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(contxb)%sf(i, j, 0) = patch_icpp(1)%alpha_rho(1)
# 404 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(contxe)%sf(i, j, 0) = patch_icpp(1)%alpha_rho(2)
# 404 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(e_idx)%sf(i, j, 0) = patch_icpp(1)%pres
# 404 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(advxb)%sf(i, j, 0) = patch_icpp(1)%alpha(1)
# 404 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(advxe)%sf(i, j, 0) = patch_icpp(1)%alpha(2)
# 404 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        end if
# 404 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 404 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    case (206) ! 2D lung wave interaction problem - horizontal domain
# 404 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        h = 0.0_wp           !non dim origin y
# 404 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        lam = 1.0_wp         !non dim lambda
# 404 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        amp = patch_icpp(patch_id)%a(2)
# 404 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 404 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        intl = amp*sin(2*pi*y_cc(j)/lam - pi/2) + h
# 404 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 404 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        if (x_cc(i) > intl) then        !this is the liquid
# 404 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(contxb)%sf(i, j, 0) = patch_icpp(1)%alpha_rho(1)
# 404 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(contxe)%sf(i, j, 0) = patch_icpp(1)%alpha_rho(2)
# 404 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(e_idx)%sf(i, j, 0) = patch_icpp(1)%pres
# 404 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(advxb)%sf(i, j, 0) = patch_icpp(1)%alpha(1)
# 404 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(advxe)%sf(i, j, 0) = patch_icpp(1)%alpha(2)
# 404 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        end if
# 404 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 404 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    case (207) ! Kelvin Helmholtz Instability
# 404 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        sigma = 0.05_wp/sqrt(2.0_wp)
# 404 "/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))
# 404 "/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))
# 404 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        q_prim_vf(momxb + 1)%sf(i, j, 0) = &
# 404 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            0.1_wp*sin(4.0_wp*pi*x_cc(i))*(gauss1 + gauss2)
# 404 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 404 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    case (208) ! Richtmeyer Meshkov Instability
# 404 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        lam = 1.0_wp
# 404 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        eps = 1.0e-6_wp
# 404 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ei = 5.0_wp
# 404 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! Smoothening function to smooth out sharp discontinuity in the interface
# 404 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        if (x_cc(i) <= 0.7_wp*lam) then
# 404 "/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)))
# 404 "/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))))
# 404 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            alpha_air = eps + (1.0_wp - 2.0_wp*eps)*fsm
# 404 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            alpha_sf6 = 1.0_wp - alpha_air
# 404 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(contxb)%sf(i, j, 0) = alpha_sf6*5.04_wp
# 404 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(contxe)%sf(i, j, 0) = alpha_air*1.0_wp
# 404 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(advxb)%sf(i, j, 0) = alpha_sf6
# 404 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(advxe)%sf(i, j, 0) = alpha_air
# 404 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        end if
# 404 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 404 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    case (250) ! MHD Orszag-Tang vortex
# 404 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! gamma = 5/3
# 404 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        !   rho = 25/(36*pi)
# 404 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        !     p = 5/(12*pi)
# 404 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        !     v = (-sin(2*pi*y), sin(2*pi*x), 0)
# 404 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        !     B = (-sin(2*pi*y)/sqrt(4*pi), sin(4*pi*x)/sqrt(4*pi), 0)
# 404 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 404 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        q_prim_vf(momxb)%sf(i, j, 0) = -sin(2._wp*pi*y_cc(j))
# 404 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        q_prim_vf(momxb + 1)%sf(i, j, 0) = sin(2._wp*pi*x_cc(i))
# 404 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 404 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        q_prim_vf(b_idx%beg)%sf(i, j, 0) = -sin(2._wp*pi*y_cc(j))/sqrt(4._wp*pi)
# 404 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        q_prim_vf(b_idx%beg + 1)%sf(i, j, 0) = sin(4._wp*pi*x_cc(i))/sqrt(4._wp*pi)
# 404 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 404 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    case (251) ! RMHD Cylindrical Blast Wave [Mignone, 2006: Section 4.3.1]
# 404 "/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
# 404 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(contxb)%sf(i, j, 0) = 0.01
# 404 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(e_idx)%sf(i, j, 0) = 1.0
# 404 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        elseif (x_cc(i)**2 + y_cc(j)**2 <= 1._wp**2) then
# 404 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            ! Linear interpolation between r=0.08 and r=1.0
# 404 "/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)
# 404 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(contxb)%sf(i, j, 0) = 0.01_wp*factor + 1.e-4_wp*(1.0_wp - factor)
# 404 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(e_idx)%sf(i, j, 0) = 1.0_wp*factor + 3.e-5_wp*(1.0_wp - factor)
# 404 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        else
# 404 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(contxb)%sf(i, j, 0) = 1.e-4_wp
# 404 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(e_idx)%sf(i, j, 0) = 3.e-5_wp
# 404 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        end if
# 404 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 404 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! case 252 is for the 2D MHD Rotor problem
# 404 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    case (252) ! 2D MHD Rotor Problem
# 404 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! Ambient conditions are set in the JSON file.
# 404 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! This case imposes the dense, rotating cylinder.
# 404 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        !
# 404 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! gamma = 1.4
# 404 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! Ambient medium (r > 0.1):
# 404 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        !   rho = 1, p = 1, v = 0, B = (1,0,0)
# 404 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! Rotor (r <= 0.1):
# 404 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        !   rho = 10, p = 1
# 404 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        !   v has angular velocity w=20, giving v_tan=2 at r=0.1
# 404 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 404 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! Calculate distance squared from the center
# 404 "/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
# 404 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 404 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! inner radius of 0.1
# 404 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        if (r_sq <= 0.1**2) then
# 404 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            ! -- Inside the rotor --
# 404 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            ! Set density uniformly to 10
# 404 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(contxb)%sf(i, j, 0) = 10._wp
# 404 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 404 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            ! Set vup constant rotation of rate v=2
# 404 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            ! v_x = -omega * (y - y_c)
# 404 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            ! v_y =  omega * (x - x_c)
# 404 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(momxb)%sf(i, j, 0) = -20._wp*(y_cc(j) - 0.5_wp)
# 404 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(momxb + 1)%sf(i, j, 0) = 20._wp*(x_cc(i) - 0.5_wp)
# 404 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 404 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            ! taper width of 0.015
# 404 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        else if (r_sq <= 0.115**2) then
# 404 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            ! linearly smooth the function between r = 0.1 and 0.115
# 404 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(contxb)%sf(i, j, 0) = 1._wp + 9._wp*(0.115_wp - sqrt(r_sq))/(0.015_wp)
# 404 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 404 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(momxb)%sf(i, j, 0) = -(2._wp/sqrt(r_sq))*(y_cc(j) - 0.5_wp)*(0.115_wp - sqrt(r_sq))/(0.015_wp)
# 404 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(momxb + 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)
# 404 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        end if
# 404 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 404 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    case (253) ! MHD Smooth Magnetic Vortex
# 404 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! Section 5.2 of
# 404 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! Implicit hybridized discontinuous Galerkin methods for compressible magnetohydrodynamics
# 404 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! C. Ciuca, P. Fernandez, A. Christophe, N.C. Nguyen, J. Peraire
# 404 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 404 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! velocity
# 404 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        q_prim_vf(momxb)%sf(i, j, 0) = 1._wp - (y_cc(j)*exp(1 - (x_cc(i)**2 + y_cc(j)**2))/(2.*pi))
# 404 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        q_prim_vf(momxb + 1)%sf(i, j, 0) = 1._wp + (x_cc(i)*exp(1 - (x_cc(i)**2 + y_cc(j)**2))/(2.*pi))
# 404 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 404 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! magnetic field
# 404 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        q_prim_vf(b_idx%beg)%sf(i, j, 0) = -y_cc(j)*exp(1 - (x_cc(i)**2 + y_cc(j)**2))/(2.*pi)
# 404 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        q_prim_vf(b_idx%beg + 1)%sf(i, j, 0) = x_cc(i)*exp(1 - (x_cc(i)**2 + y_cc(j)**2))/(2.*pi)
# 404 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 404 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! pressure
# 404 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        q_prim_vf(e_idx)%sf(i, j, 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)
# 404 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 404 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    case (260)  ! Gaussian Divergence Pulse
# 404 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        !  Bx(x) = 1 + C * erf((x-0.5)/σ)
# 404 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        !  ⇒  ∂Bx/∂x = C * (2/√π) * exp[-((x-0.5)/σ)**2] * (1/σ)
# 404 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        !  Choose C = ε * σ * √π / 2  ⇒ ∂Bx/∂x = ε * exp[-((x-0.5)/σ)**2]
# 404 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        !  ψ is initialized to zero everywhere.
# 404 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 404 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        eps_mhd = patch_icpp(patch_id)%a(2)
# 404 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        sigma = patch_icpp(patch_id)%a(3)
# 404 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        c_mhd = eps_mhd*sigma*sqrt(pi)*0.5_wp
# 404 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 404 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! B-field
# 404 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        q_prim_vf(b_idx%beg)%sf(i, j, 0) = 1._wp + c_mhd*erf((x_cc(i) - 0.5_wp)/sigma)
# 404 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 404 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    case (261)  ! Blob
# 404 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        r0 = 1._wp/sqrt(8._wp)
# 404 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        r2 = x_cc(i)**2 + y_cc(j)**2
# 404 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        r = sqrt(r2)
# 404 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        alpha = r/r0
# 404 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        if (alpha < 1) then
# 404 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(b_idx%beg)%sf(i, j, 0) = 1._wp/sqrt(4._wp*pi)*(alpha**8 - 2._wp*alpha**4 + 1._wp)
# 404 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            ! q_prim_vf(B_idx%beg)%sf(i,j,0) = 1._wp/sqrt(4000._wp*pi) * (4096._wp*r2**4 - 128._wp*r2**2 + 1._wp)
# 404 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            ! q_prim_vf(B_idx%beg)%sf(i,j,0) = 1._wp/(4._wp*pi) * (alpha**8 - 2._wp*alpha**4 + 1._wp)
# 404 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            ! q_prim_vf(E_idx)%sf(i,j,0) = 6._wp - q_prim_vf(B_idx%beg)%sf(i,j,0)**2/2._wp
# 404 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        end if
# 404 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 404 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    case (262)  ! Tilted 2D MHD shock‐tube at α = arctan2 (≈63.4°)
# 404 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! rotate by α = atan(2)
# 404 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        alpha = atan(2._wp)
# 404 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        cosa = cos(alpha)
# 404 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        sina = sin(alpha)
# 404 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! projection along shock normal
# 404 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        r = x_cc(i)*cosa + y_cc(j)*sina
# 404 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 404 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        if (r <= 0.5_wp) then
# 404 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            ! LEFT state: ρ=1, v∥=+10, v⊥=0, p=20, B∥=B⊥=5/√(4π)
# 404 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(contxb)%sf(i, j, 0) = 1._wp
# 404 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(momxb)%sf(i, j, 0) = 10._wp*cosa
# 404 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(momxb + 1)%sf(i, j, 0) = 10._wp*sina
# 404 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(e_idx)%sf(i, j, 0) = 20._wp
# 404 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(b_idx%beg)%sf(i, j, 0) = (5._wp/sqrt(4._wp*pi))*cosa &
# 404 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                                               - (5._wp/sqrt(4._wp*pi))*sina
# 404 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(b_idx%beg + 1)%sf(i, j, 0) = (5._wp/sqrt(4._wp*pi))*sina &
# 404 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                                                   + (5._wp/sqrt(4._wp*pi))*cosa
# 404 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        else
# 404 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            ! RIGHT state: ρ=1, v∥=−10, v⊥=0, p=1, B∥=B⊥=5/√(4π)
# 404 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(contxb)%sf(i, j, 0) = 1._wp
# 404 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(momxb)%sf(i, j, 0) = -10._wp*cosa
# 404 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(momxb + 1)%sf(i, j, 0) = -10._wp*sina
# 404 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(e_idx)%sf(i, j, 0) = 1._wp
# 404 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(b_idx%beg)%sf(i, j, 0) = (5._wp/sqrt(4._wp*pi))*cosa &
# 404 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                                               - (5._wp/sqrt(4._wp*pi))*sina
# 404 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(b_idx%beg + 1)%sf(i, j, 0) = (5._wp/sqrt(4._wp*pi))*sina &
# 404 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                                                   + (5._wp/sqrt(4._wp*pi))*cosa
# 404 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        end if
# 404 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! v^z and B^z remain zero by default
# 404 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 404 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    case (270)
# 404 "/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
# 404 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 404 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    if (.not. files_loaded) then
# 404 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        max_files = merge(sys_size, sys_size - 1, num_dims == 1)
# 404 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        do f = 1, max_files
# 404 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            write (file_num_str, '(I0)') f
# 404 "/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"
# 404 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        end do
# 404 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 404 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! Common file reading setup
# 404 "/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)
# 404 "/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)))
# 404 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 404 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        select case (num_dims)
# 404 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        case (1, 2)  ! 1D and 2D cases are similar
# 404 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            ! Count lines
# 404 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            line_count = 0
# 404 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            do
# 404 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                read (unit2, *, iostat=ios2) dummy_x, dummy_y
# 404 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                if (ios2 /= 0) exit
# 404 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                line_count = line_count + 1
# 404 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            end do
# 404 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            close (unit2)
# 404 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 404 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            xrows = line_count
# 404 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            yrows = 1
# 404 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            index_x = 0
# 404 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            if (num_dims == 2) index_x = i
# 404 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#ifdef MFC_DEBUG
# 404 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    block
# 404 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        use iso_fortran_env, only: output_unit
# 404 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 404 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        print *, 'm_icpp_patches.fpp:404: ', '@:ALLOCATE(x_coords(xRows), stored_values(xRows, 1, sys_size))'
# 404 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 404 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        call flush (output_unit)
# 404 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    end block
# 404 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#endif
# 404 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    allocate (x_coords(xrows), stored_values(xrows, 1, sys_size))
# 404 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 404 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 404 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 404 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#if defined(MFC_OpenACC)
# 404 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
!$acc enter data create(x_coords, stored_values) 
# 404 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#elif defined(MFC_OpenMP)
# 404 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
!$omp target enter data map(always,alloc:x_coords, stored_values) 
# 404 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#endif
# 404 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 404 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            ! Read data from all files
# 404 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            do f = 1, max_files
# 404 "/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)
# 404 "/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)))
# 404 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 404 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                do iter = 1, xrows
# 404 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    read (unit, *, iostat=ios) x_coords(iter), stored_values(iter, 1, f)
# 404 "/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)))
# 404 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                end do
# 404 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                close (unit)
# 404 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            end do
# 404 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 404 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            ! Calculate offsets
# 404 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            domain_xstart = x_coords(1)
# 404 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            x_step = x_cc(1) - x_cc(0)
# 404 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            delta_x = merge(x_cc(0) - domain_xstart + x_step/2.0, &
# 404 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                            x_cc(index_x) - domain_xstart + x_step/2.0, num_dims == 1)
# 404 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            global_offset_x = nint(abs(delta_x)/x_step)
# 404 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 404 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        case (3)  ! 3D case - determine grid structure
# 404 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            ! Find yRows by counting rows with same x
# 404 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            read (unit2, *, iostat=ios2) x0, y0, dummy_z
# 404 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            if (ios2 /= 0) call s_mpi_abort("Error reading first line")
# 404 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 404 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            yrows = 1
# 404 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            do
# 404 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                read (unit2, *, iostat=ios2) dummy_x, dummy_y, dummy_z
# 404 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                if (ios2 /= 0) exit
# 404 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                if (dummy_x == x0 .and. dummy_y /= y0) then
# 404 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    yrows = yrows + 1
# 404 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                else
# 404 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    exit
# 404 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                end if
# 404 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            end do
# 404 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            close (unit2)
# 404 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 404 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            ! Count total rows
# 404 "/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)
# 404 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            nrows = 0
# 404 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            do
# 404 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                read (unit2, *, iostat=ios2) dummy_x, dummy_y, dummy_z
# 404 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                if (ios2 /= 0) exit
# 404 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                nrows = nrows + 1
# 404 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            end do
# 404 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            close (unit2)
# 404 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 404 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            xrows = nrows/yrows
# 404 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#ifdef MFC_DEBUG
# 404 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    block
# 404 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        use iso_fortran_env, only: output_unit
# 404 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 404 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        print *, 'm_icpp_patches.fpp:404: ', '@:ALLOCATE(x_coords(nrows), y_coords(nrows), stored_values(xRows, yRows, sys_size))'
# 404 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 404 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        call flush (output_unit)
# 404 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    end block
# 404 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#endif
# 404 "/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))
# 404 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 404 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 404 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 404 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 404 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#if defined(MFC_OpenACC)
# 404 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
!$acc enter data create(x_coords, y_coords, stored_values) 
# 404 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#elif defined(MFC_OpenMP)
# 404 "/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) 
# 404 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#endif
# 404 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            index_x = i
# 404 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            index_y = j
# 404 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 404 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            ! Read all files
# 404 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            do f = 1, max_files
# 404 "/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)
# 404 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                if (ios /= 0) then
# 404 "/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)))
# 404 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    cycle
# 404 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                end if
# 404 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 404 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                iter = 0
# 404 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                do iix = 1, xrows
# 404 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    do iiy = 1, yrows
# 404 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                        iter = iter + 1
# 404 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                        if (f == 1) then
# 404 "/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)
# 404 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                        else
# 404 "/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)
# 404 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                        end if
# 404 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                        if (ios /= 0) call s_mpi_abort("Error reading data")
# 404 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    end do
# 404 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                end do
# 404 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                close (unit)
# 404 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            end do
# 404 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 404 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            ! Calculate offsets
# 404 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            x_step = x_cc(1) - x_cc(0)
# 404 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            y_step = y_cc(1) - y_cc(0)
# 404 "/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
# 404 "/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
# 404 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            global_offset_x = nint(abs(delta_x)/x_step)
# 404 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            global_offset_y = nint(abs(delta_y)/y_step)
# 404 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        end select
# 404 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 404 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        files_loaded = .true.
# 404 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    end if
# 404 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 404 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    ! Data assignment
# 404 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    select case (num_dims)
# 404 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    case (1)
# 404 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        idx = i + 1 + global_offset_x
# 404 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        do f = 1, sys_size
# 404 "/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)
# 404 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        end do
# 404 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 404 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    case (2)
# 404 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        idx = i + 1 + global_offset_x - index_x
# 404 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        do f = 1, sys_size - 1
# 404 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            jump = merge(1, 0, f >= momxe)
# 404 "/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)
# 404 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        end do
# 404 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        q_prim_vf(momxe)%sf(i, j, 0) = 0.0_wp
# 404 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 404 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    case (3)
# 404 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        idx = i + 1 + global_offset_x - index_x
# 404 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        idy = j + 1 + global_offset_y - index_y
# 404 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        do f = 1, sys_size - 1
# 404 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            jump = merge(1, 0, f >= momxe)
# 404 "/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)
# 404 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        end do
# 404 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        q_prim_vf(momxe)%sf(i, j, k) = 0.0_wp
# 404 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    end select
# 404 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 404 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    case (280)
# 404 "/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
# 404 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! 2D_isentropicvortex case:
# 404 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! This analytic patch uses geometry 2
# 404 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        if (patch_id == 1) then
# 404 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(e_idx)%sf(i, j, 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) - patch_icpp(1)%x_centroid)**2.0 - (y_cc(j) - patch_icpp(1)%y_centroid)**2.0)))**(1.4 + 1.0)
# 404 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(contxb + 0)%sf(i, j, 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) - patch_icpp(1)%x_centroid)**2.0 - (y_cc(j) - patch_icpp(1)%y_centroid)**2.0)))**1.4
# 404 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(momxb + 0)%sf(i, j, 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)%x_centroid)**2.0 - (y_cc(j) - patch_icpp(1)%y_centroid)**2.0))
# 404 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(momxb + 1)%sf(i, j, 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)%x_centroid)**2.0 - (y_cc(j) - patch_icpp(1)%y_centroid)**2.0))
# 404 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        end if
# 404 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 404 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    case (281)
# 404 "/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
# 404 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! 2D_acoustic_pulse case:
# 404 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! This analytic patch uses geometry 2
# 404 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        if (patch_id == 2) then
# 404 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(e_idx)%sf(i, j, 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))
# 404 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(contxb + 0)%sf(i, j, 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))
# 404 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        end if
# 404 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 404 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    case (282)
# 404 "/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
# 404 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! 2D_zero_circ_vortex case:
# 404 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! This analytic patch uses geometry 2
# 404 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        if (patch_id == 2) then
# 404 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(e_idx)%sf(i, j, 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))
# 404 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(contxb + 0)%sf(i, j, 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))
# 404 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(momxb + 0)%sf(i, j, 0) = 112.99092883944267*(1 - (0.1/0.3))*y_cc(j)*exp(0.5*(1 - sqrt(x_cc(i)**2 + y_cc(j)**2)))
# 404 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(momxb + 1)%sf(i, j, 0) = 112.99092883944267*((0.1/0.3))*x_cc(i)*exp(0.5*(1 - sqrt(x_cc(i)**2 + y_cc(j)**2)))
# 404 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        end if
# 404 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 404 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    case default
# 404 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        if (proc_rank == 0) then
# 404 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            call s_int_to_str(patch_id, istr)
# 404 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            call s_mpi_abort("Invalid hcid specified for patch "//trim(istr))
# 404 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        end if
# 404 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 404 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    end select
# 404 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
                    end if
 
                end if
            end do
        end do
    if (allocated(stored_values)) then
# 410 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#ifdef MFC_DEBUG
# 410 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    block
# 410 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        use iso_fortran_env, only: output_unit
# 410 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 410 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        print *, 'm_icpp_patches.fpp:410: ', '@:DEALLOCATE(stored_values)'
# 410 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 410 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        call flush (output_unit)
# 410 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    end block
# 410 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#endif
# 410 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 410 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#if defined(MFC_OpenACC)
# 410 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
!$acc exit data delete(stored_values) 
# 410 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#elif defined(MFC_OpenMP)
# 410 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
!$omp target exit data map(release:stored_values) 
# 410 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#endif
# 410 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    deallocate (stored_values)
# 410 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#ifdef MFC_DEBUG
# 410 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    block
# 410 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        use iso_fortran_env, only: output_unit
# 410 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 410 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        print *, 'm_icpp_patches.fpp:410: ', '@:DEALLOCATE(x_coords)'
# 410 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 410 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        call flush (output_unit)
# 410 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    end block
# 410 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#endif
# 410 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 410 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#if defined(MFC_OpenACC)
# 410 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
!$acc exit data delete(x_coords) 
# 410 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#elif defined(MFC_OpenMP)
# 410 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
!$omp target exit data map(release:x_coords) 
# 410 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#endif
# 410 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    deallocate (x_coords)
# 410 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    end if
# 410 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 410 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    if (allocated(y_coords)) then
# 410 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#ifdef MFC_DEBUG
# 410 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    block
# 410 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        use iso_fortran_env, only: output_unit
# 410 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 410 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        print *, 'm_icpp_patches.fpp:410: ', '@:DEALLOCATE(y_coords)'
# 410 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 410 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        call flush (output_unit)
# 410 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    end block
# 410 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#endif
# 410 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 410 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#if defined(MFC_OpenACC)
# 410 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
!$acc exit data delete(y_coords) 
# 410 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#elif defined(MFC_OpenMP)
# 410 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
!$omp target exit data map(release:y_coords) 
# 410 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#endif
# 410 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    deallocate (y_coords)
# 410 "/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
        !! @param patch_id is the patch identifier
        !! @param patch_id_fp Array to track patch ids
        !! @param q_prim_vf Array of primitive variables
    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
# 433 "/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
# 433 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    real(wp) :: x_len, x_step, y_len, y_step
# 433 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    real(wp) :: dummy_x, dummy_y, dummy_z, x0, y0
# 433 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    integer :: global_offset_x, global_offset_y           ! MPI subdomain offset
# 433 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    real(wp) :: delta_x, delta_y
# 433 "/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
# 433 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    character(len=200) :: errmsg
# 433 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    real(wp), allocatable :: stored_values(:, :, :)
# 433 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    real(wp), allocatable :: x_coords(:), y_coords(:)
# 433 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    logical :: files_loaded = .false.
# 433 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    real(wp) :: domain_xstart, domain_xend, domain_ystart, domain_yend
# 433 "/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/
# 433 "/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
# 433 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    character(len=20) :: zeros_part       ! For the trailing zeros part
# 433 "/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
# 434 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    real(wp) :: eps, eps_mhd, C_mhd
# 434 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    real(wp) :: r, rmax, gam, umax, p0
# 434 "/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
# 434 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    real(wp) :: factor
# 434 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    real(wp) :: r0, alpha, r2
# 434 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    real(wp) :: sinA, cosA
# 434 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 434 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    real(wp) :: r_sq
# 434 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 434 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    ! # 207
# 434 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    real(wp) :: sigma, gauss1, gauss2
# 434 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    ! # 208
# 434 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    real(wp) :: ei, d, fsm, alpha_air, alpha_sf6
# 434 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 434 "/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
 
        ! Initializing the pseudo volume fraction value to 1. The value will
        ! be modified as the patch is laid out on the grid, but only in the
        ! case that smoothing of the circular patch's boundary is enabled.
        eta = 1._wp
 
        ! Checking whether the circle covers a particular cell in the domain
        ! and verifying whether the current patch has permission to write to
        ! that cell. If both queries check out, the primitive variables of
        ! the current patch are assigned to this cell.
        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
 
# 468 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    select case (patch_icpp(patch_id)%hcid) ! 2D_hardcoded_ic example case
# 468 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 468 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    case (200)
# 468 "/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
# 468 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            ! Volume Fractions
# 468 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(advxb)%sf(i, j, 0) = eps
# 468 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(advxe)%sf(i, j, 0) = 1._wp - eps
# 468 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            ! Denssities
# 468 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(contxb)%sf(i, j, 0) = eps*1000._wp
# 468 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(contxe)%sf(i, j, 0) = (1._wp - eps)*1._wp
# 468 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            ! Pressure
# 468 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(e_idx)%sf(i, j, 0) = 1000._wp
# 468 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        end if
# 468 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    case (202) ! Gresho vortex (Gouasmi et al 2022 JCP)
# 468 "/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
# 468 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        rmax = 0.2_wp
# 468 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 468 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        gam = 1._wp + 1._wp/fluid_pp(1)%gamma
# 468 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        umax = 2*pi*rmax*patch_icpp(patch_id)%vel(2)
# 468 "/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)
# 468 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 468 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        if (r < rmax) then
# 468 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(momxb)%sf(i, j, 0) = -(y_cc(j) - 0.5_wp)*umax/rmax
# 468 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(momxe)%sf(i, j, 0) = (x_cc(i) - 0.5_wp)*umax/rmax
# 468 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(e_idx)%sf(i, j, 0) = p0 + umax**2*((r/rmax)**2._wp/2._wp)
# 468 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        else if (r < 2*rmax) then
# 468 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(momxb)%sf(i, j, 0) = -((y_cc(j) - 0.5_wp)/r)*umax*(2._wp - r/rmax)
# 468 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(momxe)%sf(i, j, 0) = ((x_cc(i) - 0.5_wp)/r)*umax*(2._wp - r/rmax)
# 468 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(e_idx)%sf(i, j, 0) = p0 + umax**2*((r/rmax)**2/2._wp + 4*(1 - (r/rmax) + log(r/rmax)))
# 468 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        else
# 468 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(momxb)%sf(i, j, 0) = 0._wp
# 468 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(momxe)%sf(i, j, 0) = 0._wp
# 468 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(e_idx)%sf(i, j, 0) = p0 + umax**2*(-2 + 4*log(2._wp))
# 468 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        end if
# 468 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    case (203) ! Gresho vortex (Gouasmi et al 2022 JCP) with density correction
# 468 "/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
# 468 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        rmax = 0.2_wp
# 468 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 468 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        gam = 1._wp + 1._wp/fluid_pp(1)%gamma
# 468 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        umax = 2*pi*rmax*patch_icpp(patch_id)%vel(2)
# 468 "/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)
# 468 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 468 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        if (r < rmax) then
# 468 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(momxb)%sf(i, j, 0) = -(y_cc(j) - 0.5_wp)*umax/rmax
# 468 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(momxe)%sf(i, j, 0) = (x_cc(i) - 0.5_wp)*umax/rmax
# 468 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(e_idx)%sf(i, j, 0) = p0 + umax**2*((r/rmax)**2._wp/2._wp)
# 468 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        else if (r < 2*rmax) then
# 468 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(momxb)%sf(i, j, 0) = -((y_cc(j) - 0.5_wp)/r)*umax*(2._wp - r/rmax)
# 468 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(momxe)%sf(i, j, 0) = ((x_cc(i) - 0.5_wp)/r)*umax*(2._wp - r/rmax)
# 468 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(e_idx)%sf(i, j, 0) = p0 + umax**2*((r/rmax)**2/2._wp + 4._wp*(1._wp - (r/rmax) + log(r/rmax)))
# 468 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        else
# 468 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(momxb)%sf(i, j, 0) = 0._wp
# 468 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(momxe)%sf(i, j, 0) = 0._wp
# 468 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(e_idx)%sf(i, j, 0) = p0 + umax**2._wp*(-2._wp + 4*log(2._wp))
# 468 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        end if
# 468 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 468 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        q_prim_vf(contxb)%sf(i, j, 0) = q_prim_vf(e_idx)%sf(i, j, 0)**(1._wp/gam)
# 468 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    case (204) ! Rayleigh-Taylor instability
# 468 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        rhoh = 3._wp
# 468 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        rhol = 1._wp
# 468 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        pref = 1.e5_wp
# 468 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        pint = pref
# 468 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        h = 0.7_wp
# 468 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        lam = 0.2_wp
# 468 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        wl = 2._wp*pi/lam
# 468 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        amp = 0.05_wp/wl
# 468 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 468 "/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
# 468 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 468 "/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))
# 468 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 468 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        if (alph < eps) alph = eps
# 468 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        if (alph > 1._wp - eps) alph = 1._wp - eps
# 468 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 468 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        if (y_cc(j) > inth) then
# 468 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(advxb)%sf(i, j, 0) = alph
# 468 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(advxe)%sf(i, j, 0) = 1._wp - alph
# 468 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(contxb)%sf(i, j, 0) = alph*rhoh
# 468 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(contxe)%sf(i, j, 0) = (1._wp - alph)*rhol
# 468 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(e_idx)%sf(i, j, 0) = pref + rhoh*9.81_wp*(1.2_wp - y_cc(j))
# 468 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        else
# 468 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(advxb)%sf(i, j, 0) = alph
# 468 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(advxe)%sf(i, j, 0) = 1._wp - alph
# 468 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(contxb)%sf(i, j, 0) = alph*rhoh
# 468 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(contxe)%sf(i, j, 0) = (1._wp - alph)*rhol
# 468 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            pint = pref + rhoh*9.81_wp*(1.2_wp - inth)
# 468 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(e_idx)%sf(i, j, 0) = pint + rhol*9.81_wp*(inth - y_cc(j))
# 468 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        end if
# 468 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 468 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    case (205) ! 2D lung wave interaction problem
# 468 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        h = 0.0_wp           !non dim origin y
# 468 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        lam = 1.0_wp         !non dim lambda
# 468 "/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
# 468 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 468 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        inth = amp*sin(2*pi*x_cc(i)/lam - pi/2) + h
# 468 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 468 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        if (y_cc(j) > inth) then
# 468 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(contxb)%sf(i, j, 0) = patch_icpp(1)%alpha_rho(1)
# 468 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(contxe)%sf(i, j, 0) = patch_icpp(1)%alpha_rho(2)
# 468 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(e_idx)%sf(i, j, 0) = patch_icpp(1)%pres
# 468 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(advxb)%sf(i, j, 0) = patch_icpp(1)%alpha(1)
# 468 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(advxe)%sf(i, j, 0) = patch_icpp(1)%alpha(2)
# 468 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        end if
# 468 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 468 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    case (206) ! 2D lung wave interaction problem - horizontal domain
# 468 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        h = 0.0_wp           !non dim origin y
# 468 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        lam = 1.0_wp         !non dim lambda
# 468 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        amp = patch_icpp(patch_id)%a(2)
# 468 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 468 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        intl = amp*sin(2*pi*y_cc(j)/lam - pi/2) + h
# 468 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 468 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        if (x_cc(i) > intl) then        !this is the liquid
# 468 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(contxb)%sf(i, j, 0) = patch_icpp(1)%alpha_rho(1)
# 468 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(contxe)%sf(i, j, 0) = patch_icpp(1)%alpha_rho(2)
# 468 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(e_idx)%sf(i, j, 0) = patch_icpp(1)%pres
# 468 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(advxb)%sf(i, j, 0) = patch_icpp(1)%alpha(1)
# 468 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(advxe)%sf(i, j, 0) = patch_icpp(1)%alpha(2)
# 468 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        end if
# 468 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 468 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    case (207) ! Kelvin Helmholtz Instability
# 468 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        sigma = 0.05_wp/sqrt(2.0_wp)
# 468 "/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))
# 468 "/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))
# 468 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        q_prim_vf(momxb + 1)%sf(i, j, 0) = &
# 468 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            0.1_wp*sin(4.0_wp*pi*x_cc(i))*(gauss1 + gauss2)
# 468 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 468 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    case (208) ! Richtmeyer Meshkov Instability
# 468 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        lam = 1.0_wp
# 468 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        eps = 1.0e-6_wp
# 468 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ei = 5.0_wp
# 468 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! Smoothening function to smooth out sharp discontinuity in the interface
# 468 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        if (x_cc(i) <= 0.7_wp*lam) then
# 468 "/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)))
# 468 "/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))))
# 468 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            alpha_air = eps + (1.0_wp - 2.0_wp*eps)*fsm
# 468 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            alpha_sf6 = 1.0_wp - alpha_air
# 468 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(contxb)%sf(i, j, 0) = alpha_sf6*5.04_wp
# 468 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(contxe)%sf(i, j, 0) = alpha_air*1.0_wp
# 468 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(advxb)%sf(i, j, 0) = alpha_sf6
# 468 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(advxe)%sf(i, j, 0) = alpha_air
# 468 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        end if
# 468 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 468 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    case (250) ! MHD Orszag-Tang vortex
# 468 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! gamma = 5/3
# 468 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        !   rho = 25/(36*pi)
# 468 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        !     p = 5/(12*pi)
# 468 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        !     v = (-sin(2*pi*y), sin(2*pi*x), 0)
# 468 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        !     B = (-sin(2*pi*y)/sqrt(4*pi), sin(4*pi*x)/sqrt(4*pi), 0)
# 468 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 468 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        q_prim_vf(momxb)%sf(i, j, 0) = -sin(2._wp*pi*y_cc(j))
# 468 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        q_prim_vf(momxb + 1)%sf(i, j, 0) = sin(2._wp*pi*x_cc(i))
# 468 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 468 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        q_prim_vf(b_idx%beg)%sf(i, j, 0) = -sin(2._wp*pi*y_cc(j))/sqrt(4._wp*pi)
# 468 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        q_prim_vf(b_idx%beg + 1)%sf(i, j, 0) = sin(4._wp*pi*x_cc(i))/sqrt(4._wp*pi)
# 468 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 468 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    case (251) ! RMHD Cylindrical Blast Wave [Mignone, 2006: Section 4.3.1]
# 468 "/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
# 468 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(contxb)%sf(i, j, 0) = 0.01
# 468 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(e_idx)%sf(i, j, 0) = 1.0
# 468 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        elseif (x_cc(i)**2 + y_cc(j)**2 <= 1._wp**2) then
# 468 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            ! Linear interpolation between r=0.08 and r=1.0
# 468 "/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)
# 468 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(contxb)%sf(i, j, 0) = 0.01_wp*factor + 1.e-4_wp*(1.0_wp - factor)
# 468 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(e_idx)%sf(i, j, 0) = 1.0_wp*factor + 3.e-5_wp*(1.0_wp - factor)
# 468 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        else
# 468 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(contxb)%sf(i, j, 0) = 1.e-4_wp
# 468 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(e_idx)%sf(i, j, 0) = 3.e-5_wp
# 468 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        end if
# 468 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 468 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! case 252 is for the 2D MHD Rotor problem
# 468 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    case (252) ! 2D MHD Rotor Problem
# 468 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! Ambient conditions are set in the JSON file.
# 468 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! This case imposes the dense, rotating cylinder.
# 468 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        !
# 468 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! gamma = 1.4
# 468 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! Ambient medium (r > 0.1):
# 468 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        !   rho = 1, p = 1, v = 0, B = (1,0,0)
# 468 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! Rotor (r <= 0.1):
# 468 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        !   rho = 10, p = 1
# 468 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        !   v has angular velocity w=20, giving v_tan=2 at r=0.1
# 468 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 468 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! Calculate distance squared from the center
# 468 "/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
# 468 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 468 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! inner radius of 0.1
# 468 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        if (r_sq <= 0.1**2) then
# 468 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            ! -- Inside the rotor --
# 468 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            ! Set density uniformly to 10
# 468 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(contxb)%sf(i, j, 0) = 10._wp
# 468 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 468 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            ! Set vup constant rotation of rate v=2
# 468 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            ! v_x = -omega * (y - y_c)
# 468 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            ! v_y =  omega * (x - x_c)
# 468 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(momxb)%sf(i, j, 0) = -20._wp*(y_cc(j) - 0.5_wp)
# 468 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(momxb + 1)%sf(i, j, 0) = 20._wp*(x_cc(i) - 0.5_wp)
# 468 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 468 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            ! taper width of 0.015
# 468 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        else if (r_sq <= 0.115**2) then
# 468 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            ! linearly smooth the function between r = 0.1 and 0.115
# 468 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(contxb)%sf(i, j, 0) = 1._wp + 9._wp*(0.115_wp - sqrt(r_sq))/(0.015_wp)
# 468 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 468 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(momxb)%sf(i, j, 0) = -(2._wp/sqrt(r_sq))*(y_cc(j) - 0.5_wp)*(0.115_wp - sqrt(r_sq))/(0.015_wp)
# 468 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(momxb + 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)
# 468 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        end if
# 468 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 468 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    case (253) ! MHD Smooth Magnetic Vortex
# 468 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! Section 5.2 of
# 468 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! Implicit hybridized discontinuous Galerkin methods for compressible magnetohydrodynamics
# 468 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! C. Ciuca, P. Fernandez, A. Christophe, N.C. Nguyen, J. Peraire
# 468 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 468 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! velocity
# 468 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        q_prim_vf(momxb)%sf(i, j, 0) = 1._wp - (y_cc(j)*exp(1 - (x_cc(i)**2 + y_cc(j)**2))/(2.*pi))
# 468 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        q_prim_vf(momxb + 1)%sf(i, j, 0) = 1._wp + (x_cc(i)*exp(1 - (x_cc(i)**2 + y_cc(j)**2))/(2.*pi))
# 468 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 468 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! magnetic field
# 468 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        q_prim_vf(b_idx%beg)%sf(i, j, 0) = -y_cc(j)*exp(1 - (x_cc(i)**2 + y_cc(j)**2))/(2.*pi)
# 468 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        q_prim_vf(b_idx%beg + 1)%sf(i, j, 0) = x_cc(i)*exp(1 - (x_cc(i)**2 + y_cc(j)**2))/(2.*pi)
# 468 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 468 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! pressure
# 468 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        q_prim_vf(e_idx)%sf(i, j, 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)
# 468 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 468 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    case (260)  ! Gaussian Divergence Pulse
# 468 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        !  Bx(x) = 1 + C * erf((x-0.5)/σ)
# 468 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        !  ⇒  ∂Bx/∂x = C * (2/√π) * exp[-((x-0.5)/σ)**2] * (1/σ)
# 468 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        !  Choose C = ε * σ * √π / 2  ⇒ ∂Bx/∂x = ε * exp[-((x-0.5)/σ)**2]
# 468 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        !  ψ is initialized to zero everywhere.
# 468 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 468 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        eps_mhd = patch_icpp(patch_id)%a(2)
# 468 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        sigma = patch_icpp(patch_id)%a(3)
# 468 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        c_mhd = eps_mhd*sigma*sqrt(pi)*0.5_wp
# 468 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 468 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! B-field
# 468 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        q_prim_vf(b_idx%beg)%sf(i, j, 0) = 1._wp + c_mhd*erf((x_cc(i) - 0.5_wp)/sigma)
# 468 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 468 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    case (261)  ! Blob
# 468 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        r0 = 1._wp/sqrt(8._wp)
# 468 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        r2 = x_cc(i)**2 + y_cc(j)**2
# 468 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        r = sqrt(r2)
# 468 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        alpha = r/r0
# 468 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        if (alpha < 1) then
# 468 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(b_idx%beg)%sf(i, j, 0) = 1._wp/sqrt(4._wp*pi)*(alpha**8 - 2._wp*alpha**4 + 1._wp)
# 468 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            ! q_prim_vf(B_idx%beg)%sf(i,j,0) = 1._wp/sqrt(4000._wp*pi) * (4096._wp*r2**4 - 128._wp*r2**2 + 1._wp)
# 468 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            ! q_prim_vf(B_idx%beg)%sf(i,j,0) = 1._wp/(4._wp*pi) * (alpha**8 - 2._wp*alpha**4 + 1._wp)
# 468 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            ! q_prim_vf(E_idx)%sf(i,j,0) = 6._wp - q_prim_vf(B_idx%beg)%sf(i,j,0)**2/2._wp
# 468 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        end if
# 468 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 468 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    case (262)  ! Tilted 2D MHD shock‐tube at α = arctan2 (≈63.4°)
# 468 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! rotate by α = atan(2)
# 468 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        alpha = atan(2._wp)
# 468 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        cosa = cos(alpha)
# 468 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        sina = sin(alpha)
# 468 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! projection along shock normal
# 468 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        r = x_cc(i)*cosa + y_cc(j)*sina
# 468 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 468 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        if (r <= 0.5_wp) then
# 468 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            ! LEFT state: ρ=1, v∥=+10, v⊥=0, p=20, B∥=B⊥=5/√(4π)
# 468 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(contxb)%sf(i, j, 0) = 1._wp
# 468 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(momxb)%sf(i, j, 0) = 10._wp*cosa
# 468 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(momxb + 1)%sf(i, j, 0) = 10._wp*sina
# 468 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(e_idx)%sf(i, j, 0) = 20._wp
# 468 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(b_idx%beg)%sf(i, j, 0) = (5._wp/sqrt(4._wp*pi))*cosa &
# 468 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                                               - (5._wp/sqrt(4._wp*pi))*sina
# 468 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(b_idx%beg + 1)%sf(i, j, 0) = (5._wp/sqrt(4._wp*pi))*sina &
# 468 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                                                   + (5._wp/sqrt(4._wp*pi))*cosa
# 468 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        else
# 468 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            ! RIGHT state: ρ=1, v∥=−10, v⊥=0, p=1, B∥=B⊥=5/√(4π)
# 468 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(contxb)%sf(i, j, 0) = 1._wp
# 468 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(momxb)%sf(i, j, 0) = -10._wp*cosa
# 468 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(momxb + 1)%sf(i, j, 0) = -10._wp*sina
# 468 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(e_idx)%sf(i, j, 0) = 1._wp
# 468 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(b_idx%beg)%sf(i, j, 0) = (5._wp/sqrt(4._wp*pi))*cosa &
# 468 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                                               - (5._wp/sqrt(4._wp*pi))*sina
# 468 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(b_idx%beg + 1)%sf(i, j, 0) = (5._wp/sqrt(4._wp*pi))*sina &
# 468 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                                                   + (5._wp/sqrt(4._wp*pi))*cosa
# 468 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        end if
# 468 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! v^z and B^z remain zero by default
# 468 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 468 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    case (270)
# 468 "/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
# 468 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 468 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    if (.not. files_loaded) then
# 468 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        max_files = merge(sys_size, sys_size - 1, num_dims == 1)
# 468 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        do f = 1, max_files
# 468 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            write (file_num_str, '(I0)') f
# 468 "/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"
# 468 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        end do
# 468 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 468 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! Common file reading setup
# 468 "/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)
# 468 "/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)))
# 468 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 468 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        select case (num_dims)
# 468 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        case (1, 2)  ! 1D and 2D cases are similar
# 468 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            ! Count lines
# 468 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            line_count = 0
# 468 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            do
# 468 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                read (unit2, *, iostat=ios2) dummy_x, dummy_y
# 468 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                if (ios2 /= 0) exit
# 468 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                line_count = line_count + 1
# 468 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            end do
# 468 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            close (unit2)
# 468 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 468 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            xrows = line_count
# 468 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            yrows = 1
# 468 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            index_x = 0
# 468 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            if (num_dims == 2) index_x = i
# 468 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#ifdef MFC_DEBUG
# 468 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    block
# 468 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        use iso_fortran_env, only: output_unit
# 468 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 468 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        print *, 'm_icpp_patches.fpp:468: ', '@:ALLOCATE(x_coords(xRows), stored_values(xRows, 1, sys_size))'
# 468 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 468 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        call flush (output_unit)
# 468 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    end block
# 468 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#endif
# 468 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    allocate (x_coords(xrows), stored_values(xrows, 1, sys_size))
# 468 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 468 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 468 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 468 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#if defined(MFC_OpenACC)
# 468 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
!$acc enter data create(x_coords, stored_values) 
# 468 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#elif defined(MFC_OpenMP)
# 468 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
!$omp target enter data map(always,alloc:x_coords, stored_values) 
# 468 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#endif
# 468 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 468 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            ! Read data from all files
# 468 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            do f = 1, max_files
# 468 "/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)
# 468 "/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)))
# 468 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 468 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                do iter = 1, xrows
# 468 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    read (unit, *, iostat=ios) x_coords(iter), stored_values(iter, 1, f)
# 468 "/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)))
# 468 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                end do
# 468 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                close (unit)
# 468 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            end do
# 468 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 468 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            ! Calculate offsets
# 468 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            domain_xstart = x_coords(1)
# 468 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            x_step = x_cc(1) - x_cc(0)
# 468 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            delta_x = merge(x_cc(0) - domain_xstart + x_step/2.0, &
# 468 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                            x_cc(index_x) - domain_xstart + x_step/2.0, num_dims == 1)
# 468 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            global_offset_x = nint(abs(delta_x)/x_step)
# 468 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 468 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        case (3)  ! 3D case - determine grid structure
# 468 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            ! Find yRows by counting rows with same x
# 468 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            read (unit2, *, iostat=ios2) x0, y0, dummy_z
# 468 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            if (ios2 /= 0) call s_mpi_abort("Error reading first line")
# 468 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 468 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            yrows = 1
# 468 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            do
# 468 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                read (unit2, *, iostat=ios2) dummy_x, dummy_y, dummy_z
# 468 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                if (ios2 /= 0) exit
# 468 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                if (dummy_x == x0 .and. dummy_y /= y0) then
# 468 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    yrows = yrows + 1
# 468 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                else
# 468 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    exit
# 468 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                end if
# 468 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            end do
# 468 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            close (unit2)
# 468 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 468 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            ! Count total rows
# 468 "/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)
# 468 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            nrows = 0
# 468 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            do
# 468 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                read (unit2, *, iostat=ios2) dummy_x, dummy_y, dummy_z
# 468 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                if (ios2 /= 0) exit
# 468 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                nrows = nrows + 1
# 468 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            end do
# 468 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            close (unit2)
# 468 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 468 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            xrows = nrows/yrows
# 468 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#ifdef MFC_DEBUG
# 468 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    block
# 468 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        use iso_fortran_env, only: output_unit
# 468 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 468 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        print *, 'm_icpp_patches.fpp:468: ', '@:ALLOCATE(x_coords(nrows), y_coords(nrows), stored_values(xRows, yRows, sys_size))'
# 468 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 468 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        call flush (output_unit)
# 468 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    end block
# 468 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#endif
# 468 "/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))
# 468 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 468 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 468 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 468 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 468 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#if defined(MFC_OpenACC)
# 468 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
!$acc enter data create(x_coords, y_coords, stored_values) 
# 468 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#elif defined(MFC_OpenMP)
# 468 "/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) 
# 468 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#endif
# 468 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            index_x = i
# 468 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            index_y = j
# 468 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 468 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            ! Read all files
# 468 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            do f = 1, max_files
# 468 "/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)
# 468 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                if (ios /= 0) then
# 468 "/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)))
# 468 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    cycle
# 468 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                end if
# 468 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 468 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                iter = 0
# 468 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                do iix = 1, xrows
# 468 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    do iiy = 1, yrows
# 468 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                        iter = iter + 1
# 468 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                        if (f == 1) then
# 468 "/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)
# 468 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                        else
# 468 "/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)
# 468 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                        end if
# 468 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                        if (ios /= 0) call s_mpi_abort("Error reading data")
# 468 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    end do
# 468 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                end do
# 468 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                close (unit)
# 468 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            end do
# 468 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 468 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            ! Calculate offsets
# 468 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            x_step = x_cc(1) - x_cc(0)
# 468 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            y_step = y_cc(1) - y_cc(0)
# 468 "/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
# 468 "/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
# 468 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            global_offset_x = nint(abs(delta_x)/x_step)
# 468 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            global_offset_y = nint(abs(delta_y)/y_step)
# 468 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        end select
# 468 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 468 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        files_loaded = .true.
# 468 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    end if
# 468 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 468 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    ! Data assignment
# 468 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    select case (num_dims)
# 468 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    case (1)
# 468 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        idx = i + 1 + global_offset_x
# 468 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        do f = 1, sys_size
# 468 "/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)
# 468 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        end do
# 468 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 468 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    case (2)
# 468 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        idx = i + 1 + global_offset_x - index_x
# 468 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        do f = 1, sys_size - 1
# 468 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            jump = merge(1, 0, f >= momxe)
# 468 "/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)
# 468 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        end do
# 468 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        q_prim_vf(momxe)%sf(i, j, 0) = 0.0_wp
# 468 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 468 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    case (3)
# 468 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        idx = i + 1 + global_offset_x - index_x
# 468 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        idy = j + 1 + global_offset_y - index_y
# 468 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        do f = 1, sys_size - 1
# 468 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            jump = merge(1, 0, f >= momxe)
# 468 "/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)
# 468 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        end do
# 468 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        q_prim_vf(momxe)%sf(i, j, k) = 0.0_wp
# 468 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    end select
# 468 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 468 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    case (280)
# 468 "/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
# 468 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! 2D_isentropicvortex case:
# 468 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! This analytic patch uses geometry 2
# 468 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        if (patch_id == 1) then
# 468 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(e_idx)%sf(i, j, 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) - patch_icpp(1)%x_centroid)**2.0 - (y_cc(j) - patch_icpp(1)%y_centroid)**2.0)))**(1.4 + 1.0)
# 468 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(contxb + 0)%sf(i, j, 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) - patch_icpp(1)%x_centroid)**2.0 - (y_cc(j) - patch_icpp(1)%y_centroid)**2.0)))**1.4
# 468 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(momxb + 0)%sf(i, j, 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)%x_centroid)**2.0 - (y_cc(j) - patch_icpp(1)%y_centroid)**2.0))
# 468 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(momxb + 1)%sf(i, j, 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)%x_centroid)**2.0 - (y_cc(j) - patch_icpp(1)%y_centroid)**2.0))
# 468 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        end if
# 468 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 468 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    case (281)
# 468 "/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
# 468 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! 2D_acoustic_pulse case:
# 468 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! This analytic patch uses geometry 2
# 468 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        if (patch_id == 2) then
# 468 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(e_idx)%sf(i, j, 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))
# 468 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(contxb + 0)%sf(i, j, 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))
# 468 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        end if
# 468 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 468 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    case (282)
# 468 "/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
# 468 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! 2D_zero_circ_vortex case:
# 468 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! This analytic patch uses geometry 2
# 468 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        if (patch_id == 2) then
# 468 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(e_idx)%sf(i, j, 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))
# 468 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(contxb + 0)%sf(i, j, 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))
# 468 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(momxb + 0)%sf(i, j, 0) = 112.99092883944267*(1 - (0.1/0.3))*y_cc(j)*exp(0.5*(1 - sqrt(x_cc(i)**2 + y_cc(j)**2)))
# 468 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(momxb + 1)%sf(i, j, 0) = 112.99092883944267*((0.1/0.3))*x_cc(i)*exp(0.5*(1 - sqrt(x_cc(i)**2 + y_cc(j)**2)))
# 468 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        end if
# 468 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 468 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    case default
# 468 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        if (proc_rank == 0) then
# 468 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            call s_int_to_str(patch_id, istr)
# 468 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            call s_mpi_abort("Invalid hcid specified for patch "//trim(istr))
# 468 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        end if
# 468 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 468 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    end select
# 468 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
                    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(alf_idx)%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
# 480 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#ifdef MFC_DEBUG
# 480 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    block
# 480 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        use iso_fortran_env, only: output_unit
# 480 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 480 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        print *, 'm_icpp_patches.fpp:480: ', '@:DEALLOCATE(stored_values)'
# 480 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 480 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        call flush (output_unit)
# 480 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    end block
# 480 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#endif
# 480 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 480 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#if defined(MFC_OpenACC)
# 480 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
!$acc exit data delete(stored_values) 
# 480 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#elif defined(MFC_OpenMP)
# 480 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
!$omp target exit data map(release:stored_values) 
# 480 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#endif
# 480 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    deallocate (stored_values)
# 480 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#ifdef MFC_DEBUG
# 480 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    block
# 480 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        use iso_fortran_env, only: output_unit
# 480 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 480 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        print *, 'm_icpp_patches.fpp:480: ', '@:DEALLOCATE(x_coords)'
# 480 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 480 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        call flush (output_unit)
# 480 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    end block
# 480 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#endif
# 480 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 480 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#if defined(MFC_OpenACC)
# 480 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
!$acc exit data delete(x_coords) 
# 480 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#elif defined(MFC_OpenMP)
# 480 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
!$omp target exit data map(release:x_coords) 
# 480 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#endif
# 480 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    deallocate (x_coords)
# 480 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    end if
# 480 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 480 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    if (allocated(y_coords)) then
# 480 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#ifdef MFC_DEBUG
# 480 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    block
# 480 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        use iso_fortran_env, only: output_unit
# 480 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 480 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        print *, 'm_icpp_patches.fpp:480: ', '@:DEALLOCATE(y_coords)'
# 480 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 480 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        call flush (output_unit)
# 480 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    end block
# 480 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#endif
# 480 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 480 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#if defined(MFC_OpenACC)
# 480 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
!$acc exit data delete(y_coords) 
# 480 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#elif defined(MFC_OpenMP)
# 480 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
!$omp target exit data map(release:y_coords) 
# 480 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#endif
# 480 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    deallocate (y_coords)
# 480 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    end if
 
    end subroutine s_icpp_varcircle
 
    !> @brief Initializes a 3D variable-thickness circular annulus patch extruded along the z-axis.
    !! @param patch_id is the patch identifier
    !! @param patch_id_fp Array to track patch ids
    !! @param q_prim_vf Array of primitive variables
    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
# 502 "/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
# 502 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    real(wp) :: x_len, x_step, y_len, y_step
# 502 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    real(wp) :: dummy_x, dummy_y, dummy_z, x0, y0
# 502 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    integer :: global_offset_x, global_offset_y           ! MPI subdomain offset
# 502 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    real(wp) :: delta_x, delta_y
# 502 "/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
# 502 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    character(len=200) :: errmsg
# 502 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    real(wp), allocatable :: stored_values(:, :, :)
# 502 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    real(wp), allocatable :: x_coords(:), y_coords(:)
# 502 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    logical :: files_loaded = .false.
# 502 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    real(wp) :: domain_xstart, domain_xend, domain_ystart, domain_yend
# 502 "/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/
# 502 "/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
# 502 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    character(len=20) :: zeros_part       ! For the trailing zeros part
# 502 "/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
# 503 "/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
# 503 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    real(wp) :: eps
# 503 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 503 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    ! IGR Jets
# 503 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    ! Arrays to stor position and radii of jets from input file
# 503 "/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
# 503 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    ! Variables to describe initial condition of jet
# 503 "/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
# 503 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    real(wp) :: rcut, xcut ! Intermediate variables for creating smooth initial condition
# 503 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 503 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    real(wp), dimension(0:n, 0:p) :: rcut_arr
# 503 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    integer :: l, q, s ! Iterators for reading input files
# 503 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    integer :: start, end ! Ints to keep track of position in file
# 503 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    character(len=1000) :: line ! String to store line in ile
# 503 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    character(len=25) :: value ! String to store value in line
# 503 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    integer :: NJet ! Number of jets
# 503 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 503 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    eps = 1e-9_wp
# 503 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 503 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    if (patch_icpp(patch_id)%hcid == 303) then
# 503 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        eps_smooth = 3._wp
# 503 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        open (unit=10, file="njet.txt", status="old", action="read")
# 503 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        read (10, *) njet
# 503 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        close (10)
# 503 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 503 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        allocate (y_th_arr(0:njet - 1))
# 503 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        allocate (z_th_arr(0:njet - 1))
# 503 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        allocate (r_th_arr(0:njet - 1))
# 503 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 503 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        open (unit=10, file="jets.csv", status="old", action="read")
# 503 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        do q = 0, njet - 1
# 503 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            read (10, '(A)') line  ! Read a full line as a string
# 503 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            start = 1
# 503 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 503 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            do l = 0, 2
# 503 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                end = index(line(start:), ',')  ! Find the next comma
# 503 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                if (end == 0) then
# 503 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    value = trim(adjustl(line(start:)))  ! Last value in the line
# 503 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                else
# 503 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    value = trim(adjustl(line(start:start + end - 2)))  ! Extract substring
# 503 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    start = start + end  ! Move to next value
# 503 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                end if
# 503 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                if (l == 0) then
# 503 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    read (value, *) y_th_arr(q)  ! Convert string to numeric value
# 503 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                elseif (l == 1) then
# 503 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    read (value, *) z_th_arr(q)
# 503 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                else
# 503 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    read (value, *) r_th_arr(q)
# 503 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                end if
# 503 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            end do
# 503 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        end do
# 503 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        close (10)
# 503 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 503 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        do q = 0, p
# 503 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            do l = 0, n
# 503 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                rcut = 0._wp
# 503 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                do s = 0, njet - 1
# 503 "/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)
# 503 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    rcut = rcut + f_cut_on(r - r_th_arr(s), eps_smooth)
# 503 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                end do
# 503 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                rcut_arr(l, q) = rcut
# 503 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            end do
# 503 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        end do
# 503 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    end if
# 503 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
 
        ! 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
 
        ! Initializing the pseudo volume fraction value to 1. The value will
        ! be modified as the patch is laid out on the grid, but only in the
        ! case that smoothing of the circular patch's boundary is enabled.
        eta = 1._wp
 
        ! write for all z
 
        ! Checking whether the circle covers a particular cell in the domain
        ! and verifying whether the current patch has permission to write to
        ! that cell. If both queries check out, the primitive variables of
        ! the current patch are assigned to this cell.
        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
 
# 542 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    select case (patch_icpp(patch_id)%hcid)
# 542 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    case (300) ! Rayleigh-Taylor instability
# 542 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        rhoh = 3._wp
# 542 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        rhol = 1._wp
# 542 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        pref = 1.e5_wp
# 542 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        pint = pref
# 542 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        h = 0.7_wp
# 542 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        lam = 0.2_wp
# 542 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        wl = 2._wp*pi/lam
# 542 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        amp = 0.025_wp/wl
# 542 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 542 "/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
# 542 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 542 "/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))
# 542 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 542 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        if (alph < eps) alph = eps
# 542 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        if (alph > 1._wp - eps) alph = 1._wp - eps
# 542 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 542 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        if (y_cc(j) > inth) then
# 542 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(advxb)%sf(i, j, k) = alph
# 542 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(advxe)%sf(i, j, k) = 1._wp - alph
# 542 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(contxb)%sf(i, j, k) = alph*rhoh
# 542 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(contxe)%sf(i, j, k) = (1._wp - alph)*rhol
# 542 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(e_idx)%sf(i, j, k) = pref + rhoh*9.81_wp*(1.2_wp - y_cc(j))
# 542 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        else
# 542 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(advxb)%sf(i, j, k) = alph
# 542 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(advxe)%sf(i, j, k) = 1._wp - alph
# 542 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(contxb)%sf(i, j, k) = alph*rhoh
# 542 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(contxe)%sf(i, j, k) = (1._wp - alph)*rhol
# 542 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            pint = pref + rhoh*9.81_wp*(1.2_wp - inth)
# 542 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(e_idx)%sf(i, j, k) = pint + rhol*9.81_wp*(inth - y_cc(j))
# 542 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        end if
# 542 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 542 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    case (301) ! (3D lung geometry in X direction, |sin(*)+sin(*)|)
# 542 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        h = 0.0_wp
# 542 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        lam = 1.0_wp
# 542 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        amp = patch_icpp(patch_id)%a(2)
# 542 "/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)
# 542 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        if (x_cc(i) > inth) then
# 542 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(contxb)%sf(i, j, k) = patch_icpp(1)%alpha_rho(1)
# 542 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(contxe)%sf(i, j, k) = patch_icpp(1)%alpha_rho(2)
# 542 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(e_idx)%sf(i, j, k) = patch_icpp(1)%pres
# 542 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(advxb)%sf(i, j, k) = patch_icpp(1)%alpha(1)
# 542 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(advxe)%sf(i, j, k) = patch_icpp(1)%alpha(2)
# 542 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        end if
# 542 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 542 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    case (302) ! 3D Jet with IGR
# 542 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ux_th = 10*sqrt(1.4*0.4)
# 542 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ux_am = 0.0*sqrt(1.4)
# 542 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        p_th = 2.0_wp
# 542 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        p_am = 1.0_wp
# 542 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        rho_th = 1._wp
# 542 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        rho_am = 1._wp
# 542 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        y_th = 0.0_wp
# 542 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        z_th = 0.0_wp
# 542 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        r_th = 1._wp
# 542 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        eps_smooth = 1._wp
# 542 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        eps = 1e-6
# 542 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 542 "/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)
# 542 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        rcut = f_cut_on(r - r_th, eps_smooth)
# 542 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        xcut = f_cut_on(x_cc(i), eps_smooth)
# 542 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 542 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        q_prim_vf(momxb)%sf(i, j, k) = ux_th*rcut*xcut + ux_am
# 542 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        q_prim_vf(momxb + 1)%sf(i, j, k) = 0._wp
# 542 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        q_prim_vf(momxe)%sf(i, j, k) = 0._wp
# 542 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 542 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        if (num_fluids == 1) then
# 542 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(contxb)%sf(i, j, k) = (rho_th - rho_am)*rcut*xcut + rho_am
# 542 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        else
# 542 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(advxb)%sf(i, j, k) = (1._wp - 2._wp*eps)*rcut*xcut + eps
# 542 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(contxb)%sf(i, j, k) = rho_th*q_prim_vf(advxb)%sf(i, j, k)
# 542 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(contxe)%sf(i, j, k) = rho_am*(1._wp - q_prim_vf(advxb)%sf(i, j, k))
# 542 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        end if
# 542 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 542 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        q_prim_vf(e_idx)%sf(i, j, k) = p_th*rcut*xcut + p_am
# 542 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 542 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    case (303) ! 3D Multijet
# 542 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 542 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        eps_smooth = 3.0_wp
# 542 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ux_th = 10*sqrt(1.4*0.4)
# 542 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ux_am = 2.5*sqrt(1.4*0.4)
# 542 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        p_th = 0.8_wp
# 542 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        p_am = 0.4_wp
# 542 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        rho_th = 1._wp
# 542 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        rho_am = 1._wp
# 542 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        eps = 1e-6
# 542 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 542 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        rcut = rcut_arr(j, k)
# 542 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        xcut = f_cut_on(x_cc(i), eps_smooth)
# 542 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 542 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        q_prim_vf(momxb)%sf(i, j, k) = ux_th*rcut*xcut + ux_am
# 542 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        q_prim_vf(momxb + 1)%sf(i, j, k) = 0._wp
# 542 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        q_prim_vf(momxe)%sf(i, j, k) = 0._wp
# 542 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 542 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        if (num_fluids == 1) then
# 542 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(contxb)%sf(i, j, k) = (rho_th - rho_am)*rcut*xcut + rho_am
# 542 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        else
# 542 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(advxb)%sf(i, j, k) = (1._wp - 2._wp*eps)*rcut*xcut + eps
# 542 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(contxb)%sf(i, j, k) = rho_th*q_prim_vf(advxb)%sf(i, j, k)
# 542 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(contxe)%sf(i, j, k) = rho_am*(1._wp - q_prim_vf(advxb)%sf(i, j, k))
# 542 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        end if
# 542 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 542 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        q_prim_vf(e_idx)%sf(i, j, k) = p_th*rcut*xcut + p_am
# 542 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 542 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    case (370)
# 542 "/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
# 542 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 542 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    if (.not. files_loaded) then
# 542 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        max_files = merge(sys_size, sys_size - 1, num_dims == 1)
# 542 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        do f = 1, max_files
# 542 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            write (file_num_str, '(I0)') f
# 542 "/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"
# 542 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        end do
# 542 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 542 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! Common file reading setup
# 542 "/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)
# 542 "/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)))
# 542 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 542 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        select case (num_dims)
# 542 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        case (1, 2)  ! 1D and 2D cases are similar
# 542 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            ! Count lines
# 542 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            line_count = 0
# 542 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            do
# 542 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                read (unit2, *, iostat=ios2) dummy_x, dummy_y
# 542 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                if (ios2 /= 0) exit
# 542 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                line_count = line_count + 1
# 542 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            end do
# 542 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            close (unit2)
# 542 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 542 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            xrows = line_count
# 542 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            yrows = 1
# 542 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            index_x = 0
# 542 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            if (num_dims == 2) index_x = i
# 542 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#ifdef MFC_DEBUG
# 542 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    block
# 542 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        use iso_fortran_env, only: output_unit
# 542 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 542 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        print *, 'm_icpp_patches.fpp:542: ', '@:ALLOCATE(x_coords(xRows), stored_values(xRows, 1, sys_size))'
# 542 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 542 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        call flush (output_unit)
# 542 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    end block
# 542 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#endif
# 542 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    allocate (x_coords(xrows), stored_values(xrows, 1, sys_size))
# 542 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 542 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 542 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 542 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#if defined(MFC_OpenACC)
# 542 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
!$acc enter data create(x_coords, stored_values) 
# 542 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#elif defined(MFC_OpenMP)
# 542 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
!$omp target enter data map(always,alloc:x_coords, stored_values) 
# 542 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#endif
# 542 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 542 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            ! Read data from all files
# 542 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            do f = 1, max_files
# 542 "/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)
# 542 "/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)))
# 542 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 542 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                do iter = 1, xrows
# 542 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    read (unit, *, iostat=ios) x_coords(iter), stored_values(iter, 1, f)
# 542 "/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)))
# 542 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                end do
# 542 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                close (unit)
# 542 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            end do
# 542 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 542 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            ! Calculate offsets
# 542 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            domain_xstart = x_coords(1)
# 542 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            x_step = x_cc(1) - x_cc(0)
# 542 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            delta_x = merge(x_cc(0) - domain_xstart + x_step/2.0, &
# 542 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                            x_cc(index_x) - domain_xstart + x_step/2.0, num_dims == 1)
# 542 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            global_offset_x = nint(abs(delta_x)/x_step)
# 542 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 542 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        case (3)  ! 3D case - determine grid structure
# 542 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            ! Find yRows by counting rows with same x
# 542 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            read (unit2, *, iostat=ios2) x0, y0, dummy_z
# 542 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            if (ios2 /= 0) call s_mpi_abort("Error reading first line")
# 542 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 542 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            yrows = 1
# 542 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            do
# 542 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                read (unit2, *, iostat=ios2) dummy_x, dummy_y, dummy_z
# 542 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                if (ios2 /= 0) exit
# 542 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                if (dummy_x == x0 .and. dummy_y /= y0) then
# 542 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    yrows = yrows + 1
# 542 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                else
# 542 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    exit
# 542 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                end if
# 542 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            end do
# 542 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            close (unit2)
# 542 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 542 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            ! Count total rows
# 542 "/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)
# 542 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            nrows = 0
# 542 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            do
# 542 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                read (unit2, *, iostat=ios2) dummy_x, dummy_y, dummy_z
# 542 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                if (ios2 /= 0) exit
# 542 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                nrows = nrows + 1
# 542 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            end do
# 542 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            close (unit2)
# 542 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 542 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            xrows = nrows/yrows
# 542 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#ifdef MFC_DEBUG
# 542 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    block
# 542 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        use iso_fortran_env, only: output_unit
# 542 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 542 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        print *, 'm_icpp_patches.fpp:542: ', '@:ALLOCATE(x_coords(nrows), y_coords(nrows), stored_values(xRows, yRows, sys_size))'
# 542 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 542 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        call flush (output_unit)
# 542 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    end block
# 542 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#endif
# 542 "/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))
# 542 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 542 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 542 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 542 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 542 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#if defined(MFC_OpenACC)
# 542 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
!$acc enter data create(x_coords, y_coords, stored_values) 
# 542 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#elif defined(MFC_OpenMP)
# 542 "/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) 
# 542 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#endif
# 542 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            index_x = i
# 542 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            index_y = j
# 542 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 542 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            ! Read all files
# 542 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            do f = 1, max_files
# 542 "/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)
# 542 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                if (ios /= 0) then
# 542 "/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)))
# 542 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    cycle
# 542 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                end if
# 542 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 542 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                iter = 0
# 542 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                do iix = 1, xrows
# 542 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    do iiy = 1, yrows
# 542 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                        iter = iter + 1
# 542 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                        if (f == 1) then
# 542 "/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)
# 542 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                        else
# 542 "/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)
# 542 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                        end if
# 542 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                        if (ios /= 0) call s_mpi_abort("Error reading data")
# 542 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    end do
# 542 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                end do
# 542 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                close (unit)
# 542 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            end do
# 542 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 542 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            ! Calculate offsets
# 542 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            x_step = x_cc(1) - x_cc(0)
# 542 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            y_step = y_cc(1) - y_cc(0)
# 542 "/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
# 542 "/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
# 542 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            global_offset_x = nint(abs(delta_x)/x_step)
# 542 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            global_offset_y = nint(abs(delta_y)/y_step)
# 542 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        end select
# 542 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 542 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        files_loaded = .true.
# 542 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    end if
# 542 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 542 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    ! Data assignment
# 542 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    select case (num_dims)
# 542 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    case (1)
# 542 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        idx = i + 1 + global_offset_x
# 542 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        do f = 1, sys_size
# 542 "/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)
# 542 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        end do
# 542 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 542 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    case (2)
# 542 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        idx = i + 1 + global_offset_x - index_x
# 542 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        do f = 1, sys_size - 1
# 542 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            jump = merge(1, 0, f >= momxe)
# 542 "/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)
# 542 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        end do
# 542 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        q_prim_vf(momxe)%sf(i, j, 0) = 0.0_wp
# 542 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 542 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    case (3)
# 542 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        idx = i + 1 + global_offset_x - index_x
# 542 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        idy = j + 1 + global_offset_y - index_y
# 542 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        do f = 1, sys_size - 1
# 542 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            jump = merge(1, 0, f >= momxe)
# 542 "/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)
# 542 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        end do
# 542 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        q_prim_vf(momxe)%sf(i, j, k) = 0.0_wp
# 542 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    end select
# 542 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 542 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    case (380)
# 542 "/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
# 542 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! 3D_TaylorGreenVortex case:
# 542 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! This analytic patch used geometry 9
# 542 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        mach = 0.1
# 542 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        if (patch_id == 1) then
# 542 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(e_idx)%sf(i, j, 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)
# 542 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(momxb + 0)%sf(i, j, k) = mach*376.636429464809*sin(x_cc(i)/1)*cos(y_cc(j)/1)*sin(z_cc(k)/1)
# 542 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(momxb + 1)%sf(i, j, k) = -mach*376.636429464809*cos(x_cc(i)/1)*sin(y_cc(j)/1)*sin(z_cc(k)/1)
# 542 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        end if
# 542 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 542 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    case default
# 542 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        call s_int_to_str(patch_id, istr)
# 542 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        call s_mpi_abort("Invalid hcid specified for patch "//trim(istr))
# 542 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    end select
# 542 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
                        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(alf_idx)%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
# 555 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#ifdef MFC_DEBUG
# 555 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    block
# 555 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        use iso_fortran_env, only: output_unit
# 555 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 555 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        print *, 'm_icpp_patches.fpp:555: ', '@:DEALLOCATE(stored_values)'
# 555 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 555 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        call flush (output_unit)
# 555 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    end block
# 555 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#endif
# 555 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 555 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#if defined(MFC_OpenACC)
# 555 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
!$acc exit data delete(stored_values) 
# 555 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#elif defined(MFC_OpenMP)
# 555 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
!$omp target exit data map(release:stored_values) 
# 555 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#endif
# 555 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    deallocate (stored_values)
# 555 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#ifdef MFC_DEBUG
# 555 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    block
# 555 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        use iso_fortran_env, only: output_unit
# 555 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 555 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        print *, 'm_icpp_patches.fpp:555: ', '@:DEALLOCATE(x_coords)'
# 555 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 555 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        call flush (output_unit)
# 555 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    end block
# 555 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#endif
# 555 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 555 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#if defined(MFC_OpenACC)
# 555 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
!$acc exit data delete(x_coords) 
# 555 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#elif defined(MFC_OpenMP)
# 555 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
!$omp target exit data map(release:x_coords) 
# 555 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#endif
# 555 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    deallocate (x_coords)
# 555 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    end if
# 555 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 555 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    if (allocated(y_coords)) then
# 555 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#ifdef MFC_DEBUG
# 555 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    block
# 555 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        use iso_fortran_env, only: output_unit
# 555 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 555 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        print *, 'm_icpp_patches.fpp:555: ', '@:DEALLOCATE(y_coords)'
# 555 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 555 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        call flush (output_unit)
# 555 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    end block
# 555 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#endif
# 555 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 555 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#if defined(MFC_OpenACC)
# 555 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
!$acc exit data delete(y_coords) 
# 555 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#elif defined(MFC_OpenMP)
# 555 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
!$omp target exit data map(release:y_coords) 
# 555 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#endif
# 555 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    deallocate (y_coords)
# 555 "/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
        !! @param patch_id is the patch identifier
        !! @param patch_id_fp Array to track patch ids
        !! @param q_prim_vf Array of primitive variables
    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
# 578 "/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
# 578 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    real(wp) :: x_len, x_step, y_len, y_step
# 578 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    real(wp) :: dummy_x, dummy_y, dummy_z, x0, y0
# 578 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    integer :: global_offset_x, global_offset_y           ! MPI subdomain offset
# 578 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    real(wp) :: delta_x, delta_y
# 578 "/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
# 578 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    character(len=200) :: errmsg
# 578 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    real(wp), allocatable :: stored_values(:, :, :)
# 578 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    real(wp), allocatable :: x_coords(:), y_coords(:)
# 578 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    logical :: files_loaded = .false.
# 578 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    real(wp) :: domain_xstart, domain_xend, domain_ystart, domain_yend
# 578 "/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/
# 578 "/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
# 578 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    character(len=20) :: zeros_part       ! For the trailing zeros part
# 578 "/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
# 579 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    real(wp) :: eps, eps_mhd, C_mhd
# 579 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    real(wp) :: r, rmax, gam, umax, p0
# 579 "/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
# 579 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    real(wp) :: factor
# 579 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    real(wp) :: r0, alpha, r2
# 579 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    real(wp) :: sinA, cosA
# 579 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 579 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    real(wp) :: r_sq
# 579 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 579 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    ! # 207
# 579 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    real(wp) :: sigma, gauss1, gauss2
# 579 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    ! # 208
# 579 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    real(wp) :: ei, d, fsm, alpha_air, alpha_sf6
# 579 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 579 "/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
 
        ! Initializing the pseudo volume fraction value to 1. The value
        ! be modified as the patch is laid out on the grid, but only in
        ! the case that smoothing of the elliptical patch's boundary is
        ! enabled.
        eta = 1._wp
 
        ! Checking whether the ellipse covers a particular cell in the
        ! domain and verifying whether the current patch has permission
        ! to write to that cell. If both queries check out, the primitive
        ! variables of the current patch are assigned to this cell.
        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
 
# 623 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    select case (patch_icpp(patch_id)%hcid) ! 2D_hardcoded_ic example case
# 623 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 623 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    case (200)
# 623 "/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
# 623 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            ! Volume Fractions
# 623 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(advxb)%sf(i, j, 0) = eps
# 623 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(advxe)%sf(i, j, 0) = 1._wp - eps
# 623 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            ! Denssities
# 623 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(contxb)%sf(i, j, 0) = eps*1000._wp
# 623 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(contxe)%sf(i, j, 0) = (1._wp - eps)*1._wp
# 623 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            ! Pressure
# 623 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(e_idx)%sf(i, j, 0) = 1000._wp
# 623 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        end if
# 623 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    case (202) ! Gresho vortex (Gouasmi et al 2022 JCP)
# 623 "/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
# 623 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        rmax = 0.2_wp
# 623 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 623 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        gam = 1._wp + 1._wp/fluid_pp(1)%gamma
# 623 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        umax = 2*pi*rmax*patch_icpp(patch_id)%vel(2)
# 623 "/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)
# 623 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 623 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        if (r < rmax) then
# 623 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(momxb)%sf(i, j, 0) = -(y_cc(j) - 0.5_wp)*umax/rmax
# 623 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(momxe)%sf(i, j, 0) = (x_cc(i) - 0.5_wp)*umax/rmax
# 623 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(e_idx)%sf(i, j, 0) = p0 + umax**2*((r/rmax)**2._wp/2._wp)
# 623 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        else if (r < 2*rmax) then
# 623 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(momxb)%sf(i, j, 0) = -((y_cc(j) - 0.5_wp)/r)*umax*(2._wp - r/rmax)
# 623 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(momxe)%sf(i, j, 0) = ((x_cc(i) - 0.5_wp)/r)*umax*(2._wp - r/rmax)
# 623 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(e_idx)%sf(i, j, 0) = p0 + umax**2*((r/rmax)**2/2._wp + 4*(1 - (r/rmax) + log(r/rmax)))
# 623 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        else
# 623 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(momxb)%sf(i, j, 0) = 0._wp
# 623 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(momxe)%sf(i, j, 0) = 0._wp
# 623 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(e_idx)%sf(i, j, 0) = p0 + umax**2*(-2 + 4*log(2._wp))
# 623 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        end if
# 623 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    case (203) ! Gresho vortex (Gouasmi et al 2022 JCP) with density correction
# 623 "/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
# 623 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        rmax = 0.2_wp
# 623 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 623 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        gam = 1._wp + 1._wp/fluid_pp(1)%gamma
# 623 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        umax = 2*pi*rmax*patch_icpp(patch_id)%vel(2)
# 623 "/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)
# 623 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 623 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        if (r < rmax) then
# 623 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(momxb)%sf(i, j, 0) = -(y_cc(j) - 0.5_wp)*umax/rmax
# 623 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(momxe)%sf(i, j, 0) = (x_cc(i) - 0.5_wp)*umax/rmax
# 623 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(e_idx)%sf(i, j, 0) = p0 + umax**2*((r/rmax)**2._wp/2._wp)
# 623 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        else if (r < 2*rmax) then
# 623 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(momxb)%sf(i, j, 0) = -((y_cc(j) - 0.5_wp)/r)*umax*(2._wp - r/rmax)
# 623 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(momxe)%sf(i, j, 0) = ((x_cc(i) - 0.5_wp)/r)*umax*(2._wp - r/rmax)
# 623 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(e_idx)%sf(i, j, 0) = p0 + umax**2*((r/rmax)**2/2._wp + 4._wp*(1._wp - (r/rmax) + log(r/rmax)))
# 623 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        else
# 623 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(momxb)%sf(i, j, 0) = 0._wp
# 623 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(momxe)%sf(i, j, 0) = 0._wp
# 623 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(e_idx)%sf(i, j, 0) = p0 + umax**2._wp*(-2._wp + 4*log(2._wp))
# 623 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        end if
# 623 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 623 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        q_prim_vf(contxb)%sf(i, j, 0) = q_prim_vf(e_idx)%sf(i, j, 0)**(1._wp/gam)
# 623 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    case (204) ! Rayleigh-Taylor instability
# 623 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        rhoh = 3._wp
# 623 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        rhol = 1._wp
# 623 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        pref = 1.e5_wp
# 623 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        pint = pref
# 623 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        h = 0.7_wp
# 623 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        lam = 0.2_wp
# 623 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        wl = 2._wp*pi/lam
# 623 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        amp = 0.05_wp/wl
# 623 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 623 "/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
# 623 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 623 "/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))
# 623 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 623 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        if (alph < eps) alph = eps
# 623 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        if (alph > 1._wp - eps) alph = 1._wp - eps
# 623 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 623 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        if (y_cc(j) > inth) then
# 623 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(advxb)%sf(i, j, 0) = alph
# 623 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(advxe)%sf(i, j, 0) = 1._wp - alph
# 623 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(contxb)%sf(i, j, 0) = alph*rhoh
# 623 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(contxe)%sf(i, j, 0) = (1._wp - alph)*rhol
# 623 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(e_idx)%sf(i, j, 0) = pref + rhoh*9.81_wp*(1.2_wp - y_cc(j))
# 623 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        else
# 623 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(advxb)%sf(i, j, 0) = alph
# 623 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(advxe)%sf(i, j, 0) = 1._wp - alph
# 623 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(contxb)%sf(i, j, 0) = alph*rhoh
# 623 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(contxe)%sf(i, j, 0) = (1._wp - alph)*rhol
# 623 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            pint = pref + rhoh*9.81_wp*(1.2_wp - inth)
# 623 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(e_idx)%sf(i, j, 0) = pint + rhol*9.81_wp*(inth - y_cc(j))
# 623 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        end if
# 623 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 623 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    case (205) ! 2D lung wave interaction problem
# 623 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        h = 0.0_wp           !non dim origin y
# 623 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        lam = 1.0_wp         !non dim lambda
# 623 "/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
# 623 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 623 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        inth = amp*sin(2*pi*x_cc(i)/lam - pi/2) + h
# 623 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 623 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        if (y_cc(j) > inth) then
# 623 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(contxb)%sf(i, j, 0) = patch_icpp(1)%alpha_rho(1)
# 623 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(contxe)%sf(i, j, 0) = patch_icpp(1)%alpha_rho(2)
# 623 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(e_idx)%sf(i, j, 0) = patch_icpp(1)%pres
# 623 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(advxb)%sf(i, j, 0) = patch_icpp(1)%alpha(1)
# 623 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(advxe)%sf(i, j, 0) = patch_icpp(1)%alpha(2)
# 623 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        end if
# 623 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 623 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    case (206) ! 2D lung wave interaction problem - horizontal domain
# 623 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        h = 0.0_wp           !non dim origin y
# 623 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        lam = 1.0_wp         !non dim lambda
# 623 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        amp = patch_icpp(patch_id)%a(2)
# 623 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 623 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        intl = amp*sin(2*pi*y_cc(j)/lam - pi/2) + h
# 623 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 623 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        if (x_cc(i) > intl) then        !this is the liquid
# 623 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(contxb)%sf(i, j, 0) = patch_icpp(1)%alpha_rho(1)
# 623 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(contxe)%sf(i, j, 0) = patch_icpp(1)%alpha_rho(2)
# 623 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(e_idx)%sf(i, j, 0) = patch_icpp(1)%pres
# 623 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(advxb)%sf(i, j, 0) = patch_icpp(1)%alpha(1)
# 623 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(advxe)%sf(i, j, 0) = patch_icpp(1)%alpha(2)
# 623 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        end if
# 623 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 623 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    case (207) ! Kelvin Helmholtz Instability
# 623 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        sigma = 0.05_wp/sqrt(2.0_wp)
# 623 "/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))
# 623 "/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))
# 623 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        q_prim_vf(momxb + 1)%sf(i, j, 0) = &
# 623 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            0.1_wp*sin(4.0_wp*pi*x_cc(i))*(gauss1 + gauss2)
# 623 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 623 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    case (208) ! Richtmeyer Meshkov Instability
# 623 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        lam = 1.0_wp
# 623 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        eps = 1.0e-6_wp
# 623 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ei = 5.0_wp
# 623 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! Smoothening function to smooth out sharp discontinuity in the interface
# 623 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        if (x_cc(i) <= 0.7_wp*lam) then
# 623 "/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)))
# 623 "/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))))
# 623 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            alpha_air = eps + (1.0_wp - 2.0_wp*eps)*fsm
# 623 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            alpha_sf6 = 1.0_wp - alpha_air
# 623 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(contxb)%sf(i, j, 0) = alpha_sf6*5.04_wp
# 623 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(contxe)%sf(i, j, 0) = alpha_air*1.0_wp
# 623 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(advxb)%sf(i, j, 0) = alpha_sf6
# 623 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(advxe)%sf(i, j, 0) = alpha_air
# 623 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        end if
# 623 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 623 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    case (250) ! MHD Orszag-Tang vortex
# 623 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! gamma = 5/3
# 623 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        !   rho = 25/(36*pi)
# 623 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        !     p = 5/(12*pi)
# 623 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        !     v = (-sin(2*pi*y), sin(2*pi*x), 0)
# 623 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        !     B = (-sin(2*pi*y)/sqrt(4*pi), sin(4*pi*x)/sqrt(4*pi), 0)
# 623 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 623 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        q_prim_vf(momxb)%sf(i, j, 0) = -sin(2._wp*pi*y_cc(j))
# 623 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        q_prim_vf(momxb + 1)%sf(i, j, 0) = sin(2._wp*pi*x_cc(i))
# 623 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 623 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        q_prim_vf(b_idx%beg)%sf(i, j, 0) = -sin(2._wp*pi*y_cc(j))/sqrt(4._wp*pi)
# 623 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        q_prim_vf(b_idx%beg + 1)%sf(i, j, 0) = sin(4._wp*pi*x_cc(i))/sqrt(4._wp*pi)
# 623 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 623 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    case (251) ! RMHD Cylindrical Blast Wave [Mignone, 2006: Section 4.3.1]
# 623 "/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
# 623 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(contxb)%sf(i, j, 0) = 0.01
# 623 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(e_idx)%sf(i, j, 0) = 1.0
# 623 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        elseif (x_cc(i)**2 + y_cc(j)**2 <= 1._wp**2) then
# 623 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            ! Linear interpolation between r=0.08 and r=1.0
# 623 "/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)
# 623 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(contxb)%sf(i, j, 0) = 0.01_wp*factor + 1.e-4_wp*(1.0_wp - factor)
# 623 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(e_idx)%sf(i, j, 0) = 1.0_wp*factor + 3.e-5_wp*(1.0_wp - factor)
# 623 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        else
# 623 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(contxb)%sf(i, j, 0) = 1.e-4_wp
# 623 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(e_idx)%sf(i, j, 0) = 3.e-5_wp
# 623 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        end if
# 623 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 623 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! case 252 is for the 2D MHD Rotor problem
# 623 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    case (252) ! 2D MHD Rotor Problem
# 623 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! Ambient conditions are set in the JSON file.
# 623 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! This case imposes the dense, rotating cylinder.
# 623 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        !
# 623 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! gamma = 1.4
# 623 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! Ambient medium (r > 0.1):
# 623 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        !   rho = 1, p = 1, v = 0, B = (1,0,0)
# 623 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! Rotor (r <= 0.1):
# 623 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        !   rho = 10, p = 1
# 623 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        !   v has angular velocity w=20, giving v_tan=2 at r=0.1
# 623 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 623 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! Calculate distance squared from the center
# 623 "/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
# 623 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 623 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! inner radius of 0.1
# 623 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        if (r_sq <= 0.1**2) then
# 623 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            ! -- Inside the rotor --
# 623 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            ! Set density uniformly to 10
# 623 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(contxb)%sf(i, j, 0) = 10._wp
# 623 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 623 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            ! Set vup constant rotation of rate v=2
# 623 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            ! v_x = -omega * (y - y_c)
# 623 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            ! v_y =  omega * (x - x_c)
# 623 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(momxb)%sf(i, j, 0) = -20._wp*(y_cc(j) - 0.5_wp)
# 623 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(momxb + 1)%sf(i, j, 0) = 20._wp*(x_cc(i) - 0.5_wp)
# 623 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 623 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            ! taper width of 0.015
# 623 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        else if (r_sq <= 0.115**2) then
# 623 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            ! linearly smooth the function between r = 0.1 and 0.115
# 623 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(contxb)%sf(i, j, 0) = 1._wp + 9._wp*(0.115_wp - sqrt(r_sq))/(0.015_wp)
# 623 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 623 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(momxb)%sf(i, j, 0) = -(2._wp/sqrt(r_sq))*(y_cc(j) - 0.5_wp)*(0.115_wp - sqrt(r_sq))/(0.015_wp)
# 623 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(momxb + 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)
# 623 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        end if
# 623 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 623 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    case (253) ! MHD Smooth Magnetic Vortex
# 623 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! Section 5.2 of
# 623 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! Implicit hybridized discontinuous Galerkin methods for compressible magnetohydrodynamics
# 623 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! C. Ciuca, P. Fernandez, A. Christophe, N.C. Nguyen, J. Peraire
# 623 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 623 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! velocity
# 623 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        q_prim_vf(momxb)%sf(i, j, 0) = 1._wp - (y_cc(j)*exp(1 - (x_cc(i)**2 + y_cc(j)**2))/(2.*pi))
# 623 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        q_prim_vf(momxb + 1)%sf(i, j, 0) = 1._wp + (x_cc(i)*exp(1 - (x_cc(i)**2 + y_cc(j)**2))/(2.*pi))
# 623 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 623 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! magnetic field
# 623 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        q_prim_vf(b_idx%beg)%sf(i, j, 0) = -y_cc(j)*exp(1 - (x_cc(i)**2 + y_cc(j)**2))/(2.*pi)
# 623 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        q_prim_vf(b_idx%beg + 1)%sf(i, j, 0) = x_cc(i)*exp(1 - (x_cc(i)**2 + y_cc(j)**2))/(2.*pi)
# 623 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 623 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! pressure
# 623 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        q_prim_vf(e_idx)%sf(i, j, 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)
# 623 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 623 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    case (260)  ! Gaussian Divergence Pulse
# 623 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        !  Bx(x) = 1 + C * erf((x-0.5)/σ)
# 623 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        !  ⇒  ∂Bx/∂x = C * (2/√π) * exp[-((x-0.5)/σ)**2] * (1/σ)
# 623 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        !  Choose C = ε * σ * √π / 2  ⇒ ∂Bx/∂x = ε * exp[-((x-0.5)/σ)**2]
# 623 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        !  ψ is initialized to zero everywhere.
# 623 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 623 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        eps_mhd = patch_icpp(patch_id)%a(2)
# 623 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        sigma = patch_icpp(patch_id)%a(3)
# 623 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        c_mhd = eps_mhd*sigma*sqrt(pi)*0.5_wp
# 623 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 623 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! B-field
# 623 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        q_prim_vf(b_idx%beg)%sf(i, j, 0) = 1._wp + c_mhd*erf((x_cc(i) - 0.5_wp)/sigma)
# 623 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 623 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    case (261)  ! Blob
# 623 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        r0 = 1._wp/sqrt(8._wp)
# 623 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        r2 = x_cc(i)**2 + y_cc(j)**2
# 623 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        r = sqrt(r2)
# 623 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        alpha = r/r0
# 623 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        if (alpha < 1) then
# 623 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(b_idx%beg)%sf(i, j, 0) = 1._wp/sqrt(4._wp*pi)*(alpha**8 - 2._wp*alpha**4 + 1._wp)
# 623 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            ! q_prim_vf(B_idx%beg)%sf(i,j,0) = 1._wp/sqrt(4000._wp*pi) * (4096._wp*r2**4 - 128._wp*r2**2 + 1._wp)
# 623 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            ! q_prim_vf(B_idx%beg)%sf(i,j,0) = 1._wp/(4._wp*pi) * (alpha**8 - 2._wp*alpha**4 + 1._wp)
# 623 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            ! q_prim_vf(E_idx)%sf(i,j,0) = 6._wp - q_prim_vf(B_idx%beg)%sf(i,j,0)**2/2._wp
# 623 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        end if
# 623 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 623 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    case (262)  ! Tilted 2D MHD shock‐tube at α = arctan2 (≈63.4°)
# 623 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! rotate by α = atan(2)
# 623 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        alpha = atan(2._wp)
# 623 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        cosa = cos(alpha)
# 623 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        sina = sin(alpha)
# 623 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! projection along shock normal
# 623 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        r = x_cc(i)*cosa + y_cc(j)*sina
# 623 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 623 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        if (r <= 0.5_wp) then
# 623 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            ! LEFT state: ρ=1, v∥=+10, v⊥=0, p=20, B∥=B⊥=5/√(4π)
# 623 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(contxb)%sf(i, j, 0) = 1._wp
# 623 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(momxb)%sf(i, j, 0) = 10._wp*cosa
# 623 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(momxb + 1)%sf(i, j, 0) = 10._wp*sina
# 623 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(e_idx)%sf(i, j, 0) = 20._wp
# 623 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(b_idx%beg)%sf(i, j, 0) = (5._wp/sqrt(4._wp*pi))*cosa &
# 623 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                                               - (5._wp/sqrt(4._wp*pi))*sina
# 623 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(b_idx%beg + 1)%sf(i, j, 0) = (5._wp/sqrt(4._wp*pi))*sina &
# 623 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                                                   + (5._wp/sqrt(4._wp*pi))*cosa
# 623 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        else
# 623 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            ! RIGHT state: ρ=1, v∥=−10, v⊥=0, p=1, B∥=B⊥=5/√(4π)
# 623 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(contxb)%sf(i, j, 0) = 1._wp
# 623 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(momxb)%sf(i, j, 0) = -10._wp*cosa
# 623 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(momxb + 1)%sf(i, j, 0) = -10._wp*sina
# 623 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(e_idx)%sf(i, j, 0) = 1._wp
# 623 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(b_idx%beg)%sf(i, j, 0) = (5._wp/sqrt(4._wp*pi))*cosa &
# 623 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                                               - (5._wp/sqrt(4._wp*pi))*sina
# 623 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(b_idx%beg + 1)%sf(i, j, 0) = (5._wp/sqrt(4._wp*pi))*sina &
# 623 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                                                   + (5._wp/sqrt(4._wp*pi))*cosa
# 623 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        end if
# 623 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! v^z and B^z remain zero by default
# 623 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 623 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    case (270)
# 623 "/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
# 623 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 623 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    if (.not. files_loaded) then
# 623 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        max_files = merge(sys_size, sys_size - 1, num_dims == 1)
# 623 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        do f = 1, max_files
# 623 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            write (file_num_str, '(I0)') f
# 623 "/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"
# 623 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        end do
# 623 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 623 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! Common file reading setup
# 623 "/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)
# 623 "/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)))
# 623 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 623 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        select case (num_dims)
# 623 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        case (1, 2)  ! 1D and 2D cases are similar
# 623 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            ! Count lines
# 623 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            line_count = 0
# 623 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            do
# 623 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                read (unit2, *, iostat=ios2) dummy_x, dummy_y
# 623 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                if (ios2 /= 0) exit
# 623 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                line_count = line_count + 1
# 623 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            end do
# 623 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            close (unit2)
# 623 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 623 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            xrows = line_count
# 623 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            yrows = 1
# 623 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            index_x = 0
# 623 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            if (num_dims == 2) index_x = i
# 623 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#ifdef MFC_DEBUG
# 623 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    block
# 623 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        use iso_fortran_env, only: output_unit
# 623 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 623 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        print *, 'm_icpp_patches.fpp:623: ', '@:ALLOCATE(x_coords(xRows), stored_values(xRows, 1, sys_size))'
# 623 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 623 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        call flush (output_unit)
# 623 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    end block
# 623 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#endif
# 623 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    allocate (x_coords(xrows), stored_values(xrows, 1, sys_size))
# 623 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 623 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 623 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 623 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#if defined(MFC_OpenACC)
# 623 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
!$acc enter data create(x_coords, stored_values) 
# 623 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#elif defined(MFC_OpenMP)
# 623 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
!$omp target enter data map(always,alloc:x_coords, stored_values) 
# 623 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#endif
# 623 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 623 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            ! Read data from all files
# 623 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            do f = 1, max_files
# 623 "/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)
# 623 "/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)))
# 623 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 623 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                do iter = 1, xrows
# 623 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    read (unit, *, iostat=ios) x_coords(iter), stored_values(iter, 1, f)
# 623 "/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)))
# 623 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                end do
# 623 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                close (unit)
# 623 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            end do
# 623 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 623 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            ! Calculate offsets
# 623 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            domain_xstart = x_coords(1)
# 623 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            x_step = x_cc(1) - x_cc(0)
# 623 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            delta_x = merge(x_cc(0) - domain_xstart + x_step/2.0, &
# 623 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                            x_cc(index_x) - domain_xstart + x_step/2.0, num_dims == 1)
# 623 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            global_offset_x = nint(abs(delta_x)/x_step)
# 623 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 623 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        case (3)  ! 3D case - determine grid structure
# 623 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            ! Find yRows by counting rows with same x
# 623 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            read (unit2, *, iostat=ios2) x0, y0, dummy_z
# 623 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            if (ios2 /= 0) call s_mpi_abort("Error reading first line")
# 623 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 623 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            yrows = 1
# 623 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            do
# 623 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                read (unit2, *, iostat=ios2) dummy_x, dummy_y, dummy_z
# 623 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                if (ios2 /= 0) exit
# 623 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                if (dummy_x == x0 .and. dummy_y /= y0) then
# 623 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    yrows = yrows + 1
# 623 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                else
# 623 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    exit
# 623 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                end if
# 623 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            end do
# 623 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            close (unit2)
# 623 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 623 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            ! Count total rows
# 623 "/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)
# 623 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            nrows = 0
# 623 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            do
# 623 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                read (unit2, *, iostat=ios2) dummy_x, dummy_y, dummy_z
# 623 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                if (ios2 /= 0) exit
# 623 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                nrows = nrows + 1
# 623 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            end do
# 623 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            close (unit2)
# 623 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 623 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            xrows = nrows/yrows
# 623 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#ifdef MFC_DEBUG
# 623 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    block
# 623 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        use iso_fortran_env, only: output_unit
# 623 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 623 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        print *, 'm_icpp_patches.fpp:623: ', '@:ALLOCATE(x_coords(nrows), y_coords(nrows), stored_values(xRows, yRows, sys_size))'
# 623 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 623 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        call flush (output_unit)
# 623 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    end block
# 623 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#endif
# 623 "/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))
# 623 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 623 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 623 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 623 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 623 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#if defined(MFC_OpenACC)
# 623 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
!$acc enter data create(x_coords, y_coords, stored_values) 
# 623 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#elif defined(MFC_OpenMP)
# 623 "/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) 
# 623 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#endif
# 623 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            index_x = i
# 623 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            index_y = j
# 623 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 623 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            ! Read all files
# 623 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            do f = 1, max_files
# 623 "/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)
# 623 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                if (ios /= 0) then
# 623 "/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)))
# 623 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    cycle
# 623 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                end if
# 623 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 623 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                iter = 0
# 623 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                do iix = 1, xrows
# 623 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    do iiy = 1, yrows
# 623 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                        iter = iter + 1
# 623 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                        if (f == 1) then
# 623 "/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)
# 623 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                        else
# 623 "/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)
# 623 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                        end if
# 623 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                        if (ios /= 0) call s_mpi_abort("Error reading data")
# 623 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    end do
# 623 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                end do
# 623 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                close (unit)
# 623 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            end do
# 623 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 623 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            ! Calculate offsets
# 623 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            x_step = x_cc(1) - x_cc(0)
# 623 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            y_step = y_cc(1) - y_cc(0)
# 623 "/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
# 623 "/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
# 623 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            global_offset_x = nint(abs(delta_x)/x_step)
# 623 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            global_offset_y = nint(abs(delta_y)/y_step)
# 623 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        end select
# 623 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 623 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        files_loaded = .true.
# 623 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    end if
# 623 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 623 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    ! Data assignment
# 623 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    select case (num_dims)
# 623 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    case (1)
# 623 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        idx = i + 1 + global_offset_x
# 623 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        do f = 1, sys_size
# 623 "/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)
# 623 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        end do
# 623 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 623 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    case (2)
# 623 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        idx = i + 1 + global_offset_x - index_x
# 623 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        do f = 1, sys_size - 1
# 623 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            jump = merge(1, 0, f >= momxe)
# 623 "/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)
# 623 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        end do
# 623 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        q_prim_vf(momxe)%sf(i, j, 0) = 0.0_wp
# 623 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 623 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    case (3)
# 623 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        idx = i + 1 + global_offset_x - index_x
# 623 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        idy = j + 1 + global_offset_y - index_y
# 623 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        do f = 1, sys_size - 1
# 623 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            jump = merge(1, 0, f >= momxe)
# 623 "/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)
# 623 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        end do
# 623 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        q_prim_vf(momxe)%sf(i, j, k) = 0.0_wp
# 623 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    end select
# 623 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 623 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    case (280)
# 623 "/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
# 623 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! 2D_isentropicvortex case:
# 623 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! This analytic patch uses geometry 2
# 623 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        if (patch_id == 1) then
# 623 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(e_idx)%sf(i, j, 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) - patch_icpp(1)%x_centroid)**2.0 - (y_cc(j) - patch_icpp(1)%y_centroid)**2.0)))**(1.4 + 1.0)
# 623 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(contxb + 0)%sf(i, j, 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) - patch_icpp(1)%x_centroid)**2.0 - (y_cc(j) - patch_icpp(1)%y_centroid)**2.0)))**1.4
# 623 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(momxb + 0)%sf(i, j, 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)%x_centroid)**2.0 - (y_cc(j) - patch_icpp(1)%y_centroid)**2.0))
# 623 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(momxb + 1)%sf(i, j, 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)%x_centroid)**2.0 - (y_cc(j) - patch_icpp(1)%y_centroid)**2.0))
# 623 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        end if
# 623 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 623 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    case (281)
# 623 "/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
# 623 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! 2D_acoustic_pulse case:
# 623 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! This analytic patch uses geometry 2
# 623 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        if (patch_id == 2) then
# 623 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(e_idx)%sf(i, j, 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))
# 623 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(contxb + 0)%sf(i, j, 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))
# 623 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        end if
# 623 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 623 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    case (282)
# 623 "/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
# 623 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! 2D_zero_circ_vortex case:
# 623 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! This analytic patch uses geometry 2
# 623 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        if (patch_id == 2) then
# 623 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(e_idx)%sf(i, j, 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))
# 623 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(contxb + 0)%sf(i, j, 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))
# 623 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(momxb + 0)%sf(i, j, 0) = 112.99092883944267*(1 - (0.1/0.3))*y_cc(j)*exp(0.5*(1 - sqrt(x_cc(i)**2 + y_cc(j)**2)))
# 623 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(momxb + 1)%sf(i, j, 0) = 112.99092883944267*((0.1/0.3))*x_cc(i)*exp(0.5*(1 - sqrt(x_cc(i)**2 + y_cc(j)**2)))
# 623 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        end if
# 623 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 623 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    case default
# 623 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        if (proc_rank == 0) then
# 623 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            call s_int_to_str(patch_id, istr)
# 623 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            call s_mpi_abort("Invalid hcid specified for patch "//trim(istr))
# 623 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        end if
# 623 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 623 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    end select
# 623 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
                    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
# 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: ', '@:DEALLOCATE(stored_values)'
# 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"
 
# 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 exit data delete(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 exit data map(release: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"
    deallocate (stored_values)
# 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: ', '@:DEALLOCATE(x_coords)'
# 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"
 
# 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 exit data delete(x_coords) 
# 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 exit data map(release:x_coords) 
# 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"
    deallocate (x_coords)
# 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"
    if (allocated(y_coords)) then
# 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: ', '@:DEALLOCATE(y_coords)'
# 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"
 
# 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 exit data delete(y_coords) 
# 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 exit data map(release:y_coords) 
# 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"
    deallocate (y_coords)
# 631 "/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
        !! @param patch_id is the patch identifier
        !! @param patch_id_fp Array to track patch ids
        !! @param q_prim_vf Array of primitive variables
    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
# 656 "/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
# 656 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    real(wp) :: x_len, x_step, y_len, y_step
# 656 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    real(wp) :: dummy_x, dummy_y, dummy_z, x0, y0
# 656 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    integer :: global_offset_x, global_offset_y           ! MPI subdomain offset
# 656 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    real(wp) :: delta_x, delta_y
# 656 "/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
# 656 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    character(len=200) :: errmsg
# 656 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    real(wp), allocatable :: stored_values(:, :, :)
# 656 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    real(wp), allocatable :: x_coords(:), y_coords(:)
# 656 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    logical :: files_loaded = .false.
# 656 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    real(wp) :: domain_xstart, domain_xend, domain_ystart, domain_yend
# 656 "/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/
# 656 "/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
# 656 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    character(len=20) :: zeros_part       ! For the trailing zeros part
# 656 "/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
# 657 "/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
# 657 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    real(wp) :: eps
# 657 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 657 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    ! IGR Jets
# 657 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    ! Arrays to stor position and radii of jets from input file
# 657 "/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
# 657 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    ! Variables to describe initial condition of jet
# 657 "/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
# 657 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    real(wp) :: rcut, xcut ! Intermediate variables for creating smooth initial condition
# 657 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 657 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    real(wp), dimension(0:n, 0:p) :: rcut_arr
# 657 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    integer :: l, q, s ! Iterators for reading input files
# 657 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    integer :: start, end ! Ints to keep track of position in file
# 657 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    character(len=1000) :: line ! String to store line in ile
# 657 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    character(len=25) :: value ! String to store value in line
# 657 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    integer :: NJet ! Number of jets
# 657 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 657 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    eps = 1e-9_wp
# 657 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 657 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    if (patch_icpp(patch_id)%hcid == 303) then
# 657 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        eps_smooth = 3._wp
# 657 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        open (unit=10, file="njet.txt", status="old", action="read")
# 657 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        read (10, *) njet
# 657 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        close (10)
# 657 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 657 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        allocate (y_th_arr(0:njet - 1))
# 657 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        allocate (z_th_arr(0:njet - 1))
# 657 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        allocate (r_th_arr(0:njet - 1))
# 657 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 657 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        open (unit=10, file="jets.csv", status="old", action="read")
# 657 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        do q = 0, njet - 1
# 657 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            read (10, '(A)') line  ! Read a full line as a string
# 657 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            start = 1
# 657 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 657 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            do l = 0, 2
# 657 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                end = index(line(start:), ',')  ! Find the next comma
# 657 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                if (end == 0) then
# 657 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    value = trim(adjustl(line(start:)))  ! Last value in the line
# 657 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                else
# 657 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    value = trim(adjustl(line(start:start + end - 2)))  ! Extract substring
# 657 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    start = start + end  ! Move to next value
# 657 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                end if
# 657 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                if (l == 0) then
# 657 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    read (value, *) y_th_arr(q)  ! Convert string to numeric value
# 657 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                elseif (l == 1) then
# 657 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    read (value, *) z_th_arr(q)
# 657 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                else
# 657 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    read (value, *) r_th_arr(q)
# 657 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                end if
# 657 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            end do
# 657 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        end do
# 657 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        close (10)
# 657 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 657 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        do q = 0, p
# 657 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            do l = 0, n
# 657 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                rcut = 0._wp
# 657 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                do s = 0, njet - 1
# 657 "/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)
# 657 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    rcut = rcut + f_cut_on(r - r_th_arr(s), eps_smooth)
# 657 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                end do
# 657 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                rcut_arr(l, q) = rcut
# 657 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            end do
# 657 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        end do
# 657 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    end if
# 657 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
 
        ! 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
 
        ! Initializing the pseudo volume fraction value to 1. The value
        ! be modified as the patch is laid out on the grid, but only in
        ! the case that smoothing of the ellipsoidal patch's boundary is
        ! enabled.
        eta = 1._wp
 
        ! Checking whether the ellipsoid covers a particular cell in the
        ! domain and verifying whether the current patch has permission
        ! to write to that cell. If both queries check out, the primitive
        ! variables of the current patch are assigned to this cell.
        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
 
# 713 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    select case (patch_icpp(patch_id)%hcid)
# 713 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    case (300) ! Rayleigh-Taylor instability
# 713 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        rhoh = 3._wp
# 713 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        rhol = 1._wp
# 713 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        pref = 1.e5_wp
# 713 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        pint = pref
# 713 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        h = 0.7_wp
# 713 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        lam = 0.2_wp
# 713 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        wl = 2._wp*pi/lam
# 713 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        amp = 0.025_wp/wl
# 713 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 713 "/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
# 713 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 713 "/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))
# 713 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 713 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        if (alph < eps) alph = eps
# 713 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        if (alph > 1._wp - eps) alph = 1._wp - eps
# 713 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 713 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        if (y_cc(j) > inth) then
# 713 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(advxb)%sf(i, j, k) = alph
# 713 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(advxe)%sf(i, j, k) = 1._wp - alph
# 713 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(contxb)%sf(i, j, k) = alph*rhoh
# 713 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(contxe)%sf(i, j, k) = (1._wp - alph)*rhol
# 713 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(e_idx)%sf(i, j, k) = pref + rhoh*9.81_wp*(1.2_wp - y_cc(j))
# 713 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        else
# 713 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(advxb)%sf(i, j, k) = alph
# 713 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(advxe)%sf(i, j, k) = 1._wp - alph
# 713 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(contxb)%sf(i, j, k) = alph*rhoh
# 713 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(contxe)%sf(i, j, k) = (1._wp - alph)*rhol
# 713 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            pint = pref + rhoh*9.81_wp*(1.2_wp - inth)
# 713 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(e_idx)%sf(i, j, k) = pint + rhol*9.81_wp*(inth - y_cc(j))
# 713 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        end if
# 713 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 713 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    case (301) ! (3D lung geometry in X direction, |sin(*)+sin(*)|)
# 713 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        h = 0.0_wp
# 713 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        lam = 1.0_wp
# 713 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        amp = patch_icpp(patch_id)%a(2)
# 713 "/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)
# 713 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        if (x_cc(i) > inth) then
# 713 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(contxb)%sf(i, j, k) = patch_icpp(1)%alpha_rho(1)
# 713 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(contxe)%sf(i, j, k) = patch_icpp(1)%alpha_rho(2)
# 713 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(e_idx)%sf(i, j, k) = patch_icpp(1)%pres
# 713 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(advxb)%sf(i, j, k) = patch_icpp(1)%alpha(1)
# 713 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(advxe)%sf(i, j, k) = patch_icpp(1)%alpha(2)
# 713 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        end if
# 713 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 713 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    case (302) ! 3D Jet with IGR
# 713 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ux_th = 10*sqrt(1.4*0.4)
# 713 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ux_am = 0.0*sqrt(1.4)
# 713 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        p_th = 2.0_wp
# 713 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        p_am = 1.0_wp
# 713 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        rho_th = 1._wp
# 713 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        rho_am = 1._wp
# 713 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        y_th = 0.0_wp
# 713 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        z_th = 0.0_wp
# 713 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        r_th = 1._wp
# 713 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        eps_smooth = 1._wp
# 713 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        eps = 1e-6
# 713 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 713 "/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)
# 713 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        rcut = f_cut_on(r - r_th, eps_smooth)
# 713 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        xcut = f_cut_on(x_cc(i), eps_smooth)
# 713 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 713 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        q_prim_vf(momxb)%sf(i, j, k) = ux_th*rcut*xcut + ux_am
# 713 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        q_prim_vf(momxb + 1)%sf(i, j, k) = 0._wp
# 713 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        q_prim_vf(momxe)%sf(i, j, k) = 0._wp
# 713 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 713 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        if (num_fluids == 1) then
# 713 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(contxb)%sf(i, j, k) = (rho_th - rho_am)*rcut*xcut + rho_am
# 713 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        else
# 713 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(advxb)%sf(i, j, k) = (1._wp - 2._wp*eps)*rcut*xcut + eps
# 713 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(contxb)%sf(i, j, k) = rho_th*q_prim_vf(advxb)%sf(i, j, k)
# 713 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(contxe)%sf(i, j, k) = rho_am*(1._wp - q_prim_vf(advxb)%sf(i, j, k))
# 713 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        end if
# 713 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 713 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        q_prim_vf(e_idx)%sf(i, j, k) = p_th*rcut*xcut + p_am
# 713 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 713 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    case (303) ! 3D Multijet
# 713 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 713 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        eps_smooth = 3.0_wp
# 713 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ux_th = 10*sqrt(1.4*0.4)
# 713 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ux_am = 2.5*sqrt(1.4*0.4)
# 713 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        p_th = 0.8_wp
# 713 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        p_am = 0.4_wp
# 713 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        rho_th = 1._wp
# 713 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        rho_am = 1._wp
# 713 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        eps = 1e-6
# 713 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 713 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        rcut = rcut_arr(j, k)
# 713 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        xcut = f_cut_on(x_cc(i), eps_smooth)
# 713 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 713 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        q_prim_vf(momxb)%sf(i, j, k) = ux_th*rcut*xcut + ux_am
# 713 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        q_prim_vf(momxb + 1)%sf(i, j, k) = 0._wp
# 713 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        q_prim_vf(momxe)%sf(i, j, k) = 0._wp
# 713 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 713 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        if (num_fluids == 1) then
# 713 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(contxb)%sf(i, j, k) = (rho_th - rho_am)*rcut*xcut + rho_am
# 713 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        else
# 713 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(advxb)%sf(i, j, k) = (1._wp - 2._wp*eps)*rcut*xcut + eps
# 713 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(contxb)%sf(i, j, k) = rho_th*q_prim_vf(advxb)%sf(i, j, k)
# 713 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(contxe)%sf(i, j, k) = rho_am*(1._wp - q_prim_vf(advxb)%sf(i, j, k))
# 713 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        end if
# 713 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 713 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        q_prim_vf(e_idx)%sf(i, j, k) = p_th*rcut*xcut + p_am
# 713 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 713 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    case (370)
# 713 "/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
# 713 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 713 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    if (.not. files_loaded) then
# 713 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        max_files = merge(sys_size, sys_size - 1, num_dims == 1)
# 713 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        do f = 1, max_files
# 713 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            write (file_num_str, '(I0)') f
# 713 "/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"
# 713 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        end do
# 713 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 713 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! Common file reading setup
# 713 "/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)
# 713 "/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)))
# 713 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 713 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        select case (num_dims)
# 713 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        case (1, 2)  ! 1D and 2D cases are similar
# 713 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            ! Count lines
# 713 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            line_count = 0
# 713 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            do
# 713 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                read (unit2, *, iostat=ios2) dummy_x, dummy_y
# 713 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                if (ios2 /= 0) exit
# 713 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                line_count = line_count + 1
# 713 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            end do
# 713 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            close (unit2)
# 713 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 713 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            xrows = line_count
# 713 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            yrows = 1
# 713 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            index_x = 0
# 713 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            if (num_dims == 2) index_x = i
# 713 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#ifdef MFC_DEBUG
# 713 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    block
# 713 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        use iso_fortran_env, only: output_unit
# 713 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 713 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        print *, 'm_icpp_patches.fpp:713: ', '@:ALLOCATE(x_coords(xRows), stored_values(xRows, 1, sys_size))'
# 713 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 713 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        call flush (output_unit)
# 713 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    end block
# 713 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#endif
# 713 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    allocate (x_coords(xrows), stored_values(xrows, 1, sys_size))
# 713 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 713 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 713 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 713 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#if defined(MFC_OpenACC)
# 713 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
!$acc enter data create(x_coords, stored_values) 
# 713 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#elif defined(MFC_OpenMP)
# 713 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
!$omp target enter data map(always,alloc:x_coords, stored_values) 
# 713 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#endif
# 713 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 713 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            ! Read data from all files
# 713 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            do f = 1, max_files
# 713 "/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)
# 713 "/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)))
# 713 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 713 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                do iter = 1, xrows
# 713 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    read (unit, *, iostat=ios) x_coords(iter), stored_values(iter, 1, f)
# 713 "/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)))
# 713 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                end do
# 713 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                close (unit)
# 713 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            end do
# 713 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 713 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            ! Calculate offsets
# 713 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            domain_xstart = x_coords(1)
# 713 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            x_step = x_cc(1) - x_cc(0)
# 713 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            delta_x = merge(x_cc(0) - domain_xstart + x_step/2.0, &
# 713 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                            x_cc(index_x) - domain_xstart + x_step/2.0, num_dims == 1)
# 713 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            global_offset_x = nint(abs(delta_x)/x_step)
# 713 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 713 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        case (3)  ! 3D case - determine grid structure
# 713 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            ! Find yRows by counting rows with same x
# 713 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            read (unit2, *, iostat=ios2) x0, y0, dummy_z
# 713 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            if (ios2 /= 0) call s_mpi_abort("Error reading first line")
# 713 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 713 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            yrows = 1
# 713 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            do
# 713 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                read (unit2, *, iostat=ios2) dummy_x, dummy_y, dummy_z
# 713 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                if (ios2 /= 0) exit
# 713 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                if (dummy_x == x0 .and. dummy_y /= y0) then
# 713 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    yrows = yrows + 1
# 713 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                else
# 713 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    exit
# 713 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                end if
# 713 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            end do
# 713 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            close (unit2)
# 713 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 713 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            ! Count total rows
# 713 "/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)
# 713 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            nrows = 0
# 713 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            do
# 713 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                read (unit2, *, iostat=ios2) dummy_x, dummy_y, dummy_z
# 713 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                if (ios2 /= 0) exit
# 713 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                nrows = nrows + 1
# 713 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            end do
# 713 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            close (unit2)
# 713 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 713 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            xrows = nrows/yrows
# 713 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#ifdef MFC_DEBUG
# 713 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    block
# 713 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        use iso_fortran_env, only: output_unit
# 713 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 713 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        print *, 'm_icpp_patches.fpp:713: ', '@:ALLOCATE(x_coords(nrows), y_coords(nrows), stored_values(xRows, yRows, sys_size))'
# 713 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 713 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        call flush (output_unit)
# 713 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    end block
# 713 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#endif
# 713 "/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))
# 713 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 713 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 713 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 713 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 713 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#if defined(MFC_OpenACC)
# 713 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
!$acc enter data create(x_coords, y_coords, stored_values) 
# 713 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#elif defined(MFC_OpenMP)
# 713 "/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) 
# 713 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#endif
# 713 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            index_x = i
# 713 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            index_y = j
# 713 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 713 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            ! Read all files
# 713 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            do f = 1, max_files
# 713 "/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)
# 713 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                if (ios /= 0) then
# 713 "/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)))
# 713 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    cycle
# 713 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                end if
# 713 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 713 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                iter = 0
# 713 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                do iix = 1, xrows
# 713 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    do iiy = 1, yrows
# 713 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                        iter = iter + 1
# 713 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                        if (f == 1) then
# 713 "/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)
# 713 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                        else
# 713 "/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)
# 713 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                        end if
# 713 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                        if (ios /= 0) call s_mpi_abort("Error reading data")
# 713 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    end do
# 713 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                end do
# 713 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                close (unit)
# 713 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            end do
# 713 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 713 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            ! Calculate offsets
# 713 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            x_step = x_cc(1) - x_cc(0)
# 713 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            y_step = y_cc(1) - y_cc(0)
# 713 "/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
# 713 "/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
# 713 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            global_offset_x = nint(abs(delta_x)/x_step)
# 713 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            global_offset_y = nint(abs(delta_y)/y_step)
# 713 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        end select
# 713 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 713 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        files_loaded = .true.
# 713 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    end if
# 713 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 713 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    ! Data assignment
# 713 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    select case (num_dims)
# 713 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    case (1)
# 713 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        idx = i + 1 + global_offset_x
# 713 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        do f = 1, sys_size
# 713 "/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)
# 713 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        end do
# 713 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 713 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    case (2)
# 713 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        idx = i + 1 + global_offset_x - index_x
# 713 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        do f = 1, sys_size - 1
# 713 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            jump = merge(1, 0, f >= momxe)
# 713 "/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)
# 713 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        end do
# 713 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        q_prim_vf(momxe)%sf(i, j, 0) = 0.0_wp
# 713 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 713 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    case (3)
# 713 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        idx = i + 1 + global_offset_x - index_x
# 713 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        idy = j + 1 + global_offset_y - index_y
# 713 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        do f = 1, sys_size - 1
# 713 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            jump = merge(1, 0, f >= momxe)
# 713 "/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)
# 713 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        end do
# 713 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        q_prim_vf(momxe)%sf(i, j, k) = 0.0_wp
# 713 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    end select
# 713 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 713 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    case (380)
# 713 "/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
# 713 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! 3D_TaylorGreenVortex case:
# 713 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! This analytic patch used geometry 9
# 713 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        mach = 0.1
# 713 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        if (patch_id == 1) then
# 713 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(e_idx)%sf(i, j, 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)
# 713 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(momxb + 0)%sf(i, j, k) = mach*376.636429464809*sin(x_cc(i)/1)*cos(y_cc(j)/1)*sin(z_cc(k)/1)
# 713 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(momxb + 1)%sf(i, j, k) = -mach*376.636429464809*cos(x_cc(i)/1)*sin(y_cc(j)/1)*sin(z_cc(k)/1)
# 713 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        end if
# 713 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 713 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    case default
# 713 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        call s_int_to_str(patch_id, istr)
# 713 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        call s_mpi_abort("Invalid hcid specified for patch "//trim(istr))
# 713 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    end select
# 713 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
                        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
# 722 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#ifdef MFC_DEBUG
# 722 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    block
# 722 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        use iso_fortran_env, only: output_unit
# 722 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 722 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        print *, 'm_icpp_patches.fpp:722: ', '@:DEALLOCATE(stored_values)'
# 722 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 722 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        call flush (output_unit)
# 722 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    end block
# 722 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#endif
# 722 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 722 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#if defined(MFC_OpenACC)
# 722 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
!$acc exit data delete(stored_values) 
# 722 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#elif defined(MFC_OpenMP)
# 722 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
!$omp target exit data map(release:stored_values) 
# 722 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#endif
# 722 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    deallocate (stored_values)
# 722 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#ifdef MFC_DEBUG
# 722 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    block
# 722 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        use iso_fortran_env, only: output_unit
# 722 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 722 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        print *, 'm_icpp_patches.fpp:722: ', '@:DEALLOCATE(x_coords)'
# 722 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 722 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        call flush (output_unit)
# 722 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    end block
# 722 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#endif
# 722 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 722 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#if defined(MFC_OpenACC)
# 722 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
!$acc exit data delete(x_coords) 
# 722 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#elif defined(MFC_OpenMP)
# 722 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
!$omp target exit data map(release:x_coords) 
# 722 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#endif
# 722 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    deallocate (x_coords)
# 722 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    end if
# 722 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 722 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    if (allocated(y_coords)) then
# 722 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#ifdef MFC_DEBUG
# 722 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    block
# 722 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        use iso_fortran_env, only: output_unit
# 722 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 722 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        print *, 'm_icpp_patches.fpp:722: ', '@:DEALLOCATE(y_coords)'
# 722 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 722 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        call flush (output_unit)
# 722 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    end block
# 722 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#endif
# 722 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 722 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#if defined(MFC_OpenACC)
# 722 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
!$acc exit data delete(y_coords) 
# 722 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#elif defined(MFC_OpenMP)
# 722 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
!$omp target exit data map(release:y_coords) 
# 722 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#endif
# 722 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    deallocate (y_coords)
# 722 "/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.
        !! @param patch_id is the patch identifier
        !! @param patch_id_fp Array to track patch ids
        !! @param q_prim_vf Array of primitive variables
    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
# 749 "/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
# 749 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    real(wp) :: x_len, x_step, y_len, y_step
# 749 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    real(wp) :: dummy_x, dummy_y, dummy_z, x0, y0
# 749 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    integer :: global_offset_x, global_offset_y           ! MPI subdomain offset
# 749 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    real(wp) :: delta_x, delta_y
# 749 "/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
# 749 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    character(len=200) :: errmsg
# 749 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    real(wp), allocatable :: stored_values(:, :, :)
# 749 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    real(wp), allocatable :: x_coords(:), y_coords(:)
# 749 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    logical :: files_loaded = .false.
# 749 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    real(wp) :: domain_xstart, domain_xend, domain_ystart, domain_yend
# 749 "/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/
# 749 "/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
# 749 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    character(len=20) :: zeros_part       ! For the trailing zeros part
# 749 "/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
# 750 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    real(wp) :: eps, eps_mhd, C_mhd
# 750 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    real(wp) :: r, rmax, gam, umax, p0
# 750 "/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
# 750 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    real(wp) :: factor
# 750 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    real(wp) :: r0, alpha, r2
# 750 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    real(wp) :: sinA, cosA
# 750 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 750 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    real(wp) :: r_sq
# 750 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 750 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    ! # 207
# 750 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    real(wp) :: sigma, gauss1, gauss2
# 750 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    ! # 208
# 750 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    real(wp) :: ei, d, fsm, alpha_air, alpha_sf6
# 750 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 750 "/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
 
        ! Since the rectangular patch does not allow for its boundaries to
        ! be smoothed out, the pseudo volume fraction is set to 1 to ensure
        ! that only the current patch contributes to the fluid state in the
        ! cells that this patch covers.
        eta = 1._wp
 
        ! Checking whether the rectangle covers a particular cell in the
        ! domain and verifying whether the current patch has the permission
        ! to write to that cell. If both queries check out, the primitive
        ! variables of the current patch are assigned to this cell.
        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
 
# 794 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    select case (patch_icpp(patch_id)%hcid) ! 2D_hardcoded_ic example case
# 794 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 794 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    case (200)
# 794 "/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
# 794 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            ! Volume Fractions
# 794 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(advxb)%sf(i, j, 0) = eps
# 794 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(advxe)%sf(i, j, 0) = 1._wp - eps
# 794 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            ! Denssities
# 794 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(contxb)%sf(i, j, 0) = eps*1000._wp
# 794 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(contxe)%sf(i, j, 0) = (1._wp - eps)*1._wp
# 794 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            ! Pressure
# 794 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(e_idx)%sf(i, j, 0) = 1000._wp
# 794 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        end if
# 794 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    case (202) ! Gresho vortex (Gouasmi et al 2022 JCP)
# 794 "/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
# 794 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        rmax = 0.2_wp
# 794 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 794 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        gam = 1._wp + 1._wp/fluid_pp(1)%gamma
# 794 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        umax = 2*pi*rmax*patch_icpp(patch_id)%vel(2)
# 794 "/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)
# 794 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 794 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        if (r < rmax) then
# 794 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(momxb)%sf(i, j, 0) = -(y_cc(j) - 0.5_wp)*umax/rmax
# 794 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(momxe)%sf(i, j, 0) = (x_cc(i) - 0.5_wp)*umax/rmax
# 794 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(e_idx)%sf(i, j, 0) = p0 + umax**2*((r/rmax)**2._wp/2._wp)
# 794 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        else if (r < 2*rmax) then
# 794 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(momxb)%sf(i, j, 0) = -((y_cc(j) - 0.5_wp)/r)*umax*(2._wp - r/rmax)
# 794 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(momxe)%sf(i, j, 0) = ((x_cc(i) - 0.5_wp)/r)*umax*(2._wp - r/rmax)
# 794 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(e_idx)%sf(i, j, 0) = p0 + umax**2*((r/rmax)**2/2._wp + 4*(1 - (r/rmax) + log(r/rmax)))
# 794 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        else
# 794 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(momxb)%sf(i, j, 0) = 0._wp
# 794 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(momxe)%sf(i, j, 0) = 0._wp
# 794 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(e_idx)%sf(i, j, 0) = p0 + umax**2*(-2 + 4*log(2._wp))
# 794 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        end if
# 794 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    case (203) ! Gresho vortex (Gouasmi et al 2022 JCP) with density correction
# 794 "/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
# 794 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        rmax = 0.2_wp
# 794 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 794 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        gam = 1._wp + 1._wp/fluid_pp(1)%gamma
# 794 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        umax = 2*pi*rmax*patch_icpp(patch_id)%vel(2)
# 794 "/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)
# 794 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 794 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        if (r < rmax) then
# 794 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(momxb)%sf(i, j, 0) = -(y_cc(j) - 0.5_wp)*umax/rmax
# 794 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(momxe)%sf(i, j, 0) = (x_cc(i) - 0.5_wp)*umax/rmax
# 794 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(e_idx)%sf(i, j, 0) = p0 + umax**2*((r/rmax)**2._wp/2._wp)
# 794 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        else if (r < 2*rmax) then
# 794 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(momxb)%sf(i, j, 0) = -((y_cc(j) - 0.5_wp)/r)*umax*(2._wp - r/rmax)
# 794 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(momxe)%sf(i, j, 0) = ((x_cc(i) - 0.5_wp)/r)*umax*(2._wp - r/rmax)
# 794 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(e_idx)%sf(i, j, 0) = p0 + umax**2*((r/rmax)**2/2._wp + 4._wp*(1._wp - (r/rmax) + log(r/rmax)))
# 794 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        else
# 794 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(momxb)%sf(i, j, 0) = 0._wp
# 794 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(momxe)%sf(i, j, 0) = 0._wp
# 794 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(e_idx)%sf(i, j, 0) = p0 + umax**2._wp*(-2._wp + 4*log(2._wp))
# 794 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        end if
# 794 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 794 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        q_prim_vf(contxb)%sf(i, j, 0) = q_prim_vf(e_idx)%sf(i, j, 0)**(1._wp/gam)
# 794 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    case (204) ! Rayleigh-Taylor instability
# 794 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        rhoh = 3._wp
# 794 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        rhol = 1._wp
# 794 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        pref = 1.e5_wp
# 794 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        pint = pref
# 794 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        h = 0.7_wp
# 794 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        lam = 0.2_wp
# 794 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        wl = 2._wp*pi/lam
# 794 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        amp = 0.05_wp/wl
# 794 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 794 "/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
# 794 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 794 "/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))
# 794 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 794 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        if (alph < eps) alph = eps
# 794 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        if (alph > 1._wp - eps) alph = 1._wp - eps
# 794 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 794 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        if (y_cc(j) > inth) then
# 794 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(advxb)%sf(i, j, 0) = alph
# 794 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(advxe)%sf(i, j, 0) = 1._wp - alph
# 794 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(contxb)%sf(i, j, 0) = alph*rhoh
# 794 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(contxe)%sf(i, j, 0) = (1._wp - alph)*rhol
# 794 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(e_idx)%sf(i, j, 0) = pref + rhoh*9.81_wp*(1.2_wp - y_cc(j))
# 794 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        else
# 794 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(advxb)%sf(i, j, 0) = alph
# 794 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(advxe)%sf(i, j, 0) = 1._wp - alph
# 794 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(contxb)%sf(i, j, 0) = alph*rhoh
# 794 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(contxe)%sf(i, j, 0) = (1._wp - alph)*rhol
# 794 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            pint = pref + rhoh*9.81_wp*(1.2_wp - inth)
# 794 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(e_idx)%sf(i, j, 0) = pint + rhol*9.81_wp*(inth - y_cc(j))
# 794 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        end if
# 794 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 794 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    case (205) ! 2D lung wave interaction problem
# 794 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        h = 0.0_wp           !non dim origin y
# 794 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        lam = 1.0_wp         !non dim lambda
# 794 "/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
# 794 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 794 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        inth = amp*sin(2*pi*x_cc(i)/lam - pi/2) + h
# 794 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 794 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        if (y_cc(j) > inth) then
# 794 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(contxb)%sf(i, j, 0) = patch_icpp(1)%alpha_rho(1)
# 794 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(contxe)%sf(i, j, 0) = patch_icpp(1)%alpha_rho(2)
# 794 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(e_idx)%sf(i, j, 0) = patch_icpp(1)%pres
# 794 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(advxb)%sf(i, j, 0) = patch_icpp(1)%alpha(1)
# 794 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(advxe)%sf(i, j, 0) = patch_icpp(1)%alpha(2)
# 794 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        end if
# 794 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 794 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    case (206) ! 2D lung wave interaction problem - horizontal domain
# 794 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        h = 0.0_wp           !non dim origin y
# 794 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        lam = 1.0_wp         !non dim lambda
# 794 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        amp = patch_icpp(patch_id)%a(2)
# 794 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 794 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        intl = amp*sin(2*pi*y_cc(j)/lam - pi/2) + h
# 794 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 794 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        if (x_cc(i) > intl) then        !this is the liquid
# 794 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(contxb)%sf(i, j, 0) = patch_icpp(1)%alpha_rho(1)
# 794 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(contxe)%sf(i, j, 0) = patch_icpp(1)%alpha_rho(2)
# 794 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(e_idx)%sf(i, j, 0) = patch_icpp(1)%pres
# 794 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(advxb)%sf(i, j, 0) = patch_icpp(1)%alpha(1)
# 794 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(advxe)%sf(i, j, 0) = patch_icpp(1)%alpha(2)
# 794 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        end if
# 794 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 794 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    case (207) ! Kelvin Helmholtz Instability
# 794 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        sigma = 0.05_wp/sqrt(2.0_wp)
# 794 "/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))
# 794 "/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))
# 794 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        q_prim_vf(momxb + 1)%sf(i, j, 0) = &
# 794 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            0.1_wp*sin(4.0_wp*pi*x_cc(i))*(gauss1 + gauss2)
# 794 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 794 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    case (208) ! Richtmeyer Meshkov Instability
# 794 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        lam = 1.0_wp
# 794 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        eps = 1.0e-6_wp
# 794 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ei = 5.0_wp
# 794 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! Smoothening function to smooth out sharp discontinuity in the interface
# 794 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        if (x_cc(i) <= 0.7_wp*lam) then
# 794 "/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)))
# 794 "/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))))
# 794 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            alpha_air = eps + (1.0_wp - 2.0_wp*eps)*fsm
# 794 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            alpha_sf6 = 1.0_wp - alpha_air
# 794 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(contxb)%sf(i, j, 0) = alpha_sf6*5.04_wp
# 794 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(contxe)%sf(i, j, 0) = alpha_air*1.0_wp
# 794 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(advxb)%sf(i, j, 0) = alpha_sf6
# 794 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(advxe)%sf(i, j, 0) = alpha_air
# 794 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        end if
# 794 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 794 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    case (250) ! MHD Orszag-Tang vortex
# 794 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! gamma = 5/3
# 794 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        !   rho = 25/(36*pi)
# 794 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        !     p = 5/(12*pi)
# 794 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        !     v = (-sin(2*pi*y), sin(2*pi*x), 0)
# 794 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        !     B = (-sin(2*pi*y)/sqrt(4*pi), sin(4*pi*x)/sqrt(4*pi), 0)
# 794 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 794 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        q_prim_vf(momxb)%sf(i, j, 0) = -sin(2._wp*pi*y_cc(j))
# 794 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        q_prim_vf(momxb + 1)%sf(i, j, 0) = sin(2._wp*pi*x_cc(i))
# 794 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 794 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        q_prim_vf(b_idx%beg)%sf(i, j, 0) = -sin(2._wp*pi*y_cc(j))/sqrt(4._wp*pi)
# 794 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        q_prim_vf(b_idx%beg + 1)%sf(i, j, 0) = sin(4._wp*pi*x_cc(i))/sqrt(4._wp*pi)
# 794 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 794 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    case (251) ! RMHD Cylindrical Blast Wave [Mignone, 2006: Section 4.3.1]
# 794 "/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
# 794 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(contxb)%sf(i, j, 0) = 0.01
# 794 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(e_idx)%sf(i, j, 0) = 1.0
# 794 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        elseif (x_cc(i)**2 + y_cc(j)**2 <= 1._wp**2) then
# 794 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            ! Linear interpolation between r=0.08 and r=1.0
# 794 "/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)
# 794 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(contxb)%sf(i, j, 0) = 0.01_wp*factor + 1.e-4_wp*(1.0_wp - factor)
# 794 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(e_idx)%sf(i, j, 0) = 1.0_wp*factor + 3.e-5_wp*(1.0_wp - factor)
# 794 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        else
# 794 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(contxb)%sf(i, j, 0) = 1.e-4_wp
# 794 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(e_idx)%sf(i, j, 0) = 3.e-5_wp
# 794 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        end if
# 794 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 794 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! case 252 is for the 2D MHD Rotor problem
# 794 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    case (252) ! 2D MHD Rotor Problem
# 794 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! Ambient conditions are set in the JSON file.
# 794 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! This case imposes the dense, rotating cylinder.
# 794 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        !
# 794 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! gamma = 1.4
# 794 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! Ambient medium (r > 0.1):
# 794 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        !   rho = 1, p = 1, v = 0, B = (1,0,0)
# 794 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! Rotor (r <= 0.1):
# 794 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        !   rho = 10, p = 1
# 794 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        !   v has angular velocity w=20, giving v_tan=2 at r=0.1
# 794 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 794 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! Calculate distance squared from the center
# 794 "/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
# 794 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 794 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! inner radius of 0.1
# 794 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        if (r_sq <= 0.1**2) then
# 794 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            ! -- Inside the rotor --
# 794 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            ! Set density uniformly to 10
# 794 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(contxb)%sf(i, j, 0) = 10._wp
# 794 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 794 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            ! Set vup constant rotation of rate v=2
# 794 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            ! v_x = -omega * (y - y_c)
# 794 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            ! v_y =  omega * (x - x_c)
# 794 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(momxb)%sf(i, j, 0) = -20._wp*(y_cc(j) - 0.5_wp)
# 794 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(momxb + 1)%sf(i, j, 0) = 20._wp*(x_cc(i) - 0.5_wp)
# 794 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 794 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            ! taper width of 0.015
# 794 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        else if (r_sq <= 0.115**2) then
# 794 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            ! linearly smooth the function between r = 0.1 and 0.115
# 794 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(contxb)%sf(i, j, 0) = 1._wp + 9._wp*(0.115_wp - sqrt(r_sq))/(0.015_wp)
# 794 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 794 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(momxb)%sf(i, j, 0) = -(2._wp/sqrt(r_sq))*(y_cc(j) - 0.5_wp)*(0.115_wp - sqrt(r_sq))/(0.015_wp)
# 794 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(momxb + 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)
# 794 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        end if
# 794 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 794 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    case (253) ! MHD Smooth Magnetic Vortex
# 794 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! Section 5.2 of
# 794 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! Implicit hybridized discontinuous Galerkin methods for compressible magnetohydrodynamics
# 794 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! C. Ciuca, P. Fernandez, A. Christophe, N.C. Nguyen, J. Peraire
# 794 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 794 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! velocity
# 794 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        q_prim_vf(momxb)%sf(i, j, 0) = 1._wp - (y_cc(j)*exp(1 - (x_cc(i)**2 + y_cc(j)**2))/(2.*pi))
# 794 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        q_prim_vf(momxb + 1)%sf(i, j, 0) = 1._wp + (x_cc(i)*exp(1 - (x_cc(i)**2 + y_cc(j)**2))/(2.*pi))
# 794 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 794 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! magnetic field
# 794 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        q_prim_vf(b_idx%beg)%sf(i, j, 0) = -y_cc(j)*exp(1 - (x_cc(i)**2 + y_cc(j)**2))/(2.*pi)
# 794 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        q_prim_vf(b_idx%beg + 1)%sf(i, j, 0) = x_cc(i)*exp(1 - (x_cc(i)**2 + y_cc(j)**2))/(2.*pi)
# 794 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 794 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! pressure
# 794 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        q_prim_vf(e_idx)%sf(i, j, 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)
# 794 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 794 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    case (260)  ! Gaussian Divergence Pulse
# 794 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        !  Bx(x) = 1 + C * erf((x-0.5)/σ)
# 794 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        !  ⇒  ∂Bx/∂x = C * (2/√π) * exp[-((x-0.5)/σ)**2] * (1/σ)
# 794 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        !  Choose C = ε * σ * √π / 2  ⇒ ∂Bx/∂x = ε * exp[-((x-0.5)/σ)**2]
# 794 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        !  ψ is initialized to zero everywhere.
# 794 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 794 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        eps_mhd = patch_icpp(patch_id)%a(2)
# 794 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        sigma = patch_icpp(patch_id)%a(3)
# 794 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        c_mhd = eps_mhd*sigma*sqrt(pi)*0.5_wp
# 794 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 794 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! B-field
# 794 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        q_prim_vf(b_idx%beg)%sf(i, j, 0) = 1._wp + c_mhd*erf((x_cc(i) - 0.5_wp)/sigma)
# 794 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 794 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    case (261)  ! Blob
# 794 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        r0 = 1._wp/sqrt(8._wp)
# 794 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        r2 = x_cc(i)**2 + y_cc(j)**2
# 794 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        r = sqrt(r2)
# 794 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        alpha = r/r0
# 794 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        if (alpha < 1) then
# 794 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(b_idx%beg)%sf(i, j, 0) = 1._wp/sqrt(4._wp*pi)*(alpha**8 - 2._wp*alpha**4 + 1._wp)
# 794 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            ! q_prim_vf(B_idx%beg)%sf(i,j,0) = 1._wp/sqrt(4000._wp*pi) * (4096._wp*r2**4 - 128._wp*r2**2 + 1._wp)
# 794 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            ! q_prim_vf(B_idx%beg)%sf(i,j,0) = 1._wp/(4._wp*pi) * (alpha**8 - 2._wp*alpha**4 + 1._wp)
# 794 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            ! q_prim_vf(E_idx)%sf(i,j,0) = 6._wp - q_prim_vf(B_idx%beg)%sf(i,j,0)**2/2._wp
# 794 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        end if
# 794 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 794 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    case (262)  ! Tilted 2D MHD shock‐tube at α = arctan2 (≈63.4°)
# 794 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! rotate by α = atan(2)
# 794 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        alpha = atan(2._wp)
# 794 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        cosa = cos(alpha)
# 794 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        sina = sin(alpha)
# 794 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! projection along shock normal
# 794 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        r = x_cc(i)*cosa + y_cc(j)*sina
# 794 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 794 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        if (r <= 0.5_wp) then
# 794 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            ! LEFT state: ρ=1, v∥=+10, v⊥=0, p=20, B∥=B⊥=5/√(4π)
# 794 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(contxb)%sf(i, j, 0) = 1._wp
# 794 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(momxb)%sf(i, j, 0) = 10._wp*cosa
# 794 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(momxb + 1)%sf(i, j, 0) = 10._wp*sina
# 794 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(e_idx)%sf(i, j, 0) = 20._wp
# 794 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(b_idx%beg)%sf(i, j, 0) = (5._wp/sqrt(4._wp*pi))*cosa &
# 794 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                                               - (5._wp/sqrt(4._wp*pi))*sina
# 794 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(b_idx%beg + 1)%sf(i, j, 0) = (5._wp/sqrt(4._wp*pi))*sina &
# 794 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                                                   + (5._wp/sqrt(4._wp*pi))*cosa
# 794 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        else
# 794 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            ! RIGHT state: ρ=1, v∥=−10, v⊥=0, p=1, B∥=B⊥=5/√(4π)
# 794 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(contxb)%sf(i, j, 0) = 1._wp
# 794 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(momxb)%sf(i, j, 0) = -10._wp*cosa
# 794 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(momxb + 1)%sf(i, j, 0) = -10._wp*sina
# 794 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(e_idx)%sf(i, j, 0) = 1._wp
# 794 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(b_idx%beg)%sf(i, j, 0) = (5._wp/sqrt(4._wp*pi))*cosa &
# 794 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                                               - (5._wp/sqrt(4._wp*pi))*sina
# 794 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(b_idx%beg + 1)%sf(i, j, 0) = (5._wp/sqrt(4._wp*pi))*sina &
# 794 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                                                   + (5._wp/sqrt(4._wp*pi))*cosa
# 794 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        end if
# 794 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! v^z and B^z remain zero by default
# 794 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 794 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    case (270)
# 794 "/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
# 794 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 794 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    if (.not. files_loaded) then
# 794 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        max_files = merge(sys_size, sys_size - 1, num_dims == 1)
# 794 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        do f = 1, max_files
# 794 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            write (file_num_str, '(I0)') f
# 794 "/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"
# 794 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        end do
# 794 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 794 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! Common file reading setup
# 794 "/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)
# 794 "/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)))
# 794 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 794 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        select case (num_dims)
# 794 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        case (1, 2)  ! 1D and 2D cases are similar
# 794 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            ! Count lines
# 794 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            line_count = 0
# 794 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            do
# 794 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                read (unit2, *, iostat=ios2) dummy_x, dummy_y
# 794 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                if (ios2 /= 0) exit
# 794 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                line_count = line_count + 1
# 794 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            end do
# 794 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            close (unit2)
# 794 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 794 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            xrows = line_count
# 794 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            yrows = 1
# 794 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            index_x = 0
# 794 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            if (num_dims == 2) index_x = i
# 794 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#ifdef MFC_DEBUG
# 794 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    block
# 794 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        use iso_fortran_env, only: output_unit
# 794 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 794 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        print *, 'm_icpp_patches.fpp:794: ', '@:ALLOCATE(x_coords(xRows), stored_values(xRows, 1, sys_size))'
# 794 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 794 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        call flush (output_unit)
# 794 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    end block
# 794 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#endif
# 794 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    allocate (x_coords(xrows), stored_values(xrows, 1, sys_size))
# 794 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 794 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 794 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 794 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#if defined(MFC_OpenACC)
# 794 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
!$acc enter data create(x_coords, stored_values) 
# 794 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#elif defined(MFC_OpenMP)
# 794 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
!$omp target enter data map(always,alloc:x_coords, stored_values) 
# 794 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#endif
# 794 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 794 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            ! Read data from all files
# 794 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            do f = 1, max_files
# 794 "/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)
# 794 "/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)))
# 794 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 794 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                do iter = 1, xrows
# 794 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    read (unit, *, iostat=ios) x_coords(iter), stored_values(iter, 1, f)
# 794 "/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)))
# 794 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                end do
# 794 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                close (unit)
# 794 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            end do
# 794 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 794 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            ! Calculate offsets
# 794 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            domain_xstart = x_coords(1)
# 794 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            x_step = x_cc(1) - x_cc(0)
# 794 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            delta_x = merge(x_cc(0) - domain_xstart + x_step/2.0, &
# 794 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                            x_cc(index_x) - domain_xstart + x_step/2.0, num_dims == 1)
# 794 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            global_offset_x = nint(abs(delta_x)/x_step)
# 794 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 794 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        case (3)  ! 3D case - determine grid structure
# 794 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            ! Find yRows by counting rows with same x
# 794 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            read (unit2, *, iostat=ios2) x0, y0, dummy_z
# 794 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            if (ios2 /= 0) call s_mpi_abort("Error reading first line")
# 794 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 794 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            yrows = 1
# 794 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            do
# 794 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                read (unit2, *, iostat=ios2) dummy_x, dummy_y, dummy_z
# 794 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                if (ios2 /= 0) exit
# 794 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                if (dummy_x == x0 .and. dummy_y /= y0) then
# 794 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    yrows = yrows + 1
# 794 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                else
# 794 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    exit
# 794 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                end if
# 794 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            end do
# 794 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            close (unit2)
# 794 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 794 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            ! Count total rows
# 794 "/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)
# 794 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            nrows = 0
# 794 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            do
# 794 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                read (unit2, *, iostat=ios2) dummy_x, dummy_y, dummy_z
# 794 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                if (ios2 /= 0) exit
# 794 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                nrows = nrows + 1
# 794 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            end do
# 794 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            close (unit2)
# 794 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 794 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            xrows = nrows/yrows
# 794 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#ifdef MFC_DEBUG
# 794 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    block
# 794 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        use iso_fortran_env, only: output_unit
# 794 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 794 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        print *, 'm_icpp_patches.fpp:794: ', '@:ALLOCATE(x_coords(nrows), y_coords(nrows), stored_values(xRows, yRows, sys_size))'
# 794 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 794 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        call flush (output_unit)
# 794 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    end block
# 794 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#endif
# 794 "/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))
# 794 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 794 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 794 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 794 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 794 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#if defined(MFC_OpenACC)
# 794 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
!$acc enter data create(x_coords, y_coords, stored_values) 
# 794 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#elif defined(MFC_OpenMP)
# 794 "/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) 
# 794 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#endif
# 794 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            index_x = i
# 794 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            index_y = j
# 794 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 794 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            ! Read all files
# 794 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            do f = 1, max_files
# 794 "/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)
# 794 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                if (ios /= 0) then
# 794 "/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)))
# 794 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    cycle
# 794 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                end if
# 794 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 794 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                iter = 0
# 794 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                do iix = 1, xrows
# 794 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    do iiy = 1, yrows
# 794 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                        iter = iter + 1
# 794 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                        if (f == 1) then
# 794 "/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)
# 794 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                        else
# 794 "/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)
# 794 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                        end if
# 794 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                        if (ios /= 0) call s_mpi_abort("Error reading data")
# 794 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    end do
# 794 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                end do
# 794 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                close (unit)
# 794 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            end do
# 794 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 794 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            ! Calculate offsets
# 794 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            x_step = x_cc(1) - x_cc(0)
# 794 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            y_step = y_cc(1) - y_cc(0)
# 794 "/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
# 794 "/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
# 794 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            global_offset_x = nint(abs(delta_x)/x_step)
# 794 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            global_offset_y = nint(abs(delta_y)/y_step)
# 794 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        end select
# 794 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 794 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        files_loaded = .true.
# 794 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    end if
# 794 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 794 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    ! Data assignment
# 794 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    select case (num_dims)
# 794 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    case (1)
# 794 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        idx = i + 1 + global_offset_x
# 794 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        do f = 1, sys_size
# 794 "/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)
# 794 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        end do
# 794 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 794 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    case (2)
# 794 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        idx = i + 1 + global_offset_x - index_x
# 794 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        do f = 1, sys_size - 1
# 794 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            jump = merge(1, 0, f >= momxe)
# 794 "/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)
# 794 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        end do
# 794 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        q_prim_vf(momxe)%sf(i, j, 0) = 0.0_wp
# 794 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 794 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    case (3)
# 794 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        idx = i + 1 + global_offset_x - index_x
# 794 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        idy = j + 1 + global_offset_y - index_y
# 794 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        do f = 1, sys_size - 1
# 794 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            jump = merge(1, 0, f >= momxe)
# 794 "/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)
# 794 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        end do
# 794 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        q_prim_vf(momxe)%sf(i, j, k) = 0.0_wp
# 794 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    end select
# 794 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 794 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    case (280)
# 794 "/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
# 794 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! 2D_isentropicvortex case:
# 794 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! This analytic patch uses geometry 2
# 794 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        if (patch_id == 1) then
# 794 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(e_idx)%sf(i, j, 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) - patch_icpp(1)%x_centroid)**2.0 - (y_cc(j) - patch_icpp(1)%y_centroid)**2.0)))**(1.4 + 1.0)
# 794 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(contxb + 0)%sf(i, j, 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) - patch_icpp(1)%x_centroid)**2.0 - (y_cc(j) - patch_icpp(1)%y_centroid)**2.0)))**1.4
# 794 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(momxb + 0)%sf(i, j, 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)%x_centroid)**2.0 - (y_cc(j) - patch_icpp(1)%y_centroid)**2.0))
# 794 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(momxb + 1)%sf(i, j, 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)%x_centroid)**2.0 - (y_cc(j) - patch_icpp(1)%y_centroid)**2.0))
# 794 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        end if
# 794 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 794 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    case (281)
# 794 "/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
# 794 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! 2D_acoustic_pulse case:
# 794 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! This analytic patch uses geometry 2
# 794 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        if (patch_id == 2) then
# 794 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(e_idx)%sf(i, j, 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))
# 794 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(contxb + 0)%sf(i, j, 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))
# 794 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        end if
# 794 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 794 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    case (282)
# 794 "/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
# 794 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! 2D_zero_circ_vortex case:
# 794 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! This analytic patch uses geometry 2
# 794 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        if (patch_id == 2) then
# 794 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(e_idx)%sf(i, j, 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))
# 794 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(contxb + 0)%sf(i, j, 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))
# 794 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(momxb + 0)%sf(i, j, 0) = 112.99092883944267*(1 - (0.1/0.3))*y_cc(j)*exp(0.5*(1 - sqrt(x_cc(i)**2 + y_cc(j)**2)))
# 794 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(momxb + 1)%sf(i, j, 0) = 112.99092883944267*((0.1/0.3))*x_cc(i)*exp(0.5*(1 - sqrt(x_cc(i)**2 + y_cc(j)**2)))
# 794 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        end if
# 794 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 794 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    case default
# 794 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        if (proc_rank == 0) then
# 794 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            call s_int_to_str(patch_id, istr)
# 794 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            call s_mpi_abort("Invalid hcid specified for patch "//trim(istr))
# 794 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        end if
# 794 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 794 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    end select
# 794 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
                        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(e_idx)%sf(i, j, 0) + pi_inf)/(pref + pi_inf))**(1._wp/lit_gamma))* &
                                rhoref*(1._wp - q_prim_vf(alf_idx)%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
# 810 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#ifdef MFC_DEBUG
# 810 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    block
# 810 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        use iso_fortran_env, only: output_unit
# 810 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 810 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        print *, 'm_icpp_patches.fpp:810: ', '@:DEALLOCATE(stored_values)'
# 810 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 810 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        call flush (output_unit)
# 810 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    end block
# 810 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#endif
# 810 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 810 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#if defined(MFC_OpenACC)
# 810 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
!$acc exit data delete(stored_values) 
# 810 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#elif defined(MFC_OpenMP)
# 810 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
!$omp target exit data map(release:stored_values) 
# 810 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#endif
# 810 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    deallocate (stored_values)
# 810 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#ifdef MFC_DEBUG
# 810 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    block
# 810 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        use iso_fortran_env, only: output_unit
# 810 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 810 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        print *, 'm_icpp_patches.fpp:810: ', '@:DEALLOCATE(x_coords)'
# 810 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 810 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        call flush (output_unit)
# 810 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    end block
# 810 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#endif
# 810 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 810 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#if defined(MFC_OpenACC)
# 810 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
!$acc exit data delete(x_coords) 
# 810 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#elif defined(MFC_OpenMP)
# 810 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
!$omp target exit data map(release:x_coords) 
# 810 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#endif
# 810 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    deallocate (x_coords)
# 810 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    end if
# 810 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 810 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    if (allocated(y_coords)) then
# 810 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#ifdef MFC_DEBUG
# 810 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    block
# 810 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        use iso_fortran_env, only: output_unit
# 810 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 810 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        print *, 'm_icpp_patches.fpp:810: ', '@:DEALLOCATE(y_coords)'
# 810 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 810 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        call flush (output_unit)
# 810 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    end block
# 810 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#endif
# 810 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 810 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#if defined(MFC_OpenACC)
# 810 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
!$acc exit data delete(y_coords) 
# 810 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#elif defined(MFC_OpenMP)
# 810 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
!$omp target exit data map(release:y_coords) 
# 810 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#endif
# 810 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    deallocate (y_coords)
# 810 "/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.
        !! @param patch_id is the patch identifier
        !! @param patch_id_fp Array to track patch ids
        !! @param q_prim_vf Array of primitive variables
    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
# 836 "/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
# 836 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    real(wp) :: x_len, x_step, y_len, y_step
# 836 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    real(wp) :: dummy_x, dummy_y, dummy_z, x0, y0
# 836 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    integer :: global_offset_x, global_offset_y           ! MPI subdomain offset
# 836 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    real(wp) :: delta_x, delta_y
# 836 "/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
# 836 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    character(len=200) :: errmsg
# 836 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    real(wp), allocatable :: stored_values(:, :, :)
# 836 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    real(wp), allocatable :: x_coords(:), y_coords(:)
# 836 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    logical :: files_loaded = .false.
# 836 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    real(wp) :: domain_xstart, domain_xend, domain_ystart, domain_yend
# 836 "/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/
# 836 "/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
# 836 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    character(len=20) :: zeros_part       ! For the trailing zeros part
# 836 "/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
# 837 "/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
# 837 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    real(wp) :: eps
# 837 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 837 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    ! IGR Jets
# 837 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    ! Arrays to stor position and radii of jets from input file
# 837 "/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
# 837 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    ! Variables to describe initial condition of jet
# 837 "/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
# 837 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    real(wp) :: rcut, xcut ! Intermediate variables for creating smooth initial condition
# 837 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 837 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    real(wp), dimension(0:n, 0:p) :: rcut_arr
# 837 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    integer :: l, q, s ! Iterators for reading input files
# 837 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    integer :: start, end ! Ints to keep track of position in file
# 837 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    character(len=1000) :: line ! String to store line in ile
# 837 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    character(len=25) :: value ! String to store value in line
# 837 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    integer :: NJet ! Number of jets
# 837 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 837 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    eps = 1e-9_wp
# 837 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 837 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    if (patch_icpp(patch_id)%hcid == 303) then
# 837 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        eps_smooth = 3._wp
# 837 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        open (unit=10, file="njet.txt", status="old", action="read")
# 837 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        read (10, *) njet
# 837 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        close (10)
# 837 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 837 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        allocate (y_th_arr(0:njet - 1))
# 837 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        allocate (z_th_arr(0:njet - 1))
# 837 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        allocate (r_th_arr(0:njet - 1))
# 837 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 837 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        open (unit=10, file="jets.csv", status="old", action="read")
# 837 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        do q = 0, njet - 1
# 837 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            read (10, '(A)') line  ! Read a full line as a string
# 837 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            start = 1
# 837 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 837 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            do l = 0, 2
# 837 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                end = index(line(start:), ',')  ! Find the next comma
# 837 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                if (end == 0) then
# 837 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    value = trim(adjustl(line(start:)))  ! Last value in the line
# 837 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                else
# 837 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    value = trim(adjustl(line(start:start + end - 2)))  ! Extract substring
# 837 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    start = start + end  ! Move to next value
# 837 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                end if
# 837 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                if (l == 0) then
# 837 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    read (value, *) y_th_arr(q)  ! Convert string to numeric value
# 837 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                elseif (l == 1) then
# 837 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    read (value, *) z_th_arr(q)
# 837 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                else
# 837 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    read (value, *) r_th_arr(q)
# 837 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                end if
# 837 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            end do
# 837 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        end do
# 837 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        close (10)
# 837 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 837 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        do q = 0, p
# 837 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            do l = 0, n
# 837 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                rcut = 0._wp
# 837 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                do s = 0, njet - 1
# 837 "/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)
# 837 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    rcut = rcut + f_cut_on(r - r_th_arr(s), eps_smooth)
# 837 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                end do
# 837 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                rcut_arr(l, q) = rcut
# 837 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            end do
# 837 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        end do
# 837 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    end if
# 837 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
 
        ! 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
 
        ! Initializing the pseudo volume fraction value to 1. The value will
        ! be modified as the patch is laid out on the grid, but only in the
        ! case that smoothing of the sweep line patch's boundary is enabled.
        eta = 1._wp
 
        ! Checking whether the region swept by the line covers a particular
        ! cell in the domain and verifying whether the current patch has the
        ! permission to write to that cell. If both queries check out, the
        ! primitive variables of the current patch are written to this cell.
        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
 
# 879 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    select case (patch_icpp(patch_id)%hcid)
# 879 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    case (300) ! Rayleigh-Taylor instability
# 879 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        rhoh = 3._wp
# 879 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        rhol = 1._wp
# 879 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        pref = 1.e5_wp
# 879 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        pint = pref
# 879 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        h = 0.7_wp
# 879 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        lam = 0.2_wp
# 879 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        wl = 2._wp*pi/lam
# 879 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        amp = 0.025_wp/wl
# 879 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 879 "/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
# 879 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 879 "/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))
# 879 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 879 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        if (alph < eps) alph = eps
# 879 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        if (alph > 1._wp - eps) alph = 1._wp - eps
# 879 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 879 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        if (y_cc(j) > inth) then
# 879 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(advxb)%sf(i, j, k) = alph
# 879 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(advxe)%sf(i, j, k) = 1._wp - alph
# 879 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(contxb)%sf(i, j, k) = alph*rhoh
# 879 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(contxe)%sf(i, j, k) = (1._wp - alph)*rhol
# 879 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(e_idx)%sf(i, j, k) = pref + rhoh*9.81_wp*(1.2_wp - y_cc(j))
# 879 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        else
# 879 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(advxb)%sf(i, j, k) = alph
# 879 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(advxe)%sf(i, j, k) = 1._wp - alph
# 879 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(contxb)%sf(i, j, k) = alph*rhoh
# 879 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(contxe)%sf(i, j, k) = (1._wp - alph)*rhol
# 879 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            pint = pref + rhoh*9.81_wp*(1.2_wp - inth)
# 879 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(e_idx)%sf(i, j, k) = pint + rhol*9.81_wp*(inth - y_cc(j))
# 879 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        end if
# 879 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 879 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    case (301) ! (3D lung geometry in X direction, |sin(*)+sin(*)|)
# 879 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        h = 0.0_wp
# 879 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        lam = 1.0_wp
# 879 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        amp = patch_icpp(patch_id)%a(2)
# 879 "/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)
# 879 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        if (x_cc(i) > inth) then
# 879 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(contxb)%sf(i, j, k) = patch_icpp(1)%alpha_rho(1)
# 879 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(contxe)%sf(i, j, k) = patch_icpp(1)%alpha_rho(2)
# 879 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(e_idx)%sf(i, j, k) = patch_icpp(1)%pres
# 879 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(advxb)%sf(i, j, k) = patch_icpp(1)%alpha(1)
# 879 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(advxe)%sf(i, j, k) = patch_icpp(1)%alpha(2)
# 879 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        end if
# 879 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 879 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    case (302) ! 3D Jet with IGR
# 879 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ux_th = 10*sqrt(1.4*0.4)
# 879 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ux_am = 0.0*sqrt(1.4)
# 879 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        p_th = 2.0_wp
# 879 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        p_am = 1.0_wp
# 879 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        rho_th = 1._wp
# 879 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        rho_am = 1._wp
# 879 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        y_th = 0.0_wp
# 879 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        z_th = 0.0_wp
# 879 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        r_th = 1._wp
# 879 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        eps_smooth = 1._wp
# 879 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        eps = 1e-6
# 879 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 879 "/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)
# 879 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        rcut = f_cut_on(r - r_th, eps_smooth)
# 879 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        xcut = f_cut_on(x_cc(i), eps_smooth)
# 879 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 879 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        q_prim_vf(momxb)%sf(i, j, k) = ux_th*rcut*xcut + ux_am
# 879 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        q_prim_vf(momxb + 1)%sf(i, j, k) = 0._wp
# 879 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        q_prim_vf(momxe)%sf(i, j, k) = 0._wp
# 879 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 879 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        if (num_fluids == 1) then
# 879 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(contxb)%sf(i, j, k) = (rho_th - rho_am)*rcut*xcut + rho_am
# 879 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        else
# 879 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(advxb)%sf(i, j, k) = (1._wp - 2._wp*eps)*rcut*xcut + eps
# 879 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(contxb)%sf(i, j, k) = rho_th*q_prim_vf(advxb)%sf(i, j, k)
# 879 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(contxe)%sf(i, j, k) = rho_am*(1._wp - q_prim_vf(advxb)%sf(i, j, k))
# 879 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        end if
# 879 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 879 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        q_prim_vf(e_idx)%sf(i, j, k) = p_th*rcut*xcut + p_am
# 879 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 879 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    case (303) ! 3D Multijet
# 879 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 879 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        eps_smooth = 3.0_wp
# 879 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ux_th = 10*sqrt(1.4*0.4)
# 879 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ux_am = 2.5*sqrt(1.4*0.4)
# 879 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        p_th = 0.8_wp
# 879 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        p_am = 0.4_wp
# 879 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        rho_th = 1._wp
# 879 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        rho_am = 1._wp
# 879 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        eps = 1e-6
# 879 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 879 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        rcut = rcut_arr(j, k)
# 879 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        xcut = f_cut_on(x_cc(i), eps_smooth)
# 879 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 879 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        q_prim_vf(momxb)%sf(i, j, k) = ux_th*rcut*xcut + ux_am
# 879 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        q_prim_vf(momxb + 1)%sf(i, j, k) = 0._wp
# 879 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        q_prim_vf(momxe)%sf(i, j, k) = 0._wp
# 879 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 879 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        if (num_fluids == 1) then
# 879 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(contxb)%sf(i, j, k) = (rho_th - rho_am)*rcut*xcut + rho_am
# 879 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        else
# 879 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(advxb)%sf(i, j, k) = (1._wp - 2._wp*eps)*rcut*xcut + eps
# 879 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(contxb)%sf(i, j, k) = rho_th*q_prim_vf(advxb)%sf(i, j, k)
# 879 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(contxe)%sf(i, j, k) = rho_am*(1._wp - q_prim_vf(advxb)%sf(i, j, k))
# 879 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        end if
# 879 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 879 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        q_prim_vf(e_idx)%sf(i, j, k) = p_th*rcut*xcut + p_am
# 879 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 879 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    case (370)
# 879 "/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
# 879 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 879 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    if (.not. files_loaded) then
# 879 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        max_files = merge(sys_size, sys_size - 1, num_dims == 1)
# 879 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        do f = 1, max_files
# 879 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            write (file_num_str, '(I0)') f
# 879 "/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"
# 879 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        end do
# 879 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 879 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! Common file reading setup
# 879 "/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)
# 879 "/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)))
# 879 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 879 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        select case (num_dims)
# 879 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        case (1, 2)  ! 1D and 2D cases are similar
# 879 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            ! Count lines
# 879 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            line_count = 0
# 879 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            do
# 879 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                read (unit2, *, iostat=ios2) dummy_x, dummy_y
# 879 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                if (ios2 /= 0) exit
# 879 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                line_count = line_count + 1
# 879 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            end do
# 879 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            close (unit2)
# 879 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 879 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            xrows = line_count
# 879 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            yrows = 1
# 879 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            index_x = 0
# 879 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            if (num_dims == 2) index_x = i
# 879 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#ifdef MFC_DEBUG
# 879 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    block
# 879 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        use iso_fortran_env, only: output_unit
# 879 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 879 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        print *, 'm_icpp_patches.fpp:879: ', '@:ALLOCATE(x_coords(xRows), stored_values(xRows, 1, sys_size))'
# 879 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 879 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        call flush (output_unit)
# 879 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    end block
# 879 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#endif
# 879 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    allocate (x_coords(xrows), stored_values(xrows, 1, sys_size))
# 879 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 879 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 879 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 879 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#if defined(MFC_OpenACC)
# 879 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
!$acc enter data create(x_coords, stored_values) 
# 879 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#elif defined(MFC_OpenMP)
# 879 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
!$omp target enter data map(always,alloc:x_coords, stored_values) 
# 879 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#endif
# 879 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 879 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            ! Read data from all files
# 879 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            do f = 1, max_files
# 879 "/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)
# 879 "/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)))
# 879 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 879 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                do iter = 1, xrows
# 879 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    read (unit, *, iostat=ios) x_coords(iter), stored_values(iter, 1, f)
# 879 "/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)))
# 879 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                end do
# 879 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                close (unit)
# 879 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            end do
# 879 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 879 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            ! Calculate offsets
# 879 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            domain_xstart = x_coords(1)
# 879 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            x_step = x_cc(1) - x_cc(0)
# 879 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            delta_x = merge(x_cc(0) - domain_xstart + x_step/2.0, &
# 879 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                            x_cc(index_x) - domain_xstart + x_step/2.0, num_dims == 1)
# 879 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            global_offset_x = nint(abs(delta_x)/x_step)
# 879 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 879 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        case (3)  ! 3D case - determine grid structure
# 879 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            ! Find yRows by counting rows with same x
# 879 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            read (unit2, *, iostat=ios2) x0, y0, dummy_z
# 879 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            if (ios2 /= 0) call s_mpi_abort("Error reading first line")
# 879 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 879 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            yrows = 1
# 879 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            do
# 879 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                read (unit2, *, iostat=ios2) dummy_x, dummy_y, dummy_z
# 879 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                if (ios2 /= 0) exit
# 879 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                if (dummy_x == x0 .and. dummy_y /= y0) then
# 879 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    yrows = yrows + 1
# 879 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                else
# 879 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    exit
# 879 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                end if
# 879 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            end do
# 879 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            close (unit2)
# 879 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 879 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            ! Count total rows
# 879 "/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)
# 879 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            nrows = 0
# 879 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            do
# 879 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                read (unit2, *, iostat=ios2) dummy_x, dummy_y, dummy_z
# 879 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                if (ios2 /= 0) exit
# 879 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                nrows = nrows + 1
# 879 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            end do
# 879 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            close (unit2)
# 879 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 879 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            xrows = nrows/yrows
# 879 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#ifdef MFC_DEBUG
# 879 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    block
# 879 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        use iso_fortran_env, only: output_unit
# 879 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 879 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        print *, 'm_icpp_patches.fpp:879: ', '@:ALLOCATE(x_coords(nrows), y_coords(nrows), stored_values(xRows, yRows, sys_size))'
# 879 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 879 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        call flush (output_unit)
# 879 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    end block
# 879 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#endif
# 879 "/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))
# 879 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 879 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 879 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 879 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 879 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#if defined(MFC_OpenACC)
# 879 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
!$acc enter data create(x_coords, y_coords, stored_values) 
# 879 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#elif defined(MFC_OpenMP)
# 879 "/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) 
# 879 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#endif
# 879 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            index_x = i
# 879 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            index_y = j
# 879 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 879 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            ! Read all files
# 879 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            do f = 1, max_files
# 879 "/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)
# 879 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                if (ios /= 0) then
# 879 "/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)))
# 879 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    cycle
# 879 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                end if
# 879 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 879 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                iter = 0
# 879 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                do iix = 1, xrows
# 879 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    do iiy = 1, yrows
# 879 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                        iter = iter + 1
# 879 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                        if (f == 1) then
# 879 "/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)
# 879 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                        else
# 879 "/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)
# 879 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                        end if
# 879 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                        if (ios /= 0) call s_mpi_abort("Error reading data")
# 879 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    end do
# 879 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                end do
# 879 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                close (unit)
# 879 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            end do
# 879 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 879 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            ! Calculate offsets
# 879 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            x_step = x_cc(1) - x_cc(0)
# 879 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            y_step = y_cc(1) - y_cc(0)
# 879 "/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
# 879 "/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
# 879 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            global_offset_x = nint(abs(delta_x)/x_step)
# 879 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            global_offset_y = nint(abs(delta_y)/y_step)
# 879 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        end select
# 879 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 879 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        files_loaded = .true.
# 879 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    end if
# 879 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 879 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    ! Data assignment
# 879 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    select case (num_dims)
# 879 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    case (1)
# 879 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        idx = i + 1 + global_offset_x
# 879 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        do f = 1, sys_size
# 879 "/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)
# 879 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        end do
# 879 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 879 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    case (2)
# 879 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        idx = i + 1 + global_offset_x - index_x
# 879 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        do f = 1, sys_size - 1
# 879 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            jump = merge(1, 0, f >= momxe)
# 879 "/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)
# 879 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        end do
# 879 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        q_prim_vf(momxe)%sf(i, j, 0) = 0.0_wp
# 879 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 879 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    case (3)
# 879 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        idx = i + 1 + global_offset_x - index_x
# 879 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        idy = j + 1 + global_offset_y - index_y
# 879 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        do f = 1, sys_size - 1
# 879 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            jump = merge(1, 0, f >= momxe)
# 879 "/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)
# 879 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        end do
# 879 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        q_prim_vf(momxe)%sf(i, j, k) = 0.0_wp
# 879 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    end select
# 879 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 879 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    case (380)
# 879 "/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
# 879 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! 3D_TaylorGreenVortex case:
# 879 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! This analytic patch used geometry 9
# 879 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        mach = 0.1
# 879 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        if (patch_id == 1) then
# 879 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(e_idx)%sf(i, j, 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)
# 879 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(momxb + 0)%sf(i, j, k) = mach*376.636429464809*sin(x_cc(i)/1)*cos(y_cc(j)/1)*sin(z_cc(k)/1)
# 879 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(momxb + 1)%sf(i, j, k) = -mach*376.636429464809*cos(x_cc(i)/1)*sin(y_cc(j)/1)*sin(z_cc(k)/1)
# 879 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        end if
# 879 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 879 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    case default
# 879 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        call s_int_to_str(patch_id, istr)
# 879 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        call s_mpi_abort("Invalid hcid specified for patch "//trim(istr))
# 879 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    end select
# 879 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
                    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
# 888 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#ifdef MFC_DEBUG
# 888 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    block
# 888 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        use iso_fortran_env, only: output_unit
# 888 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 888 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        print *, 'm_icpp_patches.fpp:888: ', '@:DEALLOCATE(stored_values)'
# 888 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 888 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        call flush (output_unit)
# 888 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    end block
# 888 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#endif
# 888 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 888 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#if defined(MFC_OpenACC)
# 888 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
!$acc exit data delete(stored_values) 
# 888 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#elif defined(MFC_OpenMP)
# 888 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
!$omp target exit data map(release:stored_values) 
# 888 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#endif
# 888 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    deallocate (stored_values)
# 888 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#ifdef MFC_DEBUG
# 888 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    block
# 888 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        use iso_fortran_env, only: output_unit
# 888 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 888 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        print *, 'm_icpp_patches.fpp:888: ', '@:DEALLOCATE(x_coords)'
# 888 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 888 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        call flush (output_unit)
# 888 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    end block
# 888 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#endif
# 888 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 888 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#if defined(MFC_OpenACC)
# 888 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
!$acc exit data delete(x_coords) 
# 888 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#elif defined(MFC_OpenMP)
# 888 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
!$omp target exit data map(release:x_coords) 
# 888 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#endif
# 888 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    deallocate (x_coords)
# 888 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    end if
# 888 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 888 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    if (allocated(y_coords)) then
# 888 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#ifdef MFC_DEBUG
# 888 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    block
# 888 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        use iso_fortran_env, only: output_unit
# 888 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 888 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        print *, 'm_icpp_patches.fpp:888: ', '@:DEALLOCATE(y_coords)'
# 888 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 888 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        call flush (output_unit)
# 888 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    end block
# 888 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#endif
# 888 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 888 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#if defined(MFC_OpenACC)
# 888 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
!$acc exit data delete(y_coords) 
# 888 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#elif defined(MFC_OpenMP)
# 888 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
!$omp target exit data map(release:y_coords) 
# 888 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#endif
# 888 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    deallocate (y_coords)
# 888 "/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.
        !! @param patch_id is the patch identifier
        !! @param patch_id_fp Array to track patch ids
        !! @param q_prim_vf Array of primitive variables
    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
# 912 "/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
# 912 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    real(wp) :: x_len, x_step, y_len, y_step
# 912 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    real(wp) :: dummy_x, dummy_y, dummy_z, x0, y0
# 912 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    integer :: global_offset_x, global_offset_y           ! MPI subdomain offset
# 912 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    real(wp) :: delta_x, delta_y
# 912 "/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
# 912 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    character(len=200) :: errmsg
# 912 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    real(wp), allocatable :: stored_values(:, :, :)
# 912 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    real(wp), allocatable :: x_coords(:), y_coords(:)
# 912 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    logical :: files_loaded = .false.
# 912 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    real(wp) :: domain_xstart, domain_xend, domain_ystart, domain_yend
# 912 "/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/
# 912 "/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
# 912 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    character(len=20) :: zeros_part       ! For the trailing zeros part
# 912 "/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
# 913 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    real(wp) :: eps, eps_mhd, C_mhd
# 913 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    real(wp) :: r, rmax, gam, umax, p0
# 913 "/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
# 913 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    real(wp) :: factor
# 913 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    real(wp) :: r0, alpha, r2
# 913 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    real(wp) :: sinA, cosA
# 913 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 913 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    real(wp) :: r_sq
# 913 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 913 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    ! # 207
# 913 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    real(wp) :: sigma, gauss1, gauss2
# 913 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    ! # 208
# 913 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    real(wp) :: ei, d, fsm, alpha_air, alpha_sf6
# 913 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 913 "/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
 
        ! Since the patch doesn't allow for its boundaries to be
        ! smoothed out, the pseudo volume fraction is set to 1 to
        ! ensure that only the current patch contributes to the fluid
        ! state in the cells that this patch covers.
        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)
        ! Checking whether the patch covers a particular cell in the
        ! domain and verifying whether the current patch has the
        ! permission to write to that cell. If both queries check out,
        ! the primitive variables of the current patch are assigned
        ! to this cell.
        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
 
# 959 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    select case (patch_icpp(patch_id)%hcid) ! 2D_hardcoded_ic example case
# 959 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 959 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    case (200)
# 959 "/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
# 959 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            ! Volume Fractions
# 959 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(advxb)%sf(i, j, 0) = eps
# 959 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(advxe)%sf(i, j, 0) = 1._wp - eps
# 959 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            ! Denssities
# 959 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(contxb)%sf(i, j, 0) = eps*1000._wp
# 959 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(contxe)%sf(i, j, 0) = (1._wp - eps)*1._wp
# 959 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            ! Pressure
# 959 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(e_idx)%sf(i, j, 0) = 1000._wp
# 959 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        end if
# 959 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    case (202) ! Gresho vortex (Gouasmi et al 2022 JCP)
# 959 "/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
# 959 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        rmax = 0.2_wp
# 959 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 959 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        gam = 1._wp + 1._wp/fluid_pp(1)%gamma
# 959 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        umax = 2*pi*rmax*patch_icpp(patch_id)%vel(2)
# 959 "/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)
# 959 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 959 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        if (r < rmax) then
# 959 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(momxb)%sf(i, j, 0) = -(y_cc(j) - 0.5_wp)*umax/rmax
# 959 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(momxe)%sf(i, j, 0) = (x_cc(i) - 0.5_wp)*umax/rmax
# 959 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(e_idx)%sf(i, j, 0) = p0 + umax**2*((r/rmax)**2._wp/2._wp)
# 959 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        else if (r < 2*rmax) then
# 959 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(momxb)%sf(i, j, 0) = -((y_cc(j) - 0.5_wp)/r)*umax*(2._wp - r/rmax)
# 959 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(momxe)%sf(i, j, 0) = ((x_cc(i) - 0.5_wp)/r)*umax*(2._wp - r/rmax)
# 959 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(e_idx)%sf(i, j, 0) = p0 + umax**2*((r/rmax)**2/2._wp + 4*(1 - (r/rmax) + log(r/rmax)))
# 959 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        else
# 959 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(momxb)%sf(i, j, 0) = 0._wp
# 959 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(momxe)%sf(i, j, 0) = 0._wp
# 959 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(e_idx)%sf(i, j, 0) = p0 + umax**2*(-2 + 4*log(2._wp))
# 959 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        end if
# 959 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    case (203) ! Gresho vortex (Gouasmi et al 2022 JCP) with density correction
# 959 "/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
# 959 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        rmax = 0.2_wp
# 959 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 959 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        gam = 1._wp + 1._wp/fluid_pp(1)%gamma
# 959 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        umax = 2*pi*rmax*patch_icpp(patch_id)%vel(2)
# 959 "/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)
# 959 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 959 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        if (r < rmax) then
# 959 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(momxb)%sf(i, j, 0) = -(y_cc(j) - 0.5_wp)*umax/rmax
# 959 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(momxe)%sf(i, j, 0) = (x_cc(i) - 0.5_wp)*umax/rmax
# 959 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(e_idx)%sf(i, j, 0) = p0 + umax**2*((r/rmax)**2._wp/2._wp)
# 959 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        else if (r < 2*rmax) then
# 959 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(momxb)%sf(i, j, 0) = -((y_cc(j) - 0.5_wp)/r)*umax*(2._wp - r/rmax)
# 959 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(momxe)%sf(i, j, 0) = ((x_cc(i) - 0.5_wp)/r)*umax*(2._wp - r/rmax)
# 959 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(e_idx)%sf(i, j, 0) = p0 + umax**2*((r/rmax)**2/2._wp + 4._wp*(1._wp - (r/rmax) + log(r/rmax)))
# 959 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        else
# 959 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(momxb)%sf(i, j, 0) = 0._wp
# 959 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(momxe)%sf(i, j, 0) = 0._wp
# 959 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(e_idx)%sf(i, j, 0) = p0 + umax**2._wp*(-2._wp + 4*log(2._wp))
# 959 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        end if
# 959 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 959 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        q_prim_vf(contxb)%sf(i, j, 0) = q_prim_vf(e_idx)%sf(i, j, 0)**(1._wp/gam)
# 959 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    case (204) ! Rayleigh-Taylor instability
# 959 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        rhoh = 3._wp
# 959 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        rhol = 1._wp
# 959 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        pref = 1.e5_wp
# 959 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        pint = pref
# 959 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        h = 0.7_wp
# 959 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        lam = 0.2_wp
# 959 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        wl = 2._wp*pi/lam
# 959 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        amp = 0.05_wp/wl
# 959 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 959 "/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
# 959 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 959 "/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))
# 959 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 959 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        if (alph < eps) alph = eps
# 959 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        if (alph > 1._wp - eps) alph = 1._wp - eps
# 959 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 959 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        if (y_cc(j) > inth) then
# 959 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(advxb)%sf(i, j, 0) = alph
# 959 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(advxe)%sf(i, j, 0) = 1._wp - alph
# 959 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(contxb)%sf(i, j, 0) = alph*rhoh
# 959 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(contxe)%sf(i, j, 0) = (1._wp - alph)*rhol
# 959 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(e_idx)%sf(i, j, 0) = pref + rhoh*9.81_wp*(1.2_wp - y_cc(j))
# 959 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        else
# 959 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(advxb)%sf(i, j, 0) = alph
# 959 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(advxe)%sf(i, j, 0) = 1._wp - alph
# 959 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(contxb)%sf(i, j, 0) = alph*rhoh
# 959 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(contxe)%sf(i, j, 0) = (1._wp - alph)*rhol
# 959 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            pint = pref + rhoh*9.81_wp*(1.2_wp - inth)
# 959 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(e_idx)%sf(i, j, 0) = pint + rhol*9.81_wp*(inth - y_cc(j))
# 959 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        end if
# 959 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 959 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    case (205) ! 2D lung wave interaction problem
# 959 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        h = 0.0_wp           !non dim origin y
# 959 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        lam = 1.0_wp         !non dim lambda
# 959 "/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
# 959 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 959 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        inth = amp*sin(2*pi*x_cc(i)/lam - pi/2) + h
# 959 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 959 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        if (y_cc(j) > inth) then
# 959 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(contxb)%sf(i, j, 0) = patch_icpp(1)%alpha_rho(1)
# 959 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(contxe)%sf(i, j, 0) = patch_icpp(1)%alpha_rho(2)
# 959 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(e_idx)%sf(i, j, 0) = patch_icpp(1)%pres
# 959 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(advxb)%sf(i, j, 0) = patch_icpp(1)%alpha(1)
# 959 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(advxe)%sf(i, j, 0) = patch_icpp(1)%alpha(2)
# 959 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        end if
# 959 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 959 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    case (206) ! 2D lung wave interaction problem - horizontal domain
# 959 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        h = 0.0_wp           !non dim origin y
# 959 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        lam = 1.0_wp         !non dim lambda
# 959 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        amp = patch_icpp(patch_id)%a(2)
# 959 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 959 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        intl = amp*sin(2*pi*y_cc(j)/lam - pi/2) + h
# 959 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 959 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        if (x_cc(i) > intl) then        !this is the liquid
# 959 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(contxb)%sf(i, j, 0) = patch_icpp(1)%alpha_rho(1)
# 959 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(contxe)%sf(i, j, 0) = patch_icpp(1)%alpha_rho(2)
# 959 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(e_idx)%sf(i, j, 0) = patch_icpp(1)%pres
# 959 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(advxb)%sf(i, j, 0) = patch_icpp(1)%alpha(1)
# 959 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(advxe)%sf(i, j, 0) = patch_icpp(1)%alpha(2)
# 959 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        end if
# 959 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 959 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    case (207) ! Kelvin Helmholtz Instability
# 959 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        sigma = 0.05_wp/sqrt(2.0_wp)
# 959 "/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))
# 959 "/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))
# 959 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        q_prim_vf(momxb + 1)%sf(i, j, 0) = &
# 959 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            0.1_wp*sin(4.0_wp*pi*x_cc(i))*(gauss1 + gauss2)
# 959 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 959 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    case (208) ! Richtmeyer Meshkov Instability
# 959 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        lam = 1.0_wp
# 959 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        eps = 1.0e-6_wp
# 959 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ei = 5.0_wp
# 959 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! Smoothening function to smooth out sharp discontinuity in the interface
# 959 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        if (x_cc(i) <= 0.7_wp*lam) then
# 959 "/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)))
# 959 "/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))))
# 959 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            alpha_air = eps + (1.0_wp - 2.0_wp*eps)*fsm
# 959 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            alpha_sf6 = 1.0_wp - alpha_air
# 959 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(contxb)%sf(i, j, 0) = alpha_sf6*5.04_wp
# 959 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(contxe)%sf(i, j, 0) = alpha_air*1.0_wp
# 959 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(advxb)%sf(i, j, 0) = alpha_sf6
# 959 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(advxe)%sf(i, j, 0) = alpha_air
# 959 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        end if
# 959 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 959 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    case (250) ! MHD Orszag-Tang vortex
# 959 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! gamma = 5/3
# 959 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        !   rho = 25/(36*pi)
# 959 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        !     p = 5/(12*pi)
# 959 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        !     v = (-sin(2*pi*y), sin(2*pi*x), 0)
# 959 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        !     B = (-sin(2*pi*y)/sqrt(4*pi), sin(4*pi*x)/sqrt(4*pi), 0)
# 959 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 959 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        q_prim_vf(momxb)%sf(i, j, 0) = -sin(2._wp*pi*y_cc(j))
# 959 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        q_prim_vf(momxb + 1)%sf(i, j, 0) = sin(2._wp*pi*x_cc(i))
# 959 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 959 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        q_prim_vf(b_idx%beg)%sf(i, j, 0) = -sin(2._wp*pi*y_cc(j))/sqrt(4._wp*pi)
# 959 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        q_prim_vf(b_idx%beg + 1)%sf(i, j, 0) = sin(4._wp*pi*x_cc(i))/sqrt(4._wp*pi)
# 959 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 959 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    case (251) ! RMHD Cylindrical Blast Wave [Mignone, 2006: Section 4.3.1]
# 959 "/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
# 959 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(contxb)%sf(i, j, 0) = 0.01
# 959 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(e_idx)%sf(i, j, 0) = 1.0
# 959 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        elseif (x_cc(i)**2 + y_cc(j)**2 <= 1._wp**2) then
# 959 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            ! Linear interpolation between r=0.08 and r=1.0
# 959 "/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)
# 959 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(contxb)%sf(i, j, 0) = 0.01_wp*factor + 1.e-4_wp*(1.0_wp - factor)
# 959 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(e_idx)%sf(i, j, 0) = 1.0_wp*factor + 3.e-5_wp*(1.0_wp - factor)
# 959 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        else
# 959 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(contxb)%sf(i, j, 0) = 1.e-4_wp
# 959 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(e_idx)%sf(i, j, 0) = 3.e-5_wp
# 959 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        end if
# 959 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 959 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! case 252 is for the 2D MHD Rotor problem
# 959 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    case (252) ! 2D MHD Rotor Problem
# 959 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! Ambient conditions are set in the JSON file.
# 959 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! This case imposes the dense, rotating cylinder.
# 959 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        !
# 959 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! gamma = 1.4
# 959 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! Ambient medium (r > 0.1):
# 959 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        !   rho = 1, p = 1, v = 0, B = (1,0,0)
# 959 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! Rotor (r <= 0.1):
# 959 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        !   rho = 10, p = 1
# 959 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        !   v has angular velocity w=20, giving v_tan=2 at r=0.1
# 959 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 959 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! Calculate distance squared from the center
# 959 "/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
# 959 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 959 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! inner radius of 0.1
# 959 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        if (r_sq <= 0.1**2) then
# 959 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            ! -- Inside the rotor --
# 959 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            ! Set density uniformly to 10
# 959 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(contxb)%sf(i, j, 0) = 10._wp
# 959 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 959 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            ! Set vup constant rotation of rate v=2
# 959 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            ! v_x = -omega * (y - y_c)
# 959 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            ! v_y =  omega * (x - x_c)
# 959 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(momxb)%sf(i, j, 0) = -20._wp*(y_cc(j) - 0.5_wp)
# 959 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(momxb + 1)%sf(i, j, 0) = 20._wp*(x_cc(i) - 0.5_wp)
# 959 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 959 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            ! taper width of 0.015
# 959 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        else if (r_sq <= 0.115**2) then
# 959 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            ! linearly smooth the function between r = 0.1 and 0.115
# 959 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(contxb)%sf(i, j, 0) = 1._wp + 9._wp*(0.115_wp - sqrt(r_sq))/(0.015_wp)
# 959 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 959 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(momxb)%sf(i, j, 0) = -(2._wp/sqrt(r_sq))*(y_cc(j) - 0.5_wp)*(0.115_wp - sqrt(r_sq))/(0.015_wp)
# 959 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(momxb + 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)
# 959 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        end if
# 959 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 959 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    case (253) ! MHD Smooth Magnetic Vortex
# 959 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! Section 5.2 of
# 959 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! Implicit hybridized discontinuous Galerkin methods for compressible magnetohydrodynamics
# 959 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! C. Ciuca, P. Fernandez, A. Christophe, N.C. Nguyen, J. Peraire
# 959 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 959 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! velocity
# 959 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        q_prim_vf(momxb)%sf(i, j, 0) = 1._wp - (y_cc(j)*exp(1 - (x_cc(i)**2 + y_cc(j)**2))/(2.*pi))
# 959 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        q_prim_vf(momxb + 1)%sf(i, j, 0) = 1._wp + (x_cc(i)*exp(1 - (x_cc(i)**2 + y_cc(j)**2))/(2.*pi))
# 959 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 959 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! magnetic field
# 959 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        q_prim_vf(b_idx%beg)%sf(i, j, 0) = -y_cc(j)*exp(1 - (x_cc(i)**2 + y_cc(j)**2))/(2.*pi)
# 959 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        q_prim_vf(b_idx%beg + 1)%sf(i, j, 0) = x_cc(i)*exp(1 - (x_cc(i)**2 + y_cc(j)**2))/(2.*pi)
# 959 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 959 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! pressure
# 959 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        q_prim_vf(e_idx)%sf(i, j, 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)
# 959 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 959 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    case (260)  ! Gaussian Divergence Pulse
# 959 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        !  Bx(x) = 1 + C * erf((x-0.5)/σ)
# 959 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        !  ⇒  ∂Bx/∂x = C * (2/√π) * exp[-((x-0.5)/σ)**2] * (1/σ)
# 959 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        !  Choose C = ε * σ * √π / 2  ⇒ ∂Bx/∂x = ε * exp[-((x-0.5)/σ)**2]
# 959 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        !  ψ is initialized to zero everywhere.
# 959 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 959 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        eps_mhd = patch_icpp(patch_id)%a(2)
# 959 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        sigma = patch_icpp(patch_id)%a(3)
# 959 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        c_mhd = eps_mhd*sigma*sqrt(pi)*0.5_wp
# 959 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 959 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! B-field
# 959 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        q_prim_vf(b_idx%beg)%sf(i, j, 0) = 1._wp + c_mhd*erf((x_cc(i) - 0.5_wp)/sigma)
# 959 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 959 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    case (261)  ! Blob
# 959 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        r0 = 1._wp/sqrt(8._wp)
# 959 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        r2 = x_cc(i)**2 + y_cc(j)**2
# 959 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        r = sqrt(r2)
# 959 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        alpha = r/r0
# 959 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        if (alpha < 1) then
# 959 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(b_idx%beg)%sf(i, j, 0) = 1._wp/sqrt(4._wp*pi)*(alpha**8 - 2._wp*alpha**4 + 1._wp)
# 959 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            ! q_prim_vf(B_idx%beg)%sf(i,j,0) = 1._wp/sqrt(4000._wp*pi) * (4096._wp*r2**4 - 128._wp*r2**2 + 1._wp)
# 959 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            ! q_prim_vf(B_idx%beg)%sf(i,j,0) = 1._wp/(4._wp*pi) * (alpha**8 - 2._wp*alpha**4 + 1._wp)
# 959 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            ! q_prim_vf(E_idx)%sf(i,j,0) = 6._wp - q_prim_vf(B_idx%beg)%sf(i,j,0)**2/2._wp
# 959 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        end if
# 959 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 959 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    case (262)  ! Tilted 2D MHD shock‐tube at α = arctan2 (≈63.4°)
# 959 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! rotate by α = atan(2)
# 959 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        alpha = atan(2._wp)
# 959 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        cosa = cos(alpha)
# 959 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        sina = sin(alpha)
# 959 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! projection along shock normal
# 959 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        r = x_cc(i)*cosa + y_cc(j)*sina
# 959 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 959 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        if (r <= 0.5_wp) then
# 959 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            ! LEFT state: ρ=1, v∥=+10, v⊥=0, p=20, B∥=B⊥=5/√(4π)
# 959 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(contxb)%sf(i, j, 0) = 1._wp
# 959 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(momxb)%sf(i, j, 0) = 10._wp*cosa
# 959 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(momxb + 1)%sf(i, j, 0) = 10._wp*sina
# 959 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(e_idx)%sf(i, j, 0) = 20._wp
# 959 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(b_idx%beg)%sf(i, j, 0) = (5._wp/sqrt(4._wp*pi))*cosa &
# 959 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                                               - (5._wp/sqrt(4._wp*pi))*sina
# 959 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(b_idx%beg + 1)%sf(i, j, 0) = (5._wp/sqrt(4._wp*pi))*sina &
# 959 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                                                   + (5._wp/sqrt(4._wp*pi))*cosa
# 959 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        else
# 959 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            ! RIGHT state: ρ=1, v∥=−10, v⊥=0, p=1, B∥=B⊥=5/√(4π)
# 959 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(contxb)%sf(i, j, 0) = 1._wp
# 959 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(momxb)%sf(i, j, 0) = -10._wp*cosa
# 959 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(momxb + 1)%sf(i, j, 0) = -10._wp*sina
# 959 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(e_idx)%sf(i, j, 0) = 1._wp
# 959 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(b_idx%beg)%sf(i, j, 0) = (5._wp/sqrt(4._wp*pi))*cosa &
# 959 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                                               - (5._wp/sqrt(4._wp*pi))*sina
# 959 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(b_idx%beg + 1)%sf(i, j, 0) = (5._wp/sqrt(4._wp*pi))*sina &
# 959 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                                                   + (5._wp/sqrt(4._wp*pi))*cosa
# 959 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        end if
# 959 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! v^z and B^z remain zero by default
# 959 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 959 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    case (270)
# 959 "/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
# 959 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 959 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    if (.not. files_loaded) then
# 959 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        max_files = merge(sys_size, sys_size - 1, num_dims == 1)
# 959 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        do f = 1, max_files
# 959 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            write (file_num_str, '(I0)') f
# 959 "/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"
# 959 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        end do
# 959 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 959 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! Common file reading setup
# 959 "/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)
# 959 "/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)))
# 959 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 959 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        select case (num_dims)
# 959 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        case (1, 2)  ! 1D and 2D cases are similar
# 959 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            ! Count lines
# 959 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            line_count = 0
# 959 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            do
# 959 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                read (unit2, *, iostat=ios2) dummy_x, dummy_y
# 959 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                if (ios2 /= 0) exit
# 959 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                line_count = line_count + 1
# 959 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            end do
# 959 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            close (unit2)
# 959 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 959 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            xrows = line_count
# 959 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            yrows = 1
# 959 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            index_x = 0
# 959 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            if (num_dims == 2) index_x = i
# 959 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#ifdef MFC_DEBUG
# 959 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    block
# 959 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        use iso_fortran_env, only: output_unit
# 959 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 959 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        print *, 'm_icpp_patches.fpp:959: ', '@:ALLOCATE(x_coords(xRows), stored_values(xRows, 1, sys_size))'
# 959 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 959 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        call flush (output_unit)
# 959 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    end block
# 959 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#endif
# 959 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    allocate (x_coords(xrows), stored_values(xrows, 1, sys_size))
# 959 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 959 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 959 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 959 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#if defined(MFC_OpenACC)
# 959 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
!$acc enter data create(x_coords, stored_values) 
# 959 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#elif defined(MFC_OpenMP)
# 959 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
!$omp target enter data map(always,alloc:x_coords, stored_values) 
# 959 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#endif
# 959 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 959 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            ! Read data from all files
# 959 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            do f = 1, max_files
# 959 "/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)
# 959 "/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)))
# 959 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 959 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                do iter = 1, xrows
# 959 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    read (unit, *, iostat=ios) x_coords(iter), stored_values(iter, 1, f)
# 959 "/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)))
# 959 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                end do
# 959 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                close (unit)
# 959 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            end do
# 959 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 959 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            ! Calculate offsets
# 959 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            domain_xstart = x_coords(1)
# 959 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            x_step = x_cc(1) - x_cc(0)
# 959 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            delta_x = merge(x_cc(0) - domain_xstart + x_step/2.0, &
# 959 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                            x_cc(index_x) - domain_xstart + x_step/2.0, num_dims == 1)
# 959 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            global_offset_x = nint(abs(delta_x)/x_step)
# 959 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 959 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        case (3)  ! 3D case - determine grid structure
# 959 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            ! Find yRows by counting rows with same x
# 959 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            read (unit2, *, iostat=ios2) x0, y0, dummy_z
# 959 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            if (ios2 /= 0) call s_mpi_abort("Error reading first line")
# 959 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 959 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            yrows = 1
# 959 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            do
# 959 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                read (unit2, *, iostat=ios2) dummy_x, dummy_y, dummy_z
# 959 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                if (ios2 /= 0) exit
# 959 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                if (dummy_x == x0 .and. dummy_y /= y0) then
# 959 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    yrows = yrows + 1
# 959 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                else
# 959 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    exit
# 959 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                end if
# 959 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            end do
# 959 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            close (unit2)
# 959 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 959 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            ! Count total rows
# 959 "/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)
# 959 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            nrows = 0
# 959 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            do
# 959 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                read (unit2, *, iostat=ios2) dummy_x, dummy_y, dummy_z
# 959 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                if (ios2 /= 0) exit
# 959 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                nrows = nrows + 1
# 959 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            end do
# 959 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            close (unit2)
# 959 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 959 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            xrows = nrows/yrows
# 959 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#ifdef MFC_DEBUG
# 959 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    block
# 959 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        use iso_fortran_env, only: output_unit
# 959 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 959 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        print *, 'm_icpp_patches.fpp:959: ', '@:ALLOCATE(x_coords(nrows), y_coords(nrows), stored_values(xRows, yRows, sys_size))'
# 959 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 959 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        call flush (output_unit)
# 959 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    end block
# 959 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#endif
# 959 "/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))
# 959 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 959 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 959 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 959 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 959 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#if defined(MFC_OpenACC)
# 959 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
!$acc enter data create(x_coords, y_coords, stored_values) 
# 959 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#elif defined(MFC_OpenMP)
# 959 "/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) 
# 959 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#endif
# 959 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            index_x = i
# 959 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            index_y = j
# 959 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 959 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            ! Read all files
# 959 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            do f = 1, max_files
# 959 "/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)
# 959 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                if (ios /= 0) then
# 959 "/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)))
# 959 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    cycle
# 959 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                end if
# 959 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 959 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                iter = 0
# 959 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                do iix = 1, xrows
# 959 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    do iiy = 1, yrows
# 959 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                        iter = iter + 1
# 959 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                        if (f == 1) then
# 959 "/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)
# 959 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                        else
# 959 "/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)
# 959 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                        end if
# 959 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                        if (ios /= 0) call s_mpi_abort("Error reading data")
# 959 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    end do
# 959 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                end do
# 959 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                close (unit)
# 959 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            end do
# 959 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 959 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            ! Calculate offsets
# 959 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            x_step = x_cc(1) - x_cc(0)
# 959 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            y_step = y_cc(1) - y_cc(0)
# 959 "/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
# 959 "/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
# 959 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            global_offset_x = nint(abs(delta_x)/x_step)
# 959 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            global_offset_y = nint(abs(delta_y)/y_step)
# 959 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        end select
# 959 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 959 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        files_loaded = .true.
# 959 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    end if
# 959 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 959 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    ! Data assignment
# 959 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    select case (num_dims)
# 959 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    case (1)
# 959 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        idx = i + 1 + global_offset_x
# 959 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        do f = 1, sys_size
# 959 "/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)
# 959 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        end do
# 959 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 959 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    case (2)
# 959 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        idx = i + 1 + global_offset_x - index_x
# 959 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        do f = 1, sys_size - 1
# 959 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            jump = merge(1, 0, f >= momxe)
# 959 "/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)
# 959 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        end do
# 959 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        q_prim_vf(momxe)%sf(i, j, 0) = 0.0_wp
# 959 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 959 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    case (3)
# 959 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        idx = i + 1 + global_offset_x - index_x
# 959 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        idy = j + 1 + global_offset_y - index_y
# 959 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        do f = 1, sys_size - 1
# 959 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            jump = merge(1, 0, f >= momxe)
# 959 "/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)
# 959 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        end do
# 959 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        q_prim_vf(momxe)%sf(i, j, k) = 0.0_wp
# 959 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    end select
# 959 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 959 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    case (280)
# 959 "/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
# 959 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! 2D_isentropicvortex case:
# 959 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! This analytic patch uses geometry 2
# 959 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        if (patch_id == 1) then
# 959 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(e_idx)%sf(i, j, 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) - patch_icpp(1)%x_centroid)**2.0 - (y_cc(j) - patch_icpp(1)%y_centroid)**2.0)))**(1.4 + 1.0)
# 959 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(contxb + 0)%sf(i, j, 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) - patch_icpp(1)%x_centroid)**2.0 - (y_cc(j) - patch_icpp(1)%y_centroid)**2.0)))**1.4
# 959 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(momxb + 0)%sf(i, j, 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)%x_centroid)**2.0 - (y_cc(j) - patch_icpp(1)%y_centroid)**2.0))
# 959 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(momxb + 1)%sf(i, j, 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)%x_centroid)**2.0 - (y_cc(j) - patch_icpp(1)%y_centroid)**2.0))
# 959 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        end if
# 959 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 959 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    case (281)
# 959 "/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
# 959 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! 2D_acoustic_pulse case:
# 959 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! This analytic patch uses geometry 2
# 959 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        if (patch_id == 2) then
# 959 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(e_idx)%sf(i, j, 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))
# 959 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(contxb + 0)%sf(i, j, 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))
# 959 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        end if
# 959 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 959 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    case (282)
# 959 "/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
# 959 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! 2D_zero_circ_vortex case:
# 959 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! This analytic patch uses geometry 2
# 959 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        if (patch_id == 2) then
# 959 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(e_idx)%sf(i, j, 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))
# 959 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(contxb + 0)%sf(i, j, 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))
# 959 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(momxb + 0)%sf(i, j, 0) = 112.99092883944267*(1 - (0.1/0.3))*y_cc(j)*exp(0.5*(1 - sqrt(x_cc(i)**2 + y_cc(j)**2)))
# 959 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(momxb + 1)%sf(i, j, 0) = 112.99092883944267*((0.1/0.3))*x_cc(i)*exp(0.5*(1 - sqrt(x_cc(i)**2 + y_cc(j)**2)))
# 959 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        end if
# 959 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 959 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    case default
# 959 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        if (proc_rank == 0) then
# 959 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            call s_int_to_str(patch_id, istr)
# 959 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            call s_mpi_abort("Invalid hcid specified for patch "//trim(istr))
# 959 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        end if
# 959 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 959 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    end select
# 959 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
                    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(mom_idx%beg)%sf(i, j, 0) = u0*sin(x_cc(i)/l0)*cos(y_cc(j)/l0)
                    q_prim_vf(mom_idx%end)%sf(i, j, 0) = -u0*cos(x_cc(i)/l0)*sin(y_cc(j)/l0)
                    q_prim_vf(e_idx)%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
# 974 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#ifdef MFC_DEBUG
# 974 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    block
# 974 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        use iso_fortran_env, only: output_unit
# 974 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 974 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        print *, 'm_icpp_patches.fpp:974: ', '@:DEALLOCATE(stored_values)'
# 974 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 974 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        call flush (output_unit)
# 974 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    end block
# 974 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#endif
# 974 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 974 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#if defined(MFC_OpenACC)
# 974 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
!$acc exit data delete(stored_values) 
# 974 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#elif defined(MFC_OpenMP)
# 974 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
!$omp target exit data map(release:stored_values) 
# 974 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#endif
# 974 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    deallocate (stored_values)
# 974 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#ifdef MFC_DEBUG
# 974 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    block
# 974 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        use iso_fortran_env, only: output_unit
# 974 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 974 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        print *, 'm_icpp_patches.fpp:974: ', '@:DEALLOCATE(x_coords)'
# 974 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 974 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        call flush (output_unit)
# 974 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    end block
# 974 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#endif
# 974 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 974 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#if defined(MFC_OpenACC)
# 974 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
!$acc exit data delete(x_coords) 
# 974 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#elif defined(MFC_OpenMP)
# 974 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
!$omp target exit data map(release:x_coords) 
# 974 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#endif
# 974 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    deallocate (x_coords)
# 974 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    end if
# 974 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 974 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    if (allocated(y_coords)) then
# 974 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#ifdef MFC_DEBUG
# 974 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    block
# 974 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        use iso_fortran_env, only: output_unit
# 974 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 974 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        print *, 'm_icpp_patches.fpp:974: ', '@:DEALLOCATE(y_coords)'
# 974 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 974 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        call flush (output_unit)
# 974 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    end block
# 974 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#endif
# 974 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 974 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#if defined(MFC_OpenACC)
# 974 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
!$acc exit data delete(y_coords) 
# 974 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#elif defined(MFC_OpenMP)
# 974 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
!$omp target exit data map(release:y_coords) 
# 974 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#endif
# 974 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    deallocate (y_coords)
# 974 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    end if
 
    end subroutine s_icpp_2d_taylorgreen_vortex
 
    !> @brief Initializes a 1D bubble-pulse patch with analytical primitive variable profiles.
        !! @param patch_id is the patch identifier
        !! @param patch_id_fp Array to track patch ids
        !! @param q_prim_vf Array of primitive variables
    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
# 999 "/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
# 999 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    real(wp) :: x_len, x_step, y_len, y_step
# 999 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    real(wp) :: dummy_x, dummy_y, dummy_z, x0, y0
# 999 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    integer :: global_offset_x, global_offset_y           ! MPI subdomain offset
# 999 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    real(wp) :: delta_x, delta_y
# 999 "/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
# 999 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    character(len=200) :: errmsg
# 999 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    real(wp), allocatable :: stored_values(:, :, :)
# 999 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    real(wp), allocatable :: x_coords(:), y_coords(:)
# 999 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    logical :: files_loaded = .false.
# 999 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    real(wp) :: domain_xstart, domain_xend, domain_ystart, domain_yend
# 999 "/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/
# 999 "/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
# 999 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    character(len=20) :: zeros_part       ! For the trailing zeros part
# 999 "/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
# 1000 "/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
 
        ! Since the patch doesn't allow for its boundaries to be
        ! smoothed out, the pseudo volume fraction is set to 1 to
        ! ensure that only the current patch contributes to the fluid
        ! state in the cells that this patch covers.
        eta = 1._wp
 
        ! Checking whether the line segment covers a particular cell in the
        ! domain and verifying whether the current patch has the permission
        ! to write to that cell. If both queries check out, the primitive
        ! variables of the current patch are assigned to this cell.
        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)
# 1035 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    case (150) ! 1D Smooth Alfven Case for MHD
# 1035 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! velocity
# 1035 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        q_prim_vf(momxb + 1)%sf(i, 0, 0) = 0.1_wp*sin(2._wp*pi*x_cc(i))
# 1035 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        q_prim_vf(momxb + 2)%sf(i, 0, 0) = 0.1_wp*cos(2._wp*pi*x_cc(i))
# 1035 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1035 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! magnetic field
# 1035 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        q_prim_vf(b_idx%end - 1)%sf(i, 0, 0) = 0.1_wp*sin(2._wp*pi*x_cc(i))
# 1035 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        q_prim_vf(b_idx%end)%sf(i, 0, 0) = 0.1_wp*cos(2._wp*pi*x_cc(i))
# 1035 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1035 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    case (170)
# 1035 "/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, SDtoolbox)
# 1035 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1035 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    if (.not. files_loaded) then
# 1035 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        max_files = merge(sys_size, sys_size - 1, num_dims == 1)
# 1035 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        do f = 1, max_files
# 1035 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            write (file_num_str, '(I0)') f
# 1035 "/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"
# 1035 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        end do
# 1035 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1035 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! Common file reading setup
# 1035 "/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)
# 1035 "/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)))
# 1035 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1035 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        select case (num_dims)
# 1035 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        case (1, 2)  ! 1D and 2D cases are similar
# 1035 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            ! Count lines
# 1035 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            line_count = 0
# 1035 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            do
# 1035 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                read (unit2, *, iostat=ios2) dummy_x, dummy_y
# 1035 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                if (ios2 /= 0) exit
# 1035 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                line_count = line_count + 1
# 1035 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            end do
# 1035 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            close (unit2)
# 1035 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1035 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            xrows = line_count
# 1035 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            yrows = 1
# 1035 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            index_x = 0
# 1035 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            if (num_dims == 2) index_x = i
# 1035 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#ifdef MFC_DEBUG
# 1035 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    block
# 1035 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        use iso_fortran_env, only: output_unit
# 1035 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1035 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        print *, 'm_icpp_patches.fpp:1035: ', '@:ALLOCATE(x_coords(xRows), stored_values(xRows, 1, sys_size))'
# 1035 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1035 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        call flush (output_unit)
# 1035 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    end block
# 1035 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#endif
# 1035 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    allocate (x_coords(xrows), stored_values(xrows, 1, sys_size))
# 1035 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1035 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1035 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1035 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#if defined(MFC_OpenACC)
# 1035 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
!$acc enter data create(x_coords, stored_values) 
# 1035 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#elif defined(MFC_OpenMP)
# 1035 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
!$omp target enter data map(always,alloc:x_coords, stored_values) 
# 1035 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#endif
# 1035 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1035 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            ! Read data from all files
# 1035 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            do f = 1, max_files
# 1035 "/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)
# 1035 "/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)))
# 1035 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1035 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                do iter = 1, xrows
# 1035 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    read (unit, *, iostat=ios) x_coords(iter), stored_values(iter, 1, f)
# 1035 "/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)))
# 1035 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                end do
# 1035 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                close (unit)
# 1035 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            end do
# 1035 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1035 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            ! Calculate offsets
# 1035 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            domain_xstart = x_coords(1)
# 1035 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            x_step = x_cc(1) - x_cc(0)
# 1035 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            delta_x = merge(x_cc(0) - domain_xstart + x_step/2.0, &
# 1035 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                            x_cc(index_x) - domain_xstart + x_step/2.0, num_dims == 1)
# 1035 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            global_offset_x = nint(abs(delta_x)/x_step)
# 1035 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1035 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        case (3)  ! 3D case - determine grid structure
# 1035 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            ! Find yRows by counting rows with same x
# 1035 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            read (unit2, *, iostat=ios2) x0, y0, dummy_z
# 1035 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            if (ios2 /= 0) call s_mpi_abort("Error reading first line")
# 1035 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1035 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            yrows = 1
# 1035 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            do
# 1035 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                read (unit2, *, iostat=ios2) dummy_x, dummy_y, dummy_z
# 1035 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                if (ios2 /= 0) exit
# 1035 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                if (dummy_x == x0 .and. dummy_y /= y0) then
# 1035 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    yrows = yrows + 1
# 1035 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                else
# 1035 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    exit
# 1035 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                end if
# 1035 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            end do
# 1035 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            close (unit2)
# 1035 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1035 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            ! Count total rows
# 1035 "/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)
# 1035 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            nrows = 0
# 1035 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            do
# 1035 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                read (unit2, *, iostat=ios2) dummy_x, dummy_y, dummy_z
# 1035 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                if (ios2 /= 0) exit
# 1035 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                nrows = nrows + 1
# 1035 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            end do
# 1035 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            close (unit2)
# 1035 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1035 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            xrows = nrows/yrows
# 1035 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#ifdef MFC_DEBUG
# 1035 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    block
# 1035 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        use iso_fortran_env, only: output_unit
# 1035 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1035 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        print *, 'm_icpp_patches.fpp:1035: ', '@:ALLOCATE(x_coords(nrows), y_coords(nrows), stored_values(xRows, yRows, sys_size))'
# 1035 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1035 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        call flush (output_unit)
# 1035 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    end block
# 1035 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#endif
# 1035 "/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))
# 1035 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1035 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1035 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1035 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1035 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#if defined(MFC_OpenACC)
# 1035 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
!$acc enter data create(x_coords, y_coords, stored_values) 
# 1035 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#elif defined(MFC_OpenMP)
# 1035 "/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) 
# 1035 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#endif
# 1035 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            index_x = i
# 1035 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            index_y = j
# 1035 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1035 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            ! Read all files
# 1035 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            do f = 1, max_files
# 1035 "/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)
# 1035 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                if (ios /= 0) then
# 1035 "/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)))
# 1035 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    cycle
# 1035 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                end if
# 1035 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1035 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                iter = 0
# 1035 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                do iix = 1, xrows
# 1035 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    do iiy = 1, yrows
# 1035 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                        iter = iter + 1
# 1035 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                        if (f == 1) then
# 1035 "/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)
# 1035 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                        else
# 1035 "/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)
# 1035 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                        end if
# 1035 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                        if (ios /= 0) call s_mpi_abort("Error reading data")
# 1035 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    end do
# 1035 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                end do
# 1035 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                close (unit)
# 1035 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            end do
# 1035 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1035 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            ! Calculate offsets
# 1035 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            x_step = x_cc(1) - x_cc(0)
# 1035 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            y_step = y_cc(1) - y_cc(0)
# 1035 "/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
# 1035 "/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
# 1035 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            global_offset_x = nint(abs(delta_x)/x_step)
# 1035 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            global_offset_y = nint(abs(delta_y)/y_step)
# 1035 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        end select
# 1035 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1035 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        files_loaded = .true.
# 1035 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    end if
# 1035 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1035 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    ! Data assignment
# 1035 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    select case (num_dims)
# 1035 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    case (1)
# 1035 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        idx = i + 1 + global_offset_x
# 1035 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        do f = 1, sys_size
# 1035 "/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)
# 1035 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        end do
# 1035 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1035 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    case (2)
# 1035 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        idx = i + 1 + global_offset_x - index_x
# 1035 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        do f = 1, sys_size - 1
# 1035 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            jump = merge(1, 0, f >= momxe)
# 1035 "/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)
# 1035 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        end do
# 1035 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        q_prim_vf(momxe)%sf(i, j, 0) = 0.0_wp
# 1035 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1035 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    case (3)
# 1035 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        idx = i + 1 + global_offset_x - index_x
# 1035 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        idy = j + 1 + global_offset_y - index_y
# 1035 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        do f = 1, sys_size - 1
# 1035 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            jump = merge(1, 0, f >= momxe)
# 1035 "/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)
# 1035 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        end do
# 1035 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        q_prim_vf(momxe)%sf(i, j, k) = 0.0_wp
# 1035 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    end select
# 1035 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1035 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    case (180)
# 1035 "/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
# 1035 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! 1D_shuoser cases: "patch_icpp(2)%alpha_rho(1)": "1 + 0.2*sin(5*x)"
# 1035 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        if (patch_id == 2) then
# 1035 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(contxb + 0)%sf(i, 0, 0) = 1 + 0.2*sin(5*x_cc(i))
# 1035 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        end if
# 1035 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1035 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    case (181)
# 1035 "/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
# 1035 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! 1D_titarevtorro cases: "patch_icpp(2)%alpha_rho(1)": "1 + 0.1*sin(20*x*pi)"
# 1035 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        q_prim_vf(contxb + 0)%sf(i, 0, 0) = 1 + 0.1*sin(20*x_cc(i)*pi)
# 1035 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1035 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    case (182)
# 1035 "/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)
# 1035 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        x_mid_diffu = 0.05_wp/2.0_wp
# 1035 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        width_sq = (2.5_wp*10.0_wp**(-3.0_wp))**2
# 1035 "/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)
# 1035 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        q_prim_vf(momxb)%sf(i, 0, 0) = 0.0_wp
# 1035 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        q_prim_vf(e_idx)%sf(i, 0, 0) = 1.01325_wp*(10.0_wp)**5
# 1035 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        q_prim_vf(advxb)%sf(i, 0, 0) = 1.0_wp
# 1035 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1035 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        y1 = (0.195_wp - 0.142_wp)*profile_shape + 0.142_wp
# 1035 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        y2 = (0.0_wp - 0.1_wp)*profile_shape + 0.1_wp
# 1035 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        y3 = (0.214_wp - 0.0_wp)*profile_shape + 0.0_wp
# 1035 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        y4 = (0.591_wp - 0.758_wp)*profile_shape + 0.758_wp
# 1035 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1035 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        q_prim_vf(chemxb)%sf(i, 0, 0) = y1
# 1035 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        q_prim_vf(chemxb + 1)%sf(i, 0, 0) = y2
# 1035 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        q_prim_vf(chemxb + 2)%sf(i, 0, 0) = y3
# 1035 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        q_prim_vf(chemxb + 3)%sf(i, 0, 0) = y4
# 1035 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1035 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        temp = (320.0_wp - 1350.0_wp)*profile_shape + 1350.0_wp
# 1035 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1035 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        molar_mass_inv = y1/31.998_wp + &
# 1035 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                         y2/18.01508_wp + &
# 1035 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                         y3/16.04256_wp + &
# 1035 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                         y4/28.0134_wp
# 1035 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1035 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        q_prim_vf(contxb)%sf(i, 0, 0) = 1.01325_wp*(10.0_wp)**5/(temp*8.3144626_wp*1000.0_wp*molar_mass_inv)
# 1035 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1035 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    case default
# 1035 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        call s_int_to_str(patch_id, istr)
# 1035 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        call s_mpi_abort("Invalid hcid specified for patch "//trim(istr))
# 1035 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    end select
# 1035 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
                end if
 
            end if
        end do
    if (allocated(stored_values)) then
# 1040 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#ifdef MFC_DEBUG
# 1040 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    block
# 1040 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        use iso_fortran_env, only: output_unit
# 1040 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1040 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        print *, 'm_icpp_patches.fpp:1040: ', '@:DEALLOCATE(stored_values)'
# 1040 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1040 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        call flush (output_unit)
# 1040 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    end block
# 1040 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#endif
# 1040 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1040 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#if defined(MFC_OpenACC)
# 1040 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
!$acc exit data delete(stored_values) 
# 1040 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#elif defined(MFC_OpenMP)
# 1040 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
!$omp target exit data map(release:stored_values) 
# 1040 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#endif
# 1040 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    deallocate (stored_values)
# 1040 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#ifdef MFC_DEBUG
# 1040 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    block
# 1040 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        use iso_fortran_env, only: output_unit
# 1040 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1040 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        print *, 'm_icpp_patches.fpp:1040: ', '@:DEALLOCATE(x_coords)'
# 1040 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1040 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        call flush (output_unit)
# 1040 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    end block
# 1040 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#endif
# 1040 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1040 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#if defined(MFC_OpenACC)
# 1040 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
!$acc exit data delete(x_coords) 
# 1040 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#elif defined(MFC_OpenMP)
# 1040 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
!$omp target exit data map(release:x_coords) 
# 1040 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#endif
# 1040 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    deallocate (x_coords)
# 1040 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    end if
# 1040 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1040 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    if (allocated(y_coords)) then
# 1040 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#ifdef MFC_DEBUG
# 1040 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    block
# 1040 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        use iso_fortran_env, only: output_unit
# 1040 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1040 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        print *, 'm_icpp_patches.fpp:1040: ', '@:DEALLOCATE(y_coords)'
# 1040 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1040 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        call flush (output_unit)
# 1040 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    end block
# 1040 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#endif
# 1040 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1040 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#if defined(MFC_OpenACC)
# 1040 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
!$acc exit data delete(y_coords) 
# 1040 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#elif defined(MFC_OpenMP)
# 1040 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
!$omp target exit data map(release:y_coords) 
# 1040 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#endif
# 1040 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    deallocate (y_coords)
# 1040 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    end if
 
    end subroutine s_icpp_1d_bubble_pulse
 
    !> This patch generates the shape of the spherical harmonics
        !!      as a perturbation to a perfect sphere
        !! @param patch_id is the patch identifier
        !! @param patch_id_fp Array to track patch ids
        !! @param q_prim_vf Array of primitive variables
    subroutine s_icpp_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) :: r, x_p, eps, phi
        real(wp), dimension(2:9) :: as, Ps
        real(wp) :: radius, x_centroid_local, y_centroid_local, z_centroid_local, eta_local, smooth_coeff_local
        logical :: non_axis_sym_in
 
        integer :: i, j, k !< generic loop iterators
 
        ! Transferring the patch's centroid and radius information
        x_centroid_local = patch_icpp(patch_id)%x_centroid
        y_centroid_local = patch_icpp(patch_id)%y_centroid
        z_centroid_local = patch_icpp(patch_id)%z_centroid
        smooth_patch_id = patch_icpp(patch_id)%smooth_patch_id
        smooth_coeff_local = patch_icpp(patch_id)%smooth_coeff
        radius = patch_icpp(patch_id)%radius
        as(2) = patch_icpp(patch_id)%a(2)
        as(3) = patch_icpp(patch_id)%a(3)
        as(4) = patch_icpp(patch_id)%a(4)
        as(5) = patch_icpp(patch_id)%a(5)
        as(6) = patch_icpp(patch_id)%a(6)
        as(7) = patch_icpp(patch_id)%a(7)
        as(8) = patch_icpp(patch_id)%a(8)
        as(9) = patch_icpp(patch_id)%a(9)
        non_axis_sym_in = patch_icpp(patch_id)%non_axis_sym
 
        ! Since the analytical patch does not allow for its boundaries to get
        ! smoothed out, the pseudo volume fraction is set to 1 to make sure
        ! that only the current patch contributes to the fluid state in the
        ! cells that this patch covers.
        eta_local = 1._wp
        eps = 1.e-32_wp
 
        ! Checking whether the patch covers a particular cell in the domain
        ! and verifying whether the current patch has permission to write to
        ! to that cell. If both queries check out, the primitive variables
        ! of the current patch are assigned to this cell.
        if (p > 0 .and. .not. non_axis_sym_in) then
            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
 
                        r = sqrt((x_cc(i) - x_centroid_local)**2 + (cart_y - y_centroid_local)**2 + (cart_z - z_centroid_local)**2) + eps
                        if (x_cc(i) - x_centroid_local <= 0) then
                            x_p = -1._wp*abs(x_cc(i) - x_centroid_local + eps)/r
                        else
                            x_p = abs(x_cc(i) - x_centroid_local + eps)/r
                        end if
 
                        ps(2) = unassociated_legendre(x_p, 2)
                        ps(3) = unassociated_legendre(x_p, 3)
                        ps(4) = unassociated_legendre(x_p, 4)
                        ps(5) = unassociated_legendre(x_p, 5)
                        ps(6) = unassociated_legendre(x_p, 6)
                        ps(7) = unassociated_legendre(x_p, 7)
                        if ((x_cc(i) - x_centroid_local >= 0 &
                             .and. &
                             r - as(2)*ps(2) - as(3)*ps(3) - as(4)*ps(4) - as(5)*ps(5) - as(6)*ps(6) - as(7)*ps(7) <= radius &
                             .and. &
                             patch_icpp(patch_id)%alter_patch(patch_id_fp(i, j, k))) .or. &
                            (patch_id_fp(i, j, k) == smooth_patch_id)) &
                            then
                            if (patch_icpp(patch_id)%smoothen) then
                                eta_local = tanh(smooth_coeff_local/min(dx, dy, dz)* &
                                                 ((r - as(2)*ps(2) - as(3)*ps(3) - as(4)*ps(4) - as(5)*ps(5) - as(6)*ps(6) - as(7)*ps(7)) &
                                                  - radius))*(-0.5_wp) + 0.5_wp
                            end if
 
                            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
 
        else if (p == 0) then
            do j = 0, n
                do i = 0, m
 
                    if (non_axis_sym_in) then
                        phi = atan(((y_cc(j) - y_centroid_local) + eps)/((x_cc(i) - x_centroid_local) + eps))
                        r = sqrt((x_cc(i) - x_centroid_local)**2._wp + (y_cc(j) - y_centroid_local)**2._wp) + eps
                        x_p = (eps)/r
                        ps(2) = spherical_harmonic_func(x_p, phi, 2, 2)
                        ps(3) = spherical_harmonic_func(x_p, phi, 3, 3)
                        ps(4) = spherical_harmonic_func(x_p, phi, 4, 4)
                        ps(5) = spherical_harmonic_func(x_p, phi, 5, 5)
                        ps(6) = spherical_harmonic_func(x_p, phi, 6, 6)
                        ps(7) = spherical_harmonic_func(x_p, phi, 7, 7)
                        ps(8) = spherical_harmonic_func(x_p, phi, 8, 8)
                        ps(9) = spherical_harmonic_func(x_p, phi, 9, 9)
                    else
                        r = sqrt((x_cc(i) - x_centroid_local)**2._wp + (y_cc(j) - y_centroid_local)**2._wp) + eps
                        x_p = abs(x_cc(i) - x_centroid_local + eps)/r
                        ps(2) = unassociated_legendre(x_p, 2)
                        ps(3) = unassociated_legendre(x_p, 3)
                        ps(4) = unassociated_legendre(x_p, 4)
                        ps(5) = unassociated_legendre(x_p, 5)
                        ps(6) = unassociated_legendre(x_p, 6)
                        ps(7) = unassociated_legendre(x_p, 7)
                        ps(8) = unassociated_legendre(x_p, 8)
                        ps(9) = unassociated_legendre(x_p, 9)
                    end if
 
                    if (x_cc(i) - x_centroid_local >= 0 &
                        .and. &
                        r - as(2)*ps(2) - as(3)*ps(3) - as(4)*ps(4) - as(5)*ps(5) - as(6)*ps(6) - as(7)*ps(7) - as(8)*ps(8) - as(9)*ps(9) <= radius .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_local, q_prim_vf, patch_id_fp)
 
                    elseif (x_cc(i) - x_centroid_local < 0 &
                            .and. &
                            r - as(2)*ps(2) + as(3)*ps(3) - as(4)*ps(4) + as(5)*ps(5) - as(6)*ps(6) + as(7)*ps(7) - as(8)*ps(8) + as(9)*ps(9) <= radius &
                            .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_local, q_prim_vf, patch_id_fp)
 
                    end if
                end do
            end do
        end if
 
    end subroutine s_icpp_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.
        !! @param patch_id is the patch identifier
        !! @param patch_id_fp Array to track patch ids
        !! @param q_prim_vf Array of primitive variables
    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
# 1213 "/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
# 1213 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    real(wp) :: x_len, x_step, y_len, y_step
# 1213 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    real(wp) :: dummy_x, dummy_y, dummy_z, x0, y0
# 1213 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    integer :: global_offset_x, global_offset_y           ! MPI subdomain offset
# 1213 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    real(wp) :: delta_x, delta_y
# 1213 "/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
# 1213 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    character(len=200) :: errmsg
# 1213 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    real(wp), allocatable :: stored_values(:, :, :)
# 1213 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    real(wp), allocatable :: x_coords(:), y_coords(:)
# 1213 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    logical :: files_loaded = .false.
# 1213 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    real(wp) :: domain_xstart, domain_xend, domain_ystart, domain_yend
# 1213 "/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/
# 1213 "/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
# 1213 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    character(len=20) :: zeros_part       ! For the trailing zeros part
# 1213 "/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
# 1214 "/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
# 1214 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    real(wp) :: eps
# 1214 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1214 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    ! IGR Jets
# 1214 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    ! Arrays to stor position and radii of jets from input file
# 1214 "/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
# 1214 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    ! Variables to describe initial condition of jet
# 1214 "/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
# 1214 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    real(wp) :: rcut, xcut ! Intermediate variables for creating smooth initial condition
# 1214 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1214 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    real(wp), dimension(0:n, 0:p) :: rcut_arr
# 1214 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    integer :: l, q, s ! Iterators for reading input files
# 1214 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    integer :: start, end ! Ints to keep track of position in file
# 1214 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    character(len=1000) :: line ! String to store line in ile
# 1214 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    character(len=25) :: value ! String to store value in line
# 1214 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    integer :: NJet ! Number of jets
# 1214 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1214 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    eps = 1e-9_wp
# 1214 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1214 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    if (patch_icpp(patch_id)%hcid == 303) then
# 1214 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        eps_smooth = 3._wp
# 1214 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        open (unit=10, file="njet.txt", status="old", action="read")
# 1214 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        read (10, *) njet
# 1214 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        close (10)
# 1214 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1214 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        allocate (y_th_arr(0:njet - 1))
# 1214 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        allocate (z_th_arr(0:njet - 1))
# 1214 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        allocate (r_th_arr(0:njet - 1))
# 1214 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1214 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        open (unit=10, file="jets.csv", status="old", action="read")
# 1214 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        do q = 0, njet - 1
# 1214 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            read (10, '(A)') line  ! Read a full line as a string
# 1214 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            start = 1
# 1214 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1214 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            do l = 0, 2
# 1214 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                end = index(line(start:), ',')  ! Find the next comma
# 1214 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                if (end == 0) then
# 1214 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    value = trim(adjustl(line(start:)))  ! Last value in the line
# 1214 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                else
# 1214 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    value = trim(adjustl(line(start:start + end - 2)))  ! Extract substring
# 1214 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    start = start + end  ! Move to next value
# 1214 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                end if
# 1214 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                if (l == 0) then
# 1214 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    read (value, *) y_th_arr(q)  ! Convert string to numeric value
# 1214 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                elseif (l == 1) then
# 1214 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    read (value, *) z_th_arr(q)
# 1214 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                else
# 1214 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    read (value, *) r_th_arr(q)
# 1214 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                end if
# 1214 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            end do
# 1214 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        end do
# 1214 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        close (10)
# 1214 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1214 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        do q = 0, p
# 1214 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            do l = 0, n
# 1214 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                rcut = 0._wp
# 1214 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                do s = 0, njet - 1
# 1214 "/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)
# 1214 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    rcut = rcut + f_cut_on(r - r_th_arr(s), eps_smooth)
# 1214 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                end do
# 1214 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                rcut_arr(l, q) = rcut
# 1214 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            end do
# 1214 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        end do
# 1214 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    end if
# 1214 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
 
        !! 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
 
        ! Initializing the pseudo volume fraction value to 1. The value will
        ! be modified as the patch is laid out on the grid, but only in the
        ! case that smoothing of the spherical patch's boundary is enabled.
        eta = 1._wp
 
        ! Checking whether the sphere covers a particular cell in the domain
        ! and verifying whether the current patch has permission to write to
        ! that cell. If both queries check out, the primitive variables of
        ! the current patch are assigned to this cell.
        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
 
# 1267 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    select case (patch_icpp(patch_id)%hcid)
# 1267 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    case (300) ! Rayleigh-Taylor instability
# 1267 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        rhoh = 3._wp
# 1267 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        rhol = 1._wp
# 1267 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        pref = 1.e5_wp
# 1267 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        pint = pref
# 1267 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        h = 0.7_wp
# 1267 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        lam = 0.2_wp
# 1267 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        wl = 2._wp*pi/lam
# 1267 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        amp = 0.025_wp/wl
# 1267 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1267 "/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
# 1267 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1267 "/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))
# 1267 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1267 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        if (alph < eps) alph = eps
# 1267 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        if (alph > 1._wp - eps) alph = 1._wp - eps
# 1267 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1267 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        if (y_cc(j) > inth) then
# 1267 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(advxb)%sf(i, j, k) = alph
# 1267 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(advxe)%sf(i, j, k) = 1._wp - alph
# 1267 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(contxb)%sf(i, j, k) = alph*rhoh
# 1267 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(contxe)%sf(i, j, k) = (1._wp - alph)*rhol
# 1267 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(e_idx)%sf(i, j, k) = pref + rhoh*9.81_wp*(1.2_wp - y_cc(j))
# 1267 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        else
# 1267 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(advxb)%sf(i, j, k) = alph
# 1267 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(advxe)%sf(i, j, k) = 1._wp - alph
# 1267 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(contxb)%sf(i, j, k) = alph*rhoh
# 1267 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(contxe)%sf(i, j, k) = (1._wp - alph)*rhol
# 1267 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            pint = pref + rhoh*9.81_wp*(1.2_wp - inth)
# 1267 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(e_idx)%sf(i, j, k) = pint + rhol*9.81_wp*(inth - y_cc(j))
# 1267 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        end if
# 1267 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1267 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    case (301) ! (3D lung geometry in X direction, |sin(*)+sin(*)|)
# 1267 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        h = 0.0_wp
# 1267 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        lam = 1.0_wp
# 1267 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        amp = patch_icpp(patch_id)%a(2)
# 1267 "/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)
# 1267 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        if (x_cc(i) > inth) then
# 1267 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(contxb)%sf(i, j, k) = patch_icpp(1)%alpha_rho(1)
# 1267 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(contxe)%sf(i, j, k) = patch_icpp(1)%alpha_rho(2)
# 1267 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(e_idx)%sf(i, j, k) = patch_icpp(1)%pres
# 1267 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(advxb)%sf(i, j, k) = patch_icpp(1)%alpha(1)
# 1267 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(advxe)%sf(i, j, k) = patch_icpp(1)%alpha(2)
# 1267 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        end if
# 1267 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1267 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    case (302) ! 3D Jet with IGR
# 1267 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ux_th = 10*sqrt(1.4*0.4)
# 1267 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ux_am = 0.0*sqrt(1.4)
# 1267 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        p_th = 2.0_wp
# 1267 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        p_am = 1.0_wp
# 1267 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        rho_th = 1._wp
# 1267 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        rho_am = 1._wp
# 1267 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        y_th = 0.0_wp
# 1267 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        z_th = 0.0_wp
# 1267 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        r_th = 1._wp
# 1267 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        eps_smooth = 1._wp
# 1267 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        eps = 1e-6
# 1267 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1267 "/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)
# 1267 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        rcut = f_cut_on(r - r_th, eps_smooth)
# 1267 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        xcut = f_cut_on(x_cc(i), eps_smooth)
# 1267 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1267 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        q_prim_vf(momxb)%sf(i, j, k) = ux_th*rcut*xcut + ux_am
# 1267 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        q_prim_vf(momxb + 1)%sf(i, j, k) = 0._wp
# 1267 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        q_prim_vf(momxe)%sf(i, j, k) = 0._wp
# 1267 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1267 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        if (num_fluids == 1) then
# 1267 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(contxb)%sf(i, j, k) = (rho_th - rho_am)*rcut*xcut + rho_am
# 1267 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        else
# 1267 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(advxb)%sf(i, j, k) = (1._wp - 2._wp*eps)*rcut*xcut + eps
# 1267 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(contxb)%sf(i, j, k) = rho_th*q_prim_vf(advxb)%sf(i, j, k)
# 1267 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(contxe)%sf(i, j, k) = rho_am*(1._wp - q_prim_vf(advxb)%sf(i, j, k))
# 1267 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        end if
# 1267 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1267 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        q_prim_vf(e_idx)%sf(i, j, k) = p_th*rcut*xcut + p_am
# 1267 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1267 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    case (303) ! 3D Multijet
# 1267 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1267 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        eps_smooth = 3.0_wp
# 1267 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ux_th = 10*sqrt(1.4*0.4)
# 1267 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ux_am = 2.5*sqrt(1.4*0.4)
# 1267 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        p_th = 0.8_wp
# 1267 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        p_am = 0.4_wp
# 1267 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        rho_th = 1._wp
# 1267 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        rho_am = 1._wp
# 1267 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        eps = 1e-6
# 1267 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1267 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        rcut = rcut_arr(j, k)
# 1267 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        xcut = f_cut_on(x_cc(i), eps_smooth)
# 1267 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1267 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        q_prim_vf(momxb)%sf(i, j, k) = ux_th*rcut*xcut + ux_am
# 1267 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        q_prim_vf(momxb + 1)%sf(i, j, k) = 0._wp
# 1267 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        q_prim_vf(momxe)%sf(i, j, k) = 0._wp
# 1267 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1267 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        if (num_fluids == 1) then
# 1267 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(contxb)%sf(i, j, k) = (rho_th - rho_am)*rcut*xcut + rho_am
# 1267 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        else
# 1267 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(advxb)%sf(i, j, k) = (1._wp - 2._wp*eps)*rcut*xcut + eps
# 1267 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(contxb)%sf(i, j, k) = rho_th*q_prim_vf(advxb)%sf(i, j, k)
# 1267 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(contxe)%sf(i, j, k) = rho_am*(1._wp - q_prim_vf(advxb)%sf(i, j, k))
# 1267 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        end if
# 1267 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1267 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        q_prim_vf(e_idx)%sf(i, j, k) = p_th*rcut*xcut + p_am
# 1267 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1267 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    case (370)
# 1267 "/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
# 1267 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1267 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    if (.not. files_loaded) then
# 1267 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        max_files = merge(sys_size, sys_size - 1, num_dims == 1)
# 1267 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        do f = 1, max_files
# 1267 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            write (file_num_str, '(I0)') f
# 1267 "/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"
# 1267 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        end do
# 1267 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1267 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! Common file reading setup
# 1267 "/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)
# 1267 "/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)))
# 1267 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1267 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        select case (num_dims)
# 1267 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        case (1, 2)  ! 1D and 2D cases are similar
# 1267 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            ! Count lines
# 1267 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            line_count = 0
# 1267 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            do
# 1267 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                read (unit2, *, iostat=ios2) dummy_x, dummy_y
# 1267 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                if (ios2 /= 0) exit
# 1267 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                line_count = line_count + 1
# 1267 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            end do
# 1267 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            close (unit2)
# 1267 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1267 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            xrows = line_count
# 1267 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            yrows = 1
# 1267 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            index_x = 0
# 1267 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            if (num_dims == 2) index_x = i
# 1267 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#ifdef MFC_DEBUG
# 1267 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    block
# 1267 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        use iso_fortran_env, only: output_unit
# 1267 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1267 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        print *, 'm_icpp_patches.fpp:1267: ', '@:ALLOCATE(x_coords(xRows), stored_values(xRows, 1, sys_size))'
# 1267 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1267 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        call flush (output_unit)
# 1267 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    end block
# 1267 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#endif
# 1267 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    allocate (x_coords(xrows), stored_values(xrows, 1, sys_size))
# 1267 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1267 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1267 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1267 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#if defined(MFC_OpenACC)
# 1267 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
!$acc enter data create(x_coords, stored_values) 
# 1267 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#elif defined(MFC_OpenMP)
# 1267 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
!$omp target enter data map(always,alloc:x_coords, stored_values) 
# 1267 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#endif
# 1267 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1267 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            ! Read data from all files
# 1267 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            do f = 1, max_files
# 1267 "/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)
# 1267 "/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)))
# 1267 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1267 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                do iter = 1, xrows
# 1267 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    read (unit, *, iostat=ios) x_coords(iter), stored_values(iter, 1, f)
# 1267 "/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)))
# 1267 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                end do
# 1267 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                close (unit)
# 1267 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            end do
# 1267 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1267 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            ! Calculate offsets
# 1267 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            domain_xstart = x_coords(1)
# 1267 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            x_step = x_cc(1) - x_cc(0)
# 1267 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            delta_x = merge(x_cc(0) - domain_xstart + x_step/2.0, &
# 1267 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                            x_cc(index_x) - domain_xstart + x_step/2.0, num_dims == 1)
# 1267 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            global_offset_x = nint(abs(delta_x)/x_step)
# 1267 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1267 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        case (3)  ! 3D case - determine grid structure
# 1267 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            ! Find yRows by counting rows with same x
# 1267 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            read (unit2, *, iostat=ios2) x0, y0, dummy_z
# 1267 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            if (ios2 /= 0) call s_mpi_abort("Error reading first line")
# 1267 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1267 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            yrows = 1
# 1267 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            do
# 1267 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                read (unit2, *, iostat=ios2) dummy_x, dummy_y, dummy_z
# 1267 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                if (ios2 /= 0) exit
# 1267 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                if (dummy_x == x0 .and. dummy_y /= y0) then
# 1267 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    yrows = yrows + 1
# 1267 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                else
# 1267 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    exit
# 1267 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                end if
# 1267 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            end do
# 1267 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            close (unit2)
# 1267 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1267 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            ! Count total rows
# 1267 "/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)
# 1267 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            nrows = 0
# 1267 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            do
# 1267 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                read (unit2, *, iostat=ios2) dummy_x, dummy_y, dummy_z
# 1267 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                if (ios2 /= 0) exit
# 1267 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                nrows = nrows + 1
# 1267 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            end do
# 1267 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            close (unit2)
# 1267 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1267 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            xrows = nrows/yrows
# 1267 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#ifdef MFC_DEBUG
# 1267 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    block
# 1267 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        use iso_fortran_env, only: output_unit
# 1267 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1267 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        print *, 'm_icpp_patches.fpp:1267: ', '@:ALLOCATE(x_coords(nrows), y_coords(nrows), stored_values(xRows, yRows, sys_size))'
# 1267 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1267 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        call flush (output_unit)
# 1267 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    end block
# 1267 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#endif
# 1267 "/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))
# 1267 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1267 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1267 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1267 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1267 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#if defined(MFC_OpenACC)
# 1267 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
!$acc enter data create(x_coords, y_coords, stored_values) 
# 1267 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#elif defined(MFC_OpenMP)
# 1267 "/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) 
# 1267 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#endif
# 1267 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            index_x = i
# 1267 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            index_y = j
# 1267 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1267 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            ! Read all files
# 1267 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            do f = 1, max_files
# 1267 "/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)
# 1267 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                if (ios /= 0) then
# 1267 "/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)))
# 1267 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    cycle
# 1267 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                end if
# 1267 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1267 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                iter = 0
# 1267 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                do iix = 1, xrows
# 1267 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    do iiy = 1, yrows
# 1267 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                        iter = iter + 1
# 1267 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                        if (f == 1) then
# 1267 "/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)
# 1267 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                        else
# 1267 "/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)
# 1267 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                        end if
# 1267 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                        if (ios /= 0) call s_mpi_abort("Error reading data")
# 1267 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    end do
# 1267 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                end do
# 1267 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                close (unit)
# 1267 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            end do
# 1267 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1267 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            ! Calculate offsets
# 1267 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            x_step = x_cc(1) - x_cc(0)
# 1267 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            y_step = y_cc(1) - y_cc(0)
# 1267 "/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
# 1267 "/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
# 1267 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            global_offset_x = nint(abs(delta_x)/x_step)
# 1267 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            global_offset_y = nint(abs(delta_y)/y_step)
# 1267 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        end select
# 1267 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1267 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        files_loaded = .true.
# 1267 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    end if
# 1267 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1267 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    ! Data assignment
# 1267 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    select case (num_dims)
# 1267 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    case (1)
# 1267 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        idx = i + 1 + global_offset_x
# 1267 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        do f = 1, sys_size
# 1267 "/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)
# 1267 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        end do
# 1267 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1267 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    case (2)
# 1267 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        idx = i + 1 + global_offset_x - index_x
# 1267 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        do f = 1, sys_size - 1
# 1267 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            jump = merge(1, 0, f >= momxe)
# 1267 "/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)
# 1267 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        end do
# 1267 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        q_prim_vf(momxe)%sf(i, j, 0) = 0.0_wp
# 1267 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1267 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    case (3)
# 1267 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        idx = i + 1 + global_offset_x - index_x
# 1267 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        idy = j + 1 + global_offset_y - index_y
# 1267 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        do f = 1, sys_size - 1
# 1267 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            jump = merge(1, 0, f >= momxe)
# 1267 "/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)
# 1267 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        end do
# 1267 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        q_prim_vf(momxe)%sf(i, j, k) = 0.0_wp
# 1267 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    end select
# 1267 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1267 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    case (380)
# 1267 "/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
# 1267 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! 3D_TaylorGreenVortex case:
# 1267 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! This analytic patch used geometry 9
# 1267 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        mach = 0.1
# 1267 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        if (patch_id == 1) then
# 1267 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(e_idx)%sf(i, j, 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)
# 1267 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(momxb + 0)%sf(i, j, k) = mach*376.636429464809*sin(x_cc(i)/1)*cos(y_cc(j)/1)*sin(z_cc(k)/1)
# 1267 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(momxb + 1)%sf(i, j, k) = -mach*376.636429464809*cos(x_cc(i)/1)*sin(y_cc(j)/1)*sin(z_cc(k)/1)
# 1267 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        end if
# 1267 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1267 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    case default
# 1267 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        call s_int_to_str(patch_id, istr)
# 1267 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        call s_mpi_abort("Invalid hcid specified for patch "//trim(istr))
# 1267 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    end select
# 1267 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
                        end if
 
                    end if
                end do
            end do
        end do
    if (allocated(stored_values)) then
# 1274 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#ifdef MFC_DEBUG
# 1274 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    block
# 1274 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        use iso_fortran_env, only: output_unit
# 1274 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1274 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        print *, 'm_icpp_patches.fpp:1274: ', '@:DEALLOCATE(stored_values)'
# 1274 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1274 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        call flush (output_unit)
# 1274 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    end block
# 1274 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#endif
# 1274 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1274 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#if defined(MFC_OpenACC)
# 1274 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
!$acc exit data delete(stored_values) 
# 1274 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#elif defined(MFC_OpenMP)
# 1274 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
!$omp target exit data map(release:stored_values) 
# 1274 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#endif
# 1274 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    deallocate (stored_values)
# 1274 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#ifdef MFC_DEBUG
# 1274 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    block
# 1274 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        use iso_fortran_env, only: output_unit
# 1274 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1274 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        print *, 'm_icpp_patches.fpp:1274: ', '@:DEALLOCATE(x_coords)'
# 1274 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1274 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        call flush (output_unit)
# 1274 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    end block
# 1274 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#endif
# 1274 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1274 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#if defined(MFC_OpenACC)
# 1274 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
!$acc exit data delete(x_coords) 
# 1274 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#elif defined(MFC_OpenMP)
# 1274 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
!$omp target exit data map(release:x_coords) 
# 1274 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#endif
# 1274 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    deallocate (x_coords)
# 1274 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    end if
# 1274 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1274 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    if (allocated(y_coords)) then
# 1274 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#ifdef MFC_DEBUG
# 1274 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    block
# 1274 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        use iso_fortran_env, only: output_unit
# 1274 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1274 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        print *, 'm_icpp_patches.fpp:1274: ', '@:DEALLOCATE(y_coords)'
# 1274 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1274 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        call flush (output_unit)
# 1274 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    end block
# 1274 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#endif
# 1274 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1274 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#if defined(MFC_OpenACC)
# 1274 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
!$acc exit data delete(y_coords) 
# 1274 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#elif defined(MFC_OpenMP)
# 1274 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
!$omp target exit data map(release:y_coords) 
# 1274 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#endif
# 1274 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    deallocate (y_coords)
# 1274 "/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.
        !! @param patch_id is the patch identifier
        !! @param patch_id_fp Array to track patch ids
        !! @param q_prim_vf Array of primitive variables
    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
# 1300 "/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
# 1300 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    real(wp) :: x_len, x_step, y_len, y_step
# 1300 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    real(wp) :: dummy_x, dummy_y, dummy_z, x0, y0
# 1300 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    integer :: global_offset_x, global_offset_y           ! MPI subdomain offset
# 1300 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    real(wp) :: delta_x, delta_y
# 1300 "/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
# 1300 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    character(len=200) :: errmsg
# 1300 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    real(wp), allocatable :: stored_values(:, :, :)
# 1300 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    real(wp), allocatable :: x_coords(:), y_coords(:)
# 1300 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    logical :: files_loaded = .false.
# 1300 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    real(wp) :: domain_xstart, domain_xend, domain_ystart, domain_yend
# 1300 "/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/
# 1300 "/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
# 1300 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    character(len=20) :: zeros_part       ! For the trailing zeros part
# 1300 "/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
# 1301 "/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
# 1301 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    real(wp) :: eps
# 1301 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1301 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    ! IGR Jets
# 1301 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    ! Arrays to stor position and radii of jets from input file
# 1301 "/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
# 1301 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    ! Variables to describe initial condition of jet
# 1301 "/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
# 1301 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    real(wp) :: rcut, xcut ! Intermediate variables for creating smooth initial condition
# 1301 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1301 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    real(wp), dimension(0:n, 0:p) :: rcut_arr
# 1301 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    integer :: l, q, s ! Iterators for reading input files
# 1301 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    integer :: start, end ! Ints to keep track of position in file
# 1301 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    character(len=1000) :: line ! String to store line in ile
# 1301 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    character(len=25) :: value ! String to store value in line
# 1301 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    integer :: NJet ! Number of jets
# 1301 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1301 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    eps = 1e-9_wp
# 1301 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1301 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    if (patch_icpp(patch_id)%hcid == 303) then
# 1301 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        eps_smooth = 3._wp
# 1301 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        open (unit=10, file="njet.txt", status="old", action="read")
# 1301 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        read (10, *) njet
# 1301 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        close (10)
# 1301 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1301 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        allocate (y_th_arr(0:njet - 1))
# 1301 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        allocate (z_th_arr(0:njet - 1))
# 1301 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        allocate (r_th_arr(0:njet - 1))
# 1301 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1301 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        open (unit=10, file="jets.csv", status="old", action="read")
# 1301 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        do q = 0, njet - 1
# 1301 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            read (10, '(A)') line  ! Read a full line as a string
# 1301 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            start = 1
# 1301 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1301 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            do l = 0, 2
# 1301 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                end = index(line(start:), ',')  ! Find the next comma
# 1301 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                if (end == 0) then
# 1301 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    value = trim(adjustl(line(start:)))  ! Last value in the line
# 1301 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                else
# 1301 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    value = trim(adjustl(line(start:start + end - 2)))  ! Extract substring
# 1301 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    start = start + end  ! Move to next value
# 1301 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                end if
# 1301 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                if (l == 0) then
# 1301 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    read (value, *) y_th_arr(q)  ! Convert string to numeric value
# 1301 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                elseif (l == 1) then
# 1301 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    read (value, *) z_th_arr(q)
# 1301 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                else
# 1301 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    read (value, *) r_th_arr(q)
# 1301 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                end if
# 1301 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            end do
# 1301 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        end do
# 1301 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        close (10)
# 1301 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1301 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        do q = 0, p
# 1301 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            do l = 0, n
# 1301 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                rcut = 0._wp
# 1301 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                do s = 0, njet - 1
# 1301 "/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)
# 1301 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    rcut = rcut + f_cut_on(r - r_th_arr(s), eps_smooth)
# 1301 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                end do
# 1301 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                rcut_arr(l, q) = rcut
# 1301 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            end do
# 1301 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        end do
# 1301 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    end if
# 1301 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
 
        ! 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
 
        ! Since the cuboidal patch does not allow for its boundaries to get
        ! smoothed out, the pseudo volume fraction is set to 1 to make sure
        ! that only the current patch contributes to the fluid state in the
        ! cells that this patch covers.
        eta = 1._wp
 
        ! Checking whether the cuboid covers a particular cell in the domain
        ! and verifying whether the current patch has permission to write to
        ! to that cell. If both queries check out, the primitive variables
        ! of the current patch are assigned to this cell.
        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
 
# 1355 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    select case (patch_icpp(patch_id)%hcid)
# 1355 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    case (300) ! Rayleigh-Taylor instability
# 1355 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        rhoh = 3._wp
# 1355 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        rhol = 1._wp
# 1355 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        pref = 1.e5_wp
# 1355 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        pint = pref
# 1355 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        h = 0.7_wp
# 1355 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        lam = 0.2_wp
# 1355 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        wl = 2._wp*pi/lam
# 1355 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        amp = 0.025_wp/wl
# 1355 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1355 "/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
# 1355 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1355 "/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))
# 1355 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1355 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        if (alph < eps) alph = eps
# 1355 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        if (alph > 1._wp - eps) alph = 1._wp - eps
# 1355 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1355 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        if (y_cc(j) > inth) then
# 1355 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(advxb)%sf(i, j, k) = alph
# 1355 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(advxe)%sf(i, j, k) = 1._wp - alph
# 1355 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(contxb)%sf(i, j, k) = alph*rhoh
# 1355 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(contxe)%sf(i, j, k) = (1._wp - alph)*rhol
# 1355 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(e_idx)%sf(i, j, k) = pref + rhoh*9.81_wp*(1.2_wp - y_cc(j))
# 1355 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        else
# 1355 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(advxb)%sf(i, j, k) = alph
# 1355 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(advxe)%sf(i, j, k) = 1._wp - alph
# 1355 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(contxb)%sf(i, j, k) = alph*rhoh
# 1355 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(contxe)%sf(i, j, k) = (1._wp - alph)*rhol
# 1355 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            pint = pref + rhoh*9.81_wp*(1.2_wp - inth)
# 1355 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(e_idx)%sf(i, j, k) = pint + rhol*9.81_wp*(inth - y_cc(j))
# 1355 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        end if
# 1355 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1355 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    case (301) ! (3D lung geometry in X direction, |sin(*)+sin(*)|)
# 1355 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        h = 0.0_wp
# 1355 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        lam = 1.0_wp
# 1355 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        amp = patch_icpp(patch_id)%a(2)
# 1355 "/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)
# 1355 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        if (x_cc(i) > inth) then
# 1355 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(contxb)%sf(i, j, k) = patch_icpp(1)%alpha_rho(1)
# 1355 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(contxe)%sf(i, j, k) = patch_icpp(1)%alpha_rho(2)
# 1355 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(e_idx)%sf(i, j, k) = patch_icpp(1)%pres
# 1355 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(advxb)%sf(i, j, k) = patch_icpp(1)%alpha(1)
# 1355 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(advxe)%sf(i, j, k) = patch_icpp(1)%alpha(2)
# 1355 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        end if
# 1355 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1355 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    case (302) ! 3D Jet with IGR
# 1355 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ux_th = 10*sqrt(1.4*0.4)
# 1355 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ux_am = 0.0*sqrt(1.4)
# 1355 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        p_th = 2.0_wp
# 1355 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        p_am = 1.0_wp
# 1355 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        rho_th = 1._wp
# 1355 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        rho_am = 1._wp
# 1355 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        y_th = 0.0_wp
# 1355 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        z_th = 0.0_wp
# 1355 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        r_th = 1._wp
# 1355 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        eps_smooth = 1._wp
# 1355 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        eps = 1e-6
# 1355 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1355 "/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)
# 1355 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        rcut = f_cut_on(r - r_th, eps_smooth)
# 1355 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        xcut = f_cut_on(x_cc(i), eps_smooth)
# 1355 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1355 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        q_prim_vf(momxb)%sf(i, j, k) = ux_th*rcut*xcut + ux_am
# 1355 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        q_prim_vf(momxb + 1)%sf(i, j, k) = 0._wp
# 1355 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        q_prim_vf(momxe)%sf(i, j, k) = 0._wp
# 1355 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1355 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        if (num_fluids == 1) then
# 1355 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(contxb)%sf(i, j, k) = (rho_th - rho_am)*rcut*xcut + rho_am
# 1355 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        else
# 1355 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(advxb)%sf(i, j, k) = (1._wp - 2._wp*eps)*rcut*xcut + eps
# 1355 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(contxb)%sf(i, j, k) = rho_th*q_prim_vf(advxb)%sf(i, j, k)
# 1355 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(contxe)%sf(i, j, k) = rho_am*(1._wp - q_prim_vf(advxb)%sf(i, j, k))
# 1355 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        end if
# 1355 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1355 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        q_prim_vf(e_idx)%sf(i, j, k) = p_th*rcut*xcut + p_am
# 1355 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1355 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    case (303) ! 3D Multijet
# 1355 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1355 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        eps_smooth = 3.0_wp
# 1355 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ux_th = 10*sqrt(1.4*0.4)
# 1355 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ux_am = 2.5*sqrt(1.4*0.4)
# 1355 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        p_th = 0.8_wp
# 1355 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        p_am = 0.4_wp
# 1355 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        rho_th = 1._wp
# 1355 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        rho_am = 1._wp
# 1355 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        eps = 1e-6
# 1355 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1355 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        rcut = rcut_arr(j, k)
# 1355 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        xcut = f_cut_on(x_cc(i), eps_smooth)
# 1355 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1355 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        q_prim_vf(momxb)%sf(i, j, k) = ux_th*rcut*xcut + ux_am
# 1355 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        q_prim_vf(momxb + 1)%sf(i, j, k) = 0._wp
# 1355 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        q_prim_vf(momxe)%sf(i, j, k) = 0._wp
# 1355 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1355 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        if (num_fluids == 1) then
# 1355 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(contxb)%sf(i, j, k) = (rho_th - rho_am)*rcut*xcut + rho_am
# 1355 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        else
# 1355 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(advxb)%sf(i, j, k) = (1._wp - 2._wp*eps)*rcut*xcut + eps
# 1355 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(contxb)%sf(i, j, k) = rho_th*q_prim_vf(advxb)%sf(i, j, k)
# 1355 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(contxe)%sf(i, j, k) = rho_am*(1._wp - q_prim_vf(advxb)%sf(i, j, k))
# 1355 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        end if
# 1355 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1355 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        q_prim_vf(e_idx)%sf(i, j, k) = p_th*rcut*xcut + p_am
# 1355 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1355 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    case (370)
# 1355 "/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
# 1355 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1355 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    if (.not. files_loaded) then
# 1355 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        max_files = merge(sys_size, sys_size - 1, num_dims == 1)
# 1355 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        do f = 1, max_files
# 1355 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            write (file_num_str, '(I0)') f
# 1355 "/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"
# 1355 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        end do
# 1355 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1355 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! Common file reading setup
# 1355 "/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)
# 1355 "/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)))
# 1355 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1355 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        select case (num_dims)
# 1355 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        case (1, 2)  ! 1D and 2D cases are similar
# 1355 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            ! Count lines
# 1355 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            line_count = 0
# 1355 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            do
# 1355 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                read (unit2, *, iostat=ios2) dummy_x, dummy_y
# 1355 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                if (ios2 /= 0) exit
# 1355 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                line_count = line_count + 1
# 1355 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            end do
# 1355 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            close (unit2)
# 1355 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1355 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            xrows = line_count
# 1355 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            yrows = 1
# 1355 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            index_x = 0
# 1355 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            if (num_dims == 2) index_x = i
# 1355 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#ifdef MFC_DEBUG
# 1355 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    block
# 1355 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        use iso_fortran_env, only: output_unit
# 1355 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1355 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        print *, 'm_icpp_patches.fpp:1355: ', '@:ALLOCATE(x_coords(xRows), stored_values(xRows, 1, sys_size))'
# 1355 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1355 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        call flush (output_unit)
# 1355 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    end block
# 1355 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#endif
# 1355 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    allocate (x_coords(xrows), stored_values(xrows, 1, sys_size))
# 1355 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1355 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1355 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1355 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#if defined(MFC_OpenACC)
# 1355 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
!$acc enter data create(x_coords, stored_values) 
# 1355 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#elif defined(MFC_OpenMP)
# 1355 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
!$omp target enter data map(always,alloc:x_coords, stored_values) 
# 1355 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#endif
# 1355 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1355 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            ! Read data from all files
# 1355 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            do f = 1, max_files
# 1355 "/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)
# 1355 "/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)))
# 1355 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1355 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                do iter = 1, xrows
# 1355 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    read (unit, *, iostat=ios) x_coords(iter), stored_values(iter, 1, f)
# 1355 "/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)))
# 1355 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                end do
# 1355 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                close (unit)
# 1355 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            end do
# 1355 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1355 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            ! Calculate offsets
# 1355 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            domain_xstart = x_coords(1)
# 1355 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            x_step = x_cc(1) - x_cc(0)
# 1355 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            delta_x = merge(x_cc(0) - domain_xstart + x_step/2.0, &
# 1355 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                            x_cc(index_x) - domain_xstart + x_step/2.0, num_dims == 1)
# 1355 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            global_offset_x = nint(abs(delta_x)/x_step)
# 1355 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1355 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        case (3)  ! 3D case - determine grid structure
# 1355 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            ! Find yRows by counting rows with same x
# 1355 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            read (unit2, *, iostat=ios2) x0, y0, dummy_z
# 1355 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            if (ios2 /= 0) call s_mpi_abort("Error reading first line")
# 1355 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1355 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            yrows = 1
# 1355 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            do
# 1355 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                read (unit2, *, iostat=ios2) dummy_x, dummy_y, dummy_z
# 1355 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                if (ios2 /= 0) exit
# 1355 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                if (dummy_x == x0 .and. dummy_y /= y0) then
# 1355 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    yrows = yrows + 1
# 1355 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                else
# 1355 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    exit
# 1355 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                end if
# 1355 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            end do
# 1355 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            close (unit2)
# 1355 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1355 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            ! Count total rows
# 1355 "/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)
# 1355 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            nrows = 0
# 1355 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            do
# 1355 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                read (unit2, *, iostat=ios2) dummy_x, dummy_y, dummy_z
# 1355 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                if (ios2 /= 0) exit
# 1355 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                nrows = nrows + 1
# 1355 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            end do
# 1355 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            close (unit2)
# 1355 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1355 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            xrows = nrows/yrows
# 1355 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#ifdef MFC_DEBUG
# 1355 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    block
# 1355 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        use iso_fortran_env, only: output_unit
# 1355 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1355 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        print *, 'm_icpp_patches.fpp:1355: ', '@:ALLOCATE(x_coords(nrows), y_coords(nrows), stored_values(xRows, yRows, sys_size))'
# 1355 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1355 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        call flush (output_unit)
# 1355 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    end block
# 1355 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#endif
# 1355 "/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))
# 1355 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1355 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1355 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1355 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1355 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#if defined(MFC_OpenACC)
# 1355 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
!$acc enter data create(x_coords, y_coords, stored_values) 
# 1355 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#elif defined(MFC_OpenMP)
# 1355 "/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) 
# 1355 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#endif
# 1355 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            index_x = i
# 1355 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            index_y = j
# 1355 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1355 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            ! Read all files
# 1355 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            do f = 1, max_files
# 1355 "/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)
# 1355 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                if (ios /= 0) then
# 1355 "/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)))
# 1355 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    cycle
# 1355 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                end if
# 1355 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1355 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                iter = 0
# 1355 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                do iix = 1, xrows
# 1355 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    do iiy = 1, yrows
# 1355 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                        iter = iter + 1
# 1355 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                        if (f == 1) then
# 1355 "/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)
# 1355 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                        else
# 1355 "/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)
# 1355 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                        end if
# 1355 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                        if (ios /= 0) call s_mpi_abort("Error reading data")
# 1355 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    end do
# 1355 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                end do
# 1355 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                close (unit)
# 1355 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            end do
# 1355 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1355 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            ! Calculate offsets
# 1355 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            x_step = x_cc(1) - x_cc(0)
# 1355 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            y_step = y_cc(1) - y_cc(0)
# 1355 "/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
# 1355 "/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
# 1355 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            global_offset_x = nint(abs(delta_x)/x_step)
# 1355 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            global_offset_y = nint(abs(delta_y)/y_step)
# 1355 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        end select
# 1355 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1355 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        files_loaded = .true.
# 1355 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    end if
# 1355 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1355 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    ! Data assignment
# 1355 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    select case (num_dims)
# 1355 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    case (1)
# 1355 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        idx = i + 1 + global_offset_x
# 1355 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        do f = 1, sys_size
# 1355 "/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)
# 1355 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        end do
# 1355 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1355 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    case (2)
# 1355 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        idx = i + 1 + global_offset_x - index_x
# 1355 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        do f = 1, sys_size - 1
# 1355 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            jump = merge(1, 0, f >= momxe)
# 1355 "/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)
# 1355 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        end do
# 1355 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        q_prim_vf(momxe)%sf(i, j, 0) = 0.0_wp
# 1355 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1355 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    case (3)
# 1355 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        idx = i + 1 + global_offset_x - index_x
# 1355 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        idy = j + 1 + global_offset_y - index_y
# 1355 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        do f = 1, sys_size - 1
# 1355 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            jump = merge(1, 0, f >= momxe)
# 1355 "/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)
# 1355 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        end do
# 1355 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        q_prim_vf(momxe)%sf(i, j, k) = 0.0_wp
# 1355 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    end select
# 1355 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1355 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    case (380)
# 1355 "/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
# 1355 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! 3D_TaylorGreenVortex case:
# 1355 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! This analytic patch used geometry 9
# 1355 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        mach = 0.1
# 1355 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        if (patch_id == 1) then
# 1355 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(e_idx)%sf(i, j, 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)
# 1355 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(momxb + 0)%sf(i, j, k) = mach*376.636429464809*sin(x_cc(i)/1)*cos(y_cc(j)/1)*sin(z_cc(k)/1)
# 1355 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(momxb + 1)%sf(i, j, k) = -mach*376.636429464809*cos(x_cc(i)/1)*sin(y_cc(j)/1)*sin(z_cc(k)/1)
# 1355 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        end if
# 1355 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1355 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    case default
# 1355 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        call s_int_to_str(patch_id, istr)
# 1355 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        call s_mpi_abort("Invalid hcid specified for patch "//trim(istr))
# 1355 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    end select
# 1355 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
                            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
# 1366 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#ifdef MFC_DEBUG
# 1366 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    block
# 1366 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        use iso_fortran_env, only: output_unit
# 1366 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1366 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        print *, 'm_icpp_patches.fpp:1366: ', '@:DEALLOCATE(stored_values)'
# 1366 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1366 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        call flush (output_unit)
# 1366 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    end block
# 1366 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#endif
# 1366 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1366 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#if defined(MFC_OpenACC)
# 1366 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
!$acc exit data delete(stored_values) 
# 1366 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#elif defined(MFC_OpenMP)
# 1366 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
!$omp target exit data map(release:stored_values) 
# 1366 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#endif
# 1366 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    deallocate (stored_values)
# 1366 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#ifdef MFC_DEBUG
# 1366 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    block
# 1366 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        use iso_fortran_env, only: output_unit
# 1366 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1366 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        print *, 'm_icpp_patches.fpp:1366: ', '@:DEALLOCATE(x_coords)'
# 1366 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1366 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        call flush (output_unit)
# 1366 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    end block
# 1366 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#endif
# 1366 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1366 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#if defined(MFC_OpenACC)
# 1366 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
!$acc exit data delete(x_coords) 
# 1366 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#elif defined(MFC_OpenMP)
# 1366 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
!$omp target exit data map(release:x_coords) 
# 1366 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#endif
# 1366 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    deallocate (x_coords)
# 1366 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    end if
# 1366 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1366 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    if (allocated(y_coords)) then
# 1366 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#ifdef MFC_DEBUG
# 1366 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    block
# 1366 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        use iso_fortran_env, only: output_unit
# 1366 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1366 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        print *, 'm_icpp_patches.fpp:1366: ', '@:DEALLOCATE(y_coords)'
# 1366 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1366 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        call flush (output_unit)
# 1366 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    end block
# 1366 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#endif
# 1366 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1366 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#if defined(MFC_OpenACC)
# 1366 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
!$acc exit data delete(y_coords) 
# 1366 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#elif defined(MFC_OpenMP)
# 1366 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
!$omp target exit data map(release:y_coords) 
# 1366 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#endif
# 1366 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    deallocate (y_coords)
# 1366 "/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.
        !! @param patch_id is the patch identifier
        !! @param patch_id_fp Array to track patch ids
        !! @param q_prim_vf Array of primitive variables
    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
# 1393 "/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
# 1393 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    real(wp) :: x_len, x_step, y_len, y_step
# 1393 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    real(wp) :: dummy_x, dummy_y, dummy_z, x0, y0
# 1393 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    integer :: global_offset_x, global_offset_y           ! MPI subdomain offset
# 1393 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    real(wp) :: delta_x, delta_y
# 1393 "/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
# 1393 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    character(len=200) :: errmsg
# 1393 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    real(wp), allocatable :: stored_values(:, :, :)
# 1393 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    real(wp), allocatable :: x_coords(:), y_coords(:)
# 1393 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    logical :: files_loaded = .false.
# 1393 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    real(wp) :: domain_xstart, domain_xend, domain_ystart, domain_yend
# 1393 "/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/
# 1393 "/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
# 1393 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    character(len=20) :: zeros_part       ! For the trailing zeros part
# 1393 "/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
# 1394 "/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
# 1394 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    real(wp) :: eps
# 1394 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1394 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    ! IGR Jets
# 1394 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    ! Arrays to stor position and radii of jets from input file
# 1394 "/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
# 1394 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    ! Variables to describe initial condition of jet
# 1394 "/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
# 1394 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    real(wp) :: rcut, xcut ! Intermediate variables for creating smooth initial condition
# 1394 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1394 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    real(wp), dimension(0:n, 0:p) :: rcut_arr
# 1394 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    integer :: l, q, s ! Iterators for reading input files
# 1394 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    integer :: start, end ! Ints to keep track of position in file
# 1394 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    character(len=1000) :: line ! String to store line in ile
# 1394 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    character(len=25) :: value ! String to store value in line
# 1394 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    integer :: NJet ! Number of jets
# 1394 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1394 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    eps = 1e-9_wp
# 1394 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1394 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    if (patch_icpp(patch_id)%hcid == 303) then
# 1394 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        eps_smooth = 3._wp
# 1394 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        open (unit=10, file="njet.txt", status="old", action="read")
# 1394 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        read (10, *) njet
# 1394 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        close (10)
# 1394 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1394 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        allocate (y_th_arr(0:njet - 1))
# 1394 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        allocate (z_th_arr(0:njet - 1))
# 1394 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        allocate (r_th_arr(0:njet - 1))
# 1394 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1394 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        open (unit=10, file="jets.csv", status="old", action="read")
# 1394 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        do q = 0, njet - 1
# 1394 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            read (10, '(A)') line  ! Read a full line as a string
# 1394 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            start = 1
# 1394 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1394 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            do l = 0, 2
# 1394 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                end = index(line(start:), ',')  ! Find the next comma
# 1394 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                if (end == 0) then
# 1394 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    value = trim(adjustl(line(start:)))  ! Last value in the line
# 1394 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                else
# 1394 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    value = trim(adjustl(line(start:start + end - 2)))  ! Extract substring
# 1394 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    start = start + end  ! Move to next value
# 1394 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                end if
# 1394 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                if (l == 0) then
# 1394 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    read (value, *) y_th_arr(q)  ! Convert string to numeric value
# 1394 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                elseif (l == 1) then
# 1394 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    read (value, *) z_th_arr(q)
# 1394 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                else
# 1394 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    read (value, *) r_th_arr(q)
# 1394 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                end if
# 1394 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            end do
# 1394 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        end do
# 1394 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        close (10)
# 1394 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1394 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        do q = 0, p
# 1394 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            do l = 0, n
# 1394 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                rcut = 0._wp
# 1394 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                do s = 0, njet - 1
# 1394 "/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)
# 1394 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    rcut = rcut + f_cut_on(r - r_th_arr(s), eps_smooth)
# 1394 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                end do
# 1394 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                rcut_arr(l, q) = rcut
# 1394 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            end do
# 1394 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        end do
# 1394 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    end if
# 1394 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
 
        ! 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
 
        ! Initializing the pseudo volume fraction value to 1. The value will
        ! be modified as the patch is laid out on the grid, but only in the
        ! case that smearing of the cylindrical patch's boundary is enabled.
        eta = 1._wp
 
        ! Checking whether the cylinder covers a particular cell in the
        ! domain and verifying whether the current patch has the permission
        ! to write to that cell. If both queries check out, the primitive
        ! variables of the current patch are assigned to this cell.
        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
                        elseif (.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
 
# 1481 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    select case (patch_icpp(patch_id)%hcid)
# 1481 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    case (300) ! Rayleigh-Taylor instability
# 1481 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        rhoh = 3._wp
# 1481 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        rhol = 1._wp
# 1481 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        pref = 1.e5_wp
# 1481 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        pint = pref
# 1481 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        h = 0.7_wp
# 1481 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        lam = 0.2_wp
# 1481 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        wl = 2._wp*pi/lam
# 1481 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        amp = 0.025_wp/wl
# 1481 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1481 "/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
# 1481 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1481 "/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))
# 1481 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1481 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        if (alph < eps) alph = eps
# 1481 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        if (alph > 1._wp - eps) alph = 1._wp - eps
# 1481 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1481 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        if (y_cc(j) > inth) then
# 1481 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(advxb)%sf(i, j, k) = alph
# 1481 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(advxe)%sf(i, j, k) = 1._wp - alph
# 1481 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(contxb)%sf(i, j, k) = alph*rhoh
# 1481 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(contxe)%sf(i, j, k) = (1._wp - alph)*rhol
# 1481 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(e_idx)%sf(i, j, k) = pref + rhoh*9.81_wp*(1.2_wp - y_cc(j))
# 1481 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        else
# 1481 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(advxb)%sf(i, j, k) = alph
# 1481 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(advxe)%sf(i, j, k) = 1._wp - alph
# 1481 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(contxb)%sf(i, j, k) = alph*rhoh
# 1481 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(contxe)%sf(i, j, k) = (1._wp - alph)*rhol
# 1481 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            pint = pref + rhoh*9.81_wp*(1.2_wp - inth)
# 1481 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(e_idx)%sf(i, j, k) = pint + rhol*9.81_wp*(inth - y_cc(j))
# 1481 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        end if
# 1481 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1481 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    case (301) ! (3D lung geometry in X direction, |sin(*)+sin(*)|)
# 1481 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        h = 0.0_wp
# 1481 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        lam = 1.0_wp
# 1481 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        amp = patch_icpp(patch_id)%a(2)
# 1481 "/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)
# 1481 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        if (x_cc(i) > inth) then
# 1481 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(contxb)%sf(i, j, k) = patch_icpp(1)%alpha_rho(1)
# 1481 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(contxe)%sf(i, j, k) = patch_icpp(1)%alpha_rho(2)
# 1481 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(e_idx)%sf(i, j, k) = patch_icpp(1)%pres
# 1481 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(advxb)%sf(i, j, k) = patch_icpp(1)%alpha(1)
# 1481 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(advxe)%sf(i, j, k) = patch_icpp(1)%alpha(2)
# 1481 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        end if
# 1481 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1481 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    case (302) ! 3D Jet with IGR
# 1481 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ux_th = 10*sqrt(1.4*0.4)
# 1481 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ux_am = 0.0*sqrt(1.4)
# 1481 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        p_th = 2.0_wp
# 1481 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        p_am = 1.0_wp
# 1481 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        rho_th = 1._wp
# 1481 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        rho_am = 1._wp
# 1481 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        y_th = 0.0_wp
# 1481 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        z_th = 0.0_wp
# 1481 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        r_th = 1._wp
# 1481 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        eps_smooth = 1._wp
# 1481 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        eps = 1e-6
# 1481 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1481 "/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)
# 1481 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        rcut = f_cut_on(r - r_th, eps_smooth)
# 1481 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        xcut = f_cut_on(x_cc(i), eps_smooth)
# 1481 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1481 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        q_prim_vf(momxb)%sf(i, j, k) = ux_th*rcut*xcut + ux_am
# 1481 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        q_prim_vf(momxb + 1)%sf(i, j, k) = 0._wp
# 1481 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        q_prim_vf(momxe)%sf(i, j, k) = 0._wp
# 1481 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1481 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        if (num_fluids == 1) then
# 1481 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(contxb)%sf(i, j, k) = (rho_th - rho_am)*rcut*xcut + rho_am
# 1481 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        else
# 1481 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(advxb)%sf(i, j, k) = (1._wp - 2._wp*eps)*rcut*xcut + eps
# 1481 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(contxb)%sf(i, j, k) = rho_th*q_prim_vf(advxb)%sf(i, j, k)
# 1481 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(contxe)%sf(i, j, k) = rho_am*(1._wp - q_prim_vf(advxb)%sf(i, j, k))
# 1481 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        end if
# 1481 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1481 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        q_prim_vf(e_idx)%sf(i, j, k) = p_th*rcut*xcut + p_am
# 1481 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1481 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    case (303) ! 3D Multijet
# 1481 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1481 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        eps_smooth = 3.0_wp
# 1481 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ux_th = 10*sqrt(1.4*0.4)
# 1481 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ux_am = 2.5*sqrt(1.4*0.4)
# 1481 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        p_th = 0.8_wp
# 1481 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        p_am = 0.4_wp
# 1481 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        rho_th = 1._wp
# 1481 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        rho_am = 1._wp
# 1481 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        eps = 1e-6
# 1481 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1481 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        rcut = rcut_arr(j, k)
# 1481 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        xcut = f_cut_on(x_cc(i), eps_smooth)
# 1481 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1481 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        q_prim_vf(momxb)%sf(i, j, k) = ux_th*rcut*xcut + ux_am
# 1481 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        q_prim_vf(momxb + 1)%sf(i, j, k) = 0._wp
# 1481 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        q_prim_vf(momxe)%sf(i, j, k) = 0._wp
# 1481 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1481 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        if (num_fluids == 1) then
# 1481 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(contxb)%sf(i, j, k) = (rho_th - rho_am)*rcut*xcut + rho_am
# 1481 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        else
# 1481 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(advxb)%sf(i, j, k) = (1._wp - 2._wp*eps)*rcut*xcut + eps
# 1481 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(contxb)%sf(i, j, k) = rho_th*q_prim_vf(advxb)%sf(i, j, k)
# 1481 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(contxe)%sf(i, j, k) = rho_am*(1._wp - q_prim_vf(advxb)%sf(i, j, k))
# 1481 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        end if
# 1481 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1481 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        q_prim_vf(e_idx)%sf(i, j, k) = p_th*rcut*xcut + p_am
# 1481 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1481 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    case (370)
# 1481 "/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
# 1481 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1481 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    if (.not. files_loaded) then
# 1481 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        max_files = merge(sys_size, sys_size - 1, num_dims == 1)
# 1481 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        do f = 1, max_files
# 1481 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            write (file_num_str, '(I0)') f
# 1481 "/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"
# 1481 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        end do
# 1481 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1481 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! Common file reading setup
# 1481 "/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)
# 1481 "/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)))
# 1481 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1481 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        select case (num_dims)
# 1481 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        case (1, 2)  ! 1D and 2D cases are similar
# 1481 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            ! Count lines
# 1481 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            line_count = 0
# 1481 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            do
# 1481 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                read (unit2, *, iostat=ios2) dummy_x, dummy_y
# 1481 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                if (ios2 /= 0) exit
# 1481 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                line_count = line_count + 1
# 1481 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            end do
# 1481 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            close (unit2)
# 1481 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1481 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            xrows = line_count
# 1481 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            yrows = 1
# 1481 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            index_x = 0
# 1481 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            if (num_dims == 2) index_x = i
# 1481 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#ifdef MFC_DEBUG
# 1481 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    block
# 1481 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        use iso_fortran_env, only: output_unit
# 1481 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1481 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        print *, 'm_icpp_patches.fpp:1481: ', '@:ALLOCATE(x_coords(xRows), stored_values(xRows, 1, sys_size))'
# 1481 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1481 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        call flush (output_unit)
# 1481 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    end block
# 1481 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#endif
# 1481 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    allocate (x_coords(xrows), stored_values(xrows, 1, sys_size))
# 1481 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1481 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1481 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1481 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#if defined(MFC_OpenACC)
# 1481 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
!$acc enter data create(x_coords, stored_values) 
# 1481 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#elif defined(MFC_OpenMP)
# 1481 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
!$omp target enter data map(always,alloc:x_coords, stored_values) 
# 1481 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#endif
# 1481 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1481 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            ! Read data from all files
# 1481 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            do f = 1, max_files
# 1481 "/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)
# 1481 "/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)))
# 1481 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1481 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                do iter = 1, xrows
# 1481 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    read (unit, *, iostat=ios) x_coords(iter), stored_values(iter, 1, f)
# 1481 "/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)))
# 1481 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                end do
# 1481 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                close (unit)
# 1481 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            end do
# 1481 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1481 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            ! Calculate offsets
# 1481 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            domain_xstart = x_coords(1)
# 1481 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            x_step = x_cc(1) - x_cc(0)
# 1481 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            delta_x = merge(x_cc(0) - domain_xstart + x_step/2.0, &
# 1481 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                            x_cc(index_x) - domain_xstart + x_step/2.0, num_dims == 1)
# 1481 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            global_offset_x = nint(abs(delta_x)/x_step)
# 1481 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1481 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        case (3)  ! 3D case - determine grid structure
# 1481 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            ! Find yRows by counting rows with same x
# 1481 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            read (unit2, *, iostat=ios2) x0, y0, dummy_z
# 1481 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            if (ios2 /= 0) call s_mpi_abort("Error reading first line")
# 1481 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1481 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            yrows = 1
# 1481 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            do
# 1481 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                read (unit2, *, iostat=ios2) dummy_x, dummy_y, dummy_z
# 1481 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                if (ios2 /= 0) exit
# 1481 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                if (dummy_x == x0 .and. dummy_y /= y0) then
# 1481 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    yrows = yrows + 1
# 1481 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                else
# 1481 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    exit
# 1481 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                end if
# 1481 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            end do
# 1481 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            close (unit2)
# 1481 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1481 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            ! Count total rows
# 1481 "/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)
# 1481 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            nrows = 0
# 1481 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            do
# 1481 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                read (unit2, *, iostat=ios2) dummy_x, dummy_y, dummy_z
# 1481 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                if (ios2 /= 0) exit
# 1481 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                nrows = nrows + 1
# 1481 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            end do
# 1481 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            close (unit2)
# 1481 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1481 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            xrows = nrows/yrows
# 1481 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#ifdef MFC_DEBUG
# 1481 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    block
# 1481 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        use iso_fortran_env, only: output_unit
# 1481 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1481 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        print *, 'm_icpp_patches.fpp:1481: ', '@:ALLOCATE(x_coords(nrows), y_coords(nrows), stored_values(xRows, yRows, sys_size))'
# 1481 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1481 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        call flush (output_unit)
# 1481 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    end block
# 1481 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#endif
# 1481 "/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))
# 1481 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1481 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1481 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1481 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1481 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#if defined(MFC_OpenACC)
# 1481 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
!$acc enter data create(x_coords, y_coords, stored_values) 
# 1481 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#elif defined(MFC_OpenMP)
# 1481 "/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) 
# 1481 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#endif
# 1481 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            index_x = i
# 1481 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            index_y = j
# 1481 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1481 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            ! Read all files
# 1481 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            do f = 1, max_files
# 1481 "/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)
# 1481 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                if (ios /= 0) then
# 1481 "/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)))
# 1481 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    cycle
# 1481 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                end if
# 1481 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1481 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                iter = 0
# 1481 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                do iix = 1, xrows
# 1481 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    do iiy = 1, yrows
# 1481 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                        iter = iter + 1
# 1481 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                        if (f == 1) then
# 1481 "/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)
# 1481 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                        else
# 1481 "/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)
# 1481 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                        end if
# 1481 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                        if (ios /= 0) call s_mpi_abort("Error reading data")
# 1481 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    end do
# 1481 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                end do
# 1481 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                close (unit)
# 1481 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            end do
# 1481 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1481 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            ! Calculate offsets
# 1481 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            x_step = x_cc(1) - x_cc(0)
# 1481 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            y_step = y_cc(1) - y_cc(0)
# 1481 "/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
# 1481 "/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
# 1481 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            global_offset_x = nint(abs(delta_x)/x_step)
# 1481 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            global_offset_y = nint(abs(delta_y)/y_step)
# 1481 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        end select
# 1481 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1481 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        files_loaded = .true.
# 1481 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    end if
# 1481 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1481 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    ! Data assignment
# 1481 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    select case (num_dims)
# 1481 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    case (1)
# 1481 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        idx = i + 1 + global_offset_x
# 1481 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        do f = 1, sys_size
# 1481 "/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)
# 1481 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        end do
# 1481 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1481 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    case (2)
# 1481 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        idx = i + 1 + global_offset_x - index_x
# 1481 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        do f = 1, sys_size - 1
# 1481 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            jump = merge(1, 0, f >= momxe)
# 1481 "/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)
# 1481 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        end do
# 1481 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        q_prim_vf(momxe)%sf(i, j, 0) = 0.0_wp
# 1481 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1481 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    case (3)
# 1481 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        idx = i + 1 + global_offset_x - index_x
# 1481 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        idy = j + 1 + global_offset_y - index_y
# 1481 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        do f = 1, sys_size - 1
# 1481 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            jump = merge(1, 0, f >= momxe)
# 1481 "/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)
# 1481 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        end do
# 1481 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        q_prim_vf(momxe)%sf(i, j, k) = 0.0_wp
# 1481 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    end select
# 1481 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1481 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    case (380)
# 1481 "/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
# 1481 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! 3D_TaylorGreenVortex case:
# 1481 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! This analytic patch used geometry 9
# 1481 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        mach = 0.1
# 1481 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        if (patch_id == 1) then
# 1481 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(e_idx)%sf(i, j, 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)
# 1481 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(momxb + 0)%sf(i, j, k) = mach*376.636429464809*sin(x_cc(i)/1)*cos(y_cc(j)/1)*sin(z_cc(k)/1)
# 1481 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(momxb + 1)%sf(i, j, k) = -mach*376.636429464809*cos(x_cc(i)/1)*sin(y_cc(j)/1)*sin(z_cc(k)/1)
# 1481 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        end if
# 1481 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1481 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    case default
# 1481 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        call s_int_to_str(patch_id, istr)
# 1481 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        call s_mpi_abort("Invalid hcid specified for patch "//trim(istr))
# 1481 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    end select
# 1481 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
                        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
# 1490 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#ifdef MFC_DEBUG
# 1490 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    block
# 1490 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        use iso_fortran_env, only: output_unit
# 1490 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1490 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        print *, 'm_icpp_patches.fpp:1490: ', '@:DEALLOCATE(stored_values)'
# 1490 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1490 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        call flush (output_unit)
# 1490 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    end block
# 1490 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#endif
# 1490 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1490 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#if defined(MFC_OpenACC)
# 1490 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
!$acc exit data delete(stored_values) 
# 1490 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#elif defined(MFC_OpenMP)
# 1490 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
!$omp target exit data map(release:stored_values) 
# 1490 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#endif
# 1490 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    deallocate (stored_values)
# 1490 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#ifdef MFC_DEBUG
# 1490 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    block
# 1490 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        use iso_fortran_env, only: output_unit
# 1490 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1490 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        print *, 'm_icpp_patches.fpp:1490: ', '@:DEALLOCATE(x_coords)'
# 1490 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1490 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        call flush (output_unit)
# 1490 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    end block
# 1490 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#endif
# 1490 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1490 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#if defined(MFC_OpenACC)
# 1490 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
!$acc exit data delete(x_coords) 
# 1490 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#elif defined(MFC_OpenMP)
# 1490 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
!$omp target exit data map(release:x_coords) 
# 1490 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#endif
# 1490 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    deallocate (x_coords)
# 1490 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    end if
# 1490 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1490 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    if (allocated(y_coords)) then
# 1490 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#ifdef MFC_DEBUG
# 1490 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    block
# 1490 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        use iso_fortran_env, only: output_unit
# 1490 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1490 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        print *, 'm_icpp_patches.fpp:1490: ', '@:DEALLOCATE(y_coords)'
# 1490 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1490 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        call flush (output_unit)
# 1490 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    end block
# 1490 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#endif
# 1490 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1490 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#if defined(MFC_OpenACC)
# 1490 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
!$acc exit data delete(y_coords) 
# 1490 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#elif defined(MFC_OpenMP)
# 1490 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
!$omp target exit data map(release:y_coords) 
# 1490 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#endif
# 1490 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    deallocate (y_coords)
# 1490 "/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.
        !! @param patch_id is the patch identifier
        !! @param patch_id_fp Array to track patch ids
        !! @param q_prim_vf Primitive variables
    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
# 1516 "/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
# 1516 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    real(wp) :: x_len, x_step, y_len, y_step
# 1516 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    real(wp) :: dummy_x, dummy_y, dummy_z, x0, y0
# 1516 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    integer :: global_offset_x, global_offset_y           ! MPI subdomain offset
# 1516 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    real(wp) :: delta_x, delta_y
# 1516 "/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
# 1516 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    character(len=200) :: errmsg
# 1516 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    real(wp), allocatable :: stored_values(:, :, :)
# 1516 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    real(wp), allocatable :: x_coords(:), y_coords(:)
# 1516 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    logical :: files_loaded = .false.
# 1516 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    real(wp) :: domain_xstart, domain_xend, domain_ystart, domain_yend
# 1516 "/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/
# 1516 "/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
# 1516 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    character(len=20) :: zeros_part       ! For the trailing zeros part
# 1516 "/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
# 1517 "/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
# 1517 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    real(wp) :: eps
# 1517 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1517 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    ! IGR Jets
# 1517 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    ! Arrays to stor position and radii of jets from input file
# 1517 "/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
# 1517 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    ! Variables to describe initial condition of jet
# 1517 "/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
# 1517 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    real(wp) :: rcut, xcut ! Intermediate variables for creating smooth initial condition
# 1517 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1517 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    real(wp), dimension(0:n, 0:p) :: rcut_arr
# 1517 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    integer :: l, q, s ! Iterators for reading input files
# 1517 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    integer :: start, end ! Ints to keep track of position in file
# 1517 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    character(len=1000) :: line ! String to store line in ile
# 1517 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    character(len=25) :: value ! String to store value in line
# 1517 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    integer :: NJet ! Number of jets
# 1517 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1517 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    eps = 1e-9_wp
# 1517 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1517 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    if (patch_icpp(patch_id)%hcid == 303) then
# 1517 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        eps_smooth = 3._wp
# 1517 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        open (unit=10, file="njet.txt", status="old", action="read")
# 1517 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        read (10, *) njet
# 1517 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        close (10)
# 1517 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1517 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        allocate (y_th_arr(0:njet - 1))
# 1517 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        allocate (z_th_arr(0:njet - 1))
# 1517 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        allocate (r_th_arr(0:njet - 1))
# 1517 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1517 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        open (unit=10, file="jets.csv", status="old", action="read")
# 1517 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        do q = 0, njet - 1
# 1517 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            read (10, '(A)') line  ! Read a full line as a string
# 1517 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            start = 1
# 1517 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1517 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            do l = 0, 2
# 1517 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                end = index(line(start:), ',')  ! Find the next comma
# 1517 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                if (end == 0) then
# 1517 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    value = trim(adjustl(line(start:)))  ! Last value in the line
# 1517 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                else
# 1517 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    value = trim(adjustl(line(start:start + end - 2)))  ! Extract substring
# 1517 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    start = start + end  ! Move to next value
# 1517 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                end if
# 1517 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                if (l == 0) then
# 1517 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    read (value, *) y_th_arr(q)  ! Convert string to numeric value
# 1517 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                elseif (l == 1) then
# 1517 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    read (value, *) z_th_arr(q)
# 1517 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                else
# 1517 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    read (value, *) r_th_arr(q)
# 1517 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                end if
# 1517 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            end do
# 1517 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        end do
# 1517 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        close (10)
# 1517 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1517 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        do q = 0, p
# 1517 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            do l = 0, n
# 1517 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                rcut = 0._wp
# 1517 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                do s = 0, njet - 1
# 1517 "/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)
# 1517 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    rcut = rcut + f_cut_on(r - r_th_arr(s), eps_smooth)
# 1517 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                end do
# 1517 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                rcut_arr(l, q) = rcut
# 1517 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            end do
# 1517 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        end do
# 1517 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    end if
# 1517 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
 
        ! 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
 
        ! Initializing the pseudo volume fraction value to 1. The value will
        ! be modified as the patch is laid out on the grid, but only in the
        ! case that smearing of the sweep plane patch's boundary is enabled.
        eta = 1._wp
 
        ! Checking whether the region swept by the plane covers a particular
        ! cell in the domain and verifying whether the current patch has the
        ! permission to write to that cell. If both queries check out, the
        ! primitive variables of the current patch are written to this cell.
        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
 
# 1572 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    select case (patch_icpp(patch_id)%hcid)
# 1572 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    case (300) ! Rayleigh-Taylor instability
# 1572 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        rhoh = 3._wp
# 1572 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        rhol = 1._wp
# 1572 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        pref = 1.e5_wp
# 1572 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        pint = pref
# 1572 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        h = 0.7_wp
# 1572 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        lam = 0.2_wp
# 1572 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        wl = 2._wp*pi/lam
# 1572 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        amp = 0.025_wp/wl
# 1572 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1572 "/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
# 1572 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1572 "/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))
# 1572 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1572 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        if (alph < eps) alph = eps
# 1572 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        if (alph > 1._wp - eps) alph = 1._wp - eps
# 1572 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1572 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        if (y_cc(j) > inth) then
# 1572 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(advxb)%sf(i, j, k) = alph
# 1572 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(advxe)%sf(i, j, k) = 1._wp - alph
# 1572 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(contxb)%sf(i, j, k) = alph*rhoh
# 1572 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(contxe)%sf(i, j, k) = (1._wp - alph)*rhol
# 1572 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(e_idx)%sf(i, j, k) = pref + rhoh*9.81_wp*(1.2_wp - y_cc(j))
# 1572 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        else
# 1572 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(advxb)%sf(i, j, k) = alph
# 1572 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(advxe)%sf(i, j, k) = 1._wp - alph
# 1572 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(contxb)%sf(i, j, k) = alph*rhoh
# 1572 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(contxe)%sf(i, j, k) = (1._wp - alph)*rhol
# 1572 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            pint = pref + rhoh*9.81_wp*(1.2_wp - inth)
# 1572 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(e_idx)%sf(i, j, k) = pint + rhol*9.81_wp*(inth - y_cc(j))
# 1572 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        end if
# 1572 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1572 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    case (301) ! (3D lung geometry in X direction, |sin(*)+sin(*)|)
# 1572 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        h = 0.0_wp
# 1572 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        lam = 1.0_wp
# 1572 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        amp = patch_icpp(patch_id)%a(2)
# 1572 "/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)
# 1572 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        if (x_cc(i) > inth) then
# 1572 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(contxb)%sf(i, j, k) = patch_icpp(1)%alpha_rho(1)
# 1572 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(contxe)%sf(i, j, k) = patch_icpp(1)%alpha_rho(2)
# 1572 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(e_idx)%sf(i, j, k) = patch_icpp(1)%pres
# 1572 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(advxb)%sf(i, j, k) = patch_icpp(1)%alpha(1)
# 1572 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(advxe)%sf(i, j, k) = patch_icpp(1)%alpha(2)
# 1572 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        end if
# 1572 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1572 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    case (302) ! 3D Jet with IGR
# 1572 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ux_th = 10*sqrt(1.4*0.4)
# 1572 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ux_am = 0.0*sqrt(1.4)
# 1572 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        p_th = 2.0_wp
# 1572 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        p_am = 1.0_wp
# 1572 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        rho_th = 1._wp
# 1572 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        rho_am = 1._wp
# 1572 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        y_th = 0.0_wp
# 1572 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        z_th = 0.0_wp
# 1572 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        r_th = 1._wp
# 1572 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        eps_smooth = 1._wp
# 1572 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        eps = 1e-6
# 1572 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1572 "/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)
# 1572 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        rcut = f_cut_on(r - r_th, eps_smooth)
# 1572 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        xcut = f_cut_on(x_cc(i), eps_smooth)
# 1572 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1572 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        q_prim_vf(momxb)%sf(i, j, k) = ux_th*rcut*xcut + ux_am
# 1572 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        q_prim_vf(momxb + 1)%sf(i, j, k) = 0._wp
# 1572 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        q_prim_vf(momxe)%sf(i, j, k) = 0._wp
# 1572 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1572 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        if (num_fluids == 1) then
# 1572 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(contxb)%sf(i, j, k) = (rho_th - rho_am)*rcut*xcut + rho_am
# 1572 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        else
# 1572 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(advxb)%sf(i, j, k) = (1._wp - 2._wp*eps)*rcut*xcut + eps
# 1572 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(contxb)%sf(i, j, k) = rho_th*q_prim_vf(advxb)%sf(i, j, k)
# 1572 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(contxe)%sf(i, j, k) = rho_am*(1._wp - q_prim_vf(advxb)%sf(i, j, k))
# 1572 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        end if
# 1572 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1572 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        q_prim_vf(e_idx)%sf(i, j, k) = p_th*rcut*xcut + p_am
# 1572 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1572 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    case (303) ! 3D Multijet
# 1572 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1572 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        eps_smooth = 3.0_wp
# 1572 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ux_th = 10*sqrt(1.4*0.4)
# 1572 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ux_am = 2.5*sqrt(1.4*0.4)
# 1572 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        p_th = 0.8_wp
# 1572 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        p_am = 0.4_wp
# 1572 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        rho_th = 1._wp
# 1572 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        rho_am = 1._wp
# 1572 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        eps = 1e-6
# 1572 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1572 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        rcut = rcut_arr(j, k)
# 1572 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        xcut = f_cut_on(x_cc(i), eps_smooth)
# 1572 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1572 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        q_prim_vf(momxb)%sf(i, j, k) = ux_th*rcut*xcut + ux_am
# 1572 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        q_prim_vf(momxb + 1)%sf(i, j, k) = 0._wp
# 1572 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        q_prim_vf(momxe)%sf(i, j, k) = 0._wp
# 1572 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1572 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        if (num_fluids == 1) then
# 1572 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(contxb)%sf(i, j, k) = (rho_th - rho_am)*rcut*xcut + rho_am
# 1572 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        else
# 1572 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(advxb)%sf(i, j, k) = (1._wp - 2._wp*eps)*rcut*xcut + eps
# 1572 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(contxb)%sf(i, j, k) = rho_th*q_prim_vf(advxb)%sf(i, j, k)
# 1572 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(contxe)%sf(i, j, k) = rho_am*(1._wp - q_prim_vf(advxb)%sf(i, j, k))
# 1572 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        end if
# 1572 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1572 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        q_prim_vf(e_idx)%sf(i, j, k) = p_th*rcut*xcut + p_am
# 1572 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1572 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    case (370)
# 1572 "/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
# 1572 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1572 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    if (.not. files_loaded) then
# 1572 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        max_files = merge(sys_size, sys_size - 1, num_dims == 1)
# 1572 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        do f = 1, max_files
# 1572 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            write (file_num_str, '(I0)') f
# 1572 "/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"
# 1572 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        end do
# 1572 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1572 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! Common file reading setup
# 1572 "/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)
# 1572 "/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)))
# 1572 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1572 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        select case (num_dims)
# 1572 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        case (1, 2)  ! 1D and 2D cases are similar
# 1572 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            ! Count lines
# 1572 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            line_count = 0
# 1572 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            do
# 1572 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                read (unit2, *, iostat=ios2) dummy_x, dummy_y
# 1572 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                if (ios2 /= 0) exit
# 1572 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                line_count = line_count + 1
# 1572 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            end do
# 1572 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            close (unit2)
# 1572 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1572 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            xrows = line_count
# 1572 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            yrows = 1
# 1572 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            index_x = 0
# 1572 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            if (num_dims == 2) index_x = i
# 1572 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#ifdef MFC_DEBUG
# 1572 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    block
# 1572 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        use iso_fortran_env, only: output_unit
# 1572 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1572 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        print *, 'm_icpp_patches.fpp:1572: ', '@:ALLOCATE(x_coords(xRows), stored_values(xRows, 1, sys_size))'
# 1572 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1572 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        call flush (output_unit)
# 1572 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    end block
# 1572 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#endif
# 1572 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    allocate (x_coords(xrows), stored_values(xrows, 1, sys_size))
# 1572 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1572 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1572 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1572 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#if defined(MFC_OpenACC)
# 1572 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
!$acc enter data create(x_coords, stored_values) 
# 1572 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#elif defined(MFC_OpenMP)
# 1572 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
!$omp target enter data map(always,alloc:x_coords, stored_values) 
# 1572 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#endif
# 1572 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1572 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            ! Read data from all files
# 1572 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            do f = 1, max_files
# 1572 "/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)
# 1572 "/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)))
# 1572 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1572 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                do iter = 1, xrows
# 1572 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    read (unit, *, iostat=ios) x_coords(iter), stored_values(iter, 1, f)
# 1572 "/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)))
# 1572 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                end do
# 1572 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                close (unit)
# 1572 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            end do
# 1572 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1572 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            ! Calculate offsets
# 1572 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            domain_xstart = x_coords(1)
# 1572 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            x_step = x_cc(1) - x_cc(0)
# 1572 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            delta_x = merge(x_cc(0) - domain_xstart + x_step/2.0, &
# 1572 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                            x_cc(index_x) - domain_xstart + x_step/2.0, num_dims == 1)
# 1572 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            global_offset_x = nint(abs(delta_x)/x_step)
# 1572 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1572 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        case (3)  ! 3D case - determine grid structure
# 1572 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            ! Find yRows by counting rows with same x
# 1572 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            read (unit2, *, iostat=ios2) x0, y0, dummy_z
# 1572 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            if (ios2 /= 0) call s_mpi_abort("Error reading first line")
# 1572 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1572 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            yrows = 1
# 1572 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            do
# 1572 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                read (unit2, *, iostat=ios2) dummy_x, dummy_y, dummy_z
# 1572 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                if (ios2 /= 0) exit
# 1572 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                if (dummy_x == x0 .and. dummy_y /= y0) then
# 1572 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    yrows = yrows + 1
# 1572 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                else
# 1572 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    exit
# 1572 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                end if
# 1572 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            end do
# 1572 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            close (unit2)
# 1572 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1572 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            ! Count total rows
# 1572 "/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)
# 1572 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            nrows = 0
# 1572 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            do
# 1572 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                read (unit2, *, iostat=ios2) dummy_x, dummy_y, dummy_z
# 1572 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                if (ios2 /= 0) exit
# 1572 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                nrows = nrows + 1
# 1572 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            end do
# 1572 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            close (unit2)
# 1572 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1572 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            xrows = nrows/yrows
# 1572 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#ifdef MFC_DEBUG
# 1572 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    block
# 1572 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        use iso_fortran_env, only: output_unit
# 1572 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1572 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        print *, 'm_icpp_patches.fpp:1572: ', '@:ALLOCATE(x_coords(nrows), y_coords(nrows), stored_values(xRows, yRows, sys_size))'
# 1572 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1572 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        call flush (output_unit)
# 1572 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    end block
# 1572 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#endif
# 1572 "/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))
# 1572 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1572 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1572 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1572 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1572 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#if defined(MFC_OpenACC)
# 1572 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
!$acc enter data create(x_coords, y_coords, stored_values) 
# 1572 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#elif defined(MFC_OpenMP)
# 1572 "/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) 
# 1572 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#endif
# 1572 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            index_x = i
# 1572 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            index_y = j
# 1572 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1572 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            ! Read all files
# 1572 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            do f = 1, max_files
# 1572 "/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)
# 1572 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                if (ios /= 0) then
# 1572 "/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)))
# 1572 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    cycle
# 1572 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                end if
# 1572 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1572 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                iter = 0
# 1572 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                do iix = 1, xrows
# 1572 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    do iiy = 1, yrows
# 1572 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                        iter = iter + 1
# 1572 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                        if (f == 1) then
# 1572 "/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)
# 1572 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                        else
# 1572 "/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)
# 1572 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                        end if
# 1572 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                        if (ios /= 0) call s_mpi_abort("Error reading data")
# 1572 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                    end do
# 1572 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                end do
# 1572 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
                close (unit)
# 1572 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            end do
# 1572 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1572 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            ! Calculate offsets
# 1572 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            x_step = x_cc(1) - x_cc(0)
# 1572 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            y_step = y_cc(1) - y_cc(0)
# 1572 "/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
# 1572 "/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
# 1572 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            global_offset_x = nint(abs(delta_x)/x_step)
# 1572 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            global_offset_y = nint(abs(delta_y)/y_step)
# 1572 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        end select
# 1572 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1572 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        files_loaded = .true.
# 1572 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    end if
# 1572 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1572 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    ! Data assignment
# 1572 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    select case (num_dims)
# 1572 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    case (1)
# 1572 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        idx = i + 1 + global_offset_x
# 1572 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        do f = 1, sys_size
# 1572 "/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)
# 1572 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        end do
# 1572 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1572 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    case (2)
# 1572 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        idx = i + 1 + global_offset_x - index_x
# 1572 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        do f = 1, sys_size - 1
# 1572 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            jump = merge(1, 0, f >= momxe)
# 1572 "/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)
# 1572 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        end do
# 1572 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        q_prim_vf(momxe)%sf(i, j, 0) = 0.0_wp
# 1572 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1572 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    case (3)
# 1572 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        idx = i + 1 + global_offset_x - index_x
# 1572 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        idy = j + 1 + global_offset_y - index_y
# 1572 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        do f = 1, sys_size - 1
# 1572 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            jump = merge(1, 0, f >= momxe)
# 1572 "/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)
# 1572 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        end do
# 1572 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        q_prim_vf(momxe)%sf(i, j, k) = 0.0_wp
# 1572 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    end select
# 1572 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1572 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    case (380)
# 1572 "/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
# 1572 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! 3D_TaylorGreenVortex case:
# 1572 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        ! This analytic patch used geometry 9
# 1572 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        mach = 0.1
# 1572 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        if (patch_id == 1) then
# 1572 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(e_idx)%sf(i, j, 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)
# 1572 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(momxb + 0)%sf(i, j, k) = mach*376.636429464809*sin(x_cc(i)/1)*cos(y_cc(j)/1)*sin(z_cc(k)/1)
# 1572 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
            q_prim_vf(momxb + 1)%sf(i, j, k) = -mach*376.636429464809*cos(x_cc(i)/1)*sin(y_cc(j)/1)*sin(z_cc(k)/1)
# 1572 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        end if
# 1572 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1572 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    case default
# 1572 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        call s_int_to_str(patch_id, istr)
# 1572 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        call s_mpi_abort("Invalid hcid specified for patch "//trim(istr))
# 1572 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    end select
# 1572 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
                        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
# 1582 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#ifdef MFC_DEBUG
# 1582 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    block
# 1582 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        use iso_fortran_env, only: output_unit
# 1582 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1582 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        print *, 'm_icpp_patches.fpp:1582: ', '@:DEALLOCATE(stored_values)'
# 1582 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1582 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        call flush (output_unit)
# 1582 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    end block
# 1582 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#endif
# 1582 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1582 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#if defined(MFC_OpenACC)
# 1582 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
!$acc exit data delete(stored_values) 
# 1582 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#elif defined(MFC_OpenMP)
# 1582 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
!$omp target exit data map(release:stored_values) 
# 1582 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#endif
# 1582 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    deallocate (stored_values)
# 1582 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#ifdef MFC_DEBUG
# 1582 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    block
# 1582 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        use iso_fortran_env, only: output_unit
# 1582 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1582 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        print *, 'm_icpp_patches.fpp:1582: ', '@:DEALLOCATE(x_coords)'
# 1582 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1582 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        call flush (output_unit)
# 1582 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    end block
# 1582 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#endif
# 1582 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1582 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#if defined(MFC_OpenACC)
# 1582 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
!$acc exit data delete(x_coords) 
# 1582 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#elif defined(MFC_OpenMP)
# 1582 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
!$omp target exit data map(release:x_coords) 
# 1582 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#endif
# 1582 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    deallocate (x_coords)
# 1582 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    end if
# 1582 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1582 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    if (allocated(y_coords)) then
# 1582 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#ifdef MFC_DEBUG
# 1582 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    block
# 1582 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        use iso_fortran_env, only: output_unit
# 1582 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1582 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        print *, 'm_icpp_patches.fpp:1582: ', '@:DEALLOCATE(y_coords)'
# 1582 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1582 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
        call flush (output_unit)
# 1582 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    end block
# 1582 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#endif
# 1582 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1582 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#if defined(MFC_OpenACC)
# 1582 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
!$acc exit data delete(y_coords) 
# 1582 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#elif defined(MFC_OpenMP)
# 1582 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
!$omp target exit data map(release:y_coords) 
# 1582 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#endif
# 1582 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    deallocate (y_coords)
# 1582 "/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.
    !! @param patch_id is the patch identifier
    !! @param patch_id_fp Array to track patch ids
    !! @param q_prim_vf Primitive variables
    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
        real(wp) :: distance !< Levelset distance buffer
        logical :: interpolate !< Logical variable to determine whether or not the model should be interpolated
 
        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)
 
            !call s_model_write("__out__.stl", model)
            !call s_model_write("__out__.obj", model)
 
            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
 
    !> @brief Converts cylindrical (r, theta) coordinates to Cartesian (y, z) module variables.
    subroutine s_convert_cylindrical_to_cartesian_coord(cyl_y, cyl_z)
 
# 1730 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#if MFC_OpenACC
# 1730 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
!$acc routine seq 
# 1730 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#elif MFC_OpenMP
# 1730 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    
# 1730 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1730 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
!$omp declare target device_type(any) 
# 1730 "/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
 
    !> @brief Returns a 3D Cartesian coordinate vector from a cylindrical (x, r, theta) input vector.
    function f_convert_cyl_to_cart(cyl) result(cart)
 
 
# 1742 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#if MFC_OpenACC
# 1742 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
!$acc routine seq 
# 1742 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#elif MFC_OpenMP
# 1742 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    
# 1742 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1742 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
!$omp declare target device_type(any) 
# 1742 "/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
 
    !> @brief Computes the spherical azimuthal angle from cylindrical (x, r) coordinates.
    subroutine s_convert_cylindrical_to_spherical_coord(cyl_x, cyl_y)
 
# 1755 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#if MFC_OpenACC
# 1755 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
!$acc routine seq 
# 1755 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#elif MFC_OpenMP
# 1755 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    
# 1755 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1755 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
!$omp declare target device_type(any) 
# 1755 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#endif
 
        real(wp), intent(IN) :: cyl_x, cyl_y
 
        sph_phi = atan(cyl_y/cyl_x)
 
    end subroutine s_convert_cylindrical_to_spherical_coord
 
    !> Archimedes spiral function
    !! @param myth Angle
    !! @param offset Thickness
    !! @param a Starting position
    elemental function f_r(myth, offset, a)
 
 
# 1769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#if MFC_OpenACC
# 1769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
!$acc routine seq 
# 1769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
#elif MFC_OpenMP
# 1769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
    
# 1769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
 
# 1769 "/home/runner/work/MFC/MFC/src/pre_process/m_icpp_patches.fpp"
!$omp declare target device_type(any) 
# 1769 "/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