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"
 
# 15 "/home/runner/work/MFC/MFC/src/common/include/shared_parallel_macros.fpp"
# 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"
 
# 15 "/home/runner/work/MFC/MFC/src/common/include/shared_parallel_macros.fpp"
# 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"
 
# 86 "/home/runner/work/MFC/MFC/src/common/include/omp_macros.fpp"
 
# 91 "/home/runner/work/MFC/MFC/src/common/include/omp_macros.fpp"
 
# 96 "/home/runner/work/MFC/MFC/src/common/include/omp_macros.fpp"
 
# 101 "/home/runner/work/MFC/MFC/src/common/include/omp_macros.fpp"
 
# 106 "/home/runner/work/MFC/MFC/src/common/include/omp_macros.fpp"
 
# 111 "/home/runner/work/MFC/MFC/src/common/include/omp_macros.fpp"
 
# 116 "/home/runner/work/MFC/MFC/src/common/include/omp_macros.fpp"
 
# 121 "/home/runner/work/MFC/MFC/src/common/include/omp_macros.fpp"
 
# 126 "/home/runner/work/MFC/MFC/src/common/include/omp_macros.fpp"
 
# 156 "/home/runner/work/MFC/MFC/src/common/include/omp_macros.fpp"
 
# 197 "/home/runner/work/MFC/MFC/src/common/include/omp_macros.fpp"
 
# 211 "/home/runner/work/MFC/MFC/src/common/include/omp_macros.fpp"
 
# 236 "/home/runner/work/MFC/MFC/src/common/include/omp_macros.fpp"
 
# 247 "/home/runner/work/MFC/MFC/src/common/include/omp_macros.fpp"
 
# 249 "/home/runner/work/MFC/MFC/src/common/include/omp_macros.fpp"
# 260 "/home/runner/work/MFC/MFC/src/common/include/omp_macros.fpp"
 
# 310 "/home/runner/work/MFC/MFC/src/common/include/omp_macros.fpp"
 
# 320 "/home/runner/work/MFC/MFC/src/common/include/omp_macros.fpp"
 
# 330 "/home/runner/work/MFC/MFC/src/common/include/omp_macros.fpp"
 
# 339 "/home/runner/work/MFC/MFC/src/common/include/omp_macros.fpp"
 
# 356 "/home/runner/work/MFC/MFC/src/common/include/omp_macros.fpp"
 
# 366 "/home/runner/work/MFC/MFC/src/common/include/omp_macros.fpp"
 
# 373 "/home/runner/work/MFC/MFC/src/common/include/omp_macros.fpp"
 
# 379 "/home/runner/work/MFC/MFC/src/common/include/omp_macros.fpp"
 
# 385 "/home/runner/work/MFC/MFC/src/common/include/omp_macros.fpp"
 
# 391 "/home/runner/work/MFC/MFC/src/common/include/omp_macros.fpp"
 
# 397 "/home/runner/work/MFC/MFC/src/common/include/omp_macros.fpp"
 
# 403 "/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"
 
# 15 "/home/runner/work/MFC/MFC/src/common/include/shared_parallel_macros.fpp"
# 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_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
 
# 34 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 34 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc declare create(jac, jac_rhs, jac_old) 
# 34 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 34 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp declare target (jac, jac_rhs, jac_old) 
# 34 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
    !> @cond
#endif
    !> @endcond
    type(scalar_field), dimension(1) :: jac_sf
 
# 39 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 39 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc declare create(jac_sf) 
# 39 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 39 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp declare target (jac_sf) 
# 39 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
 
    real(wp), allocatable, dimension(:,:) :: res_igr
 
# 42 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 42 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc declare create(Res_igr) 
# 42 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 42 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp declare target (Res_igr) 
# 42 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
 
    real(wp) :: alf_igr
 
# 45 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 45 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc declare create(alf_igr) 
# 45 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 45 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp declare target (alf_igr) 
# 45 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
 
# 48 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
        integer :: vidxb, vidxe
 
# 49 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 49 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc declare create(vidxb, vidxe) 
# 49 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 49 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp declare target (vidxb, vidxe) 
# 49 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
 
        real(wp), allocatable, dimension(:) :: coeff_l, coeff_r
 
# 52 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 52 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc declare create(coeff_L, coeff_R) 
# 52 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 52 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp declare target (coeff_L, coeff_R) 
# 52 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
# 82 "/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
 
# 88 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 88 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc declare create(igr_momxb, igr_E_idx, igr_advxb) 
# 88 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 88 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp declare target (igr_momxb, igr_E_idx, igr_advxb) 
# 88 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
 
contains
 
    !> Initialize the IGR module
    subroutine s_initialize_igr_module()
 
        if (viscous) then
#ifdef MFC_DEBUG
# 96 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
    block
# 96 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
        use iso_fortran_env, only: output_unit
# 96 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 96 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
        print *, 'm_igr.fpp:96: ', '@:ALLOCATE(Res_igr(1:2, 1:maxval(Re_size)))'
# 96 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 96 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
        call flush (output_unit)
# 96 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
    end block
# 96 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
# 96 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
    allocate (res_igr(1:2, 1:maxval(re_size)))
# 96 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 96 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 96 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 96 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc enter data create(Res_igr) 
# 96 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 96 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp target enter data map(always,alloc:Res_igr) 
# 96 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
            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
 
# 102 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 102 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc update device(Res_igr, Re_idx, Re_size) 
# 102 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 102 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp target update to(Res_igr, Re_idx, Re_size) 
# 102 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
#ifdef __NVCOMPILER_GPU_UNIFIED_MEM
# 103 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
    block
# 103 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
        ! NVIDIA CUDA Fortran 25.3+: uses submodules (cuda_runtime_api, gpu_reductions, sort) See
# 103 "/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
# 103 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if __NVCOMPILER_MAJOR__ < 25 || (__NVCOMPILER_MAJOR__ == 25 && __NVCOMPILER_MINOR__ < 3)
# 103 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
        use cudafor, gpu_sum => sum, gpu_maxval => maxval, gpu_minval => minval
# 103 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#else
# 103 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
        use cuda_runtime_api
# 103 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
# 103 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
        integer :: istat
# 103 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 103 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
        if (nv_uvm_pref_gpu) then
# 103 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
                ! set preferred location GPU
# 103 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
                istat = cudamemadvise(c_devloc(res_igr), sizeof(res_igr), cudamemadvisesetpreferredlocation, 0)
# 103 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
                if (istat /= cudasuccess) then
# 103 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
                    write (*, "('Error code: ',I0, ': ')") istat
# 103 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
                end if
# 103 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
                ! set accessed by CPU
# 103 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
                istat = cudamemadvise(c_devloc(res_igr), sizeof(res_igr), cudamemadvisesetaccessedby, cudacpudeviceid)
# 103 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
                if (istat /= cudasuccess) then
# 103 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
                    write (*, "('Error code: ',I0, ': ')") istat
# 103 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
                end if
# 103 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
                ! prefetch to GPU - physically populate memory pages
# 103 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
                istat = cudamemprefetchasync(c_devloc(res_igr), sizeof(res_igr), 0, 0)
# 103 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
                if (istat /= cudasuccess) then
# 103 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
                    write (*, "('Error code: ',I0, ': ')") istat
# 103 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
                end if
# 103 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
        end if
# 103 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
    end block
# 103 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
#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(re_idx), sizeof(re_idx), 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(re_idx), sizeof(re_idx), 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(re_idx), sizeof(re_idx), 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
        end if
 
#ifndef __NVCOMPILER_GPU_UNIFIED_MEM
#ifdef MFC_DEBUG
# 108 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
    block
# 108 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
        use iso_fortran_env, only: output_unit
# 108 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 108 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
        print *, 'm_igr.fpp:108: ', '@:ALLOCATE(jac(idwbuff(1)%beg:idwbuff(1)%end, idwbuff(2)%beg:idwbuff(2)%end, idwbuff(3)%beg:idwbuff(3)%end))'
# 108 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 108 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
        call flush (output_unit)
# 108 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
    end block
# 108 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
# 108 "/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))
# 108 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 108 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 108 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 108 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc enter data create(jac) 
# 108 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 108 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp target enter data map(always,alloc:jac) 
# 108 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
#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_rhs(-1:m,-1:n,-1:p))'
# 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_rhs(-1:m,-1:n,-1:p))
# 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_rhs) 
# 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_rhs) 
# 109 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
 
        if (igr_iter_solver == 1) then  ! Jacobi iteration
