m_igr.fpp.f90

Go to the documentation of this file.

# 1 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!>
!! @file
!! @brief Contains module m_igr
 
# 1 "/home/runner/work/MFC/MFC/src/common/include/case.fpp" 1
! This file exists so that Fypp can be run without generating case.fpp files for
! each target. This is useful when generating documentation, for example. This
! should also let MFC be built with CMake directly, without invoking mfc.sh.
 
! For pre-process.
# 8 "/home/runner/work/MFC/MFC/src/common/include/case.fpp"
 
! For moving immersed boundaries in simulation
# 12 "/home/runner/work/MFC/MFC/src/common/include/case.fpp"
# 6 "/home/runner/work/MFC/MFC/src/simulation/m_igr.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"
 
# 12 "/home/runner/work/MFC/MFC/src/common/include/shared_parallel_macros.fpp"
# 1 "/home/runner/work/MFC/MFC/src/common/include/defaults/thermochem.fpp" 1
! Default for Fypp runs outside the toolchain (e.g. documentation). Searched last, so the
! build/include/<target>/thermochem.fpp the toolchain writes from m_thermochem takes precedence.
# 4 "/home/runner/work/MFC/MFC/src/common/include/defaults/thermochem.fpp"
# 5 "/home/runner/work/MFC/MFC/src/common/include/defaults/thermochem.fpp"
# 13 "/home/runner/work/MFC/MFC/src/common/include/shared_parallel_macros.fpp" 2
 
# 16 "/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"
 
# 24 "/home/runner/work/MFC/MFC/src/common/include/shared_parallel_macros.fpp"
 
# 53 "/home/runner/work/MFC/MFC/src/common/include/shared_parallel_macros.fpp"
 
# 65 "/home/runner/work/MFC/MFC/src/common/include/shared_parallel_macros.fpp"
 
# 75 "/home/runner/work/MFC/MFC/src/common/include/shared_parallel_macros.fpp"
 
# 105 "/home/runner/work/MFC/MFC/src/common/include/shared_parallel_macros.fpp"
 
# 117 "/home/runner/work/MFC/MFC/src/common/include/shared_parallel_macros.fpp"
 
# 127 "/home/runner/work/MFC/MFC/src/common/include/shared_parallel_macros.fpp"
 
# 174 "/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"
 
# 12 "/home/runner/work/MFC/MFC/src/common/include/shared_parallel_macros.fpp"
# 1 "/home/runner/work/MFC/MFC/src/common/include/defaults/thermochem.fpp" 1
! Default for Fypp runs outside the toolchain (e.g. documentation). Searched last, so the
! build/include/<target>/thermochem.fpp the toolchain writes from m_thermochem takes precedence.
# 4 "/home/runner/work/MFC/MFC/src/common/include/defaults/thermochem.fpp"
# 5 "/home/runner/work/MFC/MFC/src/common/include/defaults/thermochem.fpp"
# 13 "/home/runner/work/MFC/MFC/src/common/include/shared_parallel_macros.fpp" 2
 
# 16 "/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"
 
# 24 "/home/runner/work/MFC/MFC/src/common/include/shared_parallel_macros.fpp"
 
# 53 "/home/runner/work/MFC/MFC/src/common/include/shared_parallel_macros.fpp"
 
# 65 "/home/runner/work/MFC/MFC/src/common/include/shared_parallel_macros.fpp"
 
# 75 "/home/runner/work/MFC/MFC/src/common/include/shared_parallel_macros.fpp"
 
# 105 "/home/runner/work/MFC/MFC/src/common/include/shared_parallel_macros.fpp"
 
# 117 "/home/runner/work/MFC/MFC/src/common/include/shared_parallel_macros.fpp"
 
# 127 "/home/runner/work/MFC/MFC/src/common/include/shared_parallel_macros.fpp"
 
# 174 "/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"
 
# 81 "/home/runner/work/MFC/MFC/src/common/include/omp_macros.fpp"
 
# 95 "/home/runner/work/MFC/MFC/src/common/include/omp_macros.fpp"
 
# 100 "/home/runner/work/MFC/MFC/src/common/include/omp_macros.fpp"
 
# 105 "/home/runner/work/MFC/MFC/src/common/include/omp_macros.fpp"
 
# 110 "/home/runner/work/MFC/MFC/src/common/include/omp_macros.fpp"
 
# 115 "/home/runner/work/MFC/MFC/src/common/include/omp_macros.fpp"
 
# 120 "/home/runner/work/MFC/MFC/src/common/include/omp_macros.fpp"
 
# 125 "/home/runner/work/MFC/MFC/src/common/include/omp_macros.fpp"
 
# 130 "/home/runner/work/MFC/MFC/src/common/include/omp_macros.fpp"
 
# 135 "/home/runner/work/MFC/MFC/src/common/include/omp_macros.fpp"
 
# 165 "/home/runner/work/MFC/MFC/src/common/include/omp_macros.fpp"
 
# 219 "/home/runner/work/MFC/MFC/src/common/include/omp_macros.fpp"
 
# 233 "/home/runner/work/MFC/MFC/src/common/include/omp_macros.fpp"
 
# 258 "/home/runner/work/MFC/MFC/src/common/include/omp_macros.fpp"
 
# 269 "/home/runner/work/MFC/MFC/src/common/include/omp_macros.fpp"
 
# 271 "/home/runner/work/MFC/MFC/src/common/include/omp_macros.fpp"
# 282 "/home/runner/work/MFC/MFC/src/common/include/omp_macros.fpp"
 
# 332 "/home/runner/work/MFC/MFC/src/common/include/omp_macros.fpp"
 
# 342 "/home/runner/work/MFC/MFC/src/common/include/omp_macros.fpp"
 
# 352 "/home/runner/work/MFC/MFC/src/common/include/omp_macros.fpp"
 
# 361 "/home/runner/work/MFC/MFC/src/common/include/omp_macros.fpp"
 
# 378 "/home/runner/work/MFC/MFC/src/common/include/omp_macros.fpp"
 
# 388 "/home/runner/work/MFC/MFC/src/common/include/omp_macros.fpp"
 
# 395 "/home/runner/work/MFC/MFC/src/common/include/omp_macros.fpp"
 
# 401 "/home/runner/work/MFC/MFC/src/common/include/omp_macros.fpp"
 
# 407 "/home/runner/work/MFC/MFC/src/common/include/omp_macros.fpp"
 
# 413 "/home/runner/work/MFC/MFC/src/common/include/omp_macros.fpp"
 
# 419 "/home/runner/work/MFC/MFC/src/common/include/omp_macros.fpp"
 
# 425 "/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"
 
# 12 "/home/runner/work/MFC/MFC/src/common/include/shared_parallel_macros.fpp"
# 1 "/home/runner/work/MFC/MFC/src/common/include/defaults/thermochem.fpp" 1
! Default for Fypp runs outside the toolchain (e.g. documentation). Searched last, so the
! build/include/<target>/thermochem.fpp the toolchain writes from m_thermochem takes precedence.
# 4 "/home/runner/work/MFC/MFC/src/common/include/defaults/thermochem.fpp"
# 5 "/home/runner/work/MFC/MFC/src/common/include/defaults/thermochem.fpp"
# 13 "/home/runner/work/MFC/MFC/src/common/include/shared_parallel_macros.fpp" 2
 
# 16 "/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"
 
# 24 "/home/runner/work/MFC/MFC/src/common/include/shared_parallel_macros.fpp"
 
# 53 "/home/runner/work/MFC/MFC/src/common/include/shared_parallel_macros.fpp"
 
# 65 "/home/runner/work/MFC/MFC/src/common/include/shared_parallel_macros.fpp"
 
# 75 "/home/runner/work/MFC/MFC/src/common/include/shared_parallel_macros.fpp"
 
# 105 "/home/runner/work/MFC/MFC/src/common/include/shared_parallel_macros.fpp"
 
# 117 "/home/runner/work/MFC/MFC/src/common/include/shared_parallel_macros.fpp"
 
# 127 "/home/runner/work/MFC/MFC/src/common/include/shared_parallel_macros.fpp"
 
# 174 "/home/runner/work/MFC/MFC/src/common/include/shared_parallel_macros.fpp"
! New line at end of file is required for FYPP
# 2 "/home/runner/work/MFC/MFC/src/common/include/acc_macros.fpp" 2
 
# 7 "/home/runner/work/MFC/MFC/src/common/include/acc_macros.fpp"
 
# 17 "/home/runner/work/MFC/MFC/src/common/include/acc_macros.fpp"
 
# 22 "/home/runner/work/MFC/MFC/src/common/include/acc_macros.fpp"
 
# 27 "/home/runner/work/MFC/MFC/src/common/include/acc_macros.fpp"
 
# 32 "/home/runner/work/MFC/MFC/src/common/include/acc_macros.fpp"
 
# 37 "/home/runner/work/MFC/MFC/src/common/include/acc_macros.fpp"
 
# 42 "/home/runner/work/MFC/MFC/src/common/include/acc_macros.fpp"
 
# 47 "/home/runner/work/MFC/MFC/src/common/include/acc_macros.fpp"
 
# 52 "/home/runner/work/MFC/MFC/src/common/include/acc_macros.fpp"
 
# 57 "/home/runner/work/MFC/MFC/src/common/include/acc_macros.fpp"
 
# 62 "/home/runner/work/MFC/MFC/src/common/include/acc_macros.fpp"
 
# 73 "/home/runner/work/MFC/MFC/src/common/include/acc_macros.fpp"
 
# 78 "/home/runner/work/MFC/MFC/src/common/include/acc_macros.fpp"
 
# 83 "/home/runner/work/MFC/MFC/src/common/include/acc_macros.fpp"
 
# 88 "/home/runner/work/MFC/MFC/src/common/include/acc_macros.fpp"
 
# 103 "/home/runner/work/MFC/MFC/src/common/include/acc_macros.fpp"
 
# 131 "/home/runner/work/MFC/MFC/src/common/include/acc_macros.fpp"
 
# 160 "/home/runner/work/MFC/MFC/src/common/include/acc_macros.fpp"
 
# 175 "/home/runner/work/MFC/MFC/src/common/include/acc_macros.fpp"
 
# 193 "/home/runner/work/MFC/MFC/src/common/include/acc_macros.fpp"
 
# 215 "/home/runner/work/MFC/MFC/src/common/include/acc_macros.fpp"
 
# 244 "/home/runner/work/MFC/MFC/src/common/include/acc_macros.fpp"
 
# 259 "/home/runner/work/MFC/MFC/src/common/include/acc_macros.fpp"
 
# 269 "/home/runner/work/MFC/MFC/src/common/include/acc_macros.fpp"
 
# 278 "/home/runner/work/MFC/MFC/src/common/include/acc_macros.fpp"
 
# 294 "/home/runner/work/MFC/MFC/src/common/include/acc_macros.fpp"
 
# 304 "/home/runner/work/MFC/MFC/src/common/include/acc_macros.fpp"
 
# 311 "/home/runner/work/MFC/MFC/src/common/include/acc_macros.fpp"
! New line at end of file is required for FYPP
# 4 "/home/runner/work/MFC/MFC/src/common/include/parallel_macros.fpp" 2
 
! GPU parallel region (scalar reductions, maxval/minval)
# 23 "/home/runner/work/MFC/MFC/src/common/include/parallel_macros.fpp"
 
! GPU parallel loop over threads (most common GPU macro)
# 43 "/home/runner/work/MFC/MFC/src/common/include/parallel_macros.fpp"
 
! Required closing for GPU_PARALLEL_LOOP
# 55 "/home/runner/work/MFC/MFC/src/common/include/parallel_macros.fpp"
 
! Mark routine for device compilation
# 112 "/home/runner/work/MFC/MFC/src/common/include/parallel_macros.fpp"
 
! Declare device-resident data
# 130 "/home/runner/work/MFC/MFC/src/common/include/parallel_macros.fpp"
 
! Inner loop within a GPU parallel region
# 145 "/home/runner/work/MFC/MFC/src/common/include/parallel_macros.fpp"
 
! Scoped GPU data region
# 164 "/home/runner/work/MFC/MFC/src/common/include/parallel_macros.fpp"
 
! Host code with device pointers (for MPI with GPU buffers)
# 193 "/home/runner/work/MFC/MFC/src/common/include/parallel_macros.fpp"
 
! Allocate device memory (unscoped)
# 207 "/home/runner/work/MFC/MFC/src/common/include/parallel_macros.fpp"
 
! Free device memory
# 219 "/home/runner/work/MFC/MFC/src/common/include/parallel_macros.fpp"
 
! Atomic operation on device
# 231 "/home/runner/work/MFC/MFC/src/common/include/parallel_macros.fpp"
 
! End atomic capture block
# 242 "/home/runner/work/MFC/MFC/src/common/include/parallel_macros.fpp"
 
! Copy data between host and device
# 254 "/home/runner/work/MFC/MFC/src/common/include/parallel_macros.fpp"
 
! Synchronization barrier
# 266 "/home/runner/work/MFC/MFC/src/common/include/parallel_macros.fpp"
 
! Import GPU library module (openacc or omp_lib)
# 275 "/home/runner/work/MFC/MFC/src/common/include/parallel_macros.fpp"
 
! Emit code only for AMD compiler
# 282 "/home/runner/work/MFC/MFC/src/common/include/parallel_macros.fpp"
 
! Emit code for non-Cray compilers
# 289 "/home/runner/work/MFC/MFC/src/common/include/parallel_macros.fpp"
 
! Emit code only for Cray compiler
# 296 "/home/runner/work/MFC/MFC/src/common/include/parallel_macros.fpp"
 
! Emit code for non-NVIDIA compilers
# 303 "/home/runner/work/MFC/MFC/src/common/include/parallel_macros.fpp"
 
# 305 "/home/runner/work/MFC/MFC/src/common/include/parallel_macros.fpp"
# 306 "/home/runner/work/MFC/MFC/src/common/include/parallel_macros.fpp"
! New line at end of file is required for FYPP
# 2 "/home/runner/work/MFC/MFC/src/common/include/macros.fpp" 2
 
# 14 "/home/runner/work/MFC/MFC/src/common/include/macros.fpp"
 
! Caution: This macro requires the use of a binding script to set CUDA_VISIBLE_DEVICES, such that we have one GPU device per MPI
! rank. That's because for both cudaMemAdvise (preferred location) and cudaMemPrefetchAsync we use location = device_id = 0. For an
! example see misc/nvidia_uvm/bind.sh.
# 52 "/home/runner/work/MFC/MFC/src/common/include/macros.fpp"
 
! Allocate and create GPU device memory
# 72 "/home/runner/work/MFC/MFC/src/common/include/macros.fpp"
 
! Free GPU device memory and deallocate
# 80 "/home/runner/work/MFC/MFC/src/common/include/macros.fpp"
 
! Cray-specific GPU pointer setup for vector fields
# 104 "/home/runner/work/MFC/MFC/src/common/include/macros.fpp"
 
! Cray-specific GPU pointer setup for scalar fields
# 120 "/home/runner/work/MFC/MFC/src/common/include/macros.fpp"
 
! Cray-specific GPU pointer setup for acoustic source spatials
# 145 "/home/runner/work/MFC/MFC/src/common/include/macros.fpp"
 
# 151 "/home/runner/work/MFC/MFC/src/common/include/macros.fpp"
 
# 158 "/home/runner/work/MFC/MFC/src/common/include/macros.fpp"
! New line at end of file is required for FYPP
# 7 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp" 2
 
!> @brief Iterative ghost rasterization (IGR) for sharp immersed boundary treatment
module m_igr
 
    use m_derived_types
    use m_global_parameters
    use m_variables_conversion
    use m_eos
    use m_mpi_proxy
    use m_helper
    use m_boundary_common
 
    implicit none
 
    private; public :: s_initialize_igr_module, s_igr_iterative_solve, s_igr_riemann_solver, s_igr_sigma_x, s_igr_flux_add, &
        & s_finalize_igr_module
 
    !> @cond
#ifdef __NVCOMPILER_GPU_UNIFIED_MEM
    integer, dimension(3)                                   :: nv_uvm_temp_on_gpu
    real(wp), pointer, contiguous, dimension(:,:,:)         :: jac, jac_rhs, jac_old
    real(wp), allocatable, dimension(:,:,:), pinned, target :: jac_host
    real(wp), allocatable, dimension(:,:,:), pinned, target :: jac_rhs_host
    real(wp), allocatable, dimension(:,:,:), pinned, target :: jac_old_host
#else
    !> @endcond
    real(wp), allocatable, target, dimension(:,:,:) :: jac
    real(wp), allocatable, dimension(:,:,:)         :: jac_rhs, jac_old
 
# 35 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 35 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc declare create(jac, jac_rhs, jac_old) 
# 35 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 35 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp declare target (jac, jac_rhs, jac_old) 
# 35 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
# 36 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
    !> @cond
#endif
    !> @endcond
    type(scalar_field), dimension(1) :: jac_sf
 
# 40 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 40 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc declare create(jac_sf) 
# 40 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 40 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp declare target (jac_sf) 
# 40 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
# 41 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
    real(wp), allocatable, dimension(:,:) :: res_igr
 
# 43 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 43 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc declare create(Res_igr) 
# 43 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 43 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp declare target (Res_igr) 
# 43 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
# 44 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
    real(wp) :: alf_igr
 
# 46 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 46 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc declare create(alf_igr) 
# 46 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 46 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp declare target (alf_igr) 
# 46 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
# 47 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 49 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
        integer :: vidxb, vidxe
 
# 50 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 50 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc declare create(vidxb, vidxe) 
# 50 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 50 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp declare target (vidxb, vidxe) 
# 50 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
# 51 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
        real(wp), allocatable, dimension(:) :: coeff_l, coeff_r
 
# 53 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 53 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc declare create(coeff_L, coeff_R) 
# 53 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 53 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp declare target (coeff_L, coeff_R) 
# 53 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
# 54 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
# 83 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
    integer(kind=8) :: i, j, k, l, q, r
 
    ! Scalar copies of eqn_idx fields used in GPU atomics. nvfortran OpenMP does not support derived-type member indexing on the LHS
    ! of atomic updates; plain integers work.
    integer :: igr_momxb, igr_e_idx, igr_advxb
 
# 89 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 89 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc declare create(igr_momxb, igr_E_idx, igr_advxb) 
# 89 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 89 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp declare target (igr_momxb, igr_E_idx, igr_advxb) 
# 89 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
# 90 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
contains
 
    !> Initialize the IGR module
    subroutine s_initialize_igr_module()
 
        if (viscous) then
#ifdef MFC_DEBUG
# 97 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
    block
# 97 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
        use iso_fortran_env, only: output_unit
# 97 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 97 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
        print *, 'm_igr.fpp:97: ', '@:ALLOCATE(Res_igr(1:2, 1:maxval(Re_size)))'
# 97 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 97 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
        call flush (output_unit)
# 97 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
    end block
# 97 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
# 97 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
    allocate (res_igr(1:2, 1:maxval(re_size)))
# 97 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 97 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 97 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 97 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc enter data create(Res_igr) 
# 97 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 97 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp target enter data map(always,alloc:Res_igr) 
# 97 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
# 98 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
            do i = 1, 2
                do j = 1, re_size(i)
                    res_igr(i, j) = fluid_pp(re_idx(i, j))%Re(i)
                end do
            end do
 
# 103 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 103 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc update device(Res_igr, Re_idx, Re_size) 
# 103 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 103 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp target update to(Res_igr, Re_idx, Re_size) 
# 103 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
# 104 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#ifdef __NVCOMPILER_GPU_UNIFIED_MEM
# 104 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
    block
# 104 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
        ! NVIDIA CUDA Fortran 25.3+: uses submodules (cuda_runtime_api, gpu_reductions, sort) See
# 104 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
        ! https://docs.nvidia.com/hpc-sdk/compilers/cuda-fortran-prog-guide/index.html#fortran-host-modules
# 104 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if __NVCOMPILER_MAJOR__ < 25 || (__NVCOMPILER_MAJOR__ == 25 && __NVCOMPILER_MINOR__ < 3)
# 104 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
        use cudafor, gpu_sum => sum, gpu_maxval => maxval, gpu_minval => minval
# 104 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#else
# 104 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
        use cuda_runtime_api
# 104 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
# 104 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
        integer :: istat
# 104 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 104 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
        if (nv_uvm_pref_gpu) then
# 104 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
                ! set preferred location GPU
# 104 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
                istat = cudamemadvise(c_devloc(res_igr), sizeof(res_igr), cudamemadvisesetpreferredlocation, 0)
# 104 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
                if (istat /= cudasuccess) then
# 104 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
                    write (*, "('Error code: ',I0, ': ')") istat
# 104 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
                end if
# 104 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
                ! set accessed by CPU
# 104 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
                istat = cudamemadvise(c_devloc(res_igr), sizeof(res_igr), cudamemadvisesetaccessedby, cudacpudeviceid)
# 104 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
                if (istat /= cudasuccess) then
# 104 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
                    write (*, "('Error code: ',I0, ': ')") istat
# 104 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
                end if
# 104 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
                ! prefetch to GPU - physically populate memory pages
# 104 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
                istat = cudamemprefetchasync(c_devloc(res_igr), sizeof(res_igr), 0, 0)
# 104 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
                if (istat /= cudasuccess) then
# 104 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
                    write (*, "('Error code: ',I0, ': ')") istat
# 104 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
                end if
# 104 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
        end if
# 104 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
    end block
# 104 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
# 105 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#ifdef __NVCOMPILER_GPU_UNIFIED_MEM
# 105 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
    block
# 105 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
        ! NVIDIA CUDA Fortran 25.3+: uses submodules (cuda_runtime_api, gpu_reductions, sort) See
# 105 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
        ! https://docs.nvidia.com/hpc-sdk/compilers/cuda-fortran-prog-guide/index.html#fortran-host-modules
# 105 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if __NVCOMPILER_MAJOR__ < 25 || (__NVCOMPILER_MAJOR__ == 25 && __NVCOMPILER_MINOR__ < 3)
# 105 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
        use cudafor, gpu_sum => sum, gpu_maxval => maxval, gpu_minval => minval
# 105 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#else
# 105 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
        use cuda_runtime_api
# 105 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
# 105 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
        integer :: istat
# 105 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 105 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
        if (nv_uvm_pref_gpu) then
# 105 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
                ! set preferred location GPU
# 105 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
                istat = cudamemadvise(c_devloc(re_idx), sizeof(re_idx), cudamemadvisesetpreferredlocation, 0)
# 105 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
                if (istat /= cudasuccess) then
# 105 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
                    write (*, "('Error code: ',I0, ': ')") istat
# 105 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
                end if
# 105 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
                ! set accessed by CPU
# 105 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
                istat = cudamemadvise(c_devloc(re_idx), sizeof(re_idx), cudamemadvisesetaccessedby, cudacpudeviceid)
# 105 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
                if (istat /= cudasuccess) then
# 105 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
                    write (*, "('Error code: ',I0, ': ')") istat
# 105 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
                end if
# 105 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
                ! prefetch to GPU - physically populate memory pages
# 105 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
                istat = cudamemprefetchasync(c_devloc(re_idx), sizeof(re_idx), 0, 0)
# 105 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
                if (istat /= cudasuccess) then
# 105 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
                    write (*, "('Error code: ',I0, ': ')") istat
# 105 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
                end if
# 105 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
        end if
# 105 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
    end block
# 105 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
# 106 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
        end if
 
#ifndef __NVCOMPILER_GPU_UNIFIED_MEM
#ifdef MFC_DEBUG
# 109 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
    block
# 109 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
        use iso_fortran_env, only: output_unit
# 109 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 109 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
        print *, 'm_igr.fpp:109: ', '@:ALLOCATE(jac(idwbuff(1)%beg:idwbuff(1)%end, idwbuff(2)%beg:idwbuff(2)%end, idwbuff(3)%beg:idwbuff(3)%end))'
# 109 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 109 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
        call flush (output_unit)
# 109 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
    end block
# 109 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
# 109 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
    allocate (jac(idwbuff(1)%beg:idwbuff(1)%end, idwbuff(2)%beg:idwbuff(2)%end, idwbuff(3)%beg:idwbuff(3)%end))
# 109 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 109 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 109 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 109 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc enter data create(jac) 
# 109 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 109 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp target enter data map(always,alloc:jac) 
# 109 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
# 110 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#ifdef MFC_DEBUG
# 110 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
    block
# 110 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
        use iso_fortran_env, only: output_unit
# 110 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 110 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
        print *, 'm_igr.fpp:110: ', '@:ALLOCATE(jac_rhs(-1:m,-1:n,-1:p))'
# 110 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 110 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
        call flush (output_unit)
# 110 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
    end block
# 110 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
# 110 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
    allocate (jac_rhs(-1:m,-1:n,-1:p))
# 110 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 110 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 110 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 110 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc enter data create(jac_rhs) 
# 110 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 110 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp target enter data map(always,alloc:jac_rhs) 
# 110 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
# 111 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
        if (igr_iter_solver == 1) then  ! Jacobi iteration
#ifdef MFC_DEBUG
# 113 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
    block
# 113 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
        use iso_fortran_env, only: output_unit
# 113 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 113 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
        print *, 'm_igr.fpp:113: ', '@:ALLOCATE(jac_old(idwbuff(1)%beg:idwbuff(1)%end, idwbuff(2)%beg:idwbuff(2)%end, idwbuff(3)%beg:idwbuff(3)%end))'
# 113 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 113 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
        call flush (output_unit)
# 113 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
    end block
# 113 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
# 113 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
    allocate (jac_old(idwbuff(1)%beg:idwbuff(1)%end, idwbuff(2)%beg:idwbuff(2)%end, idwbuff(3)%beg:idwbuff(3)%end))
# 113 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 113 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 113 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 113 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc enter data create(jac_old) 
# 113 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 113 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp target enter data map(always,alloc:jac_old) 
# 113 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
# 114 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
        end if
#else
        ! create map
        nv_uvm_temp_on_gpu(1:3) = 0
        nv_uvm_temp_on_gpu(1:nv_uvm_igr_temps_on_gpu) = 1
 
        if (nv_uvm_temp_on_gpu(1) == 1) then
#ifdef MFC_DEBUG
# 121 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
    block
# 121 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
        use iso_fortran_env, only: output_unit
# 121 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 121 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
        print *, 'm_igr.fpp:121: ', '@:ALLOCATE(jac(idwbuff(1)%beg:idwbuff(1)%end, idwbuff(2)%beg:idwbuff(2)%end, idwbuff(3)%beg:idwbuff(3)%end))'
# 121 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 121 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
        call flush (output_unit)
# 121 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
    end block
# 121 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
# 121 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
    allocate (jac(idwbuff(1)%beg:idwbuff(1)%end, idwbuff(2)%beg:idwbuff(2)%end, idwbuff(3)%beg:idwbuff(3)%end))
# 121 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 121 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 121 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 121 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc enter data create(jac) 
# 121 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 121 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp target enter data map(always,alloc:jac) 
# 121 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
# 122 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#ifdef __NVCOMPILER_GPU_UNIFIED_MEM
# 122 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
    block
# 122 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
        ! NVIDIA CUDA Fortran 25.3+: uses submodules (cuda_runtime_api, gpu_reductions, sort) See
# 122 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
        ! https://docs.nvidia.com/hpc-sdk/compilers/cuda-fortran-prog-guide/index.html#fortran-host-modules
# 122 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if __NVCOMPILER_MAJOR__ < 25 || (__NVCOMPILER_MAJOR__ == 25 && __NVCOMPILER_MINOR__ < 3)
# 122 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
        use cudafor, gpu_sum => sum, gpu_maxval => maxval, gpu_minval => minval
# 122 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#else
# 122 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
        use cuda_runtime_api
# 122 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
# 122 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
        integer :: istat
# 122 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 122 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
        if (nv_uvm_pref_gpu) then
# 122 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
                ! set preferred location GPU
# 122 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
                istat = cudamemadvise(c_devloc(jac), sizeof(jac), cudamemadvisesetpreferredlocation, 0)
# 122 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
                if (istat /= cudasuccess) then
# 122 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
                    write (*, "('Error code: ',I0, ': ')") istat
# 122 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
                end if
# 122 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
                ! set accessed by CPU
# 122 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
                istat = cudamemadvise(c_devloc(jac), sizeof(jac), cudamemadvisesetaccessedby, cudacpudeviceid)
# 122 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
                if (istat /= cudasuccess) then
# 122 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
                    write (*, "('Error code: ',I0, ': ')") istat
# 122 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
                end if
# 122 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
                ! prefetch to GPU - physically populate memory pages
# 122 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
                istat = cudamemprefetchasync(c_devloc(jac), sizeof(jac), 0, 0)
# 122 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
                if (istat /= cudasuccess) then
# 122 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
                    write (*, "('Error code: ',I0, ': ')") istat
# 122 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
                end if
# 122 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
        end if
# 122 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
    end block
# 122 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
# 123 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
        else
            allocate (jac_host(idwbuff(1)%beg:idwbuff(1)%end,idwbuff(2)%beg:idwbuff(2)%end,idwbuff(3)%beg:idwbuff(3)%end))
 
            jac(idwbuff(1)%beg:idwbuff(1)%end,idwbuff(2)%beg:idwbuff(2)%end,idwbuff(3)%beg:idwbuff(3)%end) => jac_host(:,:,:)
        end if
 
        if (nv_uvm_temp_on_gpu(2) == 1) then
#ifdef MFC_DEBUG
# 130 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
    block
# 130 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
        use iso_fortran_env, only: output_unit
# 130 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 130 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
        print *, 'm_igr.fpp:130: ', '@:ALLOCATE(jac_rhs(-1:m,-1:n,-1:p))'
# 130 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 130 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
        call flush (output_unit)
# 130 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
    end block