#ifdef MFC_DEBUG
# 112 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
    block
# 112 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
        use iso_fortran_env, only: output_unit
# 112 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 112 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
        print *, 'm_igr.fpp:112: ', '@:ALLOCATE(jac_old(idwbuff(1)%beg:idwbuff(1)%end, idwbuff(2)%beg:idwbuff(2)%end, idwbuff(3)%beg:idwbuff(3)%end))'
# 112 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 112 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
        call flush (output_unit)
# 112 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
    end block
# 112 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
# 112 "/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))
# 112 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 112 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 112 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 112 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc enter data create(jac_old) 
# 112 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 112 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp target enter data map(always,alloc:jac_old) 
# 112 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
        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
# 120 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
    block
# 120 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
        use iso_fortran_env, only: output_unit
# 120 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 120 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
        print *, 'm_igr.fpp:120: ', '@:ALLOCATE(jac(idwbuff(1)%beg:idwbuff(1)%end, idwbuff(2)%beg:idwbuff(2)%end, idwbuff(3)%beg:idwbuff(3)%end))'
# 120 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 120 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
        call flush (output_unit)
# 120 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
    end block
# 120 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
# 120 "/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))
# 120 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 120 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 120 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 120 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc enter data create(jac) 
# 120 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 120 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp target enter data map(always,alloc:jac) 
# 120 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
#ifdef __NVCOMPILER_GPU_UNIFIED_MEM
# 121 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
    block
# 121 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
        ! NVIDIA CUDA Fortran 25.3+: uses submodules (cuda_runtime_api, gpu_reductions, sort) See
# 121 "/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
# 121 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if __NVCOMPILER_MAJOR__ < 25 || (__NVCOMPILER_MAJOR__ == 25 && __NVCOMPILER_MINOR__ < 3)
# 121 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
        use cudafor, gpu_sum => sum, gpu_maxval => maxval, gpu_minval => minval
# 121 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#else
# 121 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
        use cuda_runtime_api
# 121 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
# 121 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
        integer :: istat
# 121 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 121 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
        if (nv_uvm_pref_gpu) then
# 121 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
                ! set preferred location GPU
# 121 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
                istat = cudamemadvise(c_devloc(jac), sizeof(jac), cudamemadvisesetpreferredlocation, 0)
# 121 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
                if (istat /= cudasuccess) then
# 121 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
                    write (*, "('Error code: ',I0, ': ')") istat
# 121 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
                end if
# 121 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
                ! set accessed by CPU
# 121 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
                istat = cudamemadvise(c_devloc(jac), sizeof(jac), cudamemadvisesetaccessedby, cudacpudeviceid)
# 121 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
                if (istat /= cudasuccess) then
# 121 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
                    write (*, "('Error code: ',I0, ': ')") istat
# 121 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
                end if
# 121 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
                ! prefetch to GPU - physically populate memory pages
# 121 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
                istat = cudamemprefetchasync(c_devloc(jac), sizeof(jac), 0, 0)
# 121 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
                if (istat /= cudasuccess) then
# 121 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
                    write (*, "('Error code: ',I0, ': ')") istat
# 121 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
                end if
# 121 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
        end if
# 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
        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
# 129 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
    block
# 129 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
        use iso_fortran_env, only: output_unit
# 129 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 129 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
        print *, 'm_igr.fpp:129: ', '@:ALLOCATE(jac_rhs(-1:m,-1:n,-1:p))'
# 129 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 129 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
        call flush (output_unit)
# 129 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
    end block
# 129 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
# 129 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
    allocate (jac_rhs(-1:m,-1:n,-1:p))
# 129 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 129 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 129 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 129 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc enter data create(jac_rhs) 
# 129 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 129 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp target enter data map(always,alloc:jac_rhs) 
# 129 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
#ifdef __NVCOMPILER_GPU_UNIFIED_MEM
# 130 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
    block
# 130 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
        ! NVIDIA CUDA Fortran 25.3+: uses submodules (cuda_runtime_api, gpu_reductions, sort) See
# 130 "/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
# 130 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if __NVCOMPILER_MAJOR__ < 25 || (__NVCOMPILER_MAJOR__ == 25 && __NVCOMPILER_MINOR__ < 3)
# 130 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
        use cudafor, gpu_sum => sum, gpu_maxval => maxval, gpu_minval => minval
# 130 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#else
# 130 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
        use cuda_runtime_api
# 130 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
# 130 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
        integer :: istat
# 130 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 130 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
        if (nv_uvm_pref_gpu) then
# 130 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
                ! set preferred location GPU
# 130 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
                istat = cudamemadvise(c_devloc(jac_rhs), sizeof(jac_rhs), cudamemadvisesetpreferredlocation, 0)
# 130 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
                if (istat /= cudasuccess) then
# 130 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
                    write (*, "('Error code: ',I0, ': ')") istat
# 130 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
                end if
# 130 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
                ! set accessed by CPU
# 130 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
                istat = cudamemadvise(c_devloc(jac_rhs), sizeof(jac_rhs), cudamemadvisesetaccessedby, cudacpudeviceid)
# 130 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
                if (istat /= cudasuccess) then
# 130 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
                    write (*, "('Error code: ',I0, ': ')") istat
# 130 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
                end if
# 130 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
                ! prefetch to GPU - physically populate memory pages
# 130 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
                istat = cudamemprefetchasync(c_devloc(jac_rhs), sizeof(jac_rhs), 0, 0)
# 130 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
                if (istat /= cudasuccess) then
# 130 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
                    write (*, "('Error code: ',I0, ': ')") istat
# 130 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
                end if
# 130 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
        end if
# 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
        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
# 138 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
    block
# 138 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
        use iso_fortran_env, only: output_unit
# 138 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 138 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
        print *, 'm_igr.fpp:138: ', '@:ALLOCATE(jac_old(idwbuff(1)%beg:idwbuff(1)%end, idwbuff(2)%beg:idwbuff(2)%end, idwbuff(3)%beg:idwbuff(3)%end))'
# 138 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 138 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
        call flush (output_unit)
# 138 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
    end block
# 138 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
# 138 "/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))
# 138 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 138 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 138 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 138 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc enter data create(jac_old) 
# 138 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 138 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp target enter data map(always,alloc:jac_old) 
# 138 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
#ifdef __NVCOMPILER_GPU_UNIFIED_MEM
# 139 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
    block
# 139 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
        ! NVIDIA CUDA Fortran 25.3+: uses submodules (cuda_runtime_api, gpu_reductions, sort) See
# 139 "/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
# 139 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if __NVCOMPILER_MAJOR__ < 25 || (__NVCOMPILER_MAJOR__ == 25 && __NVCOMPILER_MINOR__ < 3)
# 139 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
        use cudafor, gpu_sum => sum, gpu_maxval => maxval, gpu_minval => minval
# 139 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#else
# 139 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
        use cuda_runtime_api
# 139 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
# 139 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
        integer :: istat
# 139 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 139 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
        if (nv_uvm_pref_gpu) then
# 139 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
                ! set preferred location GPU
# 139 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
                istat = cudamemadvise(c_devloc(jac_old), sizeof(jac_old), cudamemadvisesetpreferredlocation, 0)
# 139 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
                if (istat /= cudasuccess) then
# 139 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
                    write (*, "('Error code: ',I0, ': ')") istat
# 139 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
                end if
# 139 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
                ! set accessed by CPU
# 139 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
                istat = cudamemadvise(c_devloc(jac_old), sizeof(jac_old), cudamemadvisesetaccessedby, cudacpudeviceid)
# 139 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
                if (istat /= cudasuccess) then
# 139 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
                    write (*, "('Error code: ',I0, ': ')") istat
# 139 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
                end if
# 139 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
                ! prefetch to GPU - physically populate memory pages
# 139 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
                istat = cudamemprefetchasync(c_devloc(jac_old), sizeof(jac_old), 0, 0)
# 139 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
                if (istat /= cudasuccess) then
# 139 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
                    write (*, "('Error code: ',I0, ': ')") istat
# 139 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
                end if
# 139 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
        end if
# 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
            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
 
 
# 149 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 149 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 149 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc parallel loop collapse(3) gang vector default(present) private(j, k, l)
# 149 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 149 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 149 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 149 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 149 "/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)
# 149 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
        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
 
# 158 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 158 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc end parallel loop
# 158 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 158 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 158 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp end target teams loop
# 158 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
 
        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
 
# 165 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 165 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc update device(alf_igr) 
# 165 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 165 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp target update to(alf_igr) 
# 165 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
 
        igr_momxb = eqn_idx%mom%beg
        igr_e_idx = eqn_idx%E
        igr_advxb = eqn_idx%adv%beg
 
# 170 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 170 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc update device(igr_momxb, igr_E_idx, igr_advxb) 
# 170 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 170 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp target update to(igr_momxb, igr_E_idx, igr_advxb) 
# 170 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
 
# 173 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
            if (igr_order == 3) then
                vidxb = -1; vidxe = 2
 
# 175 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 175 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc update device(vidxb, vidxe) 
# 175 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 175 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp target update to(vidxb, vidxe) 
# 175 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
 
#ifdef MFC_DEBUG
# 177 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
    block
# 177 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
        use iso_fortran_env, only: output_unit
# 177 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 177 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
        print *, 'm_igr.fpp:177: ', '@:ALLOCATE(coeff_L(0:2))'
# 177 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 177 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
        call flush (output_unit)
# 177 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
    end block
# 177 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
# 177 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
    allocate (coeff_l(0:2))
# 177 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 177 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 177 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 177 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc enter data create(coeff_L) 
# 177 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 177 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp target enter data map(always,alloc:coeff_L) 
# 177 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
                coeff_l(0) = (2._wp/6._wp)
                coeff_l(1) = (5._wp/6._wp)
                coeff_l(2) = (-1._wp/6._wp)
 
#ifdef MFC_DEBUG
# 182 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
    block
# 182 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
        use iso_fortran_env, only: output_unit
# 182 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 182 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
        print *, 'm_igr.fpp:182: ', '@:ALLOCATE(coeff_R(-1:1))'
# 182 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 182 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
        call flush (output_unit)
# 182 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
    end block
# 182 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
# 182 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
    allocate (coeff_r(-1:1))
# 182 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 182 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 182 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 182 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc enter data create(coeff_R) 
# 182 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 182 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp target enter data map(always,alloc:coeff_R) 
# 182 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
                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
 
# 188 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 188 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc update device(vidxb, vidxe) 
# 188 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 188 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp target update to(vidxb, vidxe) 
# 188 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
 
#ifdef MFC_DEBUG
# 190 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
    block
# 190 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
        use iso_fortran_env, only: output_unit
# 190 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 190 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
        print *, 'm_igr.fpp:190: ', '@:ALLOCATE(coeff_L(-1:3))'
# 190 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 190 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
        call flush (output_unit)
# 190 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
    end block
# 190 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
# 190 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
    allocate (coeff_l(-1:3))
# 190 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 190 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 190 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 190 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc enter data create(coeff_L) 
# 190 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 190 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp target enter data map(always,alloc:coeff_L) 
# 190 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
                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
# 197 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
    block
# 197 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
        use iso_fortran_env, only: output_unit
# 197 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 197 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
        print *, 'm_igr.fpp:197: ', '@:ALLOCATE(coeff_R(-2:2))'
# 197 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 197 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
        call flush (output_unit)
# 197 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
    end block
# 197 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
# 197 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
    allocate (coeff_r(-2:2))
# 197 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 197 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 197 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 197 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc enter data create(coeff_R) 
# 197 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 197 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp target enter data map(always,alloc:coeff_R) 
# 197 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
                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
 
 
# 205 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 205 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc update device(coeff_L) 
# 205 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 205 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp target update to(coeff_L) 
# 205 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
 
# 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_R) 
# 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_R) 
# 206 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
# 213 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
        jac_sf(1)%sf => jac
 
# 214 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 214 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc enter data copyin(jac_sf(1)%sf) 
# 214 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 214 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp target enter data map(to:jac_sf(1)%sf) 
# 214 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
 
# 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 attach(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(always,to:jac_sf(1)%sf) 
# 215 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
 
    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
 
# 239 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 239 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 239 "/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)
# 239 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 239 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 239 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 239 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 239 "/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) &
# 239 "/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)
# 239 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
            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
 
 
# 251 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 251 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc loop seq 
# 251 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 251 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 251 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
                        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
 
# 301 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 301 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc end parallel loop
# 301 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 301 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 301 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp end target teams loop
# 301 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
 
            call s_populate_f_igr_buffers(bc_type, jac_sf)
 
            if (igr_iter_solver == 1) then  ! Jacobi iteration
 
# 306 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 306 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 306 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc parallel loop collapse(3) gang vector default(present) private(j, k, l)
# 306 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 306 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 306 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 306 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 306 "/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)
# 306 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
                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
 
# 314 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 314 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc end parallel loop
# 314 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 314 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 314 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp end target teams loop
# 314 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
            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
# 330 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
            real(wp), dimension(num_fluids_max) :: alpha_rho_l, alpha_rho_r
# 334 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
 
# 335 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 335 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 335 "/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)
# 335 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 335 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 335 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 335 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 335 "/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) &
# 335 "/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)
# 335 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
        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
 
 
# 343 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 343 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc loop seq 
# 343 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 343 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 343 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
                    do i = 1, num_fluids
                        alpha_rho_l(i) = 0._wp
                        alpha_rho_r(i) = 0._wp
                    end do
 
 
# 349 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 349 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc loop seq 
# 349 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 349 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 349 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
                    do q = vidxb + 1, vidxe
 
# 351 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 351 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc loop seq 
# 351 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 351 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 351 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
                        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
 
 
# 360 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 360 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc loop seq 
# 360 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 360 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 360 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
                    do q = vidxb, vidxe - 1
 
# 362 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 362 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc loop seq 
# 362 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 362 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 362 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
                        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
 
 
# 371 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 371 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc loop seq 
# 371 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 371 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 371 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
                    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
 
# 381 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 381 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 381 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 381 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 381 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 381 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
                        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)
 
# 384 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 384 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 384 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 384 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 384 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
                        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)
 
# 387 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 387 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 387 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 387 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 387 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
                        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)), &
                               & kind=stp)
 
# 390 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 390 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 390 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 390 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 390 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
                        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)
# 381 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 381 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 381 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 381 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 381 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 381 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
                        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)
 
# 384 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 384 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 384 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 384 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 384 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
                        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)
 
# 387 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 387 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 387 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 387 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 387 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
                        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)), &
                               & kind=stp)
 
# 390 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 390 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 390 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 390 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 390 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
                        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"
                end do
            end do
        end do
 
# 397 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 397 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc end parallel loop
# 397 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 397 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 397 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp end target teams loop
# 397 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
 
    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
# 417 "/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
# 427 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
        if (idir == 1) then
            if (p == 0) then
# 431 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 431 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 431 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 431 "/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, &
# 431 "/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)
# 431 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 431 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 431 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 431 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 431 "/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, &
# 431 "/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, &
# 431 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp& rho_sf_small, vflux_L_arr, vflux_R_arr)
# 431 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
# 434 "/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
 
# 447 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 447 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 447 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc loop seq 
# 447 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 447 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 447 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
                                do q = vidxb, vidxe
                                    ! x-direction contributions
 
# 450 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 450 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc loop seq 
# 450 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 450 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 450 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
                                    do i = -1, 1
                                        rho_l = 0._wp
 
# 453 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 453 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc loop seq 
# 453 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 453 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 453 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
                                        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
 
# 467 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 467 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc loop seq 
# 467 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 467 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 467 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
                                        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
 
# 483 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 483 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc loop seq 
# 483 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 483 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 483 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
                                    do i = -1, 1
                                        rho_l = 0._wp
 
# 486 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 486 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc loop seq 
# 486 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 486 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 486 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
                                        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
 
# 499 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 499 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc loop seq 
# 499 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 499 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 499 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
                                        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
 
 
# 520 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 520 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc loop seq 
# 520 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 520 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 520 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
                                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
 
# 527 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 527 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc loop seq 
# 527 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 527 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 527 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
                                do i = 1, num_dims
                                    vel_l(i) = 0._wp
                                    vel_r(i) = 0._wp
                                end do
 
 
# 533 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 533 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc loop seq 
# 533 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 533 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 533 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
                                do q = vidxb + 1, vidxe
 
# 535 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 535 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc loop seq 
# 535 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 535 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 535 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
                                    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
 
# 541 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 541 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc loop seq 
# 541 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 541 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 541 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
                                        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
 
 
# 549 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 549 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc loop seq 
# 549 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 549 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 549 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
                                    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
 
 
# 555 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 555 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc loop seq 
# 555 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 555 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 555 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
                                do q = vidxb, vidxe - 1
 
# 557 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 557 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc loop seq 
# 557 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 557 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 557 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
                                    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
 