# 130 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
# 130 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
    allocate (jac_rhs(-1:m,-1:n,-1:p))
# 130 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 130 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 130 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 130 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc enter data create(jac_rhs) 
# 130 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 130 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp target enter data map(always,alloc:jac_rhs) 
# 130 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
# 131 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#ifdef __NVCOMPILER_GPU_UNIFIED_MEM
# 131 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
    block
# 131 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
        ! NVIDIA CUDA Fortran 25.3+: uses submodules (cuda_runtime_api, gpu_reductions, sort) See
# 131 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
        ! https://docs.nvidia.com/hpc-sdk/compilers/cuda-fortran-prog-guide/index.html#fortran-host-modules
# 131 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if __NVCOMPILER_MAJOR__ < 25 || (__NVCOMPILER_MAJOR__ == 25 && __NVCOMPILER_MINOR__ < 3)
# 131 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
        use cudafor, gpu_sum => sum, gpu_maxval => maxval, gpu_minval => minval
# 131 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#else
# 131 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
        use cuda_runtime_api
# 131 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
# 131 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
        integer :: istat
# 131 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 131 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
        if (nv_uvm_pref_gpu) then
# 131 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
                ! set preferred location GPU
# 131 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
                istat = cudamemadvise(c_devloc(jac_rhs), sizeof(jac_rhs), cudamemadvisesetpreferredlocation, 0)
# 131 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
                if (istat /= cudasuccess) then
# 131 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
                    write (*, "('Error code: ',I0, ': ')") istat
# 131 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
                end if
# 131 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
                ! set accessed by CPU
# 131 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
                istat = cudamemadvise(c_devloc(jac_rhs), sizeof(jac_rhs), cudamemadvisesetaccessedby, cudacpudeviceid)
# 131 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
                if (istat /= cudasuccess) then
# 131 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
                    write (*, "('Error code: ',I0, ': ')") istat
# 131 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
                end if
# 131 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
                ! prefetch to GPU - physically populate memory pages
# 131 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
                istat = cudamemprefetchasync(c_devloc(jac_rhs), sizeof(jac_rhs), 0, 0)
# 131 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
                if (istat /= cudasuccess) then
# 131 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
                    write (*, "('Error code: ',I0, ': ')") istat
# 131 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
                end if
# 131 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
        end if
# 131 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
    end block
# 131 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
# 132 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
        else
            allocate (jac_rhs_host(-1:m,-1:n,-1:p))
            jac_rhs(-1:m,-1:n,-1:p) => jac_rhs_host(:,:,:)
        end if
 
        if (igr_iter_solver == 1) then  ! Jacobi iteration
            if (nv_uvm_temp_on_gpu(3) == 1) then
#ifdef MFC_DEBUG
# 139 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
    block
# 139 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
        use iso_fortran_env, only: output_unit
# 139 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 139 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
        print *, 'm_igr.fpp:139: ', '@:ALLOCATE(jac_old(idwbuff(1)%beg:idwbuff(1)%end, idwbuff(2)%beg:idwbuff(2)%end, idwbuff(3)%beg:idwbuff(3)%end))'
# 139 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 139 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
        call flush (output_unit)
# 139 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
    end block
# 139 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
# 139 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
    allocate (jac_old(idwbuff(1)%beg:idwbuff(1)%end, idwbuff(2)%beg:idwbuff(2)%end, idwbuff(3)%beg:idwbuff(3)%end))
# 139 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 139 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 139 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 139 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc enter data create(jac_old) 
# 139 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 139 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp target enter data map(always,alloc:jac_old) 
# 139 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
# 140 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#ifdef __NVCOMPILER_GPU_UNIFIED_MEM
# 140 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
    block
# 140 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
        ! NVIDIA CUDA Fortran 25.3+: uses submodules (cuda_runtime_api, gpu_reductions, sort) See
# 140 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
        ! https://docs.nvidia.com/hpc-sdk/compilers/cuda-fortran-prog-guide/index.html#fortran-host-modules
# 140 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if __NVCOMPILER_MAJOR__ < 25 || (__NVCOMPILER_MAJOR__ == 25 && __NVCOMPILER_MINOR__ < 3)
# 140 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
        use cudafor, gpu_sum => sum, gpu_maxval => maxval, gpu_minval => minval
# 140 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#else
# 140 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
        use cuda_runtime_api
# 140 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
# 140 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
        integer :: istat
# 140 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 140 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
        if (nv_uvm_pref_gpu) then
# 140 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
                ! set preferred location GPU
# 140 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
                istat = cudamemadvise(c_devloc(jac_old), sizeof(jac_old), cudamemadvisesetpreferredlocation, 0)
# 140 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
                if (istat /= cudasuccess) then
# 140 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
                    write (*, "('Error code: ',I0, ': ')") istat
# 140 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
                end if
# 140 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
                ! set accessed by CPU
# 140 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
                istat = cudamemadvise(c_devloc(jac_old), sizeof(jac_old), cudamemadvisesetaccessedby, cudacpudeviceid)
# 140 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
                if (istat /= cudasuccess) then
# 140 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
                    write (*, "('Error code: ',I0, ': ')") istat
# 140 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
                end if
# 140 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
                ! prefetch to GPU - physically populate memory pages
# 140 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
                istat = cudamemprefetchasync(c_devloc(jac_old), sizeof(jac_old), 0, 0)
# 140 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
                if (istat /= cudasuccess) then
# 140 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
                    write (*, "('Error code: ',I0, ': ')") istat
# 140 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
                end if
# 140 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
        end if
# 140 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
    end block
# 140 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
# 141 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
            else
                allocate (jac_old_host(idwbuff(1)%beg:idwbuff(1)%end,idwbuff(2)%beg:idwbuff(2)%end,idwbuff(3)%beg:idwbuff(3)%end))
 
                jac_old(idwbuff(1)%beg:idwbuff(1)%end,idwbuff(2)%beg:idwbuff(2)%end, &
                        & idwbuff(3)%beg:idwbuff(3)%end) => jac_old_host(:,:,:)
            end if
        end if
#endif
 
 
# 150 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 150 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 150 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc parallel loop collapse(3) gang vector default(present) private(j, k, l)
# 150 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 150 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 150 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 150 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 150 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp target teams loop defaultmap(firstprivate:scalar) bind(teams,parallel) collapse(3) defaultmap(tofrom:aggregate) defaultmap(tofrom:allocatable) defaultmap(tofrom:pointer) private(j, k, l)
# 150 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
# 151 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
        do l = idwbuff(3)%beg, idwbuff(3)%end
            do k = idwbuff(2)%beg, idwbuff(2)%end
                do j = idwbuff(1)%beg, idwbuff(1)%end
                    jac(j, k, l) = 0._stp
                    if (igr_iter_solver == 1) jac_old(j, k, l) = 0._stp
                end do
            end do
        end do
 
# 159 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 159 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc end parallel loop
# 159 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 159 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 159 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp end target teams loop
# 159 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
# 160 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
        if (p == 0) then
            alf_igr = alf_factor*max(dx(1), dy(1))**2._wp
        else
            alf_igr = alf_factor*max(dx(1), dy(1), dz(1))**2._wp
        end if
 
# 166 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 166 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc update device(alf_igr) 
# 166 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 166 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp target update to(alf_igr) 
# 166 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
# 167 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
        igr_momxb = eqn_idx%mom%beg
        igr_e_idx = eqn_idx%E
        igr_advxb = eqn_idx%adv%beg
 
# 171 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 171 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc update device(igr_momxb, igr_E_idx, igr_advxb) 
# 171 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 171 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp target update to(igr_momxb, igr_E_idx, igr_advxb) 
# 171 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
# 172 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 174 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
            if (igr_order == 3) then
                vidxb = -1; vidxe = 2
 
# 176 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 176 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc update device(vidxb, vidxe) 
# 176 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 176 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp target update to(vidxb, vidxe) 
# 176 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
# 177 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
#ifdef MFC_DEBUG
# 178 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
    block
# 178 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
        use iso_fortran_env, only: output_unit
# 178 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 178 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
        print *, 'm_igr.fpp:178: ', '@:ALLOCATE(coeff_L(0:2))'
# 178 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 178 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
        call flush (output_unit)
# 178 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
    end block
# 178 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
# 178 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
    allocate (coeff_l(0:2))
# 178 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 178 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 178 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 178 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc enter data create(coeff_L) 
# 178 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 178 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp target enter data map(always,alloc:coeff_L) 
# 178 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
# 179 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
                coeff_l(0) = (2._wp/6._wp)
                coeff_l(1) = (5._wp/6._wp)
                coeff_l(2) = (-1._wp/6._wp)
 
#ifdef MFC_DEBUG
# 183 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
    block
# 183 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
        use iso_fortran_env, only: output_unit
# 183 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 183 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
        print *, 'm_igr.fpp:183: ', '@:ALLOCATE(coeff_R(-1:1))'
# 183 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 183 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
        call flush (output_unit)
# 183 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
    end block
# 183 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
# 183 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
    allocate (coeff_r(-1:1))
# 183 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 183 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 183 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 183 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc enter data create(coeff_R) 
# 183 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 183 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp target enter data map(always,alloc:coeff_R) 
# 183 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
# 184 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
                coeff_r(1) = (2._wp/6._wp)
                coeff_r(0) = (5._wp/6._wp)
                coeff_r(-1) = (-1._wp/6._wp)
            else if (igr_order == 5) then
                vidxb = -2; vidxe = 3
 
# 189 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 189 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc update device(vidxb, vidxe) 
# 189 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 189 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp target update to(vidxb, vidxe) 
# 189 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
# 190 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
#ifdef MFC_DEBUG
# 191 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
    block
# 191 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
        use iso_fortran_env, only: output_unit
# 191 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 191 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
        print *, 'm_igr.fpp:191: ', '@:ALLOCATE(coeff_L(-1:3))'
# 191 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 191 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
        call flush (output_unit)
# 191 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
    end block
# 191 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
# 191 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
    allocate (coeff_l(-1:3))
# 191 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 191 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 191 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 191 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc enter data create(coeff_L) 
# 191 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 191 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp target enter data map(always,alloc:coeff_L) 
# 191 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
# 192 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
                coeff_l(-1) = (-3._wp/60._wp)
                coeff_l(0) = (27._wp/60._wp)
                coeff_l(1) = (47._wp/60._wp)
                coeff_l(2) = (-13._wp/60._wp)
                coeff_l(3) = (2._wp/60._wp)
 
#ifdef MFC_DEBUG
# 198 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
    block
# 198 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
        use iso_fortran_env, only: output_unit
# 198 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 198 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
        print *, 'm_igr.fpp:198: ', '@:ALLOCATE(coeff_R(-2:2))'
# 198 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 198 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
        call flush (output_unit)
# 198 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
    end block
# 198 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
# 198 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
    allocate (coeff_r(-2:2))
# 198 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 198 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 198 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 198 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc enter data create(coeff_R) 
# 198 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 198 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp target enter data map(always,alloc:coeff_R) 
# 198 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
# 199 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
                coeff_r(2) = (-3._wp/60._wp)
                coeff_r(1) = (27._wp/60._wp)
                coeff_r(0) = (47._wp/60._wp)
                coeff_r(-1) = (-13._wp/60._wp)
                coeff_r(-2) = (2._wp/60._wp)
            end if
 
 
# 206 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 206 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc update device(coeff_L) 
# 206 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 206 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp target update to(coeff_L) 
# 206 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
# 207 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 207 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 207 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc update device(coeff_R) 
# 207 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 207 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp target update to(coeff_R) 
# 207 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
# 208 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
# 214 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
        jac_sf(1)%sf => jac
 
# 215 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 215 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc enter data copyin(jac_sf(1)%sf) 
# 215 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 215 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp target enter data map(to:jac_sf(1)%sf) 
# 215 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
# 216 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 216 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 216 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc enter data attach(jac_sf(1)%sf) 
# 216 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 216 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp target enter data map(always,to:jac_sf(1)%sf) 
# 216 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
# 217 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
    end subroutine s_initialize_igr_module
 
    !> Iteratively solve the implicit gradient reconstruction system
    subroutine s_igr_iterative_solve(q_cons_vf, bc_type, t_step)
 
#ifdef _CRAYFTN
        ! DIR$ OPTIMIZE (-haggress)
#endif
        type(scalar_field), dimension(sys_size), intent(inout)     :: q_cons_vf
        type(integer_field), dimension(1:num_dims,1:2), intent(in) :: bc_type
        integer, intent(in)                                        :: t_step
        real(wp)                                                   :: rho_rx, rho_ry, rho_rz, rho_lx, rho_ly, rho_lz
        real(wp)                                                   :: fd_coeff
        integer                                                    :: num_iters
 
        if (t_step == t_step_start) then
            num_iters = num_igr_warm_start_iters
        else
            num_iters = num_igr_iters
        end if
 
        do q = 1, num_iters
 
# 240 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 240 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 240 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc parallel loop collapse(3) gang vector default(present) private(j, k, l, rho_lx, rho_rx, rho_ly, rho_ry, rho_lz, rho_rz, fd_coeff)
# 240 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 240 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 240 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 240 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 240 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp target teams loop defaultmap(firstprivate:scalar) bind(teams,parallel) collapse(3) defaultmap(tofrom:aggregate) defaultmap(tofrom:allocatable) defaultmap(tofrom:pointer) &
# 240 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp& private(j, k, l, rho_lx, rho_rx, rho_ly, rho_ry, rho_lz, rho_rz, fd_coeff)
# 240 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
# 241 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
            do l = 0, p
                do k = 0, n
                    do j = 0, m
                        rho_lx = 0._wp
                        rho_rx = 0._wp
                        rho_ly = 0._wp
                        rho_ry = 0._wp
                        rho_lz = 0._wp
                        rho_rz = 0._wp
                        fd_coeff = 0._wp
 
 
# 252 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 252 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc loop seq 
# 252 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 252 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 252 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
# 253 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
                        do i = 1, num_fluids
                            rho_lx = rho_lx + real(q_cons_vf(i)%sf(j, k, l) + q_cons_vf(i)%sf(j - 1, k, l), kind=wp)/2._wp
                            rho_rx = rho_rx + real(q_cons_vf(i)%sf(j, k, l) + q_cons_vf(i)%sf(j + 1, k, l), kind=wp)/2._wp
                            rho_ly = rho_ly + real(q_cons_vf(i)%sf(j, k, l) + q_cons_vf(i)%sf(j, k - 1, l), kind=wp)/2._wp
                            rho_ry = rho_ry + real(q_cons_vf(i)%sf(j, k, l) + q_cons_vf(i)%sf(j, k + 1, l), kind=wp)/2._wp
                            if (p > 0) then
                                rho_lz = rho_lz + real(q_cons_vf(i)%sf(j, k, l) + q_cons_vf(i)%sf(j, k, l - 1), kind=wp)/2._wp
                                rho_rz = rho_rz + real(q_cons_vf(i)%sf(j, k, l) + q_cons_vf(i)%sf(j, k, l + 1), kind=wp)/2._wp
                            end if
                            fd_coeff = fd_coeff + q_cons_vf(i)%sf(j, k, l)
                        end do
 
                        fd_coeff = 1._wp/fd_coeff + alf_igr*((1._wp/dx(j)**2._wp)*(1._wp/rho_lx + 1._wp/rho_rx) + (1._wp/dy(k) &
                                                             & **2._wp)*(1._wp/rho_ly + 1._wp/rho_ry))
 
                        if (num_dims == 3) then
                            fd_coeff = fd_coeff + alf_igr*(1._wp/dz(l)**2._wp)*(1._wp/rho_lz + 1._wp/rho_rz)
                        end if
 
                        if (igr_iter_solver == 1) then  ! Jacobi iteration
                            if (num_dims == 3) then
                                jac(j, k, l) = real((alf_igr/fd_coeff)*((1._wp/dx(j)**2._wp)*(jac_old(j - 1, k, &
                                    & l)/rho_lx + jac_old(j + 1, k, l)/rho_rx) + (1._wp/dy(k)**2._wp)*(jac_old(j, k - 1, &
                                    & l)/rho_ly + jac_old(j, k + 1, l)/rho_ry) + (1._wp/dz(l)**2._wp)*(jac_old(j, k, &
                                    & l - 1)/rho_lz + jac_old(j, k, l + 1)/rho_rz)) + real(jac_rhs(j, k, l), kind=wp)/fd_coeff, &
                                    & kind=stp)
                            else
                                jac(j, k, l) = real((alf_igr/fd_coeff)*((1._wp/dx(j)**2._wp)*(real(jac_old(j - 1, k, l), &
                                    & kind=wp)/rho_lx + real(jac_old(j + 1, k, l), &
                                    & kind=wp)/rho_rx) + (1._wp/dy(k)**2._wp)*(real(jac_old(j, k - 1, l), &
                                    & kind=wp)/rho_ly + real(jac_old(j, k + 1, l), kind=wp)/rho_ry)) + real(jac_rhs(j, k, l), &
                                    & kind=wp)/fd_coeff, kind=stp)
                            end if
                        else  ! Gauss Seidel iteration
                            if (num_dims == 3) then
                                jac(j, k, l) = real((alf_igr/fd_coeff)*((1._wp/dx(j)**2._wp)*(jac(j - 1, k, &
                                    & l)/rho_lx + jac(j + 1, k, l)/rho_rx) + (1._wp/dy(k)**2._wp)*(jac(j, k - 1, &
                                    & l)/rho_ly + jac(j, k + 1, l)/rho_ry) + (1._wp/dz(l)**2._wp)*(jac(j, k, &
                                    & l - 1)/rho_lz + jac(j, k, l + 1)/rho_rz)) + real(jac_rhs(j, k, l), kind=wp)/fd_coeff, &
                                    & kind=stp)
                            else
                                jac(j, k, l) = real((alf_igr/fd_coeff)*((1._wp/dx(j)**2._wp)*(jac(j - 1, k, &
                                    & l)/rho_lx + jac(j + 1, k, l)/rho_rx) + (1._wp/dy(k)**2._wp)*(jac(j, k - 1, &
                                    & l)/rho_ly + jac(j, k + 1, l)/rho_ry)) + real(jac_rhs(j, k, l), kind=wp)/fd_coeff, kind=stp)
                            end if
                        end if
                    end do
                end do
            end do
 
# 302 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 302 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc end parallel loop
# 302 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 302 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 302 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp end target teams loop
# 302 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
# 303 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
            call s_populate_f_igr_buffers(bc_type, jac_sf)
 
            if (igr_iter_solver == 1) then  ! Jacobi iteration
 
# 307 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 307 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 307 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc parallel loop collapse(3) gang vector default(present) private(j, k, l)
# 307 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 307 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 307 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 307 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 307 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp target teams loop defaultmap(firstprivate:scalar) bind(teams,parallel) collapse(3) defaultmap(tofrom:aggregate) defaultmap(tofrom:allocatable) defaultmap(tofrom:pointer) private(j, k, l)
# 307 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
# 308 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
                do l = idwbuff(3)%beg, idwbuff(3)%end
                    do k = idwbuff(2)%beg, idwbuff(2)%end
                        do j = idwbuff(1)%beg, idwbuff(1)%end
                            jac_old(j, k, l) = jac(j, k, l)
                        end do
                    end do
                end do
 
# 315 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 315 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc end parallel loop
# 315 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 315 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 315 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp end target teams loop
# 315 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
# 316 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
            end if
        end do
 
    end subroutine s_igr_iterative_solve
 
    !> Compute the IGR viscous stress contribution in the x-direction and accumulate into the RHS
    subroutine s_igr_sigma_x(q_cons_vf, rhs_vf)
 
#ifdef _CRAYFTN
        ! DIR$ OPTIMIZE (-haggress)
#endif
        type(scalar_field), dimension(sys_size), intent(inout) :: rhs_vf
        type(scalar_field), dimension(sys_size), intent(inout) :: q_cons_vf
        real(wp)                                               :: f_l, vel_l, rho_l, f_r, vel_r, rho_r
# 331 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
            real(wp), dimension(num_fluids_max) :: alpha_rho_l, alpha_rho_r
# 335 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
 
# 336 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 336 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 336 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc parallel loop collapse(3) gang vector default(present) private(j, k, l, F_L, vel_L, alpha_rho_L, F_R, vel_R, alpha_rho_R, rho_L, rho_R)
# 336 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 336 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 336 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 336 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 336 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp target teams loop defaultmap(firstprivate:scalar) bind(teams,parallel) collapse(3) defaultmap(tofrom:aggregate) defaultmap(tofrom:allocatable) defaultmap(tofrom:pointer) &
# 336 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp& private(j, k, l, F_L, vel_L, alpha_rho_L, F_R, vel_R, alpha_rho_R, rho_L, rho_R)
# 336 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
# 337 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
        do l = 0, p
            do k = 0, n
                do j = -1, m
                    f_l = 0._wp; f_r = 0._wp
                    vel_l = 0._wp; vel_r = 0._wp
                    rho_l = 0._wp; rho_r = 0._wp
 
 
# 344 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 344 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc loop seq 
# 344 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 344 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 344 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
# 345 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
                    do i = 1, num_fluids
                        alpha_rho_l(i) = 0._wp
                        alpha_rho_r(i) = 0._wp
                    end do
 
 
# 350 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 350 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc loop seq 
# 350 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 350 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 350 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
# 351 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
                    do q = vidxb + 1, vidxe
 
# 352 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 352 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc loop seq 
# 352 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 352 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 352 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
# 353 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
                        do i = 1, num_fluids
                            alpha_rho_l(i) = alpha_rho_l(i) + coeff_l(q)*q_cons_vf(i)%sf(j + q, k, l)
                        end do
 
                        vel_l = vel_l + coeff_l(q)*q_cons_vf(igr_momxb)%sf(j + q, k, l)
                        f_l = f_l + coeff_l(q)*jac(j + q, k, l)
                    end do
 
 
# 361 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 361 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc loop seq 
# 361 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 361 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 361 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
# 362 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
                    do q = vidxb, vidxe - 1
 
# 363 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 363 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc loop seq 
# 363 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 363 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 363 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
# 364 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
                        do i = 1, num_fluids
                            alpha_rho_r(i) = alpha_rho_r(i) + coeff_r(q)*q_cons_vf(i)%sf(j + q, k, l)
                        end do
 
                        vel_r = vel_r + coeff_r(q)*q_cons_vf(igr_momxb)%sf(j + q, k, l)
                        f_r = f_r + coeff_r(q)*jac(j + q, k, l)
                    end do
 
 
# 372 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 372 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc loop seq 
# 372 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 372 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 372 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
# 373 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
                    do i = 1, num_fluids
                        rho_l = rho_l + alpha_rho_l(i)
                        rho_r = rho_r + alpha_rho_r(i)
                    end do
 
                    vel_l = vel_l/rho_l
                    vel_r = vel_r/rho_r
 
# 382 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 382 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 382 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 382 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 382 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 382 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
# 383 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
                        rhs_vf(igr_momxb)%sf(j + 1, k, l) = rhs_vf(igr_momxb)%sf(j + 1, k, &
                               & l) + real(0.5_wp*dt*f_l*(1._wp/dx(j + 1)), kind=stp)
# 385 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 385 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 385 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 385 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 385 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 385 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
# 386 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
                        rhs_vf(igr_e_idx)%sf(j + 1, k, l) = rhs_vf(igr_e_idx)%sf(j + 1, k, &
                               & l) + real(0.5_wp*dt*vel_l*f_l*(1._wp/dx(j + 1)), kind=stp)
# 388 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 388 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 388 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 388 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 388 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 388 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
# 389 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
                        rhs_vf(igr_momxb)%sf(j, k, l) = rhs_vf(igr_momxb)%sf(j, k, l) - real(0.5_wp*dt*f_l*(1._wp/dx(j)), &
# 390 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
                               & kind=stp)
 
# 391 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 391 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 391 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 391 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 391 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
# 392 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
                        rhs_vf(igr_e_idx)%sf(j, k, l) = rhs_vf(igr_e_idx)%sf(j, k, &
                               & l) - real(0.5_wp*dt*vel_l*f_l*(1._wp/dx(j)), kind=stp)
# 394 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
# 382 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 382 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 382 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 382 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 382 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 382 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
# 383 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
                        rhs_vf(igr_momxb)%sf(j + 1, k, l) = rhs_vf(igr_momxb)%sf(j + 1, k, &
                               & l) + real(0.5_wp*dt*f_r*(1._wp/dx(j + 1)), kind=stp)
# 385 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 385 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 385 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 385 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 385 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 385 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
# 386 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
                        rhs_vf(igr_e_idx)%sf(j + 1, k, l) = rhs_vf(igr_e_idx)%sf(j + 1, k, &
                               & l) + real(0.5_wp*dt*vel_r*f_r*(1._wp/dx(j + 1)), kind=stp)
# 388 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 388 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 388 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 388 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 388 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 388 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
# 389 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
                        rhs_vf(igr_momxb)%sf(j, k, l) = rhs_vf(igr_momxb)%sf(j, k, l) - real(0.5_wp*dt*f_r*(1._wp/dx(j)), &
# 390 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
                               & kind=stp)
 
# 391 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 391 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 391 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 391 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 391 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
# 392 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
                        rhs_vf(igr_e_idx)%sf(j, k, l) = rhs_vf(igr_e_idx)%sf(j, k, &
                               & l) - real(0.5_wp*dt*vel_r*f_r*(1._wp/dx(j)), kind=stp)
# 394 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
# 395 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
                end do
            end do
        end do
 
# 398 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 398 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc end parallel loop
# 398 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 398 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 398 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp end target teams loop
# 398 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
# 399 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
    end subroutine s_igr_sigma_x
 
    !> Evaluate the approximate Riemann solver for the IGR scheme along a given direction
    subroutine s_igr_riemann_solver(q_cons_vf, rhs_vf, idir)
 
#ifdef _CRAYFTN
        ! DIR$ OPTIMIZE (-haggress)
#endif
        type(scalar_field), dimension(sys_size), intent(inout) :: rhs_vf
        type(scalar_field), dimension(sys_size), intent(inout) :: q_cons_vf
        integer, intent(in)                                    :: idir
        real(wp)                                               :: cfl
        real(wp)                                               :: rho_l, gamma_l, pi_inf_l, e_l, mu_l, f_l, pres_l
        real(wp)                                               :: qv_igr  !< discarded; IGR carries no heat of formation
        real(wp)                                               :: rho_r, gamma_r, pi_inf_r, e_r, mu_r, f_r, pres_r
        real(wp), dimension(3)                                 :: vflux_l_arr, vflux_r_arr
        real(wp), dimension(-1:1)                              :: rho_sf_small
# 418 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
            real(wp), dimension(num_fluids_max) :: alpha_rho_l, alpha_l, alpha_r, alpha_rho_r
            real(wp), dimension(3)              :: vel_l, vel_r
            real(wp), dimension(3, 3)           :: dvel
            real(wp), dimension(3)              :: dvel_small
# 428 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
        if (idir == 1) then
            if (p == 0) then
# 432 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 432 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 432 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 432 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc parallel loop collapse(3) gang vector default(present) private(j, k, l, rho_L, rho_R, gamma_L, gamma_R, pi_inf_L, pi_inf_R, qv_igr, mu_L, mu_R, vel_L, vel_R, pres_L, pres_R, alpha_L, alpha_R, &
# 432 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc& alpha_rho_L, alpha_rho_R, F_L, F_R, E_L, E_R, cfl, dvel, dvel_small, rho_sf_small, vflux_L_arr, vflux_R_arr)
# 432 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 432 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 432 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 432 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 432 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp target teams loop defaultmap(firstprivate:scalar) bind(teams,parallel) collapse(3) defaultmap(tofrom:aggregate) defaultmap(tofrom:allocatable) defaultmap(tofrom:pointer) private(j, k, l, rho_L, &
# 432 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp& rho_R, gamma_L, gamma_R, pi_inf_L, pi_inf_R, qv_igr, mu_L, mu_R, vel_L, vel_R, pres_L, pres_R, alpha_L, alpha_R, alpha_rho_L, alpha_rho_R, F_L, F_R, E_L, E_R, cfl, dvel, dvel_small, &
# 432 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp& rho_sf_small, vflux_L_arr, vflux_R_arr)
# 432 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
# 435 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
                    do l = 0, p
                        do k = 0, n
                            do j = -1, m
                                vflux_l_arr = 0._wp
                                vflux_r_arr = 0._wp
 
# 448 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 448 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 448 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc loop seq 
# 448 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 448 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 448 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
# 449 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
                                do q = vidxb, vidxe
                                    ! x-direction contributions
 
# 451 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 451 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc loop seq 
# 451 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 451 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 451 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
# 452 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
                                    do i = -1, 1
                                        rho_l = 0._wp
 
# 454 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 454 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc loop seq 
# 454 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 454 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 454 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
# 455 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
                                        do r = 1, num_fluids
                                            rho_l = rho_l + q_cons_vf(r)%sf(j + i + q, k, l)
                                        end do
                                        rho_sf_small(i) = rho_l
                                    end do
 
                                    dvel_small(1) = (1/(2._wp*dx(j)))*(1._wp*q_cons_vf(igr_momxb)%sf(j + 1 + q, k, &
                                               & l)/rho_sf_small(1) - 1._wp*q_cons_vf(igr_momxb)%sf(j - 1 + q, k, &
                                               & l)/rho_sf_small(-1))
                                    dvel_small(2) = (1/(2._wp*dx(j)))*(q_cons_vf(igr_momxb + 1)%sf(j + 1 + q, k, &
                                               & l)/rho_sf_small(1) - q_cons_vf(igr_momxb + 1)%sf(j - 1 + q, k, l)/rho_sf_small(-1))
 
                                    if (q == 0) then
 
# 468 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 468 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc loop seq 
# 468 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 468 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 468 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
# 469 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
                                        do i = 1, num_dims
                                            dvel(i, 1) = dvel_small(i)
                                        end do
                                    end if
 
                                    if (q > vidxb) then
                                        vflux_l_arr(1) = vflux_l_arr(1) + coeff_l(q)*(dvel_small(2))
                                        vflux_l_arr(3) = vflux_l_arr(3) + coeff_l(q)*(4._wp*dvel_small(1))/3._wp
                                    end if
                                    if (q < vidxe) then
                                        vflux_r_arr(1) = vflux_r_arr(1) + coeff_r(q)*(dvel_small(2))
                                        vflux_r_arr(3) = vflux_r_arr(3) + coeff_r(q)*(4._wp*dvel_small(1))/3._wp
                                    end if
 
                                    ! y-direction contributions
 
# 484 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 484 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc loop seq 
# 484 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 484 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 484 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
# 485 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
                                    do i = -1, 1
                                        rho_l = 0._wp
 
# 487 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 487 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc loop seq 
# 487 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 487 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 487 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
# 488 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
                                        do r = 1, num_fluids
                                            rho_l = rho_l + q_cons_vf(r)%sf(j + q, k + i, l)
                                        end do
                                        rho_sf_small(i) = rho_l
                                    end do
 
                                    dvel_small(1) = (1/(2._wp*dy(k)))*(q_cons_vf(igr_momxb)%sf(j + q, k + 1, &
                                               & l)/rho_sf_small(1) - q_cons_vf(igr_momxb)%sf(j + q, k - 1, l)/rho_sf_small(-1))
                                    dvel_small(2) = (1/(2._wp*dy(k)))*(q_cons_vf(igr_momxb + 1)%sf(j + q, k + 1, &
                                               & l)/rho_sf_small(1) - q_cons_vf(igr_momxb + 1)%sf(j + q, k - 1, l)/rho_sf_small(-1))
 
                                    if (q == 0) then
 
# 500 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 500 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc loop seq 
# 500 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 500 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 500 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
# 501 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
                                        do i = 1, num_dims
                                            dvel(i, 2) = dvel_small(i)
                                        end do
                                    end if
 
                                    if (q > vidxb) then
                                        vflux_l_arr(1) = vflux_l_arr(1) + coeff_l(q)*(dvel_small(1))
                                        vflux_l_arr(3) = vflux_l_arr(3) + coeff_l(q)*(-2._wp*dvel_small(2))/3._wp
                                    end if
                                    if (q < vidxe) then
                                        vflux_r_arr(1) = vflux_r_arr(1) + coeff_r(q)*(dvel_small(1))
                                        vflux_r_arr(3) = vflux_r_arr(3) + coeff_r(q)*(-2._wp*dvel_small(2))/3._wp
                                    end if
 
                                    if (q == 0) then
                                        jac_rhs(j, k, l) = real(alf_igr*(2._wp*(dvel(1, 2)*dvel(2, 1)) + dvel(1, &
                                                & 1)**2._wp + dvel(2, 2)**2._wp + (dvel(1, 1) + dvel(2, 2))**2._wp), kind=stp)
                                    end if
                                end do
 
 
# 521 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 521 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc loop seq 
# 521 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 521 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 521 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
# 522 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
                                do i = 1, num_fluids
                                    alpha_rho_l(i) = 0._wp
                                    alpha_rho_r(i) = 0._wp
                                    alpha_l(i) = 0._wp
                                    alpha_r(i) = 0._wp
                                end do
 
# 528 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 528 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc loop seq 
# 528 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 528 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 528 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
# 529 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
                                do i = 1, num_dims
                                    vel_l(i) = 0._wp
                                    vel_r(i) = 0._wp
                                end do
 
 
# 534 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 534 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc loop seq 
# 534 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 534 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 534 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
# 535 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
                                do q = vidxb + 1, vidxe
 
# 536 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 536 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc loop seq 
# 536 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 536 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 536 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
# 537 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
                                    do i = 1, num_fluids
                                        alpha_rho_l(i) = alpha_rho_l(i) + coeff_l(q)*q_cons_vf(i)%sf(j + q, k, l)
                                    end do
 
                                    if (num_fluids > 1) then
 
# 542 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 542 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc loop seq 
# 542 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 542 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 542 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
# 543 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
                                        do i = 1, num_fluids - 1
                                            alpha_l(i) = alpha_l(i) + coeff_l(q)*q_cons_vf(igr_e_idx + i)%sf(j + q, k, l)
                                        end do
                                    else
                                        alpha_l(1) = 1._wp
                                    end if
 
 
# 550 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 550 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc loop seq 
# 550 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 550 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 550 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
# 551 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
                                    do i = 1, num_dims
                                        vel_l(i) = vel_l(i) + coeff_l(q)*q_cons_vf(igr_momxb + i - 1)%sf(j + q, k, l)
                                    end do
                                end do
 
 
# 556 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 556 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc loop seq 
# 556 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 556 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 556 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
# 557 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
                                do q = vidxb, vidxe - 1
 
# 558 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 558 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc loop seq 
# 558 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 558 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 558 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
# 559 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
                                    do i = 1, num_fluids
                                        alpha_rho_r(i) = alpha_rho_r(i) + coeff_r(q)*q_cons_vf(i)%sf(j + q, k, l)
                                    end do
 
                                    if (num_fluids > 1) then
 
# 564 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 564 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc loop seq 
# 564 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 564 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 564 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
# 565 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
                                        do i = 1, num_fluids - 1
                                            alpha_r(i) = alpha_r(i) + coeff_r(q)*q_cons_vf(igr_e_idx + i)%sf(j + q, k, l)
                                        end do
                                    else
                                        alpha_r(1) = 1._wp
                                    end if
 
 
# 572 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 572 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc loop seq 
# 572 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 572 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 572 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
# 573 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
                                    do i = 1, num_dims
                                        vel_r(i) = vel_r(i) + coeff_r(q)*q_cons_vf(igr_momxb + i - 1)%sf(j + q, k, l)
                                    end do
                                end do
 
                                if (num_fluids > 1) then
                                    alpha_l(num_fluids) = 1._wp
                                    alpha_r(num_fluids) = 1._wp
 
 
# 582 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 582 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc loop seq 
# 582 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 582 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 582 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
# 583 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
                                    do i = 1, num_fluids - 1
                                        alpha_l(num_fluids) = alpha_l(num_fluids) - alpha_l(i)
                                        alpha_r(num_fluids) = alpha_r(num_fluids) - alpha_r(i)
                                    end do
                                end if
 
                                call s_compute_mixture_coefficients(alpha_rho_l, alpha_l, rho_l, gamma_l, pi_inf_l, qv_igr)
                                call s_compute_mixture_coefficients(alpha_rho_r, alpha_r, rho_r, gamma_r, pi_inf_r, qv_igr)
 
 
# 592 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 592 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc loop seq 
# 592 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 592 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 592 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
# 593 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
                                do i = 1, num_dims
                                    vel_l(i) = vel_l(i)/rho_l
                                    vel_r(i) = vel_r(i)/rho_r
                                end do
 
                                if (viscous) then
                                    mu_l = 0._wp; mu_r = 0._wp
 
# 600 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 600 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc loop seq 
# 600 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 600 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 600 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
# 601 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
                                    do i = 1, num_fluids
                                        mu_l = alpha_l(i)/res_igr(1, i) + mu_l
                                        mu_r = alpha_r(i)/res_igr(1, i) + mu_r
                                    end do
 
 
# 606 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 606 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 606 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 606 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 606 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
# 607 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
                                    rhs_vf(igr_momxb + 1)%sf(j + 1, k, l) = rhs_vf(igr_momxb + 1)%sf(j + 1, k, &
                                           & l) - real(0.5_wp*dt*mu_l*vflux_l_arr(1)*(1._wp/dx(j + 1)), kind=stp)
 
# 609 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 609 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 609 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 609 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 609 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
# 610 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
                                    rhs_vf(igr_e_idx)%sf(j + 1, k, l) = rhs_vf(igr_e_idx)%sf(j + 1, k, &
                                           & l) - real(0.5_wp*dt*mu_l*vflux_l_arr(1)*vel_l(2)*(1._wp/dx(j + 1)), kind=stp)
 
 
# 613 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 613 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 613 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 613 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 613 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
# 614 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
                                    rhs_vf(igr_momxb + 1)%sf(j, k, l) = rhs_vf(igr_momxb + 1)%sf(j, k, &
                                           & l) + real(0.5_wp*dt*mu_l*vflux_l_arr(1)*(1._wp/dx(j)), kind=stp)
 
# 616 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 616 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 616 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 616 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 616 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
# 617 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
                                    rhs_vf(igr_e_idx)%sf(j, k, l) = rhs_vf(igr_e_idx)%sf(j, k, &
                                           & l) + real(0.5_wp*dt*mu_l*vflux_l_arr(1)*vel_l(2)*(1._wp/dx(j)), kind=stp)
 
 
# 620 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 620 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 620 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 620 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 620 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
# 621 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
                                    rhs_vf(igr_momxb + 1)%sf(j + 1, k, l) = rhs_vf(igr_momxb + 1)%sf(j + 1, k, &
                                           & l) - real(0.5_wp*dt*mu_r*vflux_r_arr(1)*(1._wp/dx(j + 1)), kind=stp)
 
# 623 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 623 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 623 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 623 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 623 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
# 624 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
                                    rhs_vf(igr_e_idx)%sf(j + 1, k, l) = rhs_vf(igr_e_idx)%sf(j + 1, k, &
                                           & l) - real(0.5_wp*dt*mu_r*vflux_r_arr(1)*vel_r(2)*(1._wp/dx(j + 1)), kind=stp)
 
 
# 627 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 627 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 627 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 627 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 627 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
# 628 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
                                    rhs_vf(igr_momxb + 1)%sf(j, k, l) = rhs_vf(igr_momxb + 1)%sf(j, k, &
                                           & l) + real(0.5_wp*dt*mu_r*vflux_r_arr(1)*(1._wp/dx(j)), kind=stp)
 
# 630 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 630 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 630 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 630 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 630 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
# 631 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
                                    rhs_vf(igr_e_idx)%sf(j, k, l) = rhs_vf(igr_e_idx)%sf(j, k, &
                                           & l) + real(0.5_wp*dt*mu_r*vflux_r_arr(1)*vel_r(2)*(1._wp/dx(j)), kind=stp)
 
 
# 634 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 634 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 634 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 634 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 634 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
# 635 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
                                    rhs_vf(igr_momxb)%sf(j + 1, k, l) = rhs_vf(igr_momxb)%sf(j + 1, k, &
                                           & l) - real(0.5_wp*dt*mu_l*vflux_l_arr(3)*(1._wp/dx(j + 1)), kind=stp)
 
# 637 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 637 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 637 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 637 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 637 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
# 638 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
                                    rhs_vf(igr_e_idx)%sf(j + 1, k, l) = rhs_vf(igr_e_idx)%sf(j + 1, k, &
                                           & l) - real(0.5_wp*dt*mu_l*vflux_l_arr(3)*vel_l(1)*(1._wp/dx(j + 1)), kind=stp)
 
 
# 641 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 641 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 641 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 641 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 641 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
# 642 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
                                    rhs_vf(igr_momxb)%sf(j, k, l) = rhs_vf(igr_momxb)%sf(j, k, &
                                           & l) + real(0.5_wp*dt*mu_l*vflux_l_arr(3)*(1._wp/dx(j)), kind=stp)
 
# 644 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 644 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 644 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 644 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 644 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
# 645 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
                                    rhs_vf(igr_e_idx)%sf(j, k, l) = rhs_vf(igr_e_idx)%sf(j, k, &
                                           & l) + real(0.5_wp*dt*mu_l*vflux_l_arr(3)*vel_l(1)*(1._wp/dx(j)), kind=stp)
 
 
# 648 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 648 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 648 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 648 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 648 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
# 649 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
                                    rhs_vf(igr_momxb)%sf(j + 1, k, l) = rhs_vf(igr_momxb)%sf(j + 1, k, &
                                           & l) - real(0.5_wp*dt*mu_r*vflux_r_arr(3)*(1._wp/dx(j + 1)), kind=stp)
 
# 651 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 651 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 651 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 651 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 651 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
# 652 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
                                    rhs_vf(igr_e_idx)%sf(j + 1, k, l) = rhs_vf(igr_e_idx)%sf(j + 1, k, &
                                           & l) - real(0.5_wp*dt*mu_r*vflux_r_arr(3)*vel_r(1)*(1._wp/dx(j + 1)), kind=stp)
 
 
# 655 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 655 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 655 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 655 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 655 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
# 656 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
                                    rhs_vf(igr_momxb)%sf(j, k, l) = rhs_vf(igr_momxb)%sf(j, k, &
                                           & l) + real(0.5_wp*dt*mu_r*vflux_r_arr(3)*(1._wp/dx(j)), kind=stp)
 
# 658 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 658 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 658 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 658 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 658 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
# 659 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
                                    rhs_vf(igr_e_idx)%sf(j, k, l) = rhs_vf(igr_e_idx)%sf(j, k, &
                                           & l) + real(0.5_wp*dt*mu_r*vflux_r_arr(3)*vel_r(1)*(1._wp/dx(j)), kind=stp)
                                end if
 
                                e_l = 0._wp; e_r = 0._wp
 
 
# 665 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 665 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc loop seq 
# 665 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 665 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 665 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
# 666 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
                                do q = vidxb + 1, vidxe
                                    e_l = e_l + coeff_l(q)*q_cons_vf(igr_e_idx)%sf(j + q, k, l)
                                end do
 
 
# 670 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 670 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc loop seq 
# 670 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 670 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 670 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
# 671 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
                                do q = vidxb, vidxe - 1
                                    e_r = e_r + coeff_r(q)*q_cons_vf(igr_e_idx)%sf(j + q, k, l)
                                end do
 
                                call s_get_derived_states(e_l, gamma_l, pi_inf_l, rho_l, vel_l, e_r, gamma_r, pi_inf_r, rho_r, &
                                                          & vel_r, pres_l, pres_r, cfl)
 
                                do i = 1, num_fluids
 
# 679 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 679 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 679 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 679 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 679 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
# 680 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
                                    rhs_vf(i)%sf(j + 1, k, l) = rhs_vf(i)%sf(j + 1, k, &
                                           & l) + real((0.5_wp*dt*(alpha_rho_l(i)*vel_l(1))*(1._wp/dx(j + 1)) &
                                           & - 0.5_wp*dt*cfl*(alpha_rho_l(i))*(1._wp/dx(j + 1))), kind=stp)
 
 
# 684 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 684 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 684 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 684 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 684 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
# 685 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
                                    rhs_vf(i)%sf(j, k, l) = rhs_vf(i)%sf(j, k, &
                                           & l) - real((0.5_wp*dt*(alpha_rho_l(i)*vel_l(1))*(1._wp/dx(j)) &
                                           & - 0.5_wp*dt*cfl*(alpha_rho_l(i))*(1._wp/dx(j))), kind=stp)
                                end do
 
                                if (num_fluids > 1) then
 
# 691 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 691 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc loop seq 
# 691 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 691 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 691 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
# 692 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
                                    do i = 1, num_fluids - 1
 
# 693 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 693 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 693 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 693 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 693 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
# 694 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
                                        rhs_vf(igr_advxb + i - 1)%sf(j + 1, k, l) = rhs_vf(igr_advxb + i - 1)%sf(j + 1, k, &
                                               & l) + real((0.5_wp*dt*(alpha_l(i)*vel_l(1))*(1._wp/dx(j + 1)) &
                                               & - 0.5_wp*dt*cfl*(alpha_l(i))*(1._wp/dx(j + 1))), kind=stp)
 
 
# 698 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 698 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 698 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 698 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 698 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
# 699 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
                                        rhs_vf(igr_advxb + i - 1)%sf(j + 1, k, l) = rhs_vf(igr_advxb + i - 1)%sf(j + 1, k, &
                                               & l) - real((0.5_wp*dt*q_cons_vf(igr_advxb + i - 1)%sf(j + 1, k, &
                                               & l)*vel_l(1)*(1._wp/dx(j + 1))), kind=stp)
 
 
# 703 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 703 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 703 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 703 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 703 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
# 704 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
                                        rhs_vf(igr_advxb + i - 1)%sf(j, k, l) = rhs_vf(igr_advxb + i - 1)%sf(j, k, &
                                               & l) - real((0.5_wp*dt*(alpha_l(i)*vel_l(1))*(1._wp/dx(j)) &
                                               & - 0.5_wp*dt*cfl*(alpha_l(i))*(1._wp/dx(j))), kind=stp)
 
 
# 708 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 708 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 708 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 708 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 708 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
# 709 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
                                        rhs_vf(igr_advxb + i - 1)%sf(j, k, l) = rhs_vf(igr_advxb + i - 1)%sf(j, k, &
                                               & l) + real((0.5_wp*dt*q_cons_vf(igr_advxb + i - 1)%sf(j, k, &
                                               & l)*vel_l(1)*(1._wp/dx(j))), kind=stp)
                                    end do
                                end if
 
 
# 715 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 715 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 715 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 715 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 715 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
# 716 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
                                rhs_vf(igr_momxb)%sf(j + 1, k, l) = rhs_vf(igr_momxb)%sf(j + 1, k, &
                                       & l) + real((0.5_wp*dt*(rho_l*(vel_l(1))**2.0 + pres_l)*(1._wp/dx(j + 1)) &
                                       & - 0.5_wp*dt*cfl*(rho_l*vel_l(1))*(1._wp/dx(j + 1))), kind=stp)
 
 
# 720 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 720 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 720 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 720 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 720 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
# 721 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
                                rhs_vf(igr_momxb + 1)%sf(j + 1, k, l) = rhs_vf(igr_momxb + 1)%sf(j + 1, k, &
                                       & l) + real((0.5_wp*dt*rho_l*vel_l(1)*vel_l(2)*(1._wp/dx(j + 1)) &
                                       & - 0.5_wp*dt*cfl*(rho_l*vel_l(2))*(1._wp/dx(j + 1))), kind=stp)
 
 
# 725 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 725 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 725 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 725 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 725 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
# 726 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
                                rhs_vf(igr_e_idx)%sf(j + 1, k, l) = rhs_vf(igr_e_idx)%sf(j + 1, k, &
                                       & l) + real((0.5_wp*dt*(vel_l(1)*(e_l + pres_l))*(1._wp/dx(j + 1)) - 0.5_wp*dt*cfl*(e_l) &
                                       & *(1._wp/dx(j + 1))), kind=stp)
 
 
# 730 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 730 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 730 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 730 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 730 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
# 731 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
                                rhs_vf(igr_momxb)%sf(j, k, l) = rhs_vf(igr_momxb)%sf(j, k, &
                                       & l) - real((0.5_wp*dt*(rho_l*(vel_l(1))**2.0 + pres_l)*(1._wp/dx(j)) &
                                       & - 0.5_wp*dt*cfl*(rho_l*vel_l(1))*(1._wp/dx(j))), kind=stp)
 
 
# 735 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 735 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 735 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 735 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 735 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
# 736 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
                                rhs_vf(igr_momxb + 1)%sf(j, k, l) = rhs_vf(igr_momxb + 1)%sf(j, k, &
                                       & l) - real((0.5_wp*dt*rho_l*vel_l(1)*vel_l(2)*(1._wp/dx(j)) &
                                       & - 0.5_wp*dt*cfl*(rho_l*vel_l(2))*(1._wp/dx(j))), kind=stp)
 
 
# 740 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 740 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 740 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 740 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 740 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
# 741 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
                                rhs_vf(igr_e_idx)%sf(j, k, l) = rhs_vf(igr_e_idx)%sf(j, k, &
                                       & l) - real((0.5_wp*dt*(vel_l(1)*(e_l + pres_l))*(1._wp/dx(j)) - 0.5_wp*dt*cfl*(e_l) &
                                       & *(1._wp/dx(j))), kind=stp)
 
 
# 745 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 745 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc loop seq 
# 745 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 745 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 745 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
# 746 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
                                do i = 1, num_fluids
 
# 747 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 747 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 747 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 747 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 747 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
# 748 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
                                    rhs_vf(i)%sf(j + 1, k, l) = rhs_vf(i)%sf(j + 1, k, &
                                           & l) + real((0.5_wp*dt*(alpha_rho_r(i)*vel_r(1))*(1._wp/dx(j + 1)) &
                                           & + 0.5_wp*dt*cfl*(alpha_rho_r(i))*(1._wp/dx(j + 1))), kind=stp)
 
 
# 752 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 752 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 752 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 752 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 752 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
# 753 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
                                    rhs_vf(i)%sf(j, k, l) = rhs_vf(i)%sf(j, k, &
                                           & l) - real((0.5_wp*dt*(alpha_rho_r(i)*vel_r(1))*(1._wp/dx(j)) &
                                           & + 0.5_wp*dt*cfl*(alpha_rho_r(i))*(1._wp/dx(j))), kind=stp)
                                end do
 
                                if (num_fluids > 1) then
 
# 759 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 759 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc loop seq 
# 759 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 759 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 759 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
# 760 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
                                    do i = 1, num_fluids - 1
 
# 761 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 761 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 761 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 761 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 761 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
# 762 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
                                        rhs_vf(igr_advxb + i - 1)%sf(j + 1, k, l) = rhs_vf(igr_advxb + i - 1)%sf(j + 1, k, &
                                               & l) + real((0.5_wp*dt*(alpha_r(i)*vel_r(1))*(1._wp/dx(j + 1)) &
                                               & + 0.5_wp*dt*cfl*(alpha_r(i))*(1._wp/dx(j + 1))), kind=stp)
 
 
# 766 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 766 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 766 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 766 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 766 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
# 767 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
                                        rhs_vf(igr_advxb + i - 1)%sf(j + 1, k, l) = rhs_vf(igr_advxb + i - 1)%sf(j + 1, k, &
                                               & l) - real((0.5_wp*dt*q_cons_vf(igr_advxb + i - 1)%sf(j + 1, k, &
                                               & l)*vel_r(1)*(1._wp/dx(j + 1))), kind=stp)
 
 
# 771 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 771 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 771 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 771 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 771 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
# 772 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
                                        rhs_vf(igr_advxb + i - 1)%sf(j, k, l) = rhs_vf(igr_advxb + i - 1)%sf(j, k, &
                                               & l) - real((0.5_wp*dt*(alpha_r(i)*vel_r(1))*(1._wp/dx(j)) &
                                               & + 0.5_wp*dt*cfl*(alpha_r(i))*(1._wp/dx(j))), kind=stp)
 
 
# 776 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 776 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 776 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 776 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 776 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
# 777 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
                                        rhs_vf(igr_advxb + i - 1)%sf(j, k, l) = rhs_vf(igr_advxb + i - 1)%sf(j, k, &
                                               & l) + real((0.5_wp*dt*q_cons_vf(igr_advxb + i - 1)%sf(j, k, &
                                               & l)*vel_r(1)*(1._wp/dx(j))), kind=stp)
                                    end do
                                end if
 
 
# 783 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 783 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 783 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 783 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 783 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
# 784 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
                                rhs_vf(igr_momxb)%sf(j + 1, k, l) = rhs_vf(igr_momxb)%sf(j + 1, k, &
                                       & l) + real((0.5_wp*dt*(rho_r*(vel_r(1))**2.0 + pres_r)*(1._wp/dx(j + 1)) &
                                       & + 0.5_wp*dt*cfl*(rho_r*vel_r(1))*(1._wp/dx(j + 1))), kind=stp)
 
 
# 788 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 788 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 788 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 788 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 788 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
# 789 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
                                rhs_vf(igr_momxb + 1)%sf(j + 1, k, l) = rhs_vf(igr_momxb + 1)%sf(j + 1, k, &
                                       & l) + real((0.5_wp*dt*rho_r*vel_r(1)*vel_r(2)*(1._wp/dx(j + 1)) &
                                       & + 0.5_wp*dt*cfl*(rho_r*vel_r(2))*(1._wp/dx(j + 1))), kind=stp)
 
 
# 793 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 793 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 793 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 793 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 793 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
# 794 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
                                rhs_vf(igr_e_idx)%sf(j + 1, k, l) = rhs_vf(igr_e_idx)%sf(j + 1, k, &
                                       & l) + real((0.5_wp*dt*(vel_r(1)*(e_r + pres_r))*(1._wp/dx(j + 1)) + 0.5_wp*dt*cfl*(e_r) &
                                       & *(1._wp/dx(j + 1))), kind=stp)
 
 
# 798 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 798 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 798 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 798 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 798 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
# 799 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
                                rhs_vf(igr_momxb)%sf(j, k, l) = rhs_vf(igr_momxb)%sf(j, k, &
                                       & l) - real((0.5_wp*dt*(rho_r*(vel_r(1))**2.0 + pres_r)*(1._wp/dx(j)) &
                                       & + 0.5_wp*dt*cfl*(rho_r*vel_r(1))*(1._wp/dx(j))), kind=stp)
 
 
# 803 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 803 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 803 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 803 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 803 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
# 804 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
                                rhs_vf(igr_momxb + 1)%sf(j, k, l) = rhs_vf(igr_momxb + 1)%sf(j, k, &
                                       & l) - real((0.5_wp*dt*rho_r*vel_r(1)*vel_r(2)*(1._wp/dx(j)) &
                                       & + 0.5_wp*dt*cfl*(rho_r*vel_r(2))*(1._wp/dx(j))), kind=stp)
 
 
# 808 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 808 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 808 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 808 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 808 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
# 809 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
                                rhs_vf(igr_e_idx)%sf(j, k, l) = rhs_vf(igr_e_idx)%sf(j, k, &
                                       & l) - real((0.5_wp*dt*(vel_r(1)*(e_r + pres_r))*(1._wp/dx(j)) + 0.5_wp*dt*cfl*(e_r) &
                                       & *(1._wp/dx(j))), kind=stp)
                            end do
                        end do
                    end do
 
# 815 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 815 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc end parallel loop
# 815 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 815 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 815 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp end target teams loop
# 815 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
# 816 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
# 817 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
            else
# 819 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 819 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 819 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 819 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc parallel loop collapse(3) gang vector default(present) private(j, k, l, rho_L, rho_R, gamma_L, gamma_R, pi_inf_L, pi_inf_R, qv_igr, mu_L, mu_R, vel_L, vel_R, pres_L, pres_R, alpha_L, alpha_R, &
# 819 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc& alpha_rho_L, alpha_rho_R, F_L, F_R, E_L, E_R, cfl, dvel, dvel_small, rho_sf_small, vflux_L_arr, vflux_R_arr)
# 819 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 819 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 819 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 819 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 819 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp target teams loop defaultmap(firstprivate:scalar) bind(teams,parallel) collapse(3) defaultmap(tofrom:aggregate) defaultmap(tofrom:allocatable) defaultmap(tofrom:pointer) private(j, k, l, rho_L, &
# 819 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp& rho_R, gamma_L, gamma_R, pi_inf_L, pi_inf_R, qv_igr, mu_L, mu_R, vel_L, vel_R, pres_L, pres_R, alpha_L, alpha_R, alpha_rho_L, alpha_rho_R, F_L, F_R, E_L, E_R, cfl, dvel, dvel_small, &
# 819 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp& rho_sf_small, vflux_L_arr, vflux_R_arr)
# 819 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
# 822 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
                    do l = 0, p
                        do k = 0, n
                            do j = -1, m
                                vflux_l_arr = 0._wp
                                vflux_r_arr = 0._wp
 
# 835 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 835 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 835 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc loop seq 
# 835 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 835 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 835 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
# 836 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
                                do q = vidxb, vidxe
                                    ! x-direction contributions
 
# 838 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 838 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc loop seq 
# 838 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 838 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 838 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
# 839 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
                                    do i = -1, 1
                                        rho_l = 0._wp
 
# 841 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 841 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc loop seq 
# 841 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 841 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 841 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
# 842 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
                                        do r = 1, num_fluids
                                            rho_l = rho_l + q_cons_vf(r)%sf(j + i + q, k, l)
                                        end do
                                        rho_sf_small(i) = rho_l
                                    end do
 
                                    dvel_small(1) = (1/(2._wp*dx(j)))*(q_cons_vf(igr_momxb)%sf(j + 1 + q, k, &
                                               & l)/rho_sf_small(1) - q_cons_vf(igr_momxb)%sf(j - 1 + q, k, l)/rho_sf_small(-1))
                                    dvel_small(2) = (1/(2._wp*dx(j)))*(q_cons_vf(igr_momxb + 1)%sf(j + 1 + q, k, &
                                               & l)/rho_sf_small(1) - q_cons_vf(igr_momxb + 1)%sf(j - 1 + q, k, l)/rho_sf_small(-1))
                                    dvel_small(3) = (1/(2._wp*dx(j)))*(q_cons_vf(igr_momxb + 2)%sf(j + 1 + q, k, &
                                               & l)/rho_sf_small(1) - q_cons_vf(igr_momxb + 2)%sf(j - 1 + q, k, l)/rho_sf_small(-1))
 
                                    if (q == 0) then
 
# 856 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 856 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc loop seq 
# 856 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 856 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 856 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
# 857 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
                                        do i = 1, num_dims
                                            dvel(i, 1) = dvel_small(i)
                                        end do
                                    end if
 
                                    if (q > vidxb) then
                                        vflux_l_arr(1) = vflux_l_arr(1) + coeff_l(q)*(dvel_small(2))
                                        vflux_l_arr(2) = vflux_l_arr(2) + coeff_l(q)*(dvel_small(3))
                                        vflux_l_arr(3) = vflux_l_arr(3) + coeff_l(q)*(4._wp*dvel_small(1))/3._wp
                                    end if
                                    if (q < vidxe) then
                                        vflux_r_arr(1) = vflux_r_arr(1) + coeff_r(q)*(dvel_small(2))
                                        vflux_r_arr(2) = vflux_r_arr(2) + coeff_r(q)*(dvel_small(3))
                                        vflux_r_arr(3) = vflux_r_arr(3) + coeff_r(q)*(4._wp*dvel_small(1))/3._wp
                                    end if
 
                                    ! y-direction contributions
 