# 563 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 563 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc loop seq 
# 563 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 563 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 563 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
                                        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
 
 
# 571 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 571 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc loop seq 
# 571 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 571 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 571 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
                                    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
 
 
# 581 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 581 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc loop seq 
# 581 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 581 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 581 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
                                    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)
 
 
# 591 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 591 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc loop seq 
# 591 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 591 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 591 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
                                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
 
# 599 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 599 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc loop seq 
# 599 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 599 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 599 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
                                    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
 
 
# 605 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 605 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 605 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 605 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 605 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
                                    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)
 
# 608 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 608 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 608 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 608 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 608 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
                                    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)
 
 
# 612 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 612 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 612 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 612 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 612 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
                                    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)
 
# 615 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 615 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 615 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 615 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 615 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
                                    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)
 
 
# 619 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 619 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 619 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 619 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 619 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
                                    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)
 
# 622 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 622 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 622 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 622 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 622 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
                                    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)
 
 
# 626 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 626 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 626 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 626 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 626 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
                                    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)
 
# 629 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 629 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 629 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 629 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 629 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
                                    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)
 
 
# 633 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 633 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 633 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 633 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 633 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
                                    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)
 
# 636 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 636 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 636 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 636 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 636 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
                                    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)
 
 
# 640 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 640 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 640 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 640 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 640 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
                                    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)
 
# 643 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 643 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 643 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 643 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 643 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
                                    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)
 
 
# 647 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 647 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 647 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 647 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 647 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
                                    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)
 
# 650 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 650 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 650 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 650 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 650 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
                                    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)
 
 
# 654 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 654 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 654 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 654 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 654 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
                                    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)
 
# 657 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 657 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 657 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 657 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 657 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
                                    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
 
 
# 664 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 664 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc loop seq 
# 664 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 664 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 664 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
                                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
 
 
# 669 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 669 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc loop seq 
# 669 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 669 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 669 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
                                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
 
# 678 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 678 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 678 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 678 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 678 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
                                    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)
 
 
# 683 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 683 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 683 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 683 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 683 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
                                    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
 
# 690 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 690 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc loop seq 
# 690 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 690 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 690 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
                                    do i = 1, num_fluids - 1
 
# 692 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 692 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 692 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 692 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 692 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
                                        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)
 
 
# 697 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 697 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 697 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 697 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 697 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
                                        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)
 
 
# 702 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 702 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 702 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 702 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 702 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
                                        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)
 
 
# 707 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 707 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 707 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 707 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 707 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
                                        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
 
 
# 714 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 714 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 714 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 714 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 714 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
                                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)
 
 
# 719 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 719 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 719 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 719 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 719 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
                                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)
 
 
# 724 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 724 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 724 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 724 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 724 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
                                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)
 
 
# 729 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 729 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 729 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 729 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 729 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
                                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)
 
 
# 734 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 734 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 734 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 734 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 734 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
                                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)
 
 
# 739 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 739 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 739 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 739 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 739 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
                                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)
 
 
# 744 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 744 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc loop seq 
# 744 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 744 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 744 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
                                do i = 1, num_fluids
 
# 746 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 746 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 746 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 746 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 746 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
                                    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)
 
 
# 751 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 751 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 751 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 751 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 751 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
                                    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
 
# 758 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 758 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc loop seq 
# 758 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 758 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 758 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
                                    do i = 1, num_fluids - 1
 
# 760 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 760 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 760 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 760 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 760 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
                                        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)
 
 
# 765 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 765 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 765 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 765 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 765 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
                                        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)
 
 
# 770 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 770 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 770 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 770 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 770 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
                                        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)
 
 
# 775 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 775 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 775 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 775 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 775 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
                                        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
 
 
# 782 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 782 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 782 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 782 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 782 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
                                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)
 
 
# 787 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 787 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 787 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 787 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 787 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
                                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)
 
 
# 792 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 792 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 792 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 792 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 792 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
                                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)
 
 
# 797 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 797 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 797 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 797 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 797 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
                                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)
 
 
# 802 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 802 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 802 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 802 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 802 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
                                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)
 
 
# 807 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 807 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 807 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 807 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 807 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
                                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
 
# 814 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 814 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc end parallel loop
# 814 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 814 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 814 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp end target teams loop
# 814 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
# 816 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
            else
# 818 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 818 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 818 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 818 "/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, &
# 818 "/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)
# 818 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 818 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 818 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 818 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 818 "/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, &
# 818 "/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, &
# 818 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp& rho_sf_small, vflux_L_arr, vflux_R_arr)
# 818 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
# 821 "/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
 
# 834 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 834 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 834 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc loop seq 
# 834 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 834 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 834 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
                                do q = vidxb, vidxe
                                    ! x-direction contributions
 
# 837 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 837 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc loop seq 
# 837 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 837 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 837 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
                                    do i = -1, 1
                                        rho_l = 0._wp
 
# 840 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 840 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc loop seq 
# 840 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 840 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 840 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
                                        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
 
# 855 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 855 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc loop seq 
# 855 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 855 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 855 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
                                        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
 
# 873 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 873 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc loop seq 
# 873 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 873 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 873 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
                                    do i = -1, 1
                                        rho_l = 0._wp
 
# 876 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 876 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc loop seq 
# 876 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 876 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 876 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
                                        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
 
# 890 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 890 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc loop seq 
# 890 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 890 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 890 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
                                        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
 
# 906 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 906 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc loop seq 
# 906 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 906 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 906 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
                                    do i = -1, 1
                                        rho_l = 0._wp
 
# 909 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 909 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc loop seq 
# 909 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 909 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 909 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
                                        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
 
# 924 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 924 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc loop seq 
# 924 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 924 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 924 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
                                        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
 
 
# 946 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 946 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc loop seq 
# 946 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 946 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 946 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
                                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
 
# 953 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 953 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc loop seq 
# 953 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 953 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 953 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
                                do i = 1, num_dims
                                    vel_l(i) = 0._wp
                                    vel_r(i) = 0._wp
                                end do
 
 
# 959 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 959 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc loop seq 
# 959 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 959 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 959 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
                                do q = vidxb + 1, vidxe
 
# 961 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 961 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc loop seq 
# 961 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 961 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 961 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
                                    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
 
# 967 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 967 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc loop seq 
# 967 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 967 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 967 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
                                        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
 
 
# 975 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 975 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc loop seq 
# 975 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 975 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 975 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
                                    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
 
 
# 981 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 981 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc loop seq 
# 981 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 981 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 981 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
                                do q = vidxb, vidxe - 1
 
# 983 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 983 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc loop seq 
# 983 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 983 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 983 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
                                    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
 
# 989 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 989 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc loop seq 
# 989 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 989 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 989 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
                                        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
 
 
# 997 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 997 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc loop seq 
# 997 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 997 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 997 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
                                    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
 
 
# 1007 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 1007 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc loop seq 
# 1007 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 1007 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 1007 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
                                    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)
 
 
# 1017 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 1017 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc loop seq 
# 1017 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 1017 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 1017 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
                                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
 
# 1026 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 1026 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc loop seq 
# 1026 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 1026 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 1026 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
                                    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
 
 
# 1032 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 1032 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 1032 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 1032 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 1032 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
                                    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)
 
# 1035 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 1035 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 1035 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 1035 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 1035 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
                                    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)
 
 
# 1039 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 1039 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 1039 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 1039 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 1039 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
                                    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)
 
# 1042 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 1042 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 1042 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 1042 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 1042 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
                                    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)
 
 
# 1046 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 1046 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 1046 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 1046 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 1046 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
                                    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)
 
# 1049 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 1049 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 1049 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 1049 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 1049 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
                                    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)
 
 
# 1053 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 1053 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 1053 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 1053 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 1053 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
                                    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)
 
# 1056 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 1056 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 1056 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 1056 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 1056 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
                                    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)
 
 
# 1060 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 1060 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 1060 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 1060 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 1060 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
                                    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)
 
# 1063 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 1063 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 1063 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 1063 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 1063 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
                                    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)
 
 
# 1067 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 1067 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 1067 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 1067 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 1067 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
                                    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)
 
# 1070 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 1070 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 1070 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 1070 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 1070 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
                                    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)
 
 
# 1074 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 1074 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 1074 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 1074 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 1074 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
                                    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)
 
# 1077 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 1077 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 1077 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 1077 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 1077 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
                                    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)
 
 
# 1081 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 1081 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 1081 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 1081 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 1081 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
                                    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)
 
# 1084 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 1084 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 1084 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 1084 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 1084 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
                                    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)
 
 