# 874 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 874 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc loop seq 
# 874 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 874 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 874 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
# 875 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
                                    do i = -1, 1
                                        rho_l = 0._wp
 
# 877 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 877 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc loop seq 
# 877 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 877 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 877 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
# 878 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
                                        do r = 1, num_fluids
                                            rho_l = rho_l + q_cons_vf(r)%sf(j + q, k + i, l)
                                        end do
                                        rho_sf_small(i) = rho_l
                                    end do
 
                                    dvel_small(1) = (1/(2._wp*dy(k)))*(q_cons_vf(igr_momxb)%sf(j + q, k + 1, &
                                               & l)/rho_sf_small(1) - q_cons_vf(igr_momxb)%sf(j + q, k - 1, l)/rho_sf_small(-1))
                                    dvel_small(2) = (1/(2._wp*dy(k)))*(q_cons_vf(igr_momxb + 1)%sf(j + q, k + 1, &
                                               & l)/rho_sf_small(1) - q_cons_vf(igr_momxb + 1)%sf(j + q, k - 1, l)/rho_sf_small(-1))
                                    if (q == 0) dvel_small(3) = (1/(2._wp*dy(k)))*(q_cons_vf(igr_momxb + 2)%sf(j + q, k + 1, &
                                        & l)/rho_sf_small(1) - q_cons_vf(igr_momxb + 2)%sf(j + q, k - 1, l)/rho_sf_small(-1))
                                    if (q == 0) then
 
# 891 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 891 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc loop seq 
# 891 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 891 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 891 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
# 892 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
                                        do i = 1, num_dims
                                            dvel(i, 2) = dvel_small(i)
                                        end do
                                    end if
 
                                    if (q > vidxb) then
                                        vflux_l_arr(1) = vflux_l_arr(1) + coeff_l(q)*(dvel_small(1))
                                        vflux_l_arr(3) = vflux_l_arr(3) + coeff_l(q)*(-2._wp*dvel_small(2))/3._wp
                                    end if
                                    if (q < vidxe) then
                                        vflux_r_arr(1) = vflux_r_arr(1) + coeff_r(q)*(dvel_small(1))
                                        vflux_r_arr(3) = vflux_r_arr(3) + coeff_r(q)*(-2._wp*dvel_small(2))/3._wp
                                    end if
 
                                    ! z-direction contributions
 
# 907 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 907 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc loop seq 
# 907 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 907 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 907 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
# 908 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
                                    do i = -1, 1
                                        rho_l = 0._wp
 
# 910 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 910 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc loop seq 
# 910 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 910 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 910 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
# 911 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
                                        do r = 1, num_fluids
                                            rho_l = rho_l + q_cons_vf(r)%sf(j + q, k, l + i)
                                        end do
                                        rho_sf_small(i) = rho_l
                                    end do
 
                                    dvel_small(1) = (1/(2._wp*dz(l)))*(q_cons_vf(igr_momxb)%sf(j + q, k, &
                                               & l + 1)/rho_sf_small(1) - q_cons_vf(igr_momxb)%sf(j + q, k, l - 1)/rho_sf_small(-1))
                                    if (q == 0) dvel_small(2) = (1/(2._wp*dz(l)))*(q_cons_vf(igr_momxb + 1)%sf(j + q, k, &
                                        & l + 1)/rho_sf_small(1) - q_cons_vf(igr_momxb + 1)%sf(j + q, k, l - 1)/rho_sf_small(-1))
                                    dvel_small(3) = (1/(2._wp*dz(l)))*(q_cons_vf(igr_momxb + 2)%sf(j + q, k, &
                                               & l + 1)/rho_sf_small(1) - q_cons_vf(igr_momxb + 2)%sf(j + q, k, &
                                               & l - 1)/rho_sf_small(-1))
                                    if (q == 0) then
 
# 925 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 925 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc loop seq 
# 925 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 925 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 925 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
# 926 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
                                        do i = 1, num_dims
                                            dvel(i, 3) = dvel_small(i)
                                        end do
                                    end if
 
                                    if (q > vidxb) then
                                        vflux_l_arr(2) = vflux_l_arr(2) + coeff_l(q)*(dvel_small(1))
                                        vflux_l_arr(3) = vflux_l_arr(3) + coeff_l(q)*(-2._wp*dvel_small(3))/3._wp
                                    end if
                                    if (q < vidxe) then
                                        vflux_r_arr(2) = vflux_r_arr(2) + coeff_r(q)*(dvel_small(1))
                                        vflux_r_arr(3) = vflux_r_arr(3) + coeff_r(q)*(-2._wp*dvel_small(3))/3._wp
                                    end if
 
                                    if (q == 0) then
                                        jac_rhs(j, k, l) = real(alf_igr*(2._wp*(dvel(1, 2)*dvel(2, 1) + dvel(1, 3)*dvel(3, &
                                                & 1) + dvel(2, 3)*dvel(3, 2)) + dvel(1, 1)**2._wp + dvel(2, 2)**2._wp + dvel(3, &
                                                & 3)**2._wp + (dvel(1, 1) + dvel(2, 2) + dvel(3, 3))**2._wp), kind=stp)
                                    end if
                                end do
 
 
# 947 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 947 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc loop seq 
# 947 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 947 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 947 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
# 948 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
                                do i = 1, num_fluids
                                    alpha_rho_l(i) = 0._wp
                                    alpha_rho_r(i) = 0._wp
                                    alpha_l(i) = 0._wp
                                    alpha_r(i) = 0._wp
                                end do
 
# 954 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 954 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc loop seq 
# 954 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 954 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 954 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
# 955 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
                                do i = 1, num_dims
                                    vel_l(i) = 0._wp
                                    vel_r(i) = 0._wp
                                end do
 
 
# 960 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 960 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc loop seq 
# 960 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 960 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 960 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
# 961 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
                                do q = vidxb + 1, vidxe
 
# 962 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 962 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc loop seq 
# 962 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 962 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 962 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
# 963 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
                                    do i = 1, num_fluids
                                        alpha_rho_l(i) = alpha_rho_l(i) + coeff_l(q)*q_cons_vf(i)%sf(j + q, k, l)
                                    end do
 
                                    if (num_fluids > 1) then
 
# 968 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 968 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc loop seq 
# 968 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 968 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 968 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
# 969 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
                                        do i = 1, num_fluids - 1
                                            alpha_l(i) = alpha_l(i) + coeff_l(q)*q_cons_vf(igr_e_idx + i)%sf(j + q, k, l)
                                        end do
                                    else
                                        alpha_l(1) = 1._wp
                                    end if
 
 
# 976 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 976 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc loop seq 
# 976 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 976 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 976 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
# 977 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
                                    do i = 1, num_dims
                                        vel_l(i) = vel_l(i) + coeff_l(q)*q_cons_vf(igr_momxb + i - 1)%sf(j + q, k, l)
                                    end do
                                end do
 
 
# 982 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 982 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc loop seq 
# 982 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 982 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 982 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
# 983 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
                                do q = vidxb, vidxe - 1
 
# 984 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 984 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc loop seq 
# 984 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 984 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 984 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
# 985 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
                                    do i = 1, num_fluids
                                        alpha_rho_r(i) = alpha_rho_r(i) + coeff_r(q)*q_cons_vf(i)%sf(j + q, k, l)
                                    end do
 
                                    if (num_fluids > 1) then
 
# 990 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 990 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc loop seq 
# 990 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 990 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 990 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
# 991 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
                                        do i = 1, num_fluids - 1
                                            alpha_r(i) = alpha_r(i) + coeff_r(q)*q_cons_vf(igr_e_idx + i)%sf(j + q, k, l)
                                        end do
                                    else
                                        alpha_r(1) = 1._wp
                                    end if
 
 
# 998 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 998 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc loop seq 
# 998 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 998 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 998 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
# 999 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
                                    do i = 1, num_dims
                                        vel_r(i) = vel_r(i) + coeff_r(q)*q_cons_vf(igr_momxb + i - 1)%sf(j + q, k, l)
                                    end do
                                end do
 
                                if (num_fluids > 1) then
                                    alpha_l(num_fluids) = 1._wp
                                    alpha_r(num_fluids) = 1._wp
 
 
# 1008 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 1008 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc loop seq 
# 1008 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 1008 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 1008 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
# 1009 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
                                    do i = 1, num_fluids - 1
                                        alpha_l(num_fluids) = alpha_l(num_fluids) - alpha_l(i)
                                        alpha_r(num_fluids) = alpha_r(num_fluids) - alpha_r(i)
                                    end do
                                end if
 
                                call s_compute_mixture_coefficients(alpha_rho_l, alpha_l, rho_l, gamma_l, pi_inf_l, qv_igr)
                                call s_compute_mixture_coefficients(alpha_rho_r, alpha_r, rho_r, gamma_r, pi_inf_r, qv_igr)
 
 
# 1018 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 1018 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc loop seq 
# 1018 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 1018 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 1018 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
# 1019 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
                                do i = 1, num_dims
                                    vel_l(i) = vel_l(i)/rho_l
                                    vel_r(i) = vel_r(i)/rho_r
                                end do
 
                                if (viscous) then
                                    mu_l = 0._wp
                                    mu_r = 0._wp
 
# 1027 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 1027 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc loop seq 
# 1027 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 1027 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 1027 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
# 1028 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
                                    do i = 1, num_fluids
                                        mu_l = alpha_l(i)/res_igr(1, i) + mu_l
                                        mu_r = alpha_r(i)/res_igr(1, i) + mu_r
                                    end do
 
 
# 1033 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 1033 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 1033 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 1033 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 1033 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
# 1034 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
                                    rhs_vf(igr_momxb + 1)%sf(j + 1, k, l) = rhs_vf(igr_momxb + 1)%sf(j + 1, k, &
                                           & l) - real(0.5_wp*dt*mu_l*vflux_l_arr(1)*(1._wp/dx(j + 1)), kind=stp)
 
# 1036 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 1036 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 1036 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 1036 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 1036 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
# 1037 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
                                    rhs_vf(igr_e_idx)%sf(j + 1, k, l) = rhs_vf(igr_e_idx)%sf(j + 1, k, &
                                           & l) - real(0.5_wp*dt*mu_l*vflux_l_arr(1)*vel_l(2)*(1._wp/dx(j + 1)), kind=stp)
 
 
# 1040 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 1040 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 1040 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 1040 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 1040 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
# 1041 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
                                    rhs_vf(igr_momxb + 1)%sf(j, k, l) = rhs_vf(igr_momxb + 1)%sf(j, k, &
                                           & l) + real(0.5_wp*dt*mu_l*vflux_l_arr(1)*(1._wp/dx(j)), kind=stp)
 
# 1043 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 1043 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 1043 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 1043 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 1043 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
# 1044 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
                                    rhs_vf(igr_e_idx)%sf(j, k, l) = rhs_vf(igr_e_idx)%sf(j, k, &
                                           & l) + real(0.5_wp*dt*mu_l*vflux_l_arr(1)*vel_l(2)*(1._wp/dx(j)), kind=stp)
 
 
# 1047 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 1047 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 1047 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 1047 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 1047 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
# 1048 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
                                    rhs_vf(igr_momxb + 1)%sf(j + 1, k, l) = rhs_vf(igr_momxb + 1)%sf(j + 1, k, &
                                           & l) - real(0.5_wp*dt*mu_r*vflux_r_arr(1)*(1._wp/dx(j + 1)), kind=stp)
 
# 1050 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 1050 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 1050 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 1050 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 1050 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
# 1051 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
                                    rhs_vf(igr_e_idx)%sf(j + 1, k, l) = rhs_vf(igr_e_idx)%sf(j + 1, k, &
                                           & l) - real(0.5_wp*dt*mu_r*vflux_r_arr(1)*vel_r(2)*(1._wp/dx(j + 1)), kind=stp)
 
 
# 1054 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 1054 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 1054 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 1054 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 1054 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
# 1055 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
                                    rhs_vf(igr_momxb + 1)%sf(j, k, l) = rhs_vf(igr_momxb + 1)%sf(j, k, &
                                           & l) + real(0.5_wp*dt*mu_r*vflux_r_arr(1)*(1._wp/dx(j)), kind=stp)
 
# 1057 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 1057 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 1057 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 1057 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 1057 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
# 1058 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
                                    rhs_vf(igr_e_idx)%sf(j, k, l) = rhs_vf(igr_e_idx)%sf(j, k, &
                                           & l) + real(0.5_wp*dt*mu_r*vflux_r_arr(1)*vel_r(2)*(1._wp/dx(j)), kind=stp)
 
 
# 1061 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 1061 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 1061 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 1061 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 1061 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
# 1062 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
                                    rhs_vf(igr_momxb + 2)%sf(j + 1, k, l) = rhs_vf(igr_momxb + 2)%sf(j + 1, k, &
                                           & l) - real(0.5_wp*dt*mu_l*vflux_l_arr(2)*(1._wp/dx(j + 1)), kind=stp)
 
# 1064 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 1064 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 1064 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 1064 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 1064 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
# 1065 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
                                    rhs_vf(igr_e_idx)%sf(j + 1, k, l) = rhs_vf(igr_e_idx)%sf(j + 1, k, &
                                           & l) - real(0.5_wp*dt*mu_l*vflux_l_arr(2)*vel_l(3)*(1._wp/dx(j + 1)), kind=stp)
 
 
# 1068 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 1068 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 1068 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 1068 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 1068 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
# 1069 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
                                    rhs_vf(igr_momxb + 2)%sf(j, k, l) = rhs_vf(igr_momxb + 2)%sf(j, k, &
                                           & l) + real(0.5_wp*dt*mu_l*vflux_l_arr(2)*(1._wp/dx(j)), kind=stp)
 
# 1071 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 1071 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 1071 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 1071 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 1071 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
# 1072 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
                                    rhs_vf(igr_e_idx)%sf(j, k, l) = rhs_vf(igr_e_idx)%sf(j, k, &
                                           & l) + real(0.5_wp*dt*mu_l*vflux_l_arr(2)*vel_l(3)*(1._wp/dx(j)), kind=stp)
 
 
# 1075 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 1075 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 1075 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 1075 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 1075 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
# 1076 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
                                    rhs_vf(igr_momxb + 2)%sf(j + 1, k, l) = rhs_vf(igr_momxb + 2)%sf(j + 1, k, &
                                           & l) - real(0.5_wp*dt*mu_r*vflux_r_arr(2)*(1._wp/dx(j + 1)), kind=stp)
 
# 1078 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 1078 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 1078 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 1078 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 1078 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
# 1079 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
                                    rhs_vf(igr_e_idx)%sf(j + 1, k, l) = rhs_vf(igr_e_idx)%sf(j + 1, k, &
                                           & l) - real(0.5_wp*dt*mu_r*vflux_r_arr(2)*vel_r(3)*(1._wp/dx(j + 1)), kind=stp)
 
 
# 1082 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 1082 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 1082 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 1082 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 1082 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
# 1083 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
                                    rhs_vf(igr_momxb + 2)%sf(j, k, l) = rhs_vf(igr_momxb + 2)%sf(j, k, &
                                           & l) + real(0.5_wp*dt*mu_r*vflux_r_arr(2)*(1._wp/dx(j)), kind=stp)
 
# 1085 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 1085 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 1085 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 1085 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 1085 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
# 1086 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
                                    rhs_vf(igr_e_idx)%sf(j, k, l) = rhs_vf(igr_e_idx)%sf(j, k, &
                                           & l) + real(0.5_wp*dt*mu_r*vflux_r_arr(2)*vel_r(3)*(1._wp/dx(j)), kind=stp)
 
 
# 1089 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 1089 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 1089 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 1089 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 1089 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
# 1090 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
                                    rhs_vf(igr_momxb)%sf(j + 1, k, l) = rhs_vf(igr_momxb)%sf(j + 1, k, &
                                           & l) - real(0.5_wp*dt*mu_l*vflux_l_arr(3)*(1._wp/dx(j + 1)), kind=stp)
 
# 1092 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 1092 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 1092 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 1092 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 1092 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
# 1093 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
                                    rhs_vf(igr_e_idx)%sf(j + 1, k, l) = rhs_vf(igr_e_idx)%sf(j + 1, k, &
                                           & l) - real(0.5_wp*dt*mu_l*vflux_l_arr(3)*vel_l(1)*(1._wp/dx(j + 1)), kind=stp)
 
 
# 1096 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 1096 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 1096 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 1096 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 1096 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
# 1097 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
                                    rhs_vf(igr_momxb)%sf(j, k, l) = rhs_vf(igr_momxb)%sf(j, k, &
                                           & l) + real(0.5_wp*dt*mu_l*vflux_l_arr(3)*(1._wp/dx(j)), kind=stp)
 
# 1099 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 1099 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 1099 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 1099 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 1099 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
# 1100 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
                                    rhs_vf(igr_e_idx)%sf(j, k, l) = rhs_vf(igr_e_idx)%sf(j, k, &
                                           & l) + real(0.5_wp*dt*mu_l*vflux_l_arr(3)*vel_l(1)*(1._wp/dx(j)), kind=stp)
 
 
# 1103 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 1103 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 1103 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 1103 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 1103 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
# 1104 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
                                    rhs_vf(igr_momxb)%sf(j + 1, k, l) = rhs_vf(igr_momxb)%sf(j + 1, k, &
                                           & l) - real(0.5_wp*dt*mu_r*vflux_r_arr(3)*(1._wp/dx(j + 1)), kind=stp)
 
# 1106 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 1106 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 1106 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 1106 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 1106 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
# 1107 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
                                    rhs_vf(igr_e_idx)%sf(j + 1, k, l) = rhs_vf(igr_e_idx)%sf(j + 1, k, &
                                           & l) - real(0.5_wp*dt*mu_r*vflux_r_arr(3)*vel_r(1)*(1._wp/dx(j + 1)), kind=stp)
 
 
# 1110 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 1110 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 1110 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 1110 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 1110 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
# 1111 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
                                    rhs_vf(igr_momxb)%sf(j, k, l) = rhs_vf(igr_momxb)%sf(j, k, &
                                           & l) + real(0.5_wp*dt*mu_r*vflux_r_arr(3)*(1._wp/dx(j)), kind=stp)
 
# 1113 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 1113 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 1113 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 1113 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 1113 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
# 1114 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
                                    rhs_vf(igr_e_idx)%sf(j, k, l) = rhs_vf(igr_e_idx)%sf(j, k, &
                                           & l) + real(0.5_wp*dt*mu_r*vflux_r_arr(3)*vel_r(1)*(1._wp/dx(j)), kind=stp)
                                end if
 
                                e_l = 0._wp; e_r = 0._wp
 
 
# 1120 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 1120 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc loop seq 
# 1120 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 1120 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 1120 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
# 1121 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
                                do q = vidxb + 1, vidxe
                                    e_l = e_l + coeff_l(q)*q_cons_vf(igr_e_idx)%sf(j + q, k, l)
                                end do
 
 
# 1125 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 1125 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc loop seq 
# 1125 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 1125 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 1125 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
# 1126 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
                                do q = vidxb, vidxe - 1
                                    e_r = e_r + coeff_r(q)*q_cons_vf(igr_e_idx)%sf(j + q, k, l)
                                end do
 
                                call s_get_derived_states(e_l, gamma_l, pi_inf_l, rho_l, vel_l, e_r, gamma_r, pi_inf_r, rho_r, &
                                                          & vel_r, pres_l, pres_r, cfl)
 
 
# 1133 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 1133 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc loop seq 
# 1133 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 1133 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 1133 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
# 1134 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
                                do i = 1, num_fluids
 
# 1135 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 1135 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 1135 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 1135 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 1135 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
# 1136 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
                                    rhs_vf(i)%sf(j + 1, k, l) = rhs_vf(i)%sf(j + 1, k, &
                                           & l) + real((0.5_wp*dt*(alpha_rho_l(i)*vel_l(1))*(1._wp/dx(j + 1)) &
                                           & - 0.5_wp*dt*cfl*(alpha_rho_l(i))*(1._wp/dx(j + 1))), kind=stp)
 
 
# 1140 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 1140 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 1140 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 1140 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 1140 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
# 1141 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
                                    rhs_vf(i)%sf(j, k, l) = rhs_vf(i)%sf(j, k, &
                                           & l) - real((0.5_wp*dt*(alpha_rho_l(i)*vel_l(1))*(1._wp/dx(j)) &
                                           & - 0.5_wp*dt*cfl*(alpha_rho_l(i))*(1._wp/dx(j))), kind=stp)
                                end do
 
                                if (num_fluids > 1) then
 
# 1147 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 1147 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc loop seq 
# 1147 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 1147 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 1147 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
# 1148 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
                                    do i = 1, num_fluids - 1
 
# 1149 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 1149 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 1149 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 1149 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 1149 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
# 1150 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
                                        rhs_vf(igr_advxb + i - 1)%sf(j + 1, k, l) = rhs_vf(igr_advxb + i - 1)%sf(j + 1, k, &
                                               & l) + real((0.5_wp*dt*(alpha_l(i)*vel_l(1))*(1._wp/dx(j + 1)) &
                                               & - 0.5_wp*dt*cfl*(alpha_l(i))*(1._wp/dx(j + 1))), kind=stp)
 
 
# 1154 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 1154 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 1154 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 1154 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 1154 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
# 1155 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
                                        rhs_vf(igr_advxb + i - 1)%sf(j + 1, k, l) = rhs_vf(igr_advxb + i - 1)%sf(j + 1, k, &
                                               & l) - real(0.5_wp*dt*q_cons_vf(igr_advxb + i - 1)%sf(j + 1, k, &
                                               & l)*vel_l(1)*(1._wp/dx(j + 1)), kind=stp)
 
 
# 1159 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 1159 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 1159 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 1159 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 1159 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
# 1160 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
                                        rhs_vf(igr_advxb + i - 1)%sf(j, k, l) = rhs_vf(igr_advxb + i - 1)%sf(j, k, &
                                               & l) - real(0.5_wp*dt*(alpha_l(i)*vel_l(1))*(1._wp/dx(j)) &
                                               & - 0.5_wp*dt*cfl*(alpha_l(i))*(1._wp/dx(j)), kind=stp)
 
 
# 1164 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 1164 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 1164 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 1164 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 1164 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
# 1165 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
                                        rhs_vf(igr_advxb + i - 1)%sf(j, k, l) = rhs_vf(igr_advxb + i - 1)%sf(j, k, &
                                               & l) + real(0.5_wp*dt*q_cons_vf(igr_advxb + i - 1)%sf(j, k, &
                                               & l)*vel_l(1)*(1._wp/dx(j)), kind=stp)
                                    end do
                                end if
 
 
# 1171 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 1171 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 1171 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 1171 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 1171 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
# 1172 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
                                rhs_vf(igr_momxb)%sf(j + 1, k, l) = rhs_vf(igr_momxb)%sf(j + 1, k, &
                                       & l) + real((0.5_wp*dt*(rho_l*(vel_l(1))**2.0 + pres_l)*(1._wp/dx(j + 1)) &
                                       & - 0.5_wp*dt*cfl*(rho_l*vel_l(1))*(1._wp/dx(j + 1))), kind=stp)
 
 
# 1176 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 1176 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 1176 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 1176 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 1176 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
# 1177 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
                                rhs_vf(igr_momxb + 1)%sf(j + 1, k, l) = rhs_vf(igr_momxb + 1)%sf(j + 1, k, &
                                       & l) + real((0.5_wp*dt*rho_l*vel_l(1)*vel_l(2)*(1._wp/dx(j + 1)) &
                                       & - 0.5_wp*dt*cfl*(rho_l*vel_l(2))*(1._wp/dx(j + 1))), kind=stp)
 
 
# 1181 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 1181 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 1181 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 1181 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 1181 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
# 1182 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
                                rhs_vf(igr_momxb + 2)%sf(j + 1, k, l) = rhs_vf(igr_momxb + 2)%sf(j + 1, k, &
                                       & l) + real((0.5_wp*dt*rho_l*vel_l(1)*vel_l(3)*(1._wp/dx(j + 1)) &
                                       & - 0.5_wp*dt*cfl*(rho_l*vel_l(3))*(1._wp/dx(j + 1))), kind=stp)
 
 
# 1186 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 1186 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 1186 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 1186 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 1186 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
# 1187 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
                                rhs_vf(igr_e_idx)%sf(j + 1, k, l) = rhs_vf(igr_e_idx)%sf(j + 1, k, &
                                       & l) + real((0.5_wp*dt*(vel_l(1)*(e_l + pres_l))*(1._wp/dx(j + 1)) - 0.5_wp*dt*cfl*(e_l) &
                                       & *(1._wp/dx(j + 1))), kind=stp)
 
 
# 1191 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 1191 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 1191 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 1191 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 1191 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
# 1192 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
                                rhs_vf(igr_momxb)%sf(j, k, l) = rhs_vf(igr_momxb)%sf(j, k, &
                                       & l) - real((0.5_wp*dt*(rho_l*(vel_l(1))**2.0 + pres_l)*(1._wp/dx(j)) &
                                       & - 0.5_wp*dt*cfl*(rho_l*vel_l(1))*(1._wp/dx(j))), kind=stp)
 
 
# 1196 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 1196 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 1196 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 1196 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 1196 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
# 1197 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
                                rhs_vf(igr_momxb + 1)%sf(j, k, l) = rhs_vf(igr_momxb + 1)%sf(j, k, &
                                       & l) - real((0.5_wp*dt*rho_l*vel_l(1)*vel_l(2)*(1._wp/dx(j)) &
                                       & - 0.5_wp*dt*cfl*(rho_l*vel_l(2))*(1._wp/dx(j))), kind=stp)
 
 
# 1201 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 1201 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 1201 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 1201 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 1201 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
# 1202 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
                                rhs_vf(igr_momxb + 2)%sf(j, k, l) = rhs_vf(igr_momxb + 2)%sf(j, k, &
                                       & l) - real((0.5_wp*dt*rho_l*vel_l(1)*vel_l(3)*(1._wp/dx(j)) &
                                       & - 0.5_wp*dt*cfl*(rho_l*vel_l(3))*(1._wp/dx(j))), kind=stp)
 
 
# 1206 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 1206 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 1206 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 1206 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 1206 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
# 1207 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
                                rhs_vf(igr_e_idx)%sf(j, k, l) = rhs_vf(igr_e_idx)%sf(j, k, &
                                       & l) - real((0.5_wp*dt*(vel_l(1)*(e_l + pres_l))*(1._wp/dx(j)) - 0.5_wp*dt*cfl*(e_l) &
                                       & *(1._wp/dx(j))), kind=stp)
 
 
# 1211 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 1211 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc loop seq 
# 1211 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 1211 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 1211 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
# 1212 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
                                do i = 1, num_fluids
 
# 1213 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 1213 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 1213 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 1213 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 1213 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
# 1214 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
                                    rhs_vf(i)%sf(j + 1, k, l) = rhs_vf(i)%sf(j + 1, k, &
                                           & l) + real((0.5_wp*dt*(alpha_rho_r(i)*vel_r(1))*(1._wp/dx(j + 1)) &
                                           & + 0.5_wp*dt*cfl*(alpha_rho_r(i))*(1._wp/dx(j + 1))), kind=stp)
 
 
# 1218 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 1218 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 1218 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 1218 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 1218 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
# 1219 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
                                    rhs_vf(i)%sf(j, k, l) = rhs_vf(i)%sf(j, k, &
                                           & l) - real((0.5_wp*dt*(alpha_rho_r(i)*vel_r(1))*(1._wp/dx(j)) &
                                           & + 0.5_wp*dt*cfl*(alpha_rho_r(i))*(1._wp/dx(j))), kind=stp)
                                end do
 
                                if (num_fluids > 1) then
 
# 1225 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 1225 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc loop seq 
# 1225 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 1225 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 1225 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
# 1226 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
                                    do i = 1, num_fluids - 1
 
# 1227 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 1227 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 1227 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 1227 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 1227 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
# 1228 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
                                        rhs_vf(igr_advxb + i - 1)%sf(j + 1, k, l) = rhs_vf(igr_advxb + i - 1)%sf(j + 1, k, &
                                               & l) + real((0.5_wp*dt*(alpha_r(i)*vel_r(1))*(1._wp/dx(j + 1)) &
                                               & + 0.5_wp*dt*cfl*(alpha_r(i))*(1._wp/dx(j + 1))), kind=stp)
 
 
# 1232 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 1232 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 1232 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 1232 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 1232 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
# 1233 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
                                        rhs_vf(igr_advxb + i - 1)%sf(j + 1, k, l) = rhs_vf(igr_advxb + i - 1)%sf(j + 1, k, &
                                               & l) - real((0.5_wp*dt*q_cons_vf(igr_advxb + i - 1)%sf(j + 1, k, &
                                               & l)*vel_r(1)*(1._wp/dx(j + 1))), kind=stp)
 
 
# 1237 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 1237 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 1237 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 1237 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 1237 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
# 1238 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
                                        rhs_vf(igr_advxb + i - 1)%sf(j, k, l) = rhs_vf(igr_advxb + i - 1)%sf(j, k, &
                                               & l) - real((0.5_wp*dt*(alpha_r(i)*vel_r(1))*(1._wp/dx(j)) &
                                               & + 0.5_wp*dt*cfl*(alpha_r(i))*(1._wp/dx(j))), kind=stp)
 
 