# 1088 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 1088 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 1088 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 1088 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 1088 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
                                    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)
 
# 1091 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 1091 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 1091 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 1091 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 1091 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
                                    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)
 
 
# 1095 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 1095 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 1095 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 1095 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 1095 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
                                    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)
 
# 1098 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 1098 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 1098 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 1098 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 1098 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
                                    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)
 
 
# 1102 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 1102 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 1102 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 1102 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 1102 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
                                    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)
 
# 1105 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 1105 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 1105 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 1105 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 1105 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
                                    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)
 
 
# 1109 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 1109 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 1109 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 1109 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 1109 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
                                    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)
 
# 1112 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 1112 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 1112 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 1112 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 1112 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
                                    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
 
 
# 1119 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 1119 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc loop seq 
# 1119 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 1119 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 1119 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
                                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
 
 
# 1124 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 1124 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc loop seq 
# 1124 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 1124 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 1124 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
                                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)
 
 
# 1132 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 1132 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc loop seq 
# 1132 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 1132 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 1132 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
                                do i = 1, num_fluids
 
# 1134 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 1134 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 1134 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 1134 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 1134 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
                                    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)
 
 
# 1139 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 1139 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 1139 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 1139 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 1139 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
                                    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
 
# 1146 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 1146 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc loop seq 
# 1146 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 1146 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 1146 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
                                    do i = 1, num_fluids - 1
 
# 1148 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 1148 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 1148 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 1148 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 1148 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
                                        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)
 
 
# 1153 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 1153 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 1153 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 1153 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 1153 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
                                        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)
 
 
# 1158 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 1158 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 1158 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 1158 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 1158 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
                                        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)
 
 
# 1163 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 1163 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 1163 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 1163 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 1163 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
                                        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
 
 
# 1170 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 1170 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 1170 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 1170 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 1170 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
                                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)
 
 
# 1175 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 1175 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 1175 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 1175 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 1175 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
                                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)
 
 
# 1180 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 1180 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 1180 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 1180 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 1180 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
                                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)
 
 
# 1185 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 1185 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 1185 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 1185 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 1185 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
                                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)
 
 
# 1190 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 1190 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 1190 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 1190 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 1190 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
                                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)
 
 
# 1195 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 1195 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 1195 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 1195 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 1195 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
                                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)
 
 
# 1200 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 1200 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 1200 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 1200 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 1200 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
                                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)
 
 
# 1205 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 1205 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 1205 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 1205 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 1205 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
                                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)
 
 
# 1210 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 1210 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc loop seq 
# 1210 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 1210 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 1210 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
                                do i = 1, num_fluids
 
# 1212 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 1212 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 1212 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 1212 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 1212 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
                                    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)
 
 
# 1217 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 1217 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 1217 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 1217 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 1217 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
                                    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
 
# 1224 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 1224 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc loop seq 
# 1224 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 1224 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 1224 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
                                    do i = 1, num_fluids - 1
 
# 1226 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 1226 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 1226 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 1226 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 1226 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
                                        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)
 
 
# 1231 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 1231 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 1231 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 1231 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 1231 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
                                        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)
 
 
# 1236 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 1236 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 1236 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 1236 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 1236 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
                                        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)
 
 
# 1241 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 1241 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 1241 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 1241 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 1241 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
                                        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
 
 
# 1248 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 1248 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 1248 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 1248 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 1248 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
                                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)
 
 
# 1253 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 1253 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 1253 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 1253 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 1253 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
                                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)
 
 
# 1258 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 1258 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 1258 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 1258 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 1258 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
                                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)
 
 
# 1263 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 1263 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 1263 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 1263 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 1263 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
                                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)
 
 
# 1268 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 1268 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 1268 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 1268 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 1268 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
                                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)
 
 
# 1273 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 1273 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 1273 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 1273 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 1273 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
                                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)
 
 
# 1278 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 1278 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 1278 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 1278 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 1278 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
                                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)
 
 
# 1283 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 1283 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 1283 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 1283 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 1283 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
                                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
 
# 1290 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 1290 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc end parallel loop
# 1290 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 1290 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 1290 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp end target teams loop
# 1290 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
# 1292 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
            end if
        else if (idir == 2) then
            if (p == 0) then
# 1296 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 1296 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 1296 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 1296 "/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, &
# 1296 "/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)
# 1296 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 1296 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 1296 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 1296 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 1296 "/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, &
# 1296 "/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, &
# 1296 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp& vflux_L_arr, vflux_R_arr)
# 1296 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
# 1299 "/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
 
# 1313 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 1313 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 1313 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc loop seq 
# 1313 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 1313 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 1313 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
                                    do q = vidxb, vidxe
                                        ! x-direction contributions
 
# 1316 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 1316 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc loop seq 
# 1316 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 1316 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 1316 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
                                        do i = -1, 1
                                            rho_l = 0._wp
 
# 1319 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 1319 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc loop seq 
# 1319 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 1319 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 1319 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
                                            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
 
# 1342 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 1342 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc loop seq 
# 1342 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 1342 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 1342 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
                                        do i = -1, 1
                                            rho_l = 0._wp
 
# 1345 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 1345 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc loop seq 
# 1345 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 1345 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 1345 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
                                            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
 
 
# 1369 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 1369 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc loop seq 
# 1369 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 1369 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 1369 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
                                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
 
# 1376 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 1376 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc loop seq 
# 1376 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 1376 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 1376 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
                                do i = 1, num_dims
                                    vel_l(i) = 0._wp
                                    vel_r(i) = 0._wp
                                end do
 
 
# 1382 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 1382 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc loop seq 
# 1382 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 1382 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 1382 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
                                do q = vidxb + 1, vidxe
 
# 1384 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 1384 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc loop seq 
# 1384 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 1384 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 1384 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
                                    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
 
# 1390 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 1390 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc loop seq 
# 1390 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 1390 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 1390 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
                                        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
 
 
# 1398 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 1398 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc loop seq 
# 1398 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 1398 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 1398 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
                                    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
 
 
# 1404 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 1404 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc loop seq 
# 1404 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 1404 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 1404 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
                                do q = vidxb, vidxe - 1
 
# 1406 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 1406 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc loop seq 
# 1406 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 1406 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 1406 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
                                    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
 
# 1412 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 1412 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc loop seq 
# 1412 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 1412 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 1412 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
                                        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
 
 
# 1420 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 1420 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc loop seq 
# 1420 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 1420 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 1420 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
                                    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
 
 
# 1430 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 1430 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc loop seq 
# 1430 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 1430 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 1430 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
                                    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)
 
 
# 1440 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 1440 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc loop seq 
# 1440 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 1440 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 1440 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
                                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
 
# 1449 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 1449 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc loop seq 
# 1449 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 1449 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 1449 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
                                    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
 
 
# 1455 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 1455 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 1455 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 1455 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 1455 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
                                    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)
 
# 1458 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 1458 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 1458 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 1458 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 1458 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
                                    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)
 
 
# 1462 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 1462 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 1462 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 1462 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 1462 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
                                    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)
 
# 1465 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 1465 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 1465 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 1465 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 1465 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
                                    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)
 
 
# 1469 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 1469 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 1469 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 1469 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 1469 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
                                    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)
 
# 1472 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 1472 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 1472 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 1472 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 1472 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
                                    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)
 
 
# 1476 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 1476 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 1476 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 1476 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 1476 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
                                    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)
 
# 1479 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 1479 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 1479 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 1479 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 1479 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
                                    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)
 
 
# 1483 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 1483 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 1483 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 1483 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 1483 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
                                    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)
 
# 1486 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 1486 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 1486 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 1486 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 1486 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
                                    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)
 
 
# 1490 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 1490 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 1490 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 1490 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 1490 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
                                    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)
 
# 1493 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 1493 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 1493 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 1493 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 1493 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
                                    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)
 
 
# 1497 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 1497 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 1497 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 1497 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 1497 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
                                    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)
 
# 1500 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 1500 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 1500 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 1500 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 1500 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
                                    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)
 
 
# 1504 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 1504 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 1504 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 1504 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 1504 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
                                    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)
 
# 1507 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 1507 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 1507 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 1507 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 1507 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
                                    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
 
 
# 1515 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 1515 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc loop seq 
# 1515 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 1515 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 1515 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
                                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
 
 
# 1521 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 1521 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc loop seq 
# 1521 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 1521 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 1521 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
                                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)
 
 
# 1530 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 1530 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc loop seq 
# 1530 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 1530 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 1530 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
                                do i = 1, num_fluids
 