# 1242 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 1242 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 1242 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 1242 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 1242 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
# 1243 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
                                        rhs_vf(igr_advxb + i - 1)%sf(j, k, l) = rhs_vf(igr_advxb + i - 1)%sf(j, k, &
                                               & l) + real((0.5_wp*dt*q_cons_vf(igr_advxb + i - 1)%sf(j, k, &
                                               & l)*vel_r(1)*(1._wp/dx(j))), kind=stp)
                                    end do
                                end if
 
 
# 1249 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 1249 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 1249 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 1249 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 1249 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
# 1250 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
                                rhs_vf(igr_momxb)%sf(j + 1, k, l) = rhs_vf(igr_momxb)%sf(j + 1, k, &
                                       & l) + real((0.5_wp*dt*(rho_r*(vel_r(1))**2.0 + pres_r)*(1._wp/dx(j + 1)) &
                                       & + 0.5_wp*dt*cfl*(rho_r*vel_r(1))*(1._wp/dx(j + 1))), kind=stp)
 
 
# 1254 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 1254 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 1254 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 1254 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 1254 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
# 1255 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
                                rhs_vf(igr_momxb + 1)%sf(j + 1, k, l) = rhs_vf(igr_momxb + 1)%sf(j + 1, k, &
                                       & l) + real((0.5_wp*dt*rho_r*vel_r(1)*vel_r(2)*(1._wp/dx(j + 1)) &
                                       & + 0.5_wp*dt*cfl*(rho_r*vel_r(2))*(1._wp/dx(j + 1))), kind=stp)
 
 
# 1259 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 1259 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 1259 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 1259 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 1259 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
# 1260 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
                                rhs_vf(igr_momxb + 2)%sf(j + 1, k, l) = rhs_vf(igr_momxb + 2)%sf(j + 1, k, &
                                       & l) + real((0.5_wp*dt*rho_r*vel_r(1)*vel_r(3)*(1._wp/dx(j + 1)) &
                                       & + 0.5_wp*dt*cfl*(rho_r*vel_r(3))*(1._wp/dx(j + 1))), kind=stp)
 
 
# 1264 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 1264 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 1264 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 1264 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 1264 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
# 1265 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
                                rhs_vf(igr_e_idx)%sf(j + 1, k, l) = rhs_vf(igr_e_idx)%sf(j + 1, k, &
                                       & l) + real((0.5_wp*dt*(vel_r(1)*(e_r + pres_r))*(1._wp/dx(j + 1)) + 0.5_wp*dt*cfl*(e_r) &
                                       & *(1._wp/dx(j + 1))), kind=stp)
 
 
# 1269 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 1269 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 1269 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 1269 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 1269 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
# 1270 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
                                rhs_vf(igr_momxb)%sf(j, k, l) = rhs_vf(igr_momxb)%sf(j, k, &
                                       & l) - real((0.5_wp*dt*(rho_r*(vel_r(1))**2.0 + pres_r)*(1._wp/dx(j)) &
                                       & + 0.5_wp*dt*cfl*(rho_r*vel_r(1))*(1._wp/dx(j))), kind=stp)
 
 
# 1274 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 1274 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 1274 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 1274 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 1274 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
# 1275 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
                                rhs_vf(igr_momxb + 1)%sf(j, k, l) = rhs_vf(igr_momxb + 1)%sf(j, k, &
                                       & l) - real((0.5_wp*dt*rho_r*vel_r(1)*vel_r(2)*(1._wp/dx(j)) &
                                       & + 0.5_wp*dt*cfl*(rho_r*vel_r(2))*(1._wp/dx(j))), kind=stp)
 
 
# 1279 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 1279 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 1279 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 1279 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 1279 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
# 1280 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
                                rhs_vf(igr_momxb + 2)%sf(j, k, l) = rhs_vf(igr_momxb + 2)%sf(j, k, &
                                       & l) - real((0.5_wp*dt*rho_r*vel_r(1)*vel_r(3)*(1._wp/dx(j)) &
                                       & + 0.5_wp*dt*cfl*(rho_r*vel_r(3))*(1._wp/dx(j))), kind=stp)
 
 
# 1284 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 1284 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 1284 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 1284 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 1284 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
# 1285 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
                                rhs_vf(igr_e_idx)%sf(j, k, l) = rhs_vf(igr_e_idx)%sf(j, k, &
                                       & l) - real((0.5_wp*dt*(vel_r(1)*(e_r + pres_r))*(1._wp/dx(j)) + 0.5_wp*dt*cfl*(e_r) &
                                       & *(1._wp/dx(j))), kind=stp)
                            end do
                        end do
                    end do
 
# 1291 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 1291 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc end parallel loop
# 1291 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 1291 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 1291 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp end target teams loop
# 1291 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
# 1292 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
# 1293 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
            end if
        else if (idir == 2) then
            if (p == 0) then
# 1297 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 1297 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 1297 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 1297 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc parallel loop collapse(3) gang vector default(present) private(j, k, l, rho_L, rho_R, gamma_L, gamma_R, pi_inf_L, pi_inf_R, qv_igr, mu_L, mu_R, vel_L, vel_R, pres_L, pres_R, alpha_L, alpha_R, &
# 1297 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc& alpha_rho_L, alpha_rho_R, F_L, F_R, E_L, E_R, cfl, dvel_small, rho_sf_small, vflux_L_arr, vflux_R_arr)
# 1297 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 1297 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 1297 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 1297 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 1297 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp target teams loop defaultmap(firstprivate:scalar) bind(teams,parallel) collapse(3) defaultmap(tofrom:aggregate) defaultmap(tofrom:allocatable) defaultmap(tofrom:pointer) private(j, k, l, rho_L, &
# 1297 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp& rho_R, gamma_L, gamma_R, pi_inf_L, pi_inf_R, qv_igr, mu_L, mu_R, vel_L, vel_R, pres_L, pres_R, alpha_L, alpha_R, alpha_rho_L, alpha_rho_R, F_L, F_R, E_L, E_R, cfl, dvel_small, rho_sf_small, &
# 1297 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp& vflux_L_arr, vflux_R_arr)
# 1297 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
# 1300 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
                    do l = 0, p
                        do k = -1, n
                            do j = 0, m
                                if (viscous) then
                                    vflux_l_arr = 0._wp
                                    vflux_r_arr = 0._wp
 
# 1314 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 1314 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 1314 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc loop seq 
# 1314 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 1314 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 1314 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
# 1315 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
                                    do q = vidxb, vidxe
                                        ! x-direction contributions
 
# 1317 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 1317 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc loop seq 
# 1317 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 1317 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 1317 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
# 1318 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
                                        do i = -1, 1
                                            rho_l = 0._wp
 
# 1320 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 1320 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc loop seq 
# 1320 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 1320 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 1320 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
# 1321 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
                                            do r = 1, num_fluids
                                                rho_l = rho_l + q_cons_vf(r)%sf(j + i, k + q, l)
                                            end do
                                            rho_sf_small(i) = rho_l
                                        end do
 
                                        dvel_small(1) = (1/(2._wp*dx(j)))*(q_cons_vf(igr_momxb)%sf(j + 1, k + q, &
                                                   & l)/rho_sf_small(1) - q_cons_vf(igr_momxb)%sf(j - 1, k + q, l)/rho_sf_small(-1))
                                        dvel_small(2) = (1/(2._wp*dx(j)))*(q_cons_vf(igr_momxb + 1)%sf(j + 1, k + q, &
                                                   & l)/rho_sf_small(1) - q_cons_vf(igr_momxb + 1)%sf(j - 1, k + q, &
                                                   & l)/rho_sf_small(-1))
 
                                        if (q > vidxb) then
                                            vflux_l_arr(1) = vflux_l_arr(1) + coeff_l(q)*(dvel_small(2))
                                            vflux_l_arr(3) = vflux_l_arr(3) + coeff_l(q)*(-2._wp*dvel_small(1))/3._wp
                                        end if
                                        if (q < vidxe) then
                                            vflux_r_arr(1) = vflux_r_arr(1) + coeff_r(q)*(dvel_small(2))
                                            vflux_r_arr(3) = vflux_r_arr(3) + coeff_r(q)*(-2._wp*dvel_small(1))/3._wp
                                        end if
 
                                        ! y-direction contributions
 
# 1343 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 1343 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc loop seq 
# 1343 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 1343 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 1343 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
# 1344 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
                                        do i = -1, 1
                                            rho_l = 0._wp
 
# 1346 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 1346 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc loop seq 
# 1346 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 1346 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 1346 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
# 1347 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
                                            do r = 1, num_fluids
                                                rho_l = rho_l + q_cons_vf(r)%sf(j, k + i + q, l)
                                            end do
                                            rho_sf_small(i) = rho_l
                                        end do
 
                                        dvel_small(1) = (1/(2._wp*dy(k)))*(q_cons_vf(igr_momxb)%sf(j, k + 1 + q, &
                                                   & l)/rho_sf_small(1) - q_cons_vf(igr_momxb)%sf(j, k - 1 + q, l)/rho_sf_small(-1))
                                        dvel_small(2) = (1/(2._wp*dy(k)))*(q_cons_vf(igr_momxb + 1)%sf(j, k + 1 + q, &
                                                   & l)/rho_sf_small(1) - q_cons_vf(igr_momxb + 1)%sf(j, k - 1 + q, &
                                                   & l)/rho_sf_small(-1))
 
                                        if (q > vidxb) then
                                            vflux_l_arr(1) = vflux_l_arr(1) + coeff_l(q)*(dvel_small(1))
                                            vflux_l_arr(3) = vflux_l_arr(3) + coeff_l(q)*(4._wp*dvel_small(2))/3._wp
                                        end if
                                        if (q < vidxe) then
                                            vflux_r_arr(1) = vflux_r_arr(1) + coeff_r(q)*(dvel_small(1))
                                            vflux_r_arr(3) = vflux_r_arr(3) + coeff_r(q)*(4._wp*dvel_small(2))/3._wp
                                        end if
                                    end do
                                end if
 
 
# 1370 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 1370 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc loop seq 
# 1370 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 1370 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 1370 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
# 1371 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
                                do i = 1, num_fluids
                                    alpha_rho_l(i) = 0._wp
                                    alpha_rho_r(i) = 0._wp
                                    alpha_l(i) = 0._wp
                                    alpha_r(i) = 0._wp
                                end do
 
# 1377 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 1377 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc loop seq 
# 1377 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 1377 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 1377 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
# 1378 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
                                do i = 1, num_dims
                                    vel_l(i) = 0._wp
                                    vel_r(i) = 0._wp
                                end do
 
 
# 1383 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 1383 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc loop seq 
# 1383 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 1383 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 1383 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
# 1384 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
                                do q = vidxb + 1, vidxe
 
# 1385 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 1385 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc loop seq 
# 1385 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 1385 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 1385 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
# 1386 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
                                    do i = 1, num_fluids
                                        alpha_rho_l(i) = alpha_rho_l(i) + coeff_l(q)*q_cons_vf(i)%sf(j, k + q, l)
                                    end do
 
                                    if (num_fluids > 1) then
 
# 1391 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 1391 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc loop seq 
# 1391 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 1391 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 1391 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
# 1392 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
                                        do i = 1, num_fluids - 1
                                            alpha_l(i) = alpha_l(i) + coeff_l(q)*q_cons_vf(igr_e_idx + i)%sf(j, k + q, l)
                                        end do
                                    else
                                        alpha_l(1) = 1._wp
                                    end if
 
 
# 1399 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 1399 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc loop seq 
# 1399 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 1399 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 1399 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
# 1400 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
                                    do i = 1, num_dims
                                        vel_l(i) = vel_l(i) + coeff_l(q)*q_cons_vf(igr_momxb + i - 1)%sf(j, k + q, l)
                                    end do
                                end do
 
 
# 1405 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 1405 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc loop seq 
# 1405 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 1405 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 1405 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
# 1406 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
                                do q = vidxb, vidxe - 1
 
# 1407 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 1407 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc loop seq 
# 1407 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 1407 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 1407 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
# 1408 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
                                    do i = 1, num_fluids
                                        alpha_rho_r(i) = alpha_rho_r(i) + coeff_r(q)*q_cons_vf(i)%sf(j, k + q, l)
                                    end do
 
                                    if (num_fluids > 1) then
 
# 1413 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 1413 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc loop seq 
# 1413 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 1413 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 1413 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
# 1414 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
                                        do i = 1, num_fluids - 1
                                            alpha_r(i) = alpha_r(i) + coeff_r(q)*q_cons_vf(igr_e_idx + i)%sf(j, k + q, l)
                                        end do
                                    else
                                        alpha_r(1) = 1._wp
                                    end if
 
 
# 1421 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 1421 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc loop seq 
# 1421 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 1421 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 1421 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
# 1422 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
                                    do i = 1, num_dims
                                        vel_r(i) = vel_r(i) + coeff_r(q)*q_cons_vf(igr_momxb + i - 1)%sf(j, k + q, l)
                                    end do
                                end do
 
                                if (num_fluids > 1) then
                                    alpha_l(num_fluids) = 1._wp
                                    alpha_r(num_fluids) = 1._wp
 
 
# 1431 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 1431 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc loop seq 
# 1431 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 1431 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 1431 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
# 1432 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
                                    do i = 1, num_fluids - 1
                                        alpha_l(num_fluids) = alpha_l(num_fluids) - alpha_l(i)
                                        alpha_r(num_fluids) = alpha_r(num_fluids) - alpha_r(i)
                                    end do
                                end if
 
                                call s_compute_mixture_coefficients(alpha_rho_l, alpha_l, rho_l, gamma_l, pi_inf_l, qv_igr)
                                call s_compute_mixture_coefficients(alpha_rho_r, alpha_r, rho_r, gamma_r, pi_inf_r, qv_igr)
 
 
# 1441 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 1441 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc loop seq 
# 1441 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 1441 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 1441 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
# 1442 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
                                do i = 1, num_dims
                                    vel_l(i) = vel_l(i)/rho_l
                                    vel_r(i) = vel_r(i)/rho_r
                                end do
 
                                if (viscous) then
                                    mu_l = 0._wp
                                    mu_r = 0._wp
 
# 1450 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 1450 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc loop seq 
# 1450 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 1450 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 1450 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
# 1451 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
                                    do i = 1, num_fluids
                                        mu_l = alpha_l(i)/res_igr(1, i) + mu_l
                                        mu_r = alpha_r(i)/res_igr(1, i) + mu_r
                                    end do
 
 
# 1456 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 1456 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 1456 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 1456 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 1456 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
# 1457 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
                                    rhs_vf(igr_momxb)%sf(j, k + 1, l) = rhs_vf(igr_momxb)%sf(j, k + 1, &
                                           & l) - real(0.5_wp*dt*mu_l*vflux_l_arr(1)*(1._wp/dy(k + 1)), kind=stp)
 
# 1459 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 1459 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 1459 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 1459 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 1459 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
# 1460 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
                                    rhs_vf(igr_e_idx)%sf(j, k + 1, l) = rhs_vf(igr_e_idx)%sf(j, k + 1, &
                                           & l) - real(0.5_wp*dt*mu_l*vflux_l_arr(1)*vel_l(1)*(1._wp/dy(k + 1)), kind=stp)
 
 
# 1463 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 1463 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 1463 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 1463 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 1463 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
# 1464 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
                                    rhs_vf(igr_momxb)%sf(j, k, l) = rhs_vf(igr_momxb)%sf(j, k, &
                                           & l) + real(0.5_wp*dt*mu_l*vflux_l_arr(1)*(1._wp/dy(k)), kind=stp)
 
# 1466 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 1466 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 1466 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 1466 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 1466 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
# 1467 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
                                    rhs_vf(igr_e_idx)%sf(j, k, l) = rhs_vf(igr_e_idx)%sf(j, k, &
                                           & l) + real(0.5_wp*dt*mu_l*vflux_l_arr(1)*vel_l(1)*(1._wp/dy(k)), kind=stp)
 
 
# 1470 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 1470 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 1470 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 1470 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 1470 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
# 1471 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
                                    rhs_vf(igr_momxb)%sf(j, k + 1, l) = rhs_vf(igr_momxb)%sf(j, k + 1, &
                                           & l) - real(0.5_wp*dt*mu_r*vflux_r_arr(1)*(1._wp/dy(k + 1)), kind=stp)
 
# 1473 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 1473 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 1473 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 1473 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 1473 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
# 1474 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
                                    rhs_vf(igr_e_idx)%sf(j, k + 1, l) = rhs_vf(igr_e_idx)%sf(j, k + 1, &
                                           & l) - real(0.5_wp*dt*mu_r*vflux_r_arr(1)*vel_r(1)*(1._wp/dy(k + 1)), kind=stp)
 
 
# 1477 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 1477 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 1477 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 1477 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 1477 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
# 1478 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
                                    rhs_vf(igr_momxb)%sf(j, k, l) = rhs_vf(igr_momxb)%sf(j, k, &
                                           & l) + real(0.5_wp*dt*mu_r*vflux_r_arr(1)*(1._wp/dy(k)), kind=stp)
 
# 1480 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 1480 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 1480 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 1480 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 1480 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
# 1481 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
                                    rhs_vf(igr_e_idx)%sf(j, k, l) = rhs_vf(igr_e_idx)%sf(j, k, &
                                           & l) + real(0.5_wp*dt*mu_r*vflux_r_arr(1)*vel_r(1)*(1._wp/dy(k)), kind=stp)
 
 
# 1484 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 1484 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 1484 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 1484 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 1484 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
# 1485 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
                                    rhs_vf(igr_momxb + 1)%sf(j, k + 1, l) = rhs_vf(igr_momxb + 1)%sf(j, k + 1, &
                                           & l) - real(0.5_wp*dt*mu_l*vflux_l_arr(3)*(1._wp/dy(k + 1)), kind=stp)
 
# 1487 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 1487 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 1487 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 1487 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 1487 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
# 1488 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
                                    rhs_vf(igr_e_idx)%sf(j, k + 1, l) = rhs_vf(igr_e_idx)%sf(j, k + 1, &
                                           & l) - real(0.5_wp*dt*mu_l*vflux_l_arr(3)*vel_l(2)*(1._wp/dy(k + 1)), kind=stp)
 
 
# 1491 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 1491 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 1491 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 1491 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 1491 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
# 1492 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
                                    rhs_vf(igr_momxb + 1)%sf(j, k, l) = rhs_vf(igr_momxb + 1)%sf(j, k, &
                                           & l) + real(0.5_wp*dt*mu_l*vflux_l_arr(3)*(1._wp/dy(k)), kind=stp)
 
# 1494 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 1494 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 1494 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 1494 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 1494 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
# 1495 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
                                    rhs_vf(igr_e_idx)%sf(j, k, l) = rhs_vf(igr_e_idx)%sf(j, k, &
                                           & l) + real(0.5_wp*dt*mu_l*vflux_l_arr(3)*vel_l(2)*(1._wp/dy(k)), kind=stp)
 
 
# 1498 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 1498 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 1498 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 1498 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 1498 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
# 1499 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
                                    rhs_vf(igr_momxb + 1)%sf(j, k + 1, l) = rhs_vf(igr_momxb + 1)%sf(j, k + 1, &
                                           & l) - real(0.5_wp*dt*mu_r*vflux_r_arr(3)*(1._wp/dy(k + 1)), kind=stp)
 
# 1501 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 1501 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 1501 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 1501 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 1501 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
# 1502 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
                                    rhs_vf(igr_e_idx)%sf(j, k + 1, l) = rhs_vf(igr_e_idx)%sf(j, k + 1, &
                                           & l) - real(0.5_wp*dt*mu_r*vflux_r_arr(3)*vel_r(2)*(1._wp/dy(k + 1)), kind=stp)
 
 
# 1505 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 1505 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 1505 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 1505 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 1505 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
# 1506 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
                                    rhs_vf(igr_momxb + 1)%sf(j, k, l) = rhs_vf(igr_momxb + 1)%sf(j, k, &
                                           & l) + real(0.5_wp*dt*mu_r*vflux_r_arr(3)*(1._wp/dy(k)), kind=stp)
 
# 1508 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 1508 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 1508 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 1508 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 1508 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
# 1509 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
                                    rhs_vf(igr_e_idx)%sf(j, k, l) = rhs_vf(igr_e_idx)%sf(j, k, &
                                           & l) + real(0.5_wp*dt*mu_r*vflux_r_arr(3)*vel_r(2)*(1._wp/dy(k)), kind=stp)
                                end if
 
                                e_l = 0._wp; e_r = 0._wp
                                f_l = 0._wp; f_r = 0._wp
 
 
# 1516 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 1516 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc loop seq 
# 1516 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 1516 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 1516 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
# 1517 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
                                do q = vidxb + 1, vidxe
                                    e_l = e_l + coeff_l(q)*q_cons_vf(igr_e_idx)%sf(j, k + q, l)
                                    f_l = f_l + coeff_l(q)*jac(j, k + q, l)
                                end do
 
 
# 1522 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 1522 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc loop seq 
# 1522 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 1522 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 1522 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
# 1523 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
                                do q = vidxb, vidxe - 1
                                    e_r = e_r + coeff_r(q)*q_cons_vf(igr_e_idx)%sf(j, k + q, l)
                                    f_r = f_r + coeff_r(q)*jac(j, k + q, l)
                                end do
 
                                call s_get_derived_states(e_l, gamma_l, pi_inf_l, rho_l, vel_l, e_r, gamma_r, pi_inf_r, rho_r, &
                                                          & vel_r, pres_l, pres_r, cfl)
 
 
# 1531 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 1531 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc loop seq 
# 1531 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 1531 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 1531 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
# 1532 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
                                do i = 1, num_fluids
 
# 1533 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 1533 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 1533 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 1533 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 1533 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
# 1534 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
                                    rhs_vf(i)%sf(j, k + 1, l) = rhs_vf(i)%sf(j, k + 1, &
                                           & l) + real(0.5_wp*dt*(alpha_rho_l(i)*vel_l(2))*(1._wp/dy(k + 1)) &
                                           & - 0.5_wp*dt*cfl*(alpha_rho_l(i))*(1._wp/dy(k + 1)), kind=stp)
 
 
# 1538 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 1538 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 1538 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 1538 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 1538 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
# 1539 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
                                    rhs_vf(i)%sf(j, k, l) = rhs_vf(i)%sf(j, k, &
                                           & l) - real(0.5_wp*dt*(alpha_rho_l(i)*vel_l(2))*(1._wp/dy(k)) &
                                           & - 0.5_wp*dt*cfl*(alpha_rho_l(i))*(1._wp/dy(k)), kind=stp)
                                end do
 
                                if (num_fluids > 1) then
 
# 1545 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 1545 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc loop seq 
# 1545 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 1545 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 1545 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
# 1546 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
                                    do i = 1, num_fluids - 1
 
# 1547 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 1547 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 1547 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 1547 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 1547 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
# 1548 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
                                        rhs_vf(igr_advxb + i - 1)%sf(j, k + 1, l) = rhs_vf(igr_advxb + i - 1)%sf(j, k + 1, &
                                               & l) + real(0.5_wp*dt*(alpha_l(i)*vel_l(2))*(1._wp/dy(k + 1)) &
                                               & - 0.5_wp*dt*cfl*(alpha_l(i))*(1._wp/dy(k + 1)), kind=stp)
 
 
# 1552 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 1552 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 1552 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 1552 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 1552 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
# 1553 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
                                        rhs_vf(igr_advxb + i - 1)%sf(j, k + 1, l) = rhs_vf(igr_advxb + i - 1)%sf(j, k + 1, &
                                               & l) - real(0.5_wp*dt*q_cons_vf(igr_advxb + i - 1)%sf(j, k + 1, &
                                               & l)*vel_l(2)*(1._wp/dy(k + 1)), kind=stp)
 
 
# 1557 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 1557 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 1557 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 1557 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 1557 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
# 1558 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
                                        rhs_vf(igr_advxb + i - 1)%sf(j, k, l) = rhs_vf(igr_advxb + i - 1)%sf(j, k, &
                                               & l) - real(0.5_wp*dt*(alpha_l(i)*vel_l(2))*(1._wp/dy(k)) &
                                               & - 0.5_wp*dt*cfl*(alpha_l(i))*(1._wp/dy(k)), kind=stp)
 
 
# 1562 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 1562 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 1562 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 1562 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 1562 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
# 1563 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
                                        rhs_vf(igr_advxb + i - 1)%sf(j, k, l) = rhs_vf(igr_advxb + i - 1)%sf(j, k, &
                                               & l) + real(0.5_wp*dt*q_cons_vf(igr_advxb + i - 1)%sf(j, k, &
                                               & l)*vel_l(2)*(1._wp/dy(k)), kind=stp)
                                    end do
                                end if
 
 
# 1569 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 1569 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 1569 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 1569 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 1569 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
# 1570 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
                                rhs_vf(igr_momxb + 1)%sf(j, k + 1, l) = rhs_vf(igr_momxb + 1)%sf(j, k + 1, &
                                       & l) + real(0.5_wp*dt*(rho_l*(vel_l(2))**2.0 + pres_l + f_l)*(1._wp/dy(k + 1)) &
                                       & - 0.5_wp*dt*cfl*(rho_l*vel_l(2))*(1._wp/dy(k + 1)), kind=stp)
 
 
# 1574 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 1574 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 1574 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 1574 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 1574 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
# 1575 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
                                rhs_vf(igr_momxb)%sf(j, k + 1, l) = rhs_vf(igr_momxb)%sf(j, k + 1, &
                                       & l) + real(0.5_wp*dt*rho_l*vel_l(1)*vel_l(2)*(1._wp/dy(k + 1)) &
                                       & - 0.5_wp*dt*cfl*(rho_l*vel_l(1))*(1._wp/dy(k + 1)), kind=stp)
 
 
# 1579 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 1579 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 1579 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 1579 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 1579 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
# 1580 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
                                rhs_vf(igr_e_idx)%sf(j, k + 1, l) = rhs_vf(igr_e_idx)%sf(j, k + 1, &
                                       & l) + real(0.5_wp*dt*(vel_l(2)*(e_l + pres_l + f_l))*(1._wp/dy(k + 1)) &
                                       & - 0.5_wp*dt*cfl*(e_l)*(1._wp/dy(k + 1)), kind=stp)
 
 
# 1584 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 1584 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 1584 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 1584 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 1584 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
# 1585 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
                                rhs_vf(igr_momxb + 1)%sf(j, k, l) = rhs_vf(igr_momxb + 1)%sf(j, k, &
                                       & l) - real(0.5_wp*dt*(rho_l*(vel_l(2))**2.0 + pres_l + f_l)*(1._wp/dy(k)) &
                                       & - 0.5_wp*dt*cfl*(rho_l*vel_l(2))*(1._wp/dy(k)), kind=stp)
 
 
# 1589 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 1589 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 1589 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 1589 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 1589 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
# 1590 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
                                rhs_vf(igr_momxb)%sf(j, k, l) = rhs_vf(igr_momxb)%sf(j, k, &
                                       & l) - real(0.5_wp*dt*rho_l*vel_l(1)*vel_l(2)*(1._wp/dy(k)) - 0.5_wp*dt*cfl*(rho_l*vel_l(1) &
                                       & )*(1._wp/dy(k)), kind=stp)
 
 
# 1594 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 1594 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 1594 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 1594 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 1594 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
# 1595 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
                                rhs_vf(igr_e_idx)%sf(j, k, l) = rhs_vf(igr_e_idx)%sf(j, k, &
                                       & l) - real(0.5_wp*dt*(vel_l(2)*(e_l + pres_l + f_l))*(1._wp/dy(k)) - 0.5_wp*dt*cfl*(e_l) &
                                       & *(1._wp/dy(k)), kind=stp)
 
 
# 1599 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 1599 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc loop seq 
# 1599 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 1599 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 1599 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
# 1600 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
                                do i = 1, num_fluids
 
# 1601 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 1601 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 1601 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 1601 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 1601 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
# 1602 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
                                    rhs_vf(i)%sf(j, k + 1, l) = rhs_vf(i)%sf(j, k + 1, &
                                           & l) + real(0.5_wp*dt*(alpha_rho_r(i)*vel_r(2))*(1._wp/dy(k + 1)) &
                                           & + 0.5_wp*dt*cfl*(alpha_rho_r(i))*(1._wp/dy(k + 1)), kind=stp)
 
# 1605 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 1605 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 1605 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 1605 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 1605 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
# 1606 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
                                    rhs_vf(i)%sf(j, k, l) = rhs_vf(i)%sf(j, k, &
                                           & l) - real(0.5_wp*dt*(alpha_rho_r(i)*vel_r(2))*(1._wp/dy(k)) &
                                           & + 0.5_wp*dt*cfl*(alpha_rho_r(i))*(1._wp/dy(k)), kind=stp)
                                end do
 
                                if (num_fluids > 1) then
 
# 1612 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 1612 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc loop seq 
# 1612 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 1612 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 1612 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
# 1613 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
                                    do i = 1, num_fluids - 1
 
# 1614 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 1614 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 1614 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 1614 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 1614 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
# 1615 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
                                        rhs_vf(igr_advxb + i - 1)%sf(j, k + 1, l) = rhs_vf(igr_advxb + i - 1)%sf(j, k + 1, &
                                               & l) + real(0.5_wp*dt*(alpha_r(i)*vel_r(2))*(1._wp/dy(k + 1)) &
                                               & + 0.5_wp*dt*cfl*(alpha_r(i))*(1._wp/dy(k + 1)), kind=stp)
 
 
# 1619 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 1619 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 1619 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 1619 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 1619 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
# 1620 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
                                        rhs_vf(igr_advxb + i - 1)%sf(j, k + 1, l) = rhs_vf(igr_advxb + i - 1)%sf(j, k + 1, &
                                               & l) - real(0.5_wp*dt*q_cons_vf(igr_advxb + i - 1)%sf(j, k + 1, &
                                               & l)*vel_r(2)*(1._wp/dy(k + 1)), kind=stp)
 
 