# 1532 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 1532 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 1532 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 1532 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 1532 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
                                    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)
 
 
# 1537 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 1537 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 1537 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 1537 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 1537 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
                                    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
 
# 1544 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 1544 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc loop seq 
# 1544 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 1544 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 1544 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
                                    do i = 1, num_fluids - 1
 
# 1546 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 1546 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 1546 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 1546 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 1546 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
                                        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)
 
 
# 1551 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 1551 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 1551 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 1551 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 1551 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
                                        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)
 
 
# 1556 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 1556 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 1556 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 1556 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 1556 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
                                        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)
 
 
# 1561 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 1561 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 1561 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 1561 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 1561 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
                                        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
 
 
# 1568 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 1568 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 1568 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 1568 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 1568 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
                                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)
 
 
# 1573 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 1573 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 1573 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 1573 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 1573 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
                                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)
 
 
# 1578 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 1578 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 1578 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 1578 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 1578 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
                                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)
 
 
# 1583 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 1583 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 1583 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 1583 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 1583 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
                                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)
 
 
# 1588 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 1588 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 1588 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 1588 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 1588 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
                                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)
 
 
# 1593 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 1593 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 1593 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 1593 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 1593 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
                                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)
 
 
# 1598 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 1598 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc loop seq 
# 1598 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 1598 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 1598 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
                                do i = 1, num_fluids
 
# 1600 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 1600 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 1600 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 1600 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 1600 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
                                    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)
 
# 1604 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 1604 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 1604 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 1604 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 1604 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
                                    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
 
# 1611 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 1611 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc loop seq 
# 1611 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 1611 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 1611 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
                                    do i = 1, num_fluids - 1
 
# 1613 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 1613 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 1613 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 1613 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 1613 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
                                        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)
 
 
# 1618 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 1618 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 1618 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 1618 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 1618 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
                                        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)
 
 
# 1623 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 1623 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 1623 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 1623 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 1623 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
                                        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)
 
 
# 1628 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 1628 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 1628 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 1628 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 1628 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
                                        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
 
# 1634 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 1634 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 1634 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 1634 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 1634 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
                                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)
 
# 1638 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 1638 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 1638 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 1638 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 1638 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
                                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)
 
# 1642 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 1642 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 1642 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 1642 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 1642 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
                                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)
 
# 1646 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 1646 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 1646 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 1646 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 1646 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
                                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)
 
# 1650 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 1650 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 1650 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 1650 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 1650 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
                                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)
 
# 1654 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 1654 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 1654 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 1654 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 1654 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
                                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
 
# 1661 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 1661 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc end parallel loop
# 1661 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 1661 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 1661 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp end target teams loop
# 1661 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
# 1663 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
            else
# 1665 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 1665 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 1665 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 1665 "/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, &
# 1665 "/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)
# 1665 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 1665 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 1665 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 1665 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 1665 "/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, &
# 1665 "/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, &
# 1665 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp& vflux_L_arr, vflux_R_arr)
# 1665 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
# 1668 "/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
 
# 1682 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 1682 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 1682 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc loop seq 
# 1682 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 1682 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 1682 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
                                    do q = vidxb, vidxe
                                        ! x-direction contributions
 
# 1685 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 1685 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc loop seq 
# 1685 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 1685 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 1685 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
                                        do i = -1, 1
                                            rho_l = 0._wp
 
# 1688 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 1688 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc loop seq 
# 1688 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 1688 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 1688 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
                                            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
 
# 1711 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 1711 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc loop seq 
# 1711 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 1711 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 1711 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
                                        do i = -1, 1
                                            rho_l = 0._wp
 
# 1714 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 1714 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc loop seq 
# 1714 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 1714 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 1714 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
                                            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
 
# 1742 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 1742 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc loop seq 
# 1742 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 1742 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 1742 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
                                        do i = -1, 1
                                            rho_l = 0._wp
 
# 1745 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 1745 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc loop seq 
# 1745 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 1745 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 1745 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
                                            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
 
 
# 1769 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 1769 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc loop seq 
# 1769 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 1769 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 1769 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
                                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
 
# 1776 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 1776 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc loop seq 
# 1776 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 1776 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 1776 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
                                do i = 1, num_dims
                                    vel_l(i) = 0._wp
                                    vel_r(i) = 0._wp
                                end do
 
 
# 1782 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 1782 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc loop seq 
# 1782 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 1782 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 1782 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
                                do q = vidxb + 1, vidxe
 
# 1784 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 1784 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc loop seq 
# 1784 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 1784 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 1784 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
                                    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
 
# 1790 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 1790 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc loop seq 
# 1790 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 1790 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 1790 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
                                        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
 
 
# 1798 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 1798 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc loop seq 
# 1798 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 1798 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 1798 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
                                    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
 
 
# 1804 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 1804 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc loop seq 
# 1804 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 1804 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 1804 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
                                do q = vidxb, vidxe - 1
 
# 1806 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 1806 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc loop seq 
# 1806 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 1806 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 1806 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
                                    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
 
# 1812 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 1812 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc loop seq 
# 1812 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 1812 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 1812 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
                                        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
 
 
# 1820 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 1820 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc loop seq 
# 1820 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 1820 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 1820 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
                                    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
 
 
# 1830 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 1830 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc loop seq 
# 1830 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 1830 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 1830 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
                                    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)
 
 
# 1840 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 1840 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc loop seq 
# 1840 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 1840 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 1840 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
                                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
 
# 1849 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 1849 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc loop seq 
# 1849 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 1849 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 1849 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
                                    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
 
 
# 1855 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 1855 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 1855 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 1855 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 1855 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
                                    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)
 
# 1858 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 1858 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 1858 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 1858 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 1858 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
                                    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)
 
 
# 1862 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 1862 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 1862 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 1862 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 1862 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
                                    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)
 
# 1865 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 1865 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 1865 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 1865 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 1865 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
                                    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)
 
 
# 1869 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 1869 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 1869 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 1869 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 1869 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
                                    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)
 
# 1872 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 1872 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 1872 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 1872 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 1872 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
                                    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)
 
 
# 1876 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 1876 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 1876 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 1876 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 1876 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
                                    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)
 
# 1879 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 1879 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 1879 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 1879 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 1879 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
                                    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)
 
 
# 1883 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 1883 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 1883 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 1883 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 1883 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
                                    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)
 
# 1886 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 1886 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 1886 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 1886 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 1886 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
                                    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)
 
 
# 1890 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 1890 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 1890 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 1890 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 1890 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
                                    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)
 
# 1893 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 1893 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 1893 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 1893 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 1893 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
                                    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)
 
 
# 1897 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 1897 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 1897 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 1897 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 1897 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
                                    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)
 
# 1900 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 1900 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 1900 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 1900 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 1900 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
                                    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)
 
 
# 1904 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 1904 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 1904 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 1904 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 1904 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
                                    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)
 
# 1907 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 1907 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 1907 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 1907 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 1907 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
                                    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)
 
 
# 1911 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 1911 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 1911 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 1911 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 1911 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
                                    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)
 
# 1914 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 1914 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 1914 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 1914 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 1914 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
                                    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)
 
 
# 1918 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 1918 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 1918 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 1918 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 1918 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
                                    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)
 
# 1921 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 1921 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 1921 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 1921 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 1921 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
                                    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)
 
 
# 1925 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 1925 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 1925 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 1925 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 1925 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
                                    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)
 
# 1928 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 1928 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 1928 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 1928 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 1928 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
                                    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)
 
 
# 1932 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 1932 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 1932 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 1932 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 1932 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
                                    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)
 
# 1935 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 1935 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 1935 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 1935 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 1935 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
                                    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
 
 
# 1943 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 1943 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc loop seq 
# 1943 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 1943 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 1943 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
                                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
 
 
# 1949 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 1949 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc loop seq 
# 1949 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 1949 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 1949 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
                                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)
 
 
# 1958 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 1958 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc loop seq 
# 1958 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 1958 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 1958 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
                                do i = 1, num_fluids
 
# 1960 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 1960 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 1960 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 1960 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 1960 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
                                    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)
 
 
# 1965 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 1965 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 1965 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 1965 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 1965 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
                                    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
 
# 1972 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 1972 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc loop seq 
# 1972 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 1972 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 1972 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
                                    do i = 1, num_fluids - 1
 
# 1974 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 1974 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 1974 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 1974 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 1974 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
                                        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)
 
 
# 1979 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 1979 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 1979 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 1979 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 1979 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
                                        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)
 
 