# 1624 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 1624 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 1624 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 1624 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 1624 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
# 1625 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
                                        rhs_vf(igr_advxb + i - 1)%sf(j, k, l) = rhs_vf(igr_advxb + i - 1)%sf(j, k, &
                                               & l) - real(0.5_wp*dt*(alpha_r(i)*vel_r(2))*(1._wp/dy(k)) &
                                               & + 0.5_wp*dt*cfl*(alpha_r(i))*(1._wp/dy(k)), kind=stp)
 
 
# 1629 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 1629 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 1629 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 1629 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 1629 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
# 1630 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
                                        rhs_vf(igr_advxb + i - 1)%sf(j, k, l) = rhs_vf(igr_advxb + i - 1)%sf(j, k, &
                                               & l) + real(0.5_wp*dt*q_cons_vf(igr_advxb + i - 1)%sf(j, k, &
                                               & l)*vel_r(2)*(1._wp/dy(k)), kind=stp)
                                    end do
                                end if
 
# 1635 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 1635 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 1635 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 1635 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 1635 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
# 1636 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
                                rhs_vf(igr_momxb + 1)%sf(j, k + 1, l) = rhs_vf(igr_momxb + 1)%sf(j, k + 1, &
                                       & l) + real(0.5_wp*dt*(rho_r*(vel_r(2))**2.0 + pres_r + f_r)*(1._wp/dy(k + 1)) &
                                       & + 0.5_wp*dt*cfl*(rho_r*vel_r(2))*(1._wp/dy(k + 1)), kind=stp)
 
# 1639 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 1639 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 1639 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 1639 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 1639 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
# 1640 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
                                rhs_vf(igr_momxb)%sf(j, k + 1, l) = rhs_vf(igr_momxb)%sf(j, k + 1, &
                                       & l) + real(0.5_wp*dt*rho_r*vel_r(2)*vel_r(1)*(1._wp/dy(k + 1)) &
                                       & + 0.5_wp*dt*cfl*(rho_r*vel_r(1))*(1._wp/dy(k + 1)), kind=stp)
 
# 1643 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 1643 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 1643 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 1643 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 1643 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
# 1644 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
                                rhs_vf(igr_e_idx)%sf(j, k + 1, l) = rhs_vf(igr_e_idx)%sf(j, k + 1, &
                                       & l) + real(0.5_wp*dt*(vel_r(2)*(e_r + pres_r + f_r))*(1._wp/dy(k + 1)) &
                                       & + 0.5_wp*dt*cfl*(e_r)*(1._wp/dy(k + 1)), kind=stp)
 
# 1647 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 1647 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 1647 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 1647 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 1647 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
# 1648 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
                                rhs_vf(igr_momxb + 1)%sf(j, k, l) = rhs_vf(igr_momxb + 1)%sf(j, k, &
                                       & l) - real(0.5_wp*dt*(rho_r*(vel_r(2))**2.0 + pres_r + f_r)*(1._wp/dy(k)) &
                                       & + 0.5_wp*dt*cfl*(rho_r*vel_r(2))*(1._wp/dy(k)), kind=stp)
 
# 1651 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 1651 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 1651 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 1651 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 1651 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
# 1652 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
                                rhs_vf(igr_momxb)%sf(j, k, l) = rhs_vf(igr_momxb)%sf(j, k, &
                                       & l) - real(0.5_wp*dt*rho_r*vel_r(2)*vel_r(1)*(1._wp/dy(k)) + 0.5_wp*dt*cfl*(rho_r*vel_r(1) &
                                       & )*(1._wp/dy(k)), kind=stp)
 
# 1655 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 1655 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 1655 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 1655 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 1655 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
# 1656 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
                                rhs_vf(igr_e_idx)%sf(j, k, l) = rhs_vf(igr_e_idx)%sf(j, k, &
                                       & l) - real(0.5_wp*dt*(vel_r(2)*(e_r + pres_r + f_r))*(1._wp/dy(k)) + 0.5_wp*dt*cfl*(e_r) &
                                       & *(1._wp/dy(k)), kind=stp)
                            end do
                        end do
                    end do
 
# 1662 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 1662 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc end parallel loop
# 1662 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 1662 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 1662 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp end target teams loop
# 1662 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
# 1663 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
# 1664 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
            else
# 1666 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 1666 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 1666 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 1666 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc parallel loop collapse(3) gang vector default(present) private(j, k, l, rho_L, rho_R, gamma_L, gamma_R, pi_inf_L, pi_inf_R, qv_igr, mu_L, mu_R, vel_L, vel_R, pres_L, pres_R, alpha_L, alpha_R, &
# 1666 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc& alpha_rho_L, alpha_rho_R, F_L, F_R, E_L, E_R, cfl, dvel_small, rho_sf_small, vflux_L_arr, vflux_R_arr)
# 1666 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 1666 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 1666 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 1666 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 1666 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp target teams loop defaultmap(firstprivate:scalar) bind(teams,parallel) collapse(3) defaultmap(tofrom:aggregate) defaultmap(tofrom:allocatable) defaultmap(tofrom:pointer) private(j, k, l, rho_L, &
# 1666 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp& rho_R, gamma_L, gamma_R, pi_inf_L, pi_inf_R, qv_igr, mu_L, mu_R, vel_L, vel_R, pres_L, pres_R, alpha_L, alpha_R, alpha_rho_L, alpha_rho_R, F_L, F_R, E_L, E_R, cfl, dvel_small, rho_sf_small, &
# 1666 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp& vflux_L_arr, vflux_R_arr)
# 1666 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
# 1669 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
                    do l = 0, p
                        do k = -1, n
                            do j = 0, m
                                if (viscous) then
                                    vflux_l_arr = 0._wp
                                    vflux_r_arr = 0._wp
 
# 1683 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 1683 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 1683 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc loop seq 
# 1683 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 1683 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 1683 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
# 1684 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
                                    do q = vidxb, vidxe
                                        ! x-direction contributions
 
# 1686 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 1686 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc loop seq 
# 1686 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 1686 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 1686 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
# 1687 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
                                        do i = -1, 1
                                            rho_l = 0._wp
 
# 1689 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 1689 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc loop seq 
# 1689 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 1689 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 1689 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
# 1690 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
                                            do r = 1, num_fluids
                                                rho_l = rho_l + q_cons_vf(r)%sf(j + i, k + q, l)
                                            end do
                                            rho_sf_small(i) = rho_l
                                        end do
 
                                        dvel_small(1) = (1/(2._wp*dx(j)))*(q_cons_vf(igr_momxb)%sf(j + 1, k + q, &
                                                   & l)/rho_sf_small(1) - q_cons_vf(igr_momxb)%sf(j - 1, k + q, l)/rho_sf_small(-1))
                                        dvel_small(2) = (1/(2._wp*dx(j)))*(q_cons_vf(igr_momxb + 1)%sf(j + 1, k + q, &
                                                   & l)/rho_sf_small(1) - q_cons_vf(igr_momxb + 1)%sf(j - 1, k + q, &
                                                   & l)/rho_sf_small(-1))
 
                                        if (q > vidxb) then
                                            vflux_l_arr(1) = vflux_l_arr(1) + coeff_l(q)*(dvel_small(2))
                                            vflux_l_arr(3) = vflux_l_arr(3) + coeff_l(q)*(-2._wp*dvel_small(1))/3._wp
                                        end if
                                        if (q < vidxe) then
                                            vflux_r_arr(1) = vflux_r_arr(1) + coeff_r(q)*(dvel_small(2))
                                            vflux_r_arr(3) = vflux_r_arr(3) + coeff_r(q)*(-2._wp*dvel_small(1))/3._wp
                                        end if
 
                                        ! y-direction contributions
 
# 1712 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 1712 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc loop seq 
# 1712 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 1712 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 1712 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
# 1713 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
                                        do i = -1, 1
                                            rho_l = 0._wp
 
# 1715 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 1715 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc loop seq 
# 1715 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 1715 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 1715 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
# 1716 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
                                            do r = 1, num_fluids
                                                rho_l = rho_l + q_cons_vf(r)%sf(j, k + i + q, l)
                                            end do
                                            rho_sf_small(i) = rho_l
                                        end do
 
                                        dvel_small(1) = (1/(2._wp*dy(k)))*(q_cons_vf(igr_momxb)%sf(j, k + 1 + q, &
                                                   & l)/rho_sf_small(1) - q_cons_vf(igr_momxb)%sf(j, k - 1 + q, l)/rho_sf_small(-1))
                                        dvel_small(2) = (1/(2._wp*dy(k)))*(q_cons_vf(igr_momxb + 1)%sf(j, k + 1 + q, &
                                                   & l)/rho_sf_small(1) - q_cons_vf(igr_momxb + 1)%sf(j, k - 1 + q, &
                                                   & l)/rho_sf_small(-1))
                                        dvel_small(3) = (1/(2._wp*dy(k)))*(q_cons_vf(igr_momxb + 2)%sf(j, k + 1 + q, &
                                                   & l)/rho_sf_small(1) - q_cons_vf(igr_momxb + 2)%sf(j, k - 1 + q, &
                                                   & l)/rho_sf_small(-1))
 
                                        if (q > vidxb) then
                                            vflux_l_arr(1) = vflux_l_arr(1) + coeff_l(q)*(dvel_small(1))
                                            vflux_l_arr(2) = vflux_l_arr(2) + coeff_l(q)*(dvel_small(3))
                                            vflux_l_arr(3) = vflux_l_arr(3) + coeff_l(q)*(4._wp*dvel_small(2))/3._wp
                                        end if
                                        if (q < vidxe) then
                                            vflux_r_arr(1) = vflux_r_arr(1) + coeff_r(q)*(dvel_small(1))
                                            vflux_r_arr(2) = vflux_r_arr(2) + coeff_r(q)*(dvel_small(3))
                                            vflux_r_arr(3) = vflux_r_arr(3) + coeff_r(q)*(4._wp*dvel_small(2))/3._wp
                                        end if
 
                                        ! z-direction contributions
 
# 1743 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 1743 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc loop seq 
# 1743 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 1743 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 1743 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
# 1744 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
                                        do i = -1, 1
                                            rho_l = 0._wp
 
# 1746 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 1746 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc loop seq 
# 1746 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 1746 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 1746 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
# 1747 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
                                            do r = 1, num_fluids
                                                rho_l = rho_l + q_cons_vf(r)%sf(j, k + q, l + i)
                                            end do
                                            rho_sf_small(i) = rho_l
                                        end do
 
                                        dvel_small(2) = (1/(2._wp*dz(l)))*(q_cons_vf(igr_momxb + 1)%sf(j, k + q, &
                                                   & l + 1)/rho_sf_small(1) - q_cons_vf(igr_momxb + 1)%sf(j, k + q, &
                                                   & l - 1)/rho_sf_small(-1))
                                        dvel_small(3) = (1/(2._wp*dz(l)))*(q_cons_vf(igr_momxb + 2)%sf(j, k + q, &
                                                   & l + 1)/rho_sf_small(1) - q_cons_vf(igr_momxb + 2)%sf(j, k + q, &
                                                   & l - 1)/rho_sf_small(-1))
                                        if (q > vidxb) then
                                            vflux_l_arr(2) = vflux_l_arr(2) + coeff_l(q)*(dvel_small(2))
                                            vflux_l_arr(3) = vflux_l_arr(3) + coeff_l(q)*(-2._wp*dvel_small(3))/3._wp
                                        end if
                                        if (q < vidxe) then
                                            vflux_r_arr(2) = vflux_r_arr(2) + coeff_r(q)*(dvel_small(2))
                                            vflux_r_arr(3) = vflux_r_arr(3) + coeff_r(q)*(-2._wp*dvel_small(3))/3._wp
                                        end if
                                    end do
                                end if
 
 
# 1770 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 1770 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc loop seq 
# 1770 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 1770 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 1770 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
# 1771 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
                                do i = 1, num_fluids
                                    alpha_rho_l(i) = 0._wp
                                    alpha_rho_r(i) = 0._wp
                                    alpha_l(i) = 0._wp
                                    alpha_r(i) = 0._wp
                                end do
 
# 1777 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 1777 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc loop seq 
# 1777 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 1777 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 1777 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
# 1778 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
                                do i = 1, num_dims
                                    vel_l(i) = 0._wp
                                    vel_r(i) = 0._wp
                                end do
 
 
# 1783 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 1783 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc loop seq 
# 1783 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 1783 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 1783 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
# 1784 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
                                do q = vidxb + 1, vidxe
 
# 1785 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 1785 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc loop seq 
# 1785 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 1785 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 1785 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
# 1786 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
                                    do i = 1, num_fluids
                                        alpha_rho_l(i) = alpha_rho_l(i) + coeff_l(q)*q_cons_vf(i)%sf(j, k + q, l)
                                    end do
 
                                    if (num_fluids > 1) then
 
# 1791 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 1791 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc loop seq 
# 1791 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 1791 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 1791 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
# 1792 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
                                        do i = 1, num_fluids - 1
                                            alpha_l(i) = alpha_l(i) + coeff_l(q)*q_cons_vf(igr_e_idx + i)%sf(j, k + q, l)
                                        end do
                                    else
                                        alpha_l(1) = 1._wp
                                    end if
 
 
# 1799 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 1799 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc loop seq 
# 1799 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 1799 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 1799 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
# 1800 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
                                    do i = 1, num_dims
                                        vel_l(i) = vel_l(i) + coeff_l(q)*q_cons_vf(igr_momxb + i - 1)%sf(j, k + q, l)
                                    end do
                                end do
 
 
# 1805 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 1805 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc loop seq 
# 1805 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 1805 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 1805 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
# 1806 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
                                do q = vidxb, vidxe - 1
 
# 1807 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 1807 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc loop seq 
# 1807 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 1807 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 1807 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
# 1808 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
                                    do i = 1, num_fluids
                                        alpha_rho_r(i) = alpha_rho_r(i) + coeff_r(q)*q_cons_vf(i)%sf(j, k + q, l)
                                    end do
 
                                    if (num_fluids > 1) then
 
# 1813 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 1813 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc loop seq 
# 1813 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 1813 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 1813 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
# 1814 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
                                        do i = 1, num_fluids - 1
                                            alpha_r(i) = alpha_r(i) + coeff_r(q)*q_cons_vf(igr_e_idx + i)%sf(j, k + q, l)
                                        end do
                                    else
                                        alpha_r(1) = 1._wp
                                    end if
 
 
# 1821 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 1821 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc loop seq 
# 1821 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 1821 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 1821 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
# 1822 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
                                    do i = 1, num_dims
                                        vel_r(i) = vel_r(i) + coeff_r(q)*q_cons_vf(igr_momxb + i - 1)%sf(j, k + q, l)
                                    end do
                                end do
 
                                if (num_fluids > 1) then
                                    alpha_l(num_fluids) = 1._wp
                                    alpha_r(num_fluids) = 1._wp
 
 
# 1831 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 1831 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc loop seq 
# 1831 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 1831 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 1831 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
# 1832 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
                                    do i = 1, num_fluids - 1
                                        alpha_l(num_fluids) = alpha_l(num_fluids) - alpha_l(i)
                                        alpha_r(num_fluids) = alpha_r(num_fluids) - alpha_r(i)
                                    end do
                                end if
 
                                call s_compute_mixture_coefficients(alpha_rho_l, alpha_l, rho_l, gamma_l, pi_inf_l, qv_igr)
                                call s_compute_mixture_coefficients(alpha_rho_r, alpha_r, rho_r, gamma_r, pi_inf_r, qv_igr)
 
 
# 1841 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 1841 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc loop seq 
# 1841 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 1841 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 1841 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
# 1842 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
                                do i = 1, num_dims
                                    vel_l(i) = vel_l(i)/rho_l
                                    vel_r(i) = vel_r(i)/rho_r
                                end do
 
                                if (viscous) then
                                    mu_l = 0._wp
                                    mu_r = 0._wp
 
# 1850 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 1850 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc loop seq 
# 1850 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 1850 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 1850 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
# 1851 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
                                    do i = 1, num_fluids
                                        mu_l = alpha_l(i)/res_igr(1, i) + mu_l
                                        mu_r = alpha_r(i)/res_igr(1, i) + mu_r
                                    end do
 
 
# 1856 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 1856 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 1856 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 1856 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 1856 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
# 1857 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
                                    rhs_vf(igr_momxb)%sf(j, k + 1, l) = rhs_vf(igr_momxb)%sf(j, k + 1, &
                                           & l) - real(0.5_wp*dt*mu_l*vflux_l_arr(1)*(1._wp/dy(k + 1)), kind=stp)
 
# 1859 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 1859 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 1859 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 1859 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 1859 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
# 1860 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
                                    rhs_vf(igr_e_idx)%sf(j, k + 1, l) = rhs_vf(igr_e_idx)%sf(j, k + 1, &
                                           & l) - real(0.5_wp*dt*mu_l*vflux_l_arr(1)*vel_l(1)*(1._wp/dy(k + 1)), kind=stp)
 
 
# 1863 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 1863 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 1863 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 1863 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 1863 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
# 1864 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
                                    rhs_vf(igr_momxb)%sf(j, k, l) = rhs_vf(igr_momxb)%sf(j, k, &
                                           & l) + real(0.5_wp*dt*mu_l*vflux_l_arr(1)*(1._wp/dy(k)), kind=stp)
 
# 1866 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 1866 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 1866 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 1866 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 1866 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
# 1867 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
                                    rhs_vf(igr_e_idx)%sf(j, k, l) = rhs_vf(igr_e_idx)%sf(j, k, &
                                           & l) + real(0.5_wp*dt*mu_l*vflux_l_arr(1)*vel_l(1)*(1._wp/dy(k)), kind=stp)
 
 
# 1870 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 1870 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 1870 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 1870 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 1870 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
# 1871 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
                                    rhs_vf(igr_momxb)%sf(j, k + 1, l) = rhs_vf(igr_momxb)%sf(j, k + 1, &
                                           & l) - real(0.5_wp*dt*mu_r*vflux_r_arr(1)*(1._wp/dy(k + 1)), kind=stp)
 
# 1873 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 1873 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 1873 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 1873 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 1873 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
# 1874 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
                                    rhs_vf(igr_e_idx)%sf(j, k + 1, l) = rhs_vf(igr_e_idx)%sf(j, k + 1, &
                                           & l) - real(0.5_wp*dt*mu_r*vflux_r_arr(1)*vel_r(1)*(1._wp/dy(k + 1)), kind=stp)
 
 
# 1877 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 1877 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 1877 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 1877 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 1877 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
# 1878 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
                                    rhs_vf(igr_momxb)%sf(j, k, l) = rhs_vf(igr_momxb)%sf(j, k, &
                                           & l) + real(0.5_wp*dt*mu_r*vflux_r_arr(1)*(1._wp/dy(k)), kind=stp)
 
# 1880 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 1880 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 1880 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 1880 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 1880 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
# 1881 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
                                    rhs_vf(igr_e_idx)%sf(j, k, l) = rhs_vf(igr_e_idx)%sf(j, k, &
                                           & l) + real(0.5_wp*dt*mu_r*vflux_r_arr(1)*vel_r(1)*(1._wp/dy(k)), kind=stp)
 
 
# 1884 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 1884 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 1884 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 1884 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 1884 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
# 1885 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
                                    rhs_vf(igr_momxb + 2)%sf(j, k + 1, l) = rhs_vf(igr_momxb + 2)%sf(j, k + 1, &
                                           & l) - real(0.5_wp*dt*mu_l*vflux_l_arr(2)*(1._wp/dy(k + 1)), kind=stp)
 
# 1887 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 1887 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 1887 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 1887 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 1887 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
# 1888 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
                                    rhs_vf(igr_e_idx)%sf(j, k + 1, l) = rhs_vf(igr_e_idx)%sf(j, k + 1, &
                                           & l) - real(0.5_wp*dt*mu_l*vflux_l_arr(2)*vel_l(3)*(1._wp/dy(k + 1)), kind=stp)
 
 
# 1891 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 1891 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 1891 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 1891 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 1891 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
# 1892 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
                                    rhs_vf(igr_momxb + 2)%sf(j, k, l) = rhs_vf(igr_momxb + 2)%sf(j, k, &
                                           & l) + real(0.5_wp*dt*mu_l*vflux_l_arr(2)*(1._wp/dy(k)), kind=stp)
 
# 1894 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 1894 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 1894 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 1894 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 1894 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
# 1895 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
                                    rhs_vf(igr_e_idx)%sf(j, k, l) = rhs_vf(igr_e_idx)%sf(j, k, &
                                           & l) + real(0.5_wp*dt*mu_l*vflux_l_arr(2)*vel_l(3)*(1._wp/dy(k)), kind=stp)
 
 
# 1898 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 1898 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 1898 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 1898 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 1898 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
# 1899 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
                                    rhs_vf(igr_momxb + 2)%sf(j, k + 1, l) = rhs_vf(igr_momxb + 2)%sf(j, k + 1, &
                                           & l) - real(0.5_wp*dt*mu_r*vflux_r_arr(2)*(1._wp/dy(k + 1)), kind=stp)
 
# 1901 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 1901 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 1901 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 1901 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 1901 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
# 1902 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
                                    rhs_vf(igr_e_idx)%sf(j, k + 1, l) = rhs_vf(igr_e_idx)%sf(j, k + 1, &
                                           & l) - real(0.5_wp*dt*mu_r*vflux_r_arr(2)*vel_r(3)*(1._wp/dy(k + 1)), kind=stp)
 
 
# 1905 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 1905 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 1905 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 1905 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 1905 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
# 1906 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
                                    rhs_vf(igr_momxb + 2)%sf(j, k, l) = rhs_vf(igr_momxb + 2)%sf(j, k, &
                                           & l) + real(0.5_wp*dt*mu_r*vflux_r_arr(2)*(1._wp/dy(k)), kind=stp)
 
# 1908 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 1908 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 1908 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 1908 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 1908 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
# 1909 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
                                    rhs_vf(igr_e_idx)%sf(j, k, l) = rhs_vf(igr_e_idx)%sf(j, k, &
                                           & l) + real(0.5_wp*dt*mu_r*vflux_r_arr(2)*vel_r(3)*(1._wp/dy(k)), kind=stp)
 
 
# 1912 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 1912 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 1912 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 1912 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 1912 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
# 1913 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
                                    rhs_vf(igr_momxb + 1)%sf(j, k + 1, l) = rhs_vf(igr_momxb + 1)%sf(j, k + 1, &
                                           & l) - real(0.5_wp*dt*mu_l*vflux_l_arr(3)*(1._wp/dy(k + 1)), kind=stp)
 
# 1915 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 1915 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 1915 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 1915 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 1915 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
# 1916 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
                                    rhs_vf(igr_e_idx)%sf(j, k + 1, l) = rhs_vf(igr_e_idx)%sf(j, k + 1, &
                                           & l) - real(0.5_wp*dt*mu_l*vflux_l_arr(3)*vel_l(2)*(1._wp/dy(k + 1)), kind=stp)
 
 
# 1919 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 1919 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 1919 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 1919 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 1919 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
# 1920 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
                                    rhs_vf(igr_momxb + 1)%sf(j, k, l) = rhs_vf(igr_momxb + 1)%sf(j, k, &
                                           & l) + real(0.5_wp*dt*mu_l*vflux_l_arr(3)*(1._wp/dy(k)), kind=stp)
 
# 1922 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 1922 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 1922 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 1922 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 1922 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
# 1923 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
                                    rhs_vf(igr_e_idx)%sf(j, k, l) = rhs_vf(igr_e_idx)%sf(j, k, &
                                           & l) + real(0.5_wp*dt*mu_l*vflux_l_arr(3)*vel_l(2)*(1._wp/dy(k)), kind=stp)
 
 
# 1926 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 1926 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 1926 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 1926 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 1926 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
# 1927 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
                                    rhs_vf(igr_momxb + 1)%sf(j, k + 1, l) = rhs_vf(igr_momxb + 1)%sf(j, k + 1, &
                                           & l) - real(0.5_wp*dt*mu_r*vflux_r_arr(3)*(1._wp/dy(k + 1)), kind=stp)
 
# 1929 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 1929 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 1929 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 1929 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 1929 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
# 1930 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
                                    rhs_vf(igr_e_idx)%sf(j, k + 1, l) = rhs_vf(igr_e_idx)%sf(j, k + 1, &
                                           & l) - real(0.5_wp*dt*mu_r*vflux_r_arr(3)*vel_r(2)*(1._wp/dy(k + 1)), kind=stp)
 
 
# 1933 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 1933 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 1933 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 1933 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 1933 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
# 1934 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
                                    rhs_vf(igr_momxb + 1)%sf(j, k, l) = rhs_vf(igr_momxb + 1)%sf(j, k, &
                                           & l) + real(0.5_wp*dt*mu_r*vflux_r_arr(3)*(1._wp/dy(k)), kind=stp)
 
# 1936 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 1936 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 1936 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 1936 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 1936 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
# 1937 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
                                    rhs_vf(igr_e_idx)%sf(j, k, l) = rhs_vf(igr_e_idx)%sf(j, k, &
                                           & l) + real(0.5_wp*dt*mu_r*vflux_r_arr(3)*vel_r(2)*(1._wp/dy(k)), kind=stp)
                                end if
 
                                e_l = 0._wp; e_r = 0._wp
                                f_l = 0._wp; f_r = 0._wp
 
 
# 1944 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 1944 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc loop seq 
# 1944 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 1944 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 1944 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
# 1945 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
                                do q = vidxb + 1, vidxe
                                    e_l = e_l + coeff_l(q)*q_cons_vf(igr_e_idx)%sf(j, k + q, l)
                                    f_l = f_l + coeff_l(q)*jac(j, k + q, l)
                                end do
 
 
# 1950 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 1950 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc loop seq 
# 1950 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 1950 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 1950 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
# 1951 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
                                do q = vidxb, vidxe - 1
                                    e_r = e_r + coeff_r(q)*q_cons_vf(igr_e_idx)%sf(j, k + q, l)
                                    f_r = f_r + coeff_r(q)*jac(j, k + q, l)
                                end do
 
                                call s_get_derived_states(e_l, gamma_l, pi_inf_l, rho_l, vel_l, e_r, gamma_r, pi_inf_r, rho_r, &
                                                          & vel_r, pres_l, pres_r, cfl)
 
 
# 1959 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 1959 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc loop seq 
# 1959 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 1959 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 1959 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
# 1960 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
                                do i = 1, num_fluids
 
# 1961 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 1961 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 1961 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 1961 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 1961 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
# 1962 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
                                    rhs_vf(i)%sf(j, k + 1, l) = rhs_vf(i)%sf(j, k + 1, &
                                           & l) + real(0.5_wp*dt*(alpha_rho_l(i)*vel_l(2))*(1._wp/dy(k + 1)) &
                                           & - 0.5_wp*dt*cfl*(alpha_rho_l(i))*(1._wp/dy(k + 1)), kind=stp)
 
 
# 1966 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 1966 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 1966 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 1966 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 1966 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
# 1967 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
                                    rhs_vf(i)%sf(j, k, l) = rhs_vf(i)%sf(j, k, &
                                           & l) - real(0.5_wp*dt*(alpha_rho_l(i)*vel_l(2))*(1._wp/dy(k)) &
                                           & - 0.5_wp*dt*cfl*(alpha_rho_l(i))*(1._wp/dy(k)), kind=stp)
                                end do
 
                                if (num_fluids > 1) then
 
# 1973 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 1973 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc loop seq 
# 1973 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 1973 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 1973 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
# 1974 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
                                    do i = 1, num_fluids - 1
 
# 1975 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 1975 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 1975 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 1975 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 1975 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
# 1976 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
                                        rhs_vf(igr_advxb + i - 1)%sf(j, k + 1, l) = rhs_vf(igr_advxb + i - 1)%sf(j, k + 1, &
                                               & l) + real(0.5_wp*dt*(alpha_l(i)*vel_l(2))*(1._wp/dy(k + 1)) &
                                               & - 0.5_wp*dt*cfl*(alpha_l(i))*(1._wp/dy(k + 1)), kind=stp)
 
 
# 1980 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 1980 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 1980 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 1980 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 1980 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
# 1981 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
                                        rhs_vf(igr_advxb + i - 1)%sf(j, k + 1, l) = rhs_vf(igr_advxb + i - 1)%sf(j, k + 1, &
                                               & l) - real(0.5_wp*dt*q_cons_vf(igr_advxb + i - 1)%sf(j, k + 1, &
                                               & l)*vel_l(2)*(1._wp/dy(k + 1)), kind=stp)
 
 
# 1985 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 1985 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 1985 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 1985 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 1985 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
# 1986 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
                                        rhs_vf(igr_advxb + i - 1)%sf(j, k, l) = rhs_vf(igr_advxb + i - 1)%sf(j, k, &
                                               & l) - real(0.5_wp*dt*(alpha_l(i)*vel_l(2))*(1._wp/dy(k)) &
                                               & - 0.5_wp*dt*cfl*(alpha_l(i))*(1._wp/dy(k)), kind=stp)
 
 
# 1990 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 1990 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 1990 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 1990 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 1990 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
# 1991 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
                                        rhs_vf(igr_advxb + i - 1)%sf(j, k, l) = rhs_vf(igr_advxb + i - 1)%sf(j, k, &
                                               & l) + real(0.5_wp*dt*q_cons_vf(igr_advxb + i - 1)%sf(j, k, &
                                               & l)*vel_l(2)*(1._wp/dy(k)), kind=stp)
                                    end do
                                end if
 
 