# 1984 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 1984 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 1984 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 1984 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 1984 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
                                        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)
 
 
# 1989 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 1989 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 1989 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 1989 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 1989 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
                                        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
 
 
# 1996 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 1996 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 1996 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 1996 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 1996 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
                                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)
 
 
# 2001 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 2001 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 2001 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 2001 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 2001 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
                                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)
 
 
# 2006 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 2006 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 2006 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 2006 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 2006 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
                                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)
 
 
# 2011 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 2011 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 2011 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 2011 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 2011 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
                                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)
 
 
# 2016 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 2016 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 2016 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 2016 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 2016 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
                                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)
 
 
# 2021 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 2021 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 2021 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 2021 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 2021 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
                                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)
 
 
# 2026 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 2026 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 2026 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 2026 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 2026 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
                                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)
 
 
# 2031 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 2031 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 2031 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 2031 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 2031 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
                                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)
 
 
# 2036 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 2036 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc loop seq 
# 2036 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 2036 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 2036 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
                                do i = 1, num_fluids
 
# 2038 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 2038 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 2038 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 2038 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 2038 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
                                    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)
 
 
# 2043 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 2043 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 2043 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 2043 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 2043 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
                                    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
 
# 2050 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 2050 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc loop seq 
# 2050 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 2050 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 2050 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
                                    do i = 1, num_fluids - 1
 
# 2052 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 2052 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 2052 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 2052 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 2052 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
                                        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)
 
 
# 2057 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 2057 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 2057 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 2057 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 2057 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
                                        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)
 
 
# 2062 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 2062 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 2062 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 2062 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 2062 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
                                        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)
 
 
# 2067 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 2067 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 2067 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 2067 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 2067 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
                                        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
 
 
# 2074 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 2074 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 2074 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 2074 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 2074 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
                                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)
 
 
# 2079 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 2079 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 2079 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 2079 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 2079 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
                                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)
 
 
# 2084 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 2084 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 2084 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 2084 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 2084 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
                                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)
 
 
# 2089 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 2089 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 2089 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 2089 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 2089 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
                                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)
 
 
# 2094 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 2094 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 2094 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 2094 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 2094 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
                                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)
 
 
# 2099 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 2099 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 2099 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 2099 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 2099 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
                                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)
 
 
# 2104 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 2104 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 2104 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 2104 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 2104 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
                                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)
 
 
# 2109 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 2109 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 2109 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 2109 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 2109 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
                                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
 
# 2116 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 2116 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc end parallel loop
# 2116 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 2116 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 2116 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp end target teams loop
# 2116 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
# 2118 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
            end if
        else if (idir == 3) then
# 2121 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 2121 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 2121 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 2121 "/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, &
# 2121 "/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)
# 2121 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 2121 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 2121 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 2121 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 2121 "/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, &
# 2121 "/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, &
# 2121 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp& vflux_L_arr, vflux_R_arr)
# 2121 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
# 2124 "/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
 
# 2138 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 2138 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 2138 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc loop seq 
# 2138 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 2138 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 2138 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
                                do q = vidxb, vidxe
                                    ! x-direction contributions
 
# 2141 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 2141 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc loop seq 
# 2141 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 2141 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 2141 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
                                    do i = -1, 1
                                        rho_l = 0._wp
 
# 2144 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 2144 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc loop seq 
# 2144 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 2144 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 2144 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
                                        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
 
# 2167 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 2167 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc loop seq 
# 2167 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 2167 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 2167 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
                                    do i = -1, 1
                                        rho_l = 0._wp
 
# 2170 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 2170 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc loop seq 
# 2170 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 2170 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 2170 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
                                        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
 
# 2194 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 2194 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc loop seq 
# 2194 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 2194 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 2194 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
                                    do i = -1, 1
                                        rho_l = 0._wp
 
# 2197 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 2197 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc loop seq 
# 2197 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 2197 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 2197 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
                                        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
 
 
# 2225 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 2225 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc loop seq 
# 2225 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 2225 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 2225 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
                            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
 
 
# 2233 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 2233 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc loop seq 
# 2233 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 2233 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 2233 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
                            do i = 1, num_dims
                                vel_l(i) = 0._wp
                                vel_r(i) = 0._wp
                            end do
 
 
# 2239 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 2239 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc loop seq 
# 2239 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 2239 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 2239 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
                            do q = vidxb + 1, vidxe
 
# 2241 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 2241 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc loop seq 
# 2241 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 2241 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 2241 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
                                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
 
# 2247 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 2247 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc loop seq 
# 2247 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 2247 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 2247 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
                                    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
 
 
# 2255 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 2255 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc loop seq 
# 2255 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 2255 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 2255 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
                                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
 
 
# 2261 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 2261 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc loop seq 
# 2261 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 2261 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 2261 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
                            do q = vidxb, vidxe - 1
 
# 2263 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 2263 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc loop seq 
# 2263 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 2263 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 2263 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
                                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
 
# 2269 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 2269 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc loop seq 
# 2269 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 2269 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 2269 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
                                    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
 
 
# 2277 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 2277 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc loop seq 
# 2277 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 2277 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 2277 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
                                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
 
 
# 2287 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 2287 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc loop seq 
# 2287 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 2287 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 2287 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
                                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)
 
 
# 2297 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 2297 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc loop seq 
# 2297 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 2297 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 2297 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
                            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
 
# 2306 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 2306 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc loop seq 
# 2306 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 2306 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 2306 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
                                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
 
 
# 2312 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 2312 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 2312 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 2312 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 2312 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
                                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)
 
# 2315 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 2315 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 2315 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 2315 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 2315 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
                                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)
 
 
# 2319 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 2319 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 2319 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 2319 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 2319 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
                                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)
 
# 2322 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 2322 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 2322 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 2322 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 2322 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
                                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)
 
 
# 2326 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 2326 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 2326 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 2326 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 2326 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
                                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)
 
# 2329 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 2329 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 2329 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 2329 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 2329 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
                                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)
 
 
# 2333 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 2333 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 2333 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 2333 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 2333 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
                                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)
 
# 2336 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 2336 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 2336 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 2336 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 2336 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
                                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)
 
 
# 2340 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 2340 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 2340 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 2340 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 2340 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
                                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)
 
# 2343 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 2343 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 2343 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 2343 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 2343 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
                                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)
 
 
# 2347 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 2347 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 2347 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 2347 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 2347 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
                                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)
 
# 2350 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 2350 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 2350 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 2350 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 2350 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
                                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)
 
 
# 2354 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 2354 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 2354 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 2354 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 2354 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
                                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)
 
# 2357 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 2357 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 2357 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 2357 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 2357 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
                                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)
 
 
# 2361 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 2361 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 2361 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 2361 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 2361 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
                                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)
 
# 2364 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 2364 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 2364 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 2364 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 2364 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
                                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)
 
 
# 2368 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 2368 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 2368 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 2368 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 2368 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
                                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)
 
# 2371 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 2371 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 2371 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 2371 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 2371 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
                                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)
 
 
# 2375 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 2375 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 2375 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 2375 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 2375 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
                                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)
 
# 2378 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 2378 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 2378 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 2378 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 2378 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
                                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)
 
 
# 2382 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 2382 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 2382 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 2382 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 2382 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
                                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)
 
# 2385 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 2385 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 2385 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 2385 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 2385 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
                                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)
 
 
# 2389 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 2389 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 2389 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 2389 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 2389 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
                                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)
 
# 2392 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 2392 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 2392 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 2392 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 2392 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
                                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
 
 
# 2400 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 2400 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc loop seq 
# 2400 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 2400 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 2400 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
                            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
 
 
# 2406 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 2406 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc loop seq 
# 2406 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 2406 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 2406 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
                            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)
 
 
# 2415 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 2415 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc loop seq 
# 2415 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 2415 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 2415 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
                            do i = 1, num_fluids
 
# 2417 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 2417 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 2417 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 2417 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 2417 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
                                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)
 
 
# 2422 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 2422 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 2422 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 2422 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 2422 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
                                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
 
# 2429 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 2429 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc loop seq 
# 2429 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 2429 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 2429 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
                                do i = 1, num_fluids - 1
 
# 2431 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 2431 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 2431 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 2431 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 2431 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
                                    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)
 
 
# 2436 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 2436 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 2436 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 2436 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 2436 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
                                    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)
 
 
# 2441 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 2441 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 2441 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 2441 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 2441 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
                                    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)
 
 
# 2446 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 2446 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 2446 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 2446 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 2446 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
                                    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
 
 