# 1997 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 1997 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 1997 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 1997 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 1997 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
# 1998 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
                                rhs_vf(igr_momxb + 1)%sf(j, k + 1, l) = rhs_vf(igr_momxb + 1)%sf(j, k + 1, &
                                       & l) + real(0.5_wp*dt*(rho_l*(vel_l(2))**2.0 + pres_l + f_l)*(1._wp/dy(k + 1)) &
                                       & - 0.5_wp*dt*cfl*(rho_l*vel_l(2))*(1._wp/dy(k + 1)), kind=stp)
 
 
# 2002 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 2002 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 2002 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 2002 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 2002 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
# 2003 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
                                rhs_vf(igr_momxb)%sf(j, k + 1, l) = rhs_vf(igr_momxb)%sf(j, k + 1, &
                                       & l) + real(0.5_wp*dt*rho_l*vel_l(1)*vel_l(2)*(1._wp/dy(k + 1)) &
                                       & - 0.5_wp*dt*cfl*(rho_l*vel_l(1))*(1._wp/dy(k + 1)), kind=stp)
 
 
# 2007 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 2007 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 2007 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 2007 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 2007 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
# 2008 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
                                rhs_vf(igr_momxb + 2)%sf(j, k + 1, l) = rhs_vf(igr_momxb + 2)%sf(j, k + 1, &
                                       & l) + real(0.5_wp*dt*rho_l*vel_l(3)*vel_l(2)*(1._wp/dy(k + 1)) &
                                       & - 0.5_wp*dt*cfl*(rho_l*vel_l(3))*(1._wp/dy(k + 1)), kind=stp)
 
 
# 2012 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 2012 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 2012 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 2012 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 2012 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
# 2013 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
                                rhs_vf(igr_e_idx)%sf(j, k + 1, l) = rhs_vf(igr_e_idx)%sf(j, k + 1, &
                                       & l) + real(0.5_wp*dt*(vel_l(2)*(e_l + pres_l + f_l))*(1._wp/dy(k + 1)) &
                                       & - 0.5_wp*dt*cfl*(e_l)*(1._wp/dy(k + 1)), kind=stp)
 
 
# 2017 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 2017 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 2017 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 2017 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 2017 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
# 2018 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
                                rhs_vf(igr_momxb + 1)%sf(j, k, l) = rhs_vf(igr_momxb + 1)%sf(j, k, &
                                       & l) - real(0.5_wp*dt*(rho_l*(vel_l(2))**2.0 + pres_l + f_l)*(1._wp/dy(k)) &
                                       & - 0.5_wp*dt*cfl*(rho_l*vel_l(2))*(1._wp/dy(k)), kind=stp)
 
 
# 2022 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 2022 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 2022 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 2022 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 2022 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
# 2023 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
                                rhs_vf(igr_momxb)%sf(j, k, l) = rhs_vf(igr_momxb)%sf(j, k, &
                                       & l) - real(0.5_wp*dt*rho_l*vel_l(1)*vel_l(2)*(1._wp/dy(k)) - 0.5_wp*dt*cfl*(rho_l*vel_l(1) &
                                       & )*(1._wp/dy(k)), kind=stp)
 
 
# 2027 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 2027 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 2027 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 2027 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 2027 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
# 2028 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
                                rhs_vf(igr_momxb + 2)%sf(j, k, l) = rhs_vf(igr_momxb + 2)%sf(j, k, &
                                       & l) - real(0.5_wp*dt*rho_l*vel_l(3)*vel_l(2)*(1._wp/dy(k)) - 0.5_wp*dt*cfl*(rho_l*vel_l(3) &
                                       & )*(1._wp/dy(k)), kind=stp)
 
 
# 2032 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 2032 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 2032 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 2032 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 2032 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
# 2033 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
                                rhs_vf(igr_e_idx)%sf(j, k, l) = rhs_vf(igr_e_idx)%sf(j, k, &
                                       & l) - real(0.5_wp*dt*(vel_l(2)*(e_l + pres_l + f_l))*(1._wp/dy(k)) - 0.5_wp*dt*cfl*(e_l) &
                                       & *(1._wp/dy(k)), kind=stp)
 
 
# 2037 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 2037 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc loop seq 
# 2037 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 2037 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 2037 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
# 2038 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
                                do i = 1, num_fluids
 
# 2039 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 2039 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 2039 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 2039 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 2039 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
# 2040 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
                                    rhs_vf(i)%sf(j, k + 1, l) = rhs_vf(i)%sf(j, k + 1, &
                                           & l) + real(0.5_wp*dt*(alpha_rho_r(i)*vel_r(2))*(1._wp/dy(k + 1)) &
                                           & + 0.5_wp*dt*cfl*(alpha_rho_r(i))*(1._wp/dy(k + 1)), kind=stp)
 
 
# 2044 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 2044 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 2044 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 2044 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 2044 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
# 2045 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
                                    rhs_vf(i)%sf(j, k, l) = rhs_vf(i)%sf(j, k, &
                                           & l) - real(0.5_wp*dt*(alpha_rho_r(i)*vel_r(2))*(1._wp/dy(k)) &
                                           & + 0.5_wp*dt*cfl*(alpha_rho_r(i))*(1._wp/dy(k)), kind=stp)
                                end do
 
                                if (num_fluids > 1) then
 
# 2051 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 2051 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc loop seq 
# 2051 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 2051 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 2051 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
# 2052 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
                                    do i = 1, num_fluids - 1
 
# 2053 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 2053 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 2053 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 2053 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 2053 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
# 2054 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
                                        rhs_vf(igr_advxb + i - 1)%sf(j, k + 1, l) = rhs_vf(igr_advxb + i - 1)%sf(j, k + 1, &
                                               & l) + real(0.5_wp*dt*(alpha_r(i)*vel_r(2))*(1._wp/dy(k + 1)) &
                                               & + 0.5_wp*dt*cfl*(alpha_r(i))*(1._wp/dy(k + 1)), kind=stp)
 
 
# 2058 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 2058 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 2058 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 2058 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 2058 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
# 2059 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
                                        rhs_vf(igr_advxb + i - 1)%sf(j, k + 1, l) = rhs_vf(igr_advxb + i - 1)%sf(j, k + 1, &
                                               & l) - real(0.5_wp*dt*q_cons_vf(igr_advxb + i - 1)%sf(j, k + 1, &
                                               & l)*vel_r(2)*(1._wp/dy(k + 1)), kind=stp)
 
 
# 2063 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 2063 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 2063 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 2063 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 2063 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
# 2064 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
                                        rhs_vf(igr_advxb + i - 1)%sf(j, k, l) = rhs_vf(igr_advxb + i - 1)%sf(j, k, &
                                               & l) - real(0.5_wp*dt*(alpha_r(i)*vel_r(2))*(1._wp/dy(k)) &
                                               & + 0.5_wp*dt*cfl*(alpha_r(i))*(1._wp/dy(k)), kind=stp)
 
 
# 2068 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 2068 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 2068 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 2068 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 2068 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
# 2069 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
                                        rhs_vf(igr_advxb + i - 1)%sf(j, k, l) = rhs_vf(igr_advxb + i - 1)%sf(j, k, &
                                               & l) + real(0.5_wp*dt*q_cons_vf(igr_advxb + i - 1)%sf(j, k, &
                                               & l)*vel_r(2)*(1._wp/dy(k)), kind=stp)
                                    end do
                                end if
 
 
# 2075 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 2075 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 2075 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 2075 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 2075 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
# 2076 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
                                rhs_vf(igr_momxb + 1)%sf(j, k + 1, l) = rhs_vf(igr_momxb + 1)%sf(j, k + 1, &
                                       & l) + real(0.5_wp*dt*(rho_r*(vel_r(2))**2.0 + pres_r + f_r)*(1._wp/dy(k + 1)) &
                                       & + 0.5_wp*dt*cfl*(rho_r*vel_r(2))*(1._wp/dy(k + 1)), kind=stp)
 
 
# 2080 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 2080 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 2080 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 2080 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 2080 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
# 2081 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
                                rhs_vf(igr_momxb)%sf(j, k + 1, l) = rhs_vf(igr_momxb)%sf(j, k + 1, &
                                       & l) + real(0.5_wp*dt*rho_r*vel_r(2)*vel_r(1)*(1._wp/dy(k + 1)) &
                                       & + 0.5_wp*dt*cfl*(rho_r*vel_r(1))*(1._wp/dy(k + 1)), kind=stp)
 
 
# 2085 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 2085 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 2085 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 2085 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 2085 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
# 2086 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
                                rhs_vf(igr_momxb + 2)%sf(j, k + 1, l) = rhs_vf(igr_momxb + 2)%sf(j, k + 1, &
                                       & l) + real(0.5_wp*dt*rho_r*vel_r(2)*vel_r(3)*(1._wp/dy(k + 1)) &
                                       & + 0.5_wp*dt*cfl*(rho_r*vel_r(3))*(1._wp/dy(k + 1)), kind=stp)
 
 
# 2090 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 2090 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 2090 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 2090 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 2090 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
# 2091 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
                                rhs_vf(igr_e_idx)%sf(j, k + 1, l) = rhs_vf(igr_e_idx)%sf(j, k + 1, &
                                       & l) + real(0.5_wp*dt*(vel_r(2)*(e_r + pres_r + f_r))*(1._wp/dy(k + 1)) &
                                       & + 0.5_wp*dt*cfl*(e_r)*(1._wp/dy(k + 1)), kind=stp)
 
 
# 2095 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 2095 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 2095 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 2095 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 2095 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
# 2096 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
                                rhs_vf(igr_momxb + 1)%sf(j, k, l) = rhs_vf(igr_momxb + 1)%sf(j, k, &
                                       & l) - real(0.5_wp*dt*(rho_r*(vel_r(2))**2.0 + pres_r + f_r)*(1._wp/dy(k)) &
                                       & + 0.5_wp*dt*cfl*(rho_r*vel_r(2))*(1._wp/dy(k)), kind=stp)
 
 
# 2100 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 2100 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 2100 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 2100 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 2100 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
# 2101 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
                                rhs_vf(igr_momxb)%sf(j, k, l) = rhs_vf(igr_momxb)%sf(j, k, &
                                       & l) - real(0.5_wp*dt*rho_r*vel_r(2)*vel_r(1)*(1._wp/dy(k)) + 0.5_wp*dt*cfl*(rho_r*vel_r(1) &
                                       & )*(1._wp/dy(k)), kind=stp)
 
 
# 2105 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 2105 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 2105 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 2105 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 2105 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
# 2106 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
                                rhs_vf(igr_momxb + 2)%sf(j, k, l) = rhs_vf(igr_momxb + 2)%sf(j, k, &
                                       & l) - real(0.5_wp*dt*rho_r*vel_r(2)*vel_r(3)*(1._wp/dy(k)) + 0.5_wp*dt*cfl*(rho_r*vel_r(3) &
                                       & )*(1._wp/dy(k)), kind=stp)
 
 
# 2110 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 2110 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 2110 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 2110 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 2110 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
# 2111 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
                                rhs_vf(igr_e_idx)%sf(j, k, l) = rhs_vf(igr_e_idx)%sf(j, k, &
                                       & l) - real(0.5_wp*dt*(vel_r(2)*(e_r + pres_r + f_r))*(1._wp/dy(k)) + 0.5_wp*dt*cfl*(e_r) &
                                       & *(1._wp/dy(k)), kind=stp)
                            end do
                        end do
                    end do
 
# 2117 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 2117 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc end parallel loop
# 2117 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 2117 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 2117 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp end target teams loop
# 2117 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
# 2118 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
# 2119 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
            end if
        else if (idir == 3) then
# 2122 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 2122 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 2122 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 2122 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc parallel loop collapse(3) gang vector default(present) private(j, k, l, rho_L, rho_R, gamma_L, gamma_R, pi_inf_L, pi_inf_R, qv_igr, mu_L, mu_R, vel_L, vel_R, pres_L, pres_R, alpha_L, alpha_R, &
# 2122 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc& alpha_rho_L, alpha_rho_R, F_L, F_R, E_L, E_R, cfl, dvel_small, rho_sf_small, vflux_L_arr, vflux_R_arr)
# 2122 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 2122 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 2122 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 2122 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 2122 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp target teams loop defaultmap(firstprivate:scalar) bind(teams,parallel) collapse(3) defaultmap(tofrom:aggregate) defaultmap(tofrom:allocatable) defaultmap(tofrom:pointer) private(j, k, l, rho_L, &
# 2122 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp& rho_R, gamma_L, gamma_R, pi_inf_L, pi_inf_R, qv_igr, mu_L, mu_R, vel_L, vel_R, pres_L, pres_R, alpha_L, alpha_R, alpha_rho_L, alpha_rho_R, F_L, F_R, E_L, E_R, cfl, dvel_small, rho_sf_small, &
# 2122 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp& vflux_L_arr, vflux_R_arr)
# 2122 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
# 2125 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
                do l = -1, p
                    do k = 0, n
                        do j = 0, m
                            if (viscous) then
                                vflux_l_arr = 0._wp
                                vflux_r_arr = 0._wp
 
# 2139 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 2139 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 2139 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc loop seq 
# 2139 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 2139 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 2139 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
# 2140 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
                                do q = vidxb, vidxe
                                    ! x-direction contributions
 
# 2142 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 2142 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc loop seq 
# 2142 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 2142 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 2142 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
# 2143 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
                                    do i = -1, 1
                                        rho_l = 0._wp
 
# 2145 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 2145 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc loop seq 
# 2145 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 2145 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 2145 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
# 2146 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
                                        do r = 1, num_fluids
                                            rho_l = rho_l + q_cons_vf(r)%sf(j + i, k, l + q)
                                        end do
                                        rho_sf_small(i) = rho_l
                                    end do
 
                                    dvel_small(1) = (1/(2._wp*dx(j)))*(q_cons_vf(igr_momxb)%sf(j + 1, k, &
                                               & l + q)/rho_sf_small(1) - q_cons_vf(igr_momxb)%sf(j - 1, k, l + q)/rho_sf_small(-1))
                                    dvel_small(3) = (1/(2._wp*dx(j)))*(q_cons_vf(igr_momxb + 2)%sf(j + 1, k, &
                                               & l + q)/rho_sf_small(1) - q_cons_vf(igr_momxb + 2)%sf(j - 1, k, &
                                               & l + q)/rho_sf_small(-1))
 
                                    if (q > vidxb) then
                                        vflux_l_arr(1) = vflux_l_arr(1) + coeff_l(q)*(dvel_small(3))
                                        vflux_l_arr(3) = vflux_l_arr(3) + coeff_l(q)*(-2._wp*dvel_small(1))/3._wp
                                    end if
                                    if (q < vidxe) then
                                        vflux_r_arr(1) = vflux_r_arr(1) + coeff_r(q)*(dvel_small(3))
                                        vflux_r_arr(3) = vflux_r_arr(3) + coeff_r(q)*(-2._wp*dvel_small(1))/3._wp
                                    end if
 
                                    ! y-direction contributions
 
# 2168 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 2168 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc loop seq 
# 2168 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 2168 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 2168 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
# 2169 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
                                    do i = -1, 1
                                        rho_l = 0._wp
 
# 2171 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 2171 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc loop seq 
# 2171 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 2171 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 2171 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
# 2172 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
                                        do r = 1, num_fluids
                                            rho_l = rho_l + q_cons_vf(r)%sf(j, k + i, l + q)
                                        end do
                                        rho_sf_small(i) = rho_l
                                    end do
 
                                    dvel_small(2) = (1/(2._wp*dy(k)))*(q_cons_vf(igr_momxb + 1)%sf(j, k + 1, &
                                               & l + q)/rho_sf_small(1) - q_cons_vf(igr_momxb + 1)%sf(j, k - 1, &
                                               & l + q)/rho_sf_small(-1))
                                    dvel_small(3) = (1/(2._wp*dy(k)))*(q_cons_vf(igr_momxb + 2)%sf(j, k + 1, &
                                               & l + q)/rho_sf_small(1) - q_cons_vf(igr_momxb + 2)%sf(j, k - 1, &
                                               & l + q)/rho_sf_small(-1))
 
                                    if (q > vidxb) then
                                        vflux_l_arr(2) = vflux_l_arr(2) + coeff_l(q)*(dvel_small(3))
                                        vflux_l_arr(3) = vflux_l_arr(3) + coeff_l(q)*(-2._wp*dvel_small(2))/3._wp
                                    end if
                                    if (q < vidxe) then
                                        vflux_r_arr(2) = vflux_r_arr(2) + coeff_r(q)*(dvel_small(3))
                                        vflux_r_arr(3) = vflux_r_arr(3) + coeff_r(q)*(-2._wp*dvel_small(2))/3._wp
                                    end if
 
                                    ! z-direction contributions
 
# 2195 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 2195 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc loop seq 
# 2195 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 2195 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 2195 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
# 2196 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
                                    do i = -1, 1
                                        rho_l = 0._wp
 
# 2198 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 2198 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc loop seq 
# 2198 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 2198 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 2198 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
# 2199 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
                                        do r = 1, num_fluids
                                            rho_l = rho_l + q_cons_vf(r)%sf(j, k, l + i + q)
                                        end do
                                        rho_sf_small(i) = rho_l
                                    end do
                                    dvel_small(1) = (1/(2._wp*dz(l)))*(q_cons_vf(igr_momxb)%sf(j, k, &
                                               & l + 1 + q)/rho_sf_small(1) - q_cons_vf(igr_momxb)%sf(j, k, &
                                               & l - 1 + q)/rho_sf_small(-1))
                                    dvel_small(2) = (1/(2._wp*dz(l)))*(q_cons_vf(igr_momxb + 1)%sf(j, k, &
                                               & l + 1 + q)/rho_sf_small(1) - q_cons_vf(igr_momxb + 1)%sf(j, k, &
                                               & l - 1 + q)/rho_sf_small(-1))
                                    dvel_small(3) = (1/(2._wp*dz(l)))*(q_cons_vf(igr_momxb + 2)%sf(j, k, &
                                               & l + 1 + q)/rho_sf_small(1) - q_cons_vf(igr_momxb + 2)%sf(j, k, &
                                               & l - 1 + q)/rho_sf_small(-1))
                                    if (q > vidxb) then
                                        vflux_l_arr(1) = vflux_l_arr(1) + coeff_l(q)*(dvel_small(1))
                                        vflux_l_arr(2) = vflux_l_arr(2) + coeff_l(q)*(dvel_small(2))
                                        vflux_l_arr(3) = vflux_l_arr(3) + coeff_l(q)*(4._wp*dvel_small(3))/3._wp
                                    end if
                                    if (q < vidxe) then
                                        vflux_r_arr(1) = vflux_r_arr(1) + coeff_r(q)*(dvel_small(1))
                                        vflux_r_arr(2) = vflux_r_arr(2) + coeff_r(q)*(dvel_small(2))
                                        vflux_r_arr(3) = vflux_r_arr(3) + coeff_r(q)*(4._wp*dvel_small(3))/3._wp
                                    end if
                                end do
                            end if
 
 
# 2226 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 2226 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc loop seq 
# 2226 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 2226 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 2226 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
# 2227 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
                            do i = 1, num_fluids
                                alpha_rho_l(i) = 0._wp
                                alpha_rho_r(i) = 0._wp
                                alpha_l(i) = 0._wp
                                alpha_r(i) = 0._wp
                            end do
 
 
# 2234 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 2234 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc loop seq 
# 2234 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 2234 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 2234 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
# 2235 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
                            do i = 1, num_dims
                                vel_l(i) = 0._wp
                                vel_r(i) = 0._wp
                            end do
 
 
# 2240 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 2240 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc loop seq 
# 2240 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 2240 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 2240 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
# 2241 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
                            do q = vidxb + 1, vidxe
 
# 2242 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 2242 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc loop seq 
# 2242 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 2242 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 2242 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
# 2243 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
                                do i = 1, num_fluids
                                    alpha_rho_l(i) = alpha_rho_l(i) + coeff_l(q)*q_cons_vf(i)%sf(j, k, l + q)
                                end do
 
                                if (num_fluids > 1) then
 
# 2248 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 2248 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc loop seq 
# 2248 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 2248 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 2248 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
# 2249 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
                                    do i = 1, num_fluids - 1
                                        alpha_l(i) = alpha_l(i) + coeff_l(q)*q_cons_vf(igr_e_idx + i)%sf(j, k, l + q)
                                    end do
                                else
                                    alpha_l(1) = 1._wp
                                end if
 
 
# 2256 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 2256 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc loop seq 
# 2256 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 2256 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 2256 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
# 2257 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
                                do i = 1, num_dims
                                    vel_l(i) = vel_l(i) + coeff_l(q)*q_cons_vf(igr_momxb + i - 1)%sf(j, k, l + q)
                                end do
                            end do
 
 
# 2262 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 2262 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc loop seq 
# 2262 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 2262 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 2262 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
# 2263 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
                            do q = vidxb, vidxe - 1
 
# 2264 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 2264 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc loop seq 
# 2264 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 2264 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 2264 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
# 2265 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
                                do i = 1, num_fluids
                                    alpha_rho_r(i) = alpha_rho_r(i) + coeff_r(q)*q_cons_vf(i)%sf(j, k, l + q)
                                end do
 
                                if (num_fluids > 1) then
 
# 2270 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 2270 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc loop seq 
# 2270 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 2270 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 2270 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
# 2271 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
                                    do i = 1, num_fluids - 1
                                        alpha_r(i) = alpha_r(i) + coeff_r(q)*q_cons_vf(igr_e_idx + i)%sf(j, k, l + q)
                                    end do
                                else
                                    alpha_r(1) = 1._wp
                                end if
 
 
# 2278 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 2278 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc loop seq 
# 2278 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 2278 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 2278 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
# 2279 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
                                do i = 1, num_dims
                                    vel_r(i) = vel_r(i) + coeff_r(q)*q_cons_vf(igr_momxb + i - 1)%sf(j, k, l + q)
                                end do
                            end do
 
                            if (num_fluids > 1) then
                                alpha_l(num_fluids) = 1._wp
                                alpha_r(num_fluids) = 1._wp
 
 
# 2288 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 2288 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc loop seq 
# 2288 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 2288 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 2288 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
# 2289 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
                                do i = 1, num_fluids - 1
                                    alpha_l(num_fluids) = alpha_l(num_fluids) - alpha_l(i)
                                    alpha_r(num_fluids) = alpha_r(num_fluids) - alpha_r(i)
                                end do
                            end if
 
                            call s_compute_mixture_coefficients(alpha_rho_l, alpha_l, rho_l, gamma_l, pi_inf_l, qv_igr)
                            call s_compute_mixture_coefficients(alpha_rho_r, alpha_r, rho_r, gamma_r, pi_inf_r, qv_igr)
 
 
# 2298 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 2298 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc loop seq 
# 2298 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 2298 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 2298 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
# 2299 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
                            do i = 1, num_dims
                                vel_l(i) = vel_l(i)/rho_l
                                vel_r(i) = vel_r(i)/rho_r
                            end do
 
                            if (viscous) then
                                mu_l = 0._wp
                                mu_r = 0._wp
 
# 2307 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 2307 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc loop seq 
# 2307 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 2307 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 2307 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
# 2308 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
                                do i = 1, num_fluids
                                    mu_l = alpha_l(i)/res_igr(1, i) + mu_l
                                    mu_r = alpha_r(i)/res_igr(1, i) + mu_r
                                end do
 
 
# 2313 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 2313 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 2313 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 2313 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 2313 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
# 2314 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
                                rhs_vf(igr_momxb)%sf(j, k, l + 1) = rhs_vf(igr_momxb)%sf(j, k, &
                                       & l + 1) - real(0.5_wp*dt*mu_l*vflux_l_arr(1)*(1._wp/dz(l + 1)), kind=stp)
 
# 2316 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 2316 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 2316 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 2316 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 2316 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
# 2317 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
                                rhs_vf(igr_e_idx)%sf(j, k, l + 1) = rhs_vf(igr_e_idx)%sf(j, k, &
                                       & l + 1) - real(0.5_wp*dt*mu_l*vflux_l_arr(1)*vel_l(1)*(1._wp/dz(l + 1)), kind=stp)
 
 
# 2320 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 2320 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 2320 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 2320 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 2320 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
# 2321 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
                                rhs_vf(igr_momxb)%sf(j, k, l) = rhs_vf(igr_momxb)%sf(j, k, &
                                       & l) + real(0.5_wp*dt*mu_l*vflux_l_arr(1)*(1._wp/dz(l)), kind=stp)
 
# 2323 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 2323 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 2323 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 2323 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 2323 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
# 2324 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
                                rhs_vf(igr_e_idx)%sf(j, k, l) = rhs_vf(igr_e_idx)%sf(j, k, &
                                       & l) + real(0.5_wp*dt*mu_l*vflux_l_arr(1)*vel_l(1)*(1._wp/dz(l)), kind=stp)
 
 
# 2327 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 2327 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 2327 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 2327 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 2327 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
# 2328 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
                                rhs_vf(igr_momxb)%sf(j, k, l + 1) = rhs_vf(igr_momxb)%sf(j, k, &
                                       & l + 1) - real(0.5_wp*dt*mu_r*vflux_r_arr(1)*(1._wp/dz(l + 1)), kind=stp)
 
# 2330 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 2330 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 2330 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 2330 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 2330 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
# 2331 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
                                rhs_vf(igr_e_idx)%sf(j, k, l + 1) = rhs_vf(igr_e_idx)%sf(j, k, &
                                       & l + 1) - real(0.5_wp*dt*mu_r*vflux_r_arr(1)*vel_r(1)*(1._wp/dz(l + 1)), kind=stp)
 
 
# 2334 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 2334 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 2334 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 2334 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 2334 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
# 2335 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
                                rhs_vf(igr_momxb)%sf(j, k, l) = rhs_vf(igr_momxb)%sf(j, k, &
                                       & l) + real(0.5_wp*dt*mu_r*vflux_r_arr(1)*(1._wp/dz(l)), kind=stp)
 
# 2337 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 2337 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 2337 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 2337 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 2337 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
# 2338 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
                                rhs_vf(igr_e_idx)%sf(j, k, l) = rhs_vf(igr_e_idx)%sf(j, k, &
                                       & l) + real(0.5_wp*dt*mu_r*vflux_r_arr(1)*vel_r(1)*(1._wp/dz(l)), kind=stp)
 
 
# 2341 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 2341 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 2341 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 2341 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 2341 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
# 2342 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
                                rhs_vf(igr_momxb + 1)%sf(j, k, l + 1) = rhs_vf(igr_momxb + 1)%sf(j, k, &
                                       & l + 1) - real(0.5_wp*dt*mu_l*vflux_l_arr(2)*(1._wp/dz(l + 1)), kind=stp)
 
# 2344 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 2344 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 2344 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 2344 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 2344 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
# 2345 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
                                rhs_vf(igr_e_idx)%sf(j, k, l + 1) = rhs_vf(igr_e_idx)%sf(j, k, &
                                       & l + 1) - real(0.5_wp*dt*mu_l*vflux_l_arr(2)*vel_l(2)*(1._wp/dz(l + 1)), kind=stp)
 
 
# 2348 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 2348 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 2348 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 2348 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 2348 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
# 2349 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
                                rhs_vf(igr_momxb + 1)%sf(j, k, l) = rhs_vf(igr_momxb + 1)%sf(j, k, &
                                       & l) + real(0.5_wp*dt*mu_l*vflux_l_arr(2)*(1._wp/dz(l)), kind=stp)
 
# 2351 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 2351 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 2351 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 2351 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 2351 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
# 2352 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
                                rhs_vf(igr_e_idx)%sf(j, k, l) = rhs_vf(igr_e_idx)%sf(j, k, &
                                       & l) + real(0.5_wp*dt*mu_l*vflux_l_arr(2)*vel_l(2)*(1._wp/dz(l)), kind=stp)
 
 
# 2355 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 2355 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 2355 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 2355 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 2355 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
# 2356 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
                                rhs_vf(igr_momxb + 1)%sf(j, k, l + 1) = rhs_vf(igr_momxb + 1)%sf(j, k, &
                                       & l + 1) - real(0.5_wp*dt*mu_r*vflux_r_arr(2)*(1._wp/dz(l + 1)), kind=stp)
 
# 2358 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 2358 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 2358 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 2358 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 2358 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
# 2359 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
                                rhs_vf(igr_e_idx)%sf(j, k, l + 1) = rhs_vf(igr_e_idx)%sf(j, k, &
                                       & l + 1) - real(0.5_wp*dt*mu_r*vflux_r_arr(2)*vel_r(2)*(1._wp/dz(l + 1)), kind=stp)
 
 
# 2362 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 2362 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 2362 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 2362 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 2362 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
# 2363 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
                                rhs_vf(igr_momxb + 1)%sf(j, k, l) = rhs_vf(igr_momxb + 1)%sf(j, k, &
                                       & l) + real(0.5_wp*dt*mu_r*vflux_r_arr(2)*(1._wp/dz(l)), kind=stp)
 
# 2365 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 2365 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 2365 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 2365 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 2365 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
# 2366 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
                                rhs_vf(igr_e_idx)%sf(j, k, l) = rhs_vf(igr_e_idx)%sf(j, k, &
                                       & l) + real(0.5_wp*dt*mu_r*vflux_r_arr(2)*vel_r(2)*(1._wp/dz(l)), kind=stp)
 
 
# 2369 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 2369 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 2369 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 2369 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 2369 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
# 2370 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
                                rhs_vf(igr_momxb + 2)%sf(j, k, l + 1) = rhs_vf(igr_momxb + 2)%sf(j, k, &
                                       & l + 1) - real(0.5_wp*dt*mu_l*vflux_l_arr(3)*(1._wp/dz(l + 1)), kind=stp)
 