# 2453 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 2453 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 2453 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 2453 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 2453 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
                            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)
 
 
# 2458 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 2458 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 2458 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 2458 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 2458 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
                            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)
 
 
# 2463 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 2463 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 2463 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 2463 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 2463 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
                            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)
 
 
# 2468 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 2468 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 2468 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 2468 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 2468 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
                            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)
 
 
# 2473 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 2473 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 2473 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 2473 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 2473 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
                            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)
 
 
# 2478 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 2478 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 2478 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 2478 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 2478 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
                            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)
 
 
# 2483 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 2483 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 2483 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 2483 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 2483 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
                            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)
 
 
# 2488 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 2488 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 2488 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 2488 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 2488 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
                            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)
 
 
# 2493 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 2493 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc loop seq 
# 2493 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 2493 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 2493 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
                            do i = 1, num_fluids
 
# 2495 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 2495 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 2495 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 2495 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 2495 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
                                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)
 
 
# 2500 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 2500 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 2500 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 2500 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 2500 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
                                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
 
# 2507 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 2507 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc loop seq 
# 2507 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 2507 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 2507 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
                                do i = 1, num_fluids - 1
 
# 2509 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 2509 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 2509 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 2509 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 2509 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
                                    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)
 
 
# 2514 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 2514 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 2514 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 2514 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 2514 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
                                    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)
 
 
# 2519 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 2519 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 2519 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 2519 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 2519 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
                                    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)
 
 
# 2524 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 2524 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 2524 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 2524 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 2524 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
                                    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
 
 
# 2531 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 2531 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 2531 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 2531 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 2531 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
                            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)
 
 
# 2536 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 2536 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 2536 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 2536 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 2536 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
                            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)
 
 
# 2541 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 2541 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 2541 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 2541 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 2541 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
                            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)
 
 
# 2546 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 2546 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 2546 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 2546 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 2546 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
                            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)
 
 
# 2551 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 2551 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 2551 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 2551 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 2551 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
                            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)
 
 
# 2556 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 2556 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 2556 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 2556 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 2556 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
                            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)
 
 
# 2561 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 2561 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 2561 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 2561 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 2561 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
                            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)
 
 
# 2566 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 2566 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 2566 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 2566 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 2566 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
                            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
 
# 2573 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 2573 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc end parallel loop
# 2573 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 2573 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 2573 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp end target teams loop
# 2573 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
# 2575 "/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)
 
 
# 2582 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if MFC_OpenACC
# 2582 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc routine seq 
# 2582 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif MFC_OpenMP
# 2582 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 2582 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 2582 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp declare target device_type(any) 
# 2582 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
 
        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
# 2605 "/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)
# 2621 "/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
 
# 2632 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 2632 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 2632 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc parallel loop collapse(4) gang vector default(present) private(i, j, k, l)
# 2632 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 2632 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 2632 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 2632 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 2632 "/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)
# 2632 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
            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
 
# 2642 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 2642 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc end parallel loop
# 2642 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 2642 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 2642 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp end target teams loop
# 2642 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
        else if (idir == 2) then
 
# 2644 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 2644 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 2644 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc parallel loop collapse(4) gang vector default(present) private(i, j, k, l)
# 2644 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 2644 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 2644 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 2644 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 2644 "/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)
# 2644 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
            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
 
# 2655 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 2655 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc end parallel loop
# 2655 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 2655 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 2655 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp end target teams loop
# 2655 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
        else if (idir == 3) then
 
# 2657 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 2657 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 2657 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc parallel loop collapse(4) gang vector default(present) private(i, j, k, l)
# 2657 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 2657 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 2657 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 2657 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 2657 "/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)
# 2657 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
            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
 
# 2668 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 2668 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc end parallel loop
# 2668 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 2668 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 2668 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp end target teams loop
# 2668 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
        end if
 
    end subroutine s_igr_flux_add
 
    !> Finalize the IGR module
    subroutine s_finalize_igr_module()
 
        if (viscous) then
#ifdef MFC_DEBUG
# 2677 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
    block
# 2677 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
        use iso_fortran_env, only: output_unit
# 2677 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 2677 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
        print *, 'm_igr.fpp:2677: ', '@:DEALLOCATE(Res_igr)'
# 2677 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 2677 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
        call flush (output_unit)
# 2677 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
    end block
# 2677 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
# 2677 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 2677 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 2677 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc exit data delete(Res_igr) 
# 2677 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 2677 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp target exit data map(release:Res_igr) 
# 2677 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
# 2677 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
    deallocate (res_igr)
        end if
 
#ifndef __NVCOMPILER_GPU_UNIFIED_MEM
#ifdef MFC_DEBUG
# 2681 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
    block
# 2681 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
        use iso_fortran_env, only: output_unit
# 2681 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 2681 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
        print *, 'm_igr.fpp:2681: ', '@:DEALLOCATE(jac, jac_rhs)'
# 2681 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 2681 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
        call flush (output_unit)
# 2681 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
    end block
# 2681 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
# 2681 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 2681 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 2681 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc exit data delete(jac, jac_rhs) 
# 2681 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 2681 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp target exit data map(release:jac, jac_rhs) 
# 2681 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
# 2681 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
    deallocate (jac, jac_rhs)
 
        if (igr_iter_solver == 1) then  ! Jacobi iteration
#ifdef MFC_DEBUG
# 2684 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
    block
# 2684 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
        use iso_fortran_env, only: output_unit
# 2684 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 2684 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
        print *, 'm_igr.fpp:2684: ', '@:DEALLOCATE(jac_old)'
# 2684 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 2684 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
        call flush (output_unit)
# 2684 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
    end block
# 2684 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
# 2684 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 2684 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 2684 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc exit data delete(jac_old) 
# 2684 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 2684 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp target exit data map(release:jac_old) 
# 2684 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
# 2684 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
    deallocate (jac_old)
        end if
#else
        if (nv_uvm_temp_on_gpu(1) == 1) then
#ifdef MFC_DEBUG
# 2688 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
    block
# 2688 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
        use iso_fortran_env, only: output_unit
# 2688 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 2688 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
        print *, 'm_igr.fpp:2688: ', '@:DEALLOCATE(jac)'
# 2688 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 2688 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
        call flush (output_unit)
# 2688 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
    end block
# 2688 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
# 2688 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 2688 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 2688 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc exit data delete(jac) 
# 2688 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 2688 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp target exit data map(release:jac) 
# 2688 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
# 2688 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
    deallocate (jac)
        else
            nullify (jac)
            deallocate (jac_host)
        end if
 
        if (nv_uvm_temp_on_gpu(2) == 1) then
#ifdef MFC_DEBUG
# 2695 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
    block
# 2695 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
        use iso_fortran_env, only: output_unit
# 2695 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 2695 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
        print *, 'm_igr.fpp:2695: ', '@:DEALLOCATE(jac_rhs)'
# 2695 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 2695 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
        call flush (output_unit)
# 2695 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
    end block
# 2695 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
# 2695 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 2695 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 2695 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc exit data delete(jac_rhs) 
# 2695 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 2695 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp target exit data map(release:jac_rhs) 
# 2695 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
# 2695 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
    deallocate (jac_rhs)
        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
# 2703 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
    block
# 2703 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
        use iso_fortran_env, only: output_unit
# 2703 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 2703 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
        print *, 'm_igr.fpp:2703: ', '@:DEALLOCATE(jac_old)'
# 2703 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 2703 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
        call flush (output_unit)
# 2703 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
    end block
# 2703 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
# 2703 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 2703 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 2703 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc exit data delete(jac_old) 
# 2703 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 2703 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp target exit data map(release:jac_old) 
# 2703 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
# 2703 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
    deallocate (jac_old)
            else
                nullify (jac_old)
                deallocate (jac_old_host)
            end if
        end if
#endif
 
# 2712 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#ifdef MFC_DEBUG
# 2712 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
    block
# 2712 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
        use iso_fortran_env, only: output_unit
# 2712 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 2712 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
        print *, 'm_igr.fpp:2712: ', '@:DEALLOCATE(coeff_L, coeff_R)'
# 2712 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 2712 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
        call flush (output_unit)
# 2712 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
    end block
# 2712 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
# 2712 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 2712 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 2712 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc exit data delete(coeff_L, coeff_R) 
# 2712 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 2712 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp target exit data map(release:coeff_L, coeff_R) 
# 2712 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
# 2712 "/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"
 
    end subroutine s_finalize_igr_module
 
end module m_igr