# 2372 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 2372 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 2372 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 2372 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 2372 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
# 2373 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
                                rhs_vf(igr_e_idx)%sf(j, k, l + 1) = rhs_vf(igr_e_idx)%sf(j, k, &
                                       & l + 1) - real(0.5_wp*dt*mu_l*vflux_l_arr(3)*vel_l(3)*(1._wp/dz(l + 1)), kind=stp)
 
 
# 2376 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 2376 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 2376 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 2376 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 2376 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
# 2377 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
                                rhs_vf(igr_momxb + 2)%sf(j, k, l) = rhs_vf(igr_momxb + 2)%sf(j, k, &
                                       & l) + real(0.5_wp*dt*mu_l*vflux_l_arr(3)*(1._wp/dz(l)), kind=stp)
 
# 2379 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 2379 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 2379 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 2379 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 2379 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
# 2380 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
                                rhs_vf(igr_e_idx)%sf(j, k, l) = rhs_vf(igr_e_idx)%sf(j, k, &
                                       & l) + real(0.5_wp*dt*mu_l*vflux_l_arr(3)*vel_l(3)*(1._wp/dz(l)), kind=stp)
 
 
# 2383 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 2383 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 2383 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 2383 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 2383 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
# 2384 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
                                rhs_vf(igr_momxb + 2)%sf(j, k, l + 1) = rhs_vf(igr_momxb + 2)%sf(j, k, &
                                       & l + 1) - real(0.5_wp*dt*mu_r*vflux_r_arr(3)*(1._wp/dz(l + 1)), kind=stp)
 
# 2386 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 2386 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 2386 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 2386 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 2386 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
# 2387 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
                                rhs_vf(igr_e_idx)%sf(j, k, l + 1) = rhs_vf(igr_e_idx)%sf(j, k, &
                                       & l + 1) - real(0.5_wp*dt*mu_r*vflux_r_arr(3)*vel_r(3)*(1._wp/dz(l + 1)), kind=stp)
 
 
# 2390 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 2390 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 2390 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 2390 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 2390 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
# 2391 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
                                rhs_vf(igr_momxb + 2)%sf(j, k, l) = rhs_vf(igr_momxb + 2)%sf(j, k, &
                                       & l) + real(0.5_wp*dt*mu_r*vflux_r_arr(3)*(1._wp/dz(l)), kind=stp)
 
# 2393 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 2393 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 2393 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 2393 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 2393 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
# 2394 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
                                rhs_vf(igr_e_idx)%sf(j, k, l) = rhs_vf(igr_e_idx)%sf(j, k, &
                                       & l) + real(0.5_wp*dt*mu_r*vflux_r_arr(3)*vel_r(3)*(1._wp/dz(l)), kind=stp)
                            end if
 
                            e_l = 0._wp; e_r = 0._wp
                            f_l = 0._wp; f_r = 0._wp
 
 
# 2401 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 2401 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc loop seq 
# 2401 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 2401 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 2401 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
# 2402 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
                            do q = vidxb + 1, vidxe
                                e_l = e_l + coeff_l(q)*q_cons_vf(igr_e_idx)%sf(j, k, l + q)
                                f_l = f_l + coeff_l(q)*jac(j, k, l + q)
                            end do
 
 
# 2407 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 2407 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc loop seq 
# 2407 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 2407 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 2407 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
# 2408 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
                            do q = vidxb, vidxe - 1
                                e_r = e_r + coeff_r(q)*q_cons_vf(igr_e_idx)%sf(j, k, l + q)
                                f_r = f_r + coeff_r(q)*jac(j, k, l + q)
                            end do
 
                            call s_get_derived_states(e_l, gamma_l, pi_inf_l, rho_l, vel_l, e_r, gamma_r, pi_inf_r, rho_r, vel_r, &
                                                      & pres_l, pres_r, cfl)
 
 
# 2416 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 2416 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc loop seq 
# 2416 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 2416 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 2416 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
# 2417 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
                            do i = 1, num_fluids
 
# 2418 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 2418 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 2418 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 2418 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 2418 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
# 2419 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
                                rhs_vf(i)%sf(j, k, l + 1) = rhs_vf(i)%sf(j, k, &
                                       & l + 1) + real(0.5_wp*dt*(alpha_rho_l(i)*vel_l(3))*(1._wp/dz(l + 1)) &
                                       & - 0.5_wp*dt*cfl*(alpha_rho_l(i))*(1._wp/dz(l + 1)), kind=stp)
 
 
# 2423 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 2423 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 2423 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 2423 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 2423 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
# 2424 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
                                rhs_vf(i)%sf(j, k, l) = rhs_vf(i)%sf(j, k, &
                                       & l) - real(0.5_wp*dt*(alpha_rho_l(i)*vel_l(3))*(1._wp/dz(l)) &
                                       & - 0.5_wp*dt*cfl*(alpha_rho_l(i))*(1._wp/dz(l)), kind=stp)
                            end do
 
                            if (num_fluids > 1) then
 
# 2430 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 2430 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc loop seq 
# 2430 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 2430 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 2430 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
# 2431 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
                                do i = 1, num_fluids - 1
 
# 2432 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 2432 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 2432 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 2432 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 2432 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
# 2433 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
                                    rhs_vf(igr_advxb + i - 1)%sf(j, k, l + 1) = rhs_vf(igr_advxb + i - 1)%sf(j, k, &
                                           & l + 1) + real(0.5_wp*dt*(alpha_l(i)*vel_l(3))*(1._wp/dz(l + 1)) &
                                           & - 0.5_wp*dt*cfl*(alpha_l(i))*(1._wp/dz(l + 1)), kind=stp)
 
 
# 2437 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 2437 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 2437 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 2437 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 2437 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
# 2438 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
                                    rhs_vf(igr_advxb + i - 1)%sf(j, k, l + 1) = rhs_vf(igr_advxb + i - 1)%sf(j, k, &
                                           & l + 1) - real(0.5_wp*dt*q_cons_vf(igr_advxb + i - 1)%sf(j, k, &
                                           & l + 1)*vel_l(3)*(1._wp/dz(l + 1)), kind=stp)
 
 
# 2442 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 2442 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 2442 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 2442 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 2442 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
# 2443 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
                                    rhs_vf(igr_advxb + i - 1)%sf(j, k, l) = rhs_vf(igr_advxb + i - 1)%sf(j, k, &
                                           & l) - real(0.5_wp*dt*(alpha_l(i)*vel_l(3))*(1._wp/dz(l)) - 0.5_wp*dt*cfl*(alpha_l(i)) &
                                           & *(1._wp/dz(l)), kind=stp)
 
 
# 2447 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 2447 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 2447 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 2447 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 2447 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
# 2448 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
                                    rhs_vf(igr_advxb + i - 1)%sf(j, k, l) = rhs_vf(igr_advxb + i - 1)%sf(j, k, &
                                           & l) + real(0.5_wp*dt*q_cons_vf(igr_advxb + i - 1)%sf(j, k, l)*vel_l(3)*(1._wp/dz(l)), &
                                           & kind=stp)
                                end do
                            end if
 
 
# 2454 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 2454 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 2454 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 2454 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 2454 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
# 2455 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
                            rhs_vf(igr_momxb + 2)%sf(j, k, l + 1) = rhs_vf(igr_momxb + 2)%sf(j, k, &
                                   & l + 1) + real(0.5_wp*dt*(rho_l*(vel_l(3))**2.0 + pres_l + f_l)*(1._wp/dz(l + 1)) &
                                   & - 0.5_wp*dt*cfl*(rho_l*vel_l(3))*(1._wp/dz(l + 1)), kind=stp)
 
 
# 2459 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 2459 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 2459 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 2459 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 2459 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
# 2460 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
                            rhs_vf(igr_momxb)%sf(j, k, l + 1) = rhs_vf(igr_momxb)%sf(j, k, &
                                   & l + 1) + real(0.5_wp*dt*rho_l*vel_l(1)*vel_l(3)*(1._wp/dz(l + 1)) &
                                   & - 0.5_wp*dt*cfl*(rho_l*vel_l(1))*(1._wp/dz(l + 1)), kind=stp)
 
 
# 2464 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 2464 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 2464 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 2464 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 2464 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
# 2465 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
                            rhs_vf(igr_momxb + 1)%sf(j, k, l + 1) = rhs_vf(igr_momxb + 1)%sf(j, k, &
                                   & l + 1) + real(0.5_wp*dt*rho_l*vel_l(2)*vel_l(3)*(1._wp/dz(l + 1)) &
                                   & - 0.5_wp*dt*cfl*(rho_l*vel_l(2))*(1._wp/dz(l + 1)), kind=stp)
 
 
# 2469 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 2469 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 2469 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 2469 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 2469 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
# 2470 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
                            rhs_vf(igr_e_idx)%sf(j, k, l + 1) = rhs_vf(igr_e_idx)%sf(j, k, &
                                   & l + 1) + real(0.5_wp*dt*(vel_l(3)*(e_l + pres_l + f_l))*(1._wp/dz(l + 1)) &
                                   & - 0.5_wp*dt*cfl*(e_l)*(1._wp/dz(l + 1)), kind=stp)
 
 
# 2474 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 2474 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 2474 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 2474 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 2474 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
# 2475 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
                            rhs_vf(igr_momxb + 2)%sf(j, k, l) = rhs_vf(igr_momxb + 2)%sf(j, k, &
                                   & l) - real(0.5_wp*dt*(rho_l*(vel_l(3))**2.0 + pres_l + f_l)*(1._wp/dz(l)) &
                                   & - 0.5_wp*dt*cfl*(rho_l*vel_l(3))*(1._wp/dz(l)), kind=stp)
 
 
# 2479 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 2479 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 2479 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 2479 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 2479 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
# 2480 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
                            rhs_vf(igr_momxb)%sf(j, k, l) = rhs_vf(igr_momxb)%sf(j, k, &
                                   & l) - real(0.5_wp*dt*rho_l*vel_l(1)*vel_l(3)*(1._wp/dz(l)) - 0.5_wp*dt*cfl*(rho_l*vel_l(1)) &
                                   & *(1._wp/dz(l)), kind=stp)
 
 
# 2484 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 2484 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 2484 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 2484 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 2484 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
# 2485 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
                            rhs_vf(igr_momxb + 1)%sf(j, k, l) = rhs_vf(igr_momxb + 1)%sf(j, k, &
                                   & l) - real(0.5_wp*dt*rho_l*vel_l(2)*vel_l(3)*(1._wp/dz(l)) - 0.5_wp*dt*cfl*(rho_l*vel_l(2)) &
                                   & *(1._wp/dz(l)), kind=stp)
 
 
# 2489 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 2489 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 2489 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 2489 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 2489 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
# 2490 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
                            rhs_vf(igr_e_idx)%sf(j, k, l) = rhs_vf(igr_e_idx)%sf(j, k, &
                                   & l) - real(0.5_wp*dt*(vel_l(3)*(e_l + pres_l + f_l))*(1._wp/dz(l)) - 0.5_wp*dt*cfl*(e_l) &
                                   & *(1._wp/dz(l)), kind=stp)
 
 
# 2494 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 2494 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc loop seq 
# 2494 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 2494 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 2494 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
# 2495 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
                            do i = 1, num_fluids
 
# 2496 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 2496 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 2496 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 2496 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 2496 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
# 2497 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
                                rhs_vf(i)%sf(j, k, l + 1) = rhs_vf(i)%sf(j, k, &
                                       & l + 1) + real(0.5_wp*dt*(alpha_rho_r(i)*vel_r(3))*(1._wp/dz(l + 1)) &
                                       & + 0.5_wp*dt*cfl*(alpha_rho_r(i))*(1._wp/dz(l + 1)), kind=stp)
 
 
# 2501 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 2501 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 2501 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 2501 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 2501 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
# 2502 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
                                rhs_vf(i)%sf(j, k, l) = rhs_vf(i)%sf(j, k, &
                                       & l) - real(0.5_wp*dt*(alpha_rho_r(i)*vel_r(3))*(1._wp/dz(l)) &
                                       & + 0.5_wp*dt*cfl*(alpha_rho_r(i))*(1._wp/dz(l)), kind=stp)
                            end do
 
                            if (num_fluids > 1) then
 
# 2508 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 2508 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc loop seq 
# 2508 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 2508 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 2508 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
# 2509 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
                                do i = 1, num_fluids - 1
 
# 2510 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 2510 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 2510 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 2510 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 2510 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
# 2511 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
                                    rhs_vf(igr_advxb + i - 1)%sf(j, k, l + 1) = rhs_vf(igr_advxb + i - 1)%sf(j, k, &
                                           & l + 1) + real(0.5_wp*dt*(alpha_r(i)*vel_r(3))*(1._wp/dz(l + 1)) &
                                           & + 0.5_wp*dt*cfl*(alpha_r(i))*(1._wp/dz(l + 1)), kind=stp)
 
 
# 2515 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 2515 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 2515 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 2515 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 2515 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
# 2516 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
                                    rhs_vf(igr_advxb + i - 1)%sf(j, k, l + 1) = rhs_vf(igr_advxb + i - 1)%sf(j, k, &
                                           & l + 1) - real(0.5_wp*dt*q_cons_vf(igr_advxb + i - 1)%sf(j, k, &
                                           & l + 1)*vel_r(3)*(1._wp/dz(l + 1)), kind=stp)
 
 
# 2520 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 2520 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 2520 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 2520 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 2520 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
# 2521 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
                                    rhs_vf(igr_advxb + i - 1)%sf(j, k, l) = rhs_vf(igr_advxb + i - 1)%sf(j, k, &
                                           & l) - real(0.5_wp*dt*(alpha_r(i)*vel_r(3))*(1._wp/dz(l)) + 0.5_wp*dt*cfl*(alpha_r(i)) &
                                           & *(1._wp/dz(l)), kind=stp)
 
 
# 2525 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 2525 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 2525 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 2525 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 2525 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
# 2526 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
                                    rhs_vf(igr_advxb + i - 1)%sf(j, k, l) = rhs_vf(igr_advxb + i - 1)%sf(j, k, &
                                           & l) + real(0.5_wp*dt*q_cons_vf(igr_advxb + i - 1)%sf(j, k, l)*vel_r(3)*(1._wp/dz(l)), &
                                           & kind=stp)
                                end do
                            end if
 
 
# 2532 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 2532 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 2532 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 2532 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 2532 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
# 2533 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
                            rhs_vf(igr_momxb + 2)%sf(j, k, l + 1) = rhs_vf(igr_momxb + 2)%sf(j, k, &
                                   & l + 1) + real(0.5_wp*dt*(rho_r*(vel_r(3))**2.0 + pres_r + f_r)*(1._wp/dz(l + 1)) &
                                   & + 0.5_wp*dt*cfl*(rho_r*vel_r(3))*(1._wp/dz(l + 1)), kind=stp)
 
 
# 2537 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 2537 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 2537 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 2537 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 2537 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
# 2538 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
                            rhs_vf(igr_momxb)%sf(j, k, l + 1) = rhs_vf(igr_momxb)%sf(j, k, &
                                   & l + 1) + real(0.5_wp*dt*rho_r*vel_r(1)*vel_r(3)*(1._wp/dz(l + 1)) &
                                   & + 0.5_wp*dt*cfl*(rho_r*vel_r(1))*(1._wp/dz(l + 1)), kind=stp)
 
 
# 2542 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 2542 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 2542 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 2542 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 2542 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
# 2543 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
                            rhs_vf(igr_momxb + 1)%sf(j, k, l + 1) = rhs_vf(igr_momxb + 1)%sf(j, k, &
                                   & l + 1) + real(0.5_wp*dt*rho_r*vel_r(2)*vel_r(3)*(1._wp/dz(l + 1)) &
                                   & + 0.5_wp*dt*cfl*(rho_r*vel_r(2))*(1._wp/dz(l + 1)), kind=stp)
 
 
# 2547 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 2547 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 2547 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 2547 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 2547 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
# 2548 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
                            rhs_vf(igr_e_idx)%sf(j, k, l + 1) = rhs_vf(igr_e_idx)%sf(j, k, &
                                   & l + 1) + real(0.5_wp*dt*(vel_r(3)*(e_r + pres_r + f_r))*(1._wp/dz(l + 1)) &
                                   & + 0.5_wp*dt*cfl*(e_r)*(1._wp/dz(l + 1)), kind=stp)
 
 
# 2552 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 2552 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 2552 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 2552 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 2552 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
# 2553 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
                            rhs_vf(igr_momxb + 2)%sf(j, k, l) = rhs_vf(igr_momxb + 2)%sf(j, k, &
                                   & l) - real(0.5_wp*dt*(rho_r*(vel_r(3))**2.0 + pres_r + f_r)*(1._wp/dz(l)) &
                                   & + 0.5_wp*dt*cfl*(rho_r*vel_r(3))*(1._wp/dz(l)), kind=stp)
 
 
# 2557 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 2557 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 2557 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 2557 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 2557 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
# 2558 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
                            rhs_vf(igr_momxb)%sf(j, k, l) = rhs_vf(igr_momxb)%sf(j, k, &
                                   & l) - real(0.5_wp*dt*rho_r*vel_r(1)*vel_r(3)*(1._wp/dz(l)) + 0.5_wp*dt*cfl*(rho_r*vel_r(1)) &
                                   & *(1._wp/dz(l)), kind=stp)
 
 
# 2562 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 2562 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 2562 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 2562 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 2562 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
# 2563 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
                            rhs_vf(igr_momxb + 1)%sf(j, k, l) = rhs_vf(igr_momxb + 1)%sf(j, k, &
                                   & l) - real(0.5_wp*dt*rho_r*vel_r(2)*vel_r(3)*(1._wp/dz(l)) + 0.5_wp*dt*cfl*(rho_r*vel_r(2)) &
                                   & *(1._wp/dz(l)), kind=stp)
 
 
# 2567 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 2567 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 2567 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 2567 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 2567 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
# 2568 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
                            rhs_vf(igr_e_idx)%sf(j, k, l) = rhs_vf(igr_e_idx)%sf(j, k, &
                                   & l) - real(0.5_wp*dt*(vel_r(3)*(e_r + pres_r + f_r))*(1._wp/dz(l)) + 0.5_wp*dt*cfl*(e_r) &
                                   & *(1._wp/dz(l)), kind=stp)
                        end do
                    end do
                end do
 
# 2574 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 2574 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc end parallel loop
# 2574 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 2574 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 2574 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp end target teams loop
# 2574 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
# 2575 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
# 2576 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
        end if
 
    end subroutine s_igr_riemann_solver
 
    !> Compute pressure and maximum wavespeed from left and right reconstructed states
    subroutine s_get_derived_states(E_L, gamma_L, pi_inf_L, rho_L, vel_L, E_R, gamma_R, pi_inf_R, rho_R, vel_R, pres_L, pres_R, cfl)
 
 
# 2583 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if MFC_OpenACC
# 2583 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc routine seq 
# 2583 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif MFC_OpenMP
# 2583 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 2583 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 2583 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp declare target device_type(any) 
# 2583 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
# 2584 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
        real(wp), intent(in)                      :: E_L, gamma_L, pi_inf_L, rho_L
        real(wp), intent(in)                      :: E_R, gamma_R, pi_inf_R, rho_R
        real(wp), dimension(num_dims), intent(in) :: vel_L, vel_R
        real(wp), intent(out)                     :: pres_L, pres_R, cfl
        real(wp)                                  :: a_L, a_R
 
        if (num_dims == 2) then
            pres_l = f_pressure(e_l - 0.5_wp*rho_l*(vel_l(1)**2._wp + vel_l(2)**2._wp), gamma_l, pi_inf_l, 0._wp)
            pres_r = f_pressure(e_r - 0.5_wp*rho_r*(vel_r(1)**2._wp + vel_r(2)**2._wp), gamma_r, pi_inf_r, 0._wp)
 
            if (igr_pres_lim) then
                pres_l = max(pres_l, 0._wp)
                pres_r = max(pres_r, 0._wp)
            end if
 
            a_l = sqrt(f_bulk_modulus(pres_l, gamma_l, pi_inf_l)/rho_l)
            a_r = sqrt(f_bulk_modulus(pres_r, gamma_r, pi_inf_r)/rho_r)
 
            cfl = max(sqrt(vel_l(1)**2._wp + vel_l(2)**2._wp), sqrt(vel_r(1)**2._wp + vel_r(2)**2._wp)) + max(a_l, a_r)
        else if (num_dims == 3) then
# 2606 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
                pres_l = f_pressure(e_l - 0.5_wp*rho_l*(vel_l(1)**2._wp + vel_l(2)**2._wp + vel_l(3)**2._wp), gamma_l, pi_inf_l, &
                                    & 0._wp)
                pres_r = f_pressure(e_r - 0.5_wp*rho_r*(vel_r(1)**2._wp + vel_r(2)**2._wp + vel_r(3)**2._wp), gamma_r, pi_inf_r, &
                                    & 0._wp)
 
                if (igr_pres_lim) then
                    pres_l = max(pres_l, 0._wp)
                    pres_r = max(pres_r, 0._wp)
                end if
 
                a_l = sqrt(f_bulk_modulus(pres_l, gamma_l, pi_inf_l)/rho_l)
                a_r = sqrt(f_bulk_modulus(pres_r, gamma_r, pi_inf_r)/rho_r)
 
                cfl = max(sqrt(vel_l(1)**2._wp + vel_l(2)**2._wp + vel_l(3)**2._wp), &
                          & sqrt(vel_r(1)**2._wp + vel_r(2)**2._wp + vel_r(3)**2._wp)) + max(a_l, a_r)
# 2622 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
        end if
 
    end subroutine s_get_derived_states
 
    !> Accumulate the IGR numerical flux divergence into the RHS along the specified direction
    subroutine s_igr_flux_add(q_cons_vf, rhs_vf, flux_vf, idir)
 
        type(scalar_field), dimension(sys_size), intent(inout) :: q_cons_vf, flux_vf, rhs_vf
        integer, intent(in)                                    :: idir
 
        if (idir == 1) then
 
# 2633 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 2633 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 2633 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc parallel loop collapse(4) gang vector default(present) private(i, j, k, l)
# 2633 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 2633 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 2633 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 2633 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 2633 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp target teams loop defaultmap(firstprivate:scalar) bind(teams,parallel) collapse(4) defaultmap(tofrom:aggregate) defaultmap(tofrom:allocatable) defaultmap(tofrom:pointer) private(i, j, k, l)
# 2633 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
# 2634 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
            do i = 1, sys_size
                do l = 0, p
                    do k = 0, n
                        do j = 0, m
                            rhs_vf(i)%sf(j, k, l) = 1._wp/dx(j)*(flux_vf(i)%sf(j - 1, k, l) - flux_vf(i)%sf(j, k, l))
                        end do
                    end do
                end do
            end do
 
# 2643 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 2643 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc end parallel loop
# 2643 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 2643 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 2643 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp end target teams loop
# 2643 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
# 2644 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
        else if (idir == 2) then
 
# 2645 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 2645 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 2645 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc parallel loop collapse(4) gang vector default(present) private(i, j, k, l)
# 2645 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 2645 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 2645 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 2645 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 2645 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp target teams loop defaultmap(firstprivate:scalar) bind(teams,parallel) collapse(4) defaultmap(tofrom:aggregate) defaultmap(tofrom:allocatable) defaultmap(tofrom:pointer) private(i, j, k, l)
# 2645 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
# 2646 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
            do i = 1, sys_size
                do l = 0, p
                    do k = 0, n
                        do j = 0, m
                            rhs_vf(i)%sf(j, k, l) = rhs_vf(i)%sf(j, k, l) + 1._wp/dy(k)*(flux_vf(i)%sf(j, k - 1, &
                                   & l) - flux_vf(i)%sf(j, k, l))
                        end do
                    end do
                end do
            end do
 
# 2656 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 2656 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc end parallel loop
# 2656 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 2656 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 2656 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp end target teams loop
# 2656 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
# 2657 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
        else if (idir == 3) then
 
# 2658 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 2658 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 2658 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc parallel loop collapse(4) gang vector default(present) private(i, j, k, l)
# 2658 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 2658 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 2658 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 2658 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 2658 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp target teams loop defaultmap(firstprivate:scalar) bind(teams,parallel) collapse(4) defaultmap(tofrom:aggregate) defaultmap(tofrom:allocatable) defaultmap(tofrom:pointer) private(i, j, k, l)
# 2658 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
# 2659 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
            do i = 1, sys_size
                do l = 0, p
                    do k = 0, n
                        do j = 0, m
                            rhs_vf(i)%sf(j, k, l) = rhs_vf(i)%sf(j, k, l) + 1._wp/dz(l)*(flux_vf(i)%sf(j, k, &
                                   & l - 1) - flux_vf(i)%sf(j, k, l))
                        end do
                    end do
                end do
            end do
 
# 2669 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 2669 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc end parallel loop
# 2669 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 2669 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 2669 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp end target teams loop
# 2669 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
# 2670 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
        end if
 
    end subroutine s_igr_flux_add
 
    !> Finalize the IGR module
    subroutine s_finalize_igr_module()
 
        if (viscous) then
#ifdef MFC_DEBUG
# 2678 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
    block
# 2678 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
        use iso_fortran_env, only: output_unit
# 2678 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 2678 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
        print *, 'm_igr.fpp:2678: ', '@:DEALLOCATE(Res_igr)'
# 2678 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 2678 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
        call flush (output_unit)
# 2678 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
    end block
# 2678 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
# 2678 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 2678 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 2678 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc exit data delete(Res_igr) 
# 2678 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 2678 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp target exit data map(release:Res_igr) 
# 2678 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
# 2678 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
    deallocate (res_igr)
# 2679 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
        end if
 
#ifndef __NVCOMPILER_GPU_UNIFIED_MEM
#ifdef MFC_DEBUG
# 2682 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
    block
# 2682 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
        use iso_fortran_env, only: output_unit
# 2682 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 2682 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
        print *, 'm_igr.fpp:2682: ', '@:DEALLOCATE(jac, jac_rhs)'
# 2682 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 2682 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
        call flush (output_unit)
# 2682 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
    end block
# 2682 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
# 2682 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 2682 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 2682 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc exit data delete(jac, jac_rhs) 
# 2682 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 2682 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp target exit data map(release:jac, jac_rhs) 
# 2682 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
# 2682 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
    deallocate (jac, jac_rhs)
# 2683 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
        if (igr_iter_solver == 1) then  ! Jacobi iteration
#ifdef MFC_DEBUG
# 2685 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
    block
# 2685 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
        use iso_fortran_env, only: output_unit
# 2685 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 2685 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
        print *, 'm_igr.fpp:2685: ', '@:DEALLOCATE(jac_old)'
# 2685 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 2685 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
        call flush (output_unit)
# 2685 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
    end block
# 2685 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
# 2685 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 2685 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 2685 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc exit data delete(jac_old) 
# 2685 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 2685 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp target exit data map(release:jac_old) 
# 2685 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
# 2685 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
    deallocate (jac_old)
# 2686 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
        end if
#else
        if (nv_uvm_temp_on_gpu(1) == 1) then
#ifdef MFC_DEBUG
# 2689 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
    block
# 2689 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
        use iso_fortran_env, only: output_unit
# 2689 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 2689 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
        print *, 'm_igr.fpp:2689: ', '@:DEALLOCATE(jac)'
# 2689 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 2689 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
        call flush (output_unit)
# 2689 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
    end block
# 2689 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
# 2689 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 2689 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 2689 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc exit data delete(jac) 
# 2689 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 2689 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp target exit data map(release:jac) 
# 2689 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
# 2689 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
    deallocate (jac)
# 2690 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
        else
            nullify (jac)
            deallocate (jac_host)
        end if
 
        if (nv_uvm_temp_on_gpu(2) == 1) then
#ifdef MFC_DEBUG
# 2696 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
    block
# 2696 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
        use iso_fortran_env, only: output_unit
# 2696 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 2696 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
        print *, 'm_igr.fpp:2696: ', '@:DEALLOCATE(jac_rhs)'
# 2696 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 2696 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
        call flush (output_unit)
# 2696 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
    end block
# 2696 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
# 2696 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 2696 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 2696 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc exit data delete(jac_rhs) 
# 2696 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 2696 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp target exit data map(release:jac_rhs) 
# 2696 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
# 2696 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
    deallocate (jac_rhs)
# 2697 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
        else
            nullify (jac_rhs)
            deallocate (jac_rhs_host)
        end if
 
        if (igr_iter_solver == 1) then  ! Jacobi iteration
            if (nv_uvm_temp_on_gpu(3) == 1) then
#ifdef MFC_DEBUG
# 2704 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
    block
# 2704 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
        use iso_fortran_env, only: output_unit
# 2704 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 2704 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
        print *, 'm_igr.fpp:2704: ', '@:DEALLOCATE(jac_old)'
# 2704 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 2704 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
        call flush (output_unit)
# 2704 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
    end block
# 2704 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
# 2704 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 2704 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 2704 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc exit data delete(jac_old) 
# 2704 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 2704 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp target exit data map(release:jac_old) 
# 2704 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
# 2704 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
    deallocate (jac_old)
# 2705 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
            else
                nullify (jac_old)
                deallocate (jac_old_host)
            end if
        end if
#endif
 
# 2713 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#ifdef MFC_DEBUG
# 2713 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
    block
# 2713 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
        use iso_fortran_env, only: output_unit
# 2713 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 2713 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
        print *, 'm_igr.fpp:2713: ', '@:DEALLOCATE(coeff_L, coeff_R)'
# 2713 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 2713 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
        call flush (output_unit)
# 2713 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
    end block
# 2713 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
# 2713 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 2713 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 2713 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc exit data delete(coeff_L, coeff_R) 
# 2713 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 2713 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp target exit data map(release:coeff_L, coeff_R) 
# 2713 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
# 2713 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
    deallocate (coeff_l, coeff_r)
# 2714 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
# 2715 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
    end subroutine s_finalize_igr_module
 
end module m_igr