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.
# 9 "/home/runner/work/MFC/MFC/src/common/include/case.fpp"
 
! For moving immersed boundaries in simulation
# 14 "/home/runner/work/MFC/MFC/src/common/include/case.fpp"
# 6 "/home/runner/work/MFC/MFC/src/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"
 
# 17 "/home/runner/work/MFC/MFC/src/common/include/shared_parallel_macros.fpp"
 
# 46 "/home/runner/work/MFC/MFC/src/common/include/shared_parallel_macros.fpp"
 
# 58 "/home/runner/work/MFC/MFC/src/common/include/shared_parallel_macros.fpp"
 
# 68 "/home/runner/work/MFC/MFC/src/common/include/shared_parallel_macros.fpp"
 
# 98 "/home/runner/work/MFC/MFC/src/common/include/shared_parallel_macros.fpp"
 
# 110 "/home/runner/work/MFC/MFC/src/common/include/shared_parallel_macros.fpp"
 
# 120 "/home/runner/work/MFC/MFC/src/common/include/shared_parallel_macros.fpp"
! New line at end of file is required for FYPP
# 2 "/home/runner/work/MFC/MFC/src/common/include/parallel_macros.fpp" 2
# 1 "/home/runner/work/MFC/MFC/src/common/include/omp_macros.fpp" 1
# 1 "/home/runner/work/MFC/MFC/src/common/include/shared_parallel_macros.fpp" 1
# 2 "/home/runner/work/MFC/MFC/src/common/include/shared_parallel_macros.fpp"
# 3 "/home/runner/work/MFC/MFC/src/common/include/shared_parallel_macros.fpp"
# 4 "/home/runner/work/MFC/MFC/src/common/include/shared_parallel_macros.fpp"
# 5 "/home/runner/work/MFC/MFC/src/common/include/shared_parallel_macros.fpp"
# 6 "/home/runner/work/MFC/MFC/src/common/include/shared_parallel_macros.fpp"
 
# 8 "/home/runner/work/MFC/MFC/src/common/include/shared_parallel_macros.fpp"
# 9 "/home/runner/work/MFC/MFC/src/common/include/shared_parallel_macros.fpp"
# 10 "/home/runner/work/MFC/MFC/src/common/include/shared_parallel_macros.fpp"
 
# 17 "/home/runner/work/MFC/MFC/src/common/include/shared_parallel_macros.fpp"
 
# 46 "/home/runner/work/MFC/MFC/src/common/include/shared_parallel_macros.fpp"
 
# 58 "/home/runner/work/MFC/MFC/src/common/include/shared_parallel_macros.fpp"
 
# 68 "/home/runner/work/MFC/MFC/src/common/include/shared_parallel_macros.fpp"
 
# 98 "/home/runner/work/MFC/MFC/src/common/include/shared_parallel_macros.fpp"
 
# 110 "/home/runner/work/MFC/MFC/src/common/include/shared_parallel_macros.fpp"
 
# 120 "/home/runner/work/MFC/MFC/src/common/include/shared_parallel_macros.fpp"
! New line at end of file is required for FYPP
# 2 "/home/runner/work/MFC/MFC/src/common/include/omp_macros.fpp" 2
 
# 4 "/home/runner/work/MFC/MFC/src/common/include/omp_macros.fpp"
# 5 "/home/runner/work/MFC/MFC/src/common/include/omp_macros.fpp"
# 6 "/home/runner/work/MFC/MFC/src/common/include/omp_macros.fpp"
# 7 "/home/runner/work/MFC/MFC/src/common/include/omp_macros.fpp"
# 8 "/home/runner/work/MFC/MFC/src/common/include/omp_macros.fpp"
 
# 20 "/home/runner/work/MFC/MFC/src/common/include/omp_macros.fpp"
 
# 43 "/home/runner/work/MFC/MFC/src/common/include/omp_macros.fpp"
 
# 48 "/home/runner/work/MFC/MFC/src/common/include/omp_macros.fpp"
 
# 53 "/home/runner/work/MFC/MFC/src/common/include/omp_macros.fpp"
 
# 58 "/home/runner/work/MFC/MFC/src/common/include/omp_macros.fpp"
 
# 63 "/home/runner/work/MFC/MFC/src/common/include/omp_macros.fpp"
 
# 68 "/home/runner/work/MFC/MFC/src/common/include/omp_macros.fpp"
 
# 76 "/home/runner/work/MFC/MFC/src/common/include/omp_macros.fpp"
 
# 81 "/home/runner/work/MFC/MFC/src/common/include/omp_macros.fpp"
 
# 86 "/home/runner/work/MFC/MFC/src/common/include/omp_macros.fpp"
 
# 91 "/home/runner/work/MFC/MFC/src/common/include/omp_macros.fpp"
 
# 96 "/home/runner/work/MFC/MFC/src/common/include/omp_macros.fpp"
 
# 101 "/home/runner/work/MFC/MFC/src/common/include/omp_macros.fpp"
 
# 106 "/home/runner/work/MFC/MFC/src/common/include/omp_macros.fpp"
 
# 111 "/home/runner/work/MFC/MFC/src/common/include/omp_macros.fpp"
 
# 116 "/home/runner/work/MFC/MFC/src/common/include/omp_macros.fpp"
 
# 121 "/home/runner/work/MFC/MFC/src/common/include/omp_macros.fpp"
 
# 151 "/home/runner/work/MFC/MFC/src/common/include/omp_macros.fpp"
 
# 192 "/home/runner/work/MFC/MFC/src/common/include/omp_macros.fpp"
 
# 206 "/home/runner/work/MFC/MFC/src/common/include/omp_macros.fpp"
 
# 231 "/home/runner/work/MFC/MFC/src/common/include/omp_macros.fpp"
 
# 242 "/home/runner/work/MFC/MFC/src/common/include/omp_macros.fpp"
 
# 244 "/home/runner/work/MFC/MFC/src/common/include/omp_macros.fpp"
# 255 "/home/runner/work/MFC/MFC/src/common/include/omp_macros.fpp"
 
# 284 "/home/runner/work/MFC/MFC/src/common/include/omp_macros.fpp"
 
# 294 "/home/runner/work/MFC/MFC/src/common/include/omp_macros.fpp"
 
# 304 "/home/runner/work/MFC/MFC/src/common/include/omp_macros.fpp"
 
# 313 "/home/runner/work/MFC/MFC/src/common/include/omp_macros.fpp"
 
# 330 "/home/runner/work/MFC/MFC/src/common/include/omp_macros.fpp"
 
# 340 "/home/runner/work/MFC/MFC/src/common/include/omp_macros.fpp"
 
# 347 "/home/runner/work/MFC/MFC/src/common/include/omp_macros.fpp"
 
# 353 "/home/runner/work/MFC/MFC/src/common/include/omp_macros.fpp"
 
# 359 "/home/runner/work/MFC/MFC/src/common/include/omp_macros.fpp"
 
# 365 "/home/runner/work/MFC/MFC/src/common/include/omp_macros.fpp"
 
# 371 "/home/runner/work/MFC/MFC/src/common/include/omp_macros.fpp"
 
# 377 "/home/runner/work/MFC/MFC/src/common/include/omp_macros.fpp"
! New line at end of file is required for FYPP
# 3 "/home/runner/work/MFC/MFC/src/common/include/parallel_macros.fpp" 2
# 1 "/home/runner/work/MFC/MFC/src/common/include/acc_macros.fpp" 1
# 1 "/home/runner/work/MFC/MFC/src/common/include/shared_parallel_macros.fpp" 1
# 2 "/home/runner/work/MFC/MFC/src/common/include/shared_parallel_macros.fpp"
# 3 "/home/runner/work/MFC/MFC/src/common/include/shared_parallel_macros.fpp"
# 4 "/home/runner/work/MFC/MFC/src/common/include/shared_parallel_macros.fpp"
# 5 "/home/runner/work/MFC/MFC/src/common/include/shared_parallel_macros.fpp"
# 6 "/home/runner/work/MFC/MFC/src/common/include/shared_parallel_macros.fpp"
 
# 8 "/home/runner/work/MFC/MFC/src/common/include/shared_parallel_macros.fpp"
# 9 "/home/runner/work/MFC/MFC/src/common/include/shared_parallel_macros.fpp"
# 10 "/home/runner/work/MFC/MFC/src/common/include/shared_parallel_macros.fpp"
 
# 17 "/home/runner/work/MFC/MFC/src/common/include/shared_parallel_macros.fpp"
 
# 46 "/home/runner/work/MFC/MFC/src/common/include/shared_parallel_macros.fpp"
 
# 58 "/home/runner/work/MFC/MFC/src/common/include/shared_parallel_macros.fpp"
 
# 68 "/home/runner/work/MFC/MFC/src/common/include/shared_parallel_macros.fpp"
 
# 98 "/home/runner/work/MFC/MFC/src/common/include/shared_parallel_macros.fpp"
 
# 110 "/home/runner/work/MFC/MFC/src/common/include/shared_parallel_macros.fpp"
 
# 120 "/home/runner/work/MFC/MFC/src/common/include/shared_parallel_macros.fpp"
! New line at end of file is required for FYPP
# 2 "/home/runner/work/MFC/MFC/src/common/include/acc_macros.fpp" 2
 
# 7 "/home/runner/work/MFC/MFC/src/common/include/acc_macros.fpp"
 
# 17 "/home/runner/work/MFC/MFC/src/common/include/acc_macros.fpp"
 
# 22 "/home/runner/work/MFC/MFC/src/common/include/acc_macros.fpp"
 
# 27 "/home/runner/work/MFC/MFC/src/common/include/acc_macros.fpp"
 
# 32 "/home/runner/work/MFC/MFC/src/common/include/acc_macros.fpp"
 
# 37 "/home/runner/work/MFC/MFC/src/common/include/acc_macros.fpp"
 
# 42 "/home/runner/work/MFC/MFC/src/common/include/acc_macros.fpp"
 
# 47 "/home/runner/work/MFC/MFC/src/common/include/acc_macros.fpp"
 
# 52 "/home/runner/work/MFC/MFC/src/common/include/acc_macros.fpp"
 
# 57 "/home/runner/work/MFC/MFC/src/common/include/acc_macros.fpp"
 
# 62 "/home/runner/work/MFC/MFC/src/common/include/acc_macros.fpp"
 
# 73 "/home/runner/work/MFC/MFC/src/common/include/acc_macros.fpp"
 
# 78 "/home/runner/work/MFC/MFC/src/common/include/acc_macros.fpp"
 
# 83 "/home/runner/work/MFC/MFC/src/common/include/acc_macros.fpp"
 
# 88 "/home/runner/work/MFC/MFC/src/common/include/acc_macros.fpp"
 
# 103 "/home/runner/work/MFC/MFC/src/common/include/acc_macros.fpp"
 
# 131 "/home/runner/work/MFC/MFC/src/common/include/acc_macros.fpp"
 
# 160 "/home/runner/work/MFC/MFC/src/common/include/acc_macros.fpp"
 
# 175 "/home/runner/work/MFC/MFC/src/common/include/acc_macros.fpp"
 
# 193 "/home/runner/work/MFC/MFC/src/common/include/acc_macros.fpp"
 
# 215 "/home/runner/work/MFC/MFC/src/common/include/acc_macros.fpp"
 
# 244 "/home/runner/work/MFC/MFC/src/common/include/acc_macros.fpp"
 
# 259 "/home/runner/work/MFC/MFC/src/common/include/acc_macros.fpp"
 
# 269 "/home/runner/work/MFC/MFC/src/common/include/acc_macros.fpp"
 
# 278 "/home/runner/work/MFC/MFC/src/common/include/acc_macros.fpp"
 
# 294 "/home/runner/work/MFC/MFC/src/common/include/acc_macros.fpp"
 
# 304 "/home/runner/work/MFC/MFC/src/common/include/acc_macros.fpp"
 
# 311 "/home/runner/work/MFC/MFC/src/common/include/acc_macros.fpp"
! New line at end of file is required for FYPP
# 4 "/home/runner/work/MFC/MFC/src/common/include/parallel_macros.fpp" 2
 
! GPU parallel region (scalar reductions, maxval/minval)
# 23 "/home/runner/work/MFC/MFC/src/common/include/parallel_macros.fpp"
 
! GPU parallel loop over threads (most common GPU macro)
# 43 "/home/runner/work/MFC/MFC/src/common/include/parallel_macros.fpp"
 
! Required closing for GPU_PARALLEL_LOOP
# 55 "/home/runner/work/MFC/MFC/src/common/include/parallel_macros.fpp"
 
! Mark routine for device compilation
# 112 "/home/runner/work/MFC/MFC/src/common/include/parallel_macros.fpp"
 
! Declare device-resident data
# 130 "/home/runner/work/MFC/MFC/src/common/include/parallel_macros.fpp"
 
! Inner loop within a GPU parallel region
# 145 "/home/runner/work/MFC/MFC/src/common/include/parallel_macros.fpp"
 
! Scoped GPU data region
# 164 "/home/runner/work/MFC/MFC/src/common/include/parallel_macros.fpp"
 
! Host code with device pointers (for MPI with GPU buffers)
# 193 "/home/runner/work/MFC/MFC/src/common/include/parallel_macros.fpp"
 
! Allocate device memory (unscoped)
# 207 "/home/runner/work/MFC/MFC/src/common/include/parallel_macros.fpp"
 
! Free device memory
# 219 "/home/runner/work/MFC/MFC/src/common/include/parallel_macros.fpp"
 
! Atomic operation on device
# 231 "/home/runner/work/MFC/MFC/src/common/include/parallel_macros.fpp"
 
! End atomic capture block
# 242 "/home/runner/work/MFC/MFC/src/common/include/parallel_macros.fpp"
 
! Copy data between host and device
# 254 "/home/runner/work/MFC/MFC/src/common/include/parallel_macros.fpp"
 
! Synchronization barrier
# 266 "/home/runner/work/MFC/MFC/src/common/include/parallel_macros.fpp"
 
! Import GPU library module (openacc or omp_lib)
# 275 "/home/runner/work/MFC/MFC/src/common/include/parallel_macros.fpp"
 
! Emit code only for AMD compiler
# 282 "/home/runner/work/MFC/MFC/src/common/include/parallel_macros.fpp"
 
! Emit code for non-Cray compilers
# 289 "/home/runner/work/MFC/MFC/src/common/include/parallel_macros.fpp"
 
! Emit code only for Cray compiler
# 296 "/home/runner/work/MFC/MFC/src/common/include/parallel_macros.fpp"
 
! Emit code for non-NVIDIA compilers
# 303 "/home/runner/work/MFC/MFC/src/common/include/parallel_macros.fpp"
 
# 305 "/home/runner/work/MFC/MFC/src/common/include/parallel_macros.fpp"
# 306 "/home/runner/work/MFC/MFC/src/common/include/parallel_macros.fpp"
! New line at end of file is required for FYPP
# 2 "/home/runner/work/MFC/MFC/src/common/include/macros.fpp" 2
 
# 14 "/home/runner/work/MFC/MFC/src/common/include/macros.fpp"
 
! Caution: This macro requires the use of a binding script to set CUDA_VISIBLE_DEVICES, such that we have one GPU device per MPI
! rank. That's because for both cudaMemAdvise (preferred location) and cudaMemPrefetchAsync we use location = device_id = 0. For an
! example see misc/nvidia_uvm/bind.sh. NVIDIA unified memory page placement hint
# 57 "/home/runner/work/MFC/MFC/src/common/include/macros.fpp"
 
! Allocate and create GPU device memory
# 77 "/home/runner/work/MFC/MFC/src/common/include/macros.fpp"
 
! Free GPU device memory and deallocate
# 85 "/home/runner/work/MFC/MFC/src/common/include/macros.fpp"
 
! Cray-specific GPU pointer setup for vector fields
# 109 "/home/runner/work/MFC/MFC/src/common/include/macros.fpp"
 
! Cray-specific GPU pointer setup for scalar fields
# 125 "/home/runner/work/MFC/MFC/src/common/include/macros.fpp"
 
! Cray-specific GPU pointer setup for acoustic source spatials
# 150 "/home/runner/work/MFC/MFC/src/common/include/macros.fpp"
 
# 156 "/home/runner/work/MFC/MFC/src/common/include/macros.fpp"
 
# 163 "/home/runner/work/MFC/MFC/src/common/include/macros.fpp"
! New line at end of file is required for FYPP
# 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 MFC_SIMULATION
# 103 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#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"
                ! print*, "Moving Res_igr to GPU => ", SHAPE(Res_igr) 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"
                    ! write(*,*) cudaGetErrorString(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"
                    ! write(*,*) cudaGetErrorString(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"
                    ! write(*,*) cudaGetErrorString(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
# 103 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
#ifdef MFC_SIMULATION
# 104 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#ifdef __NVCOMPILER_GPU_UNIFIED_MEM
# 104 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
    block
# 104 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
        ! NVIDIA CUDA Fortran 25.3+: uses submodules (cuda_runtime_api, gpu_reductions, sort) See
# 104 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
        ! https://docs.nvidia.com/hpc-sdk/compilers/cuda-fortran-prog-guide/index.html#fortran-host-modules
# 104 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if __NVCOMPILER_MAJOR__ < 25 || (__NVCOMPILER_MAJOR__ == 25 && __NVCOMPILER_MINOR__ < 3)
# 104 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
        use cudafor, gpu_sum => sum, gpu_maxval => maxval, gpu_minval => minval
# 104 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#else
# 104 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
        use cuda_runtime_api
# 104 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
# 104 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
        integer :: istat
# 104 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 104 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
        if (nv_uvm_pref_gpu) then
# 104 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
                ! print*, "Moving Re_idx to GPU => ", SHAPE(Re_idx) 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"
                    ! write(*,*) cudaGetErrorString(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"
                    ! write(*,*) cudaGetErrorString(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"
                    ! write(*,*) cudaGetErrorString(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
# 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 MFC_SIMULATION
# 121 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#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"
                ! print*, "Moving jac to GPU => ", SHAPE(jac) 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"
                    ! write(*,*) cudaGetErrorString(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"
                    ! write(*,*) cudaGetErrorString(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"
                    ! write(*,*) cudaGetErrorString(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
# 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 MFC_SIMULATION
# 130 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#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"
                ! print*, "Moving jac_rhs to GPU => ", SHAPE(jac_rhs) 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"
                    ! write(*,*) cudaGetErrorString(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"
                    ! write(*,*) cudaGetErrorString(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"
                    ! write(*,*) cudaGetErrorString(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
# 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 MFC_SIMULATION
# 139 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#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"
                ! print*, "Moving jac_old to GPU => ", SHAPE(jac_old) 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"
                    ! write(*,*) cudaGetErrorString(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"
                    ! write(*,*) cudaGetErrorString(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"
                    ! write(*,*) cudaGetErrorString(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
# 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) 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 .or. dummy) 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) 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)                                               :: 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
# 416 "/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
# 426 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
        if (idir == 1) then
            if (p == 0) then
# 430 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 430 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 430 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 430 "/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, 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, rho_sf_small, vflux_L_arr, vflux_R_arr) 
# 430 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 430 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 430 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 430 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 430 "/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, rho_R, gamma_L, gamma_R, pi_inf_L, pi_inf_R, 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, rho_sf_small, vflux_L_arr, vflux_R_arr) 
# 430 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
# 433 "/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
 
# 446 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 446 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 446 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc loop seq 
# 446 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 446 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 446 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
                                do q = vidxb, vidxe
                                    ! x-direction contributions
 
# 449 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 449 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc loop seq 
# 449 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 449 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 449 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
                                    do i = -1, 1
                                        rho_l = 0._wp
 
# 452 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 452 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc loop seq 
# 452 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 452 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 452 "/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
 
# 466 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 466 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc loop seq 
# 466 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 466 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 466 "/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
 
# 482 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 482 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc loop seq 
# 482 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 482 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 482 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
                                    do i = -1, 1
                                        rho_l = 0._wp
 
# 485 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 485 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc loop seq 
# 485 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 485 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 485 "/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
 
# 498 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 498 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc loop seq 
# 498 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 498 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 498 "/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
 
 
# 519 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 519 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc loop seq 
# 519 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 519 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 519 "/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
 
# 526 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 526 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc loop seq 
# 526 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 526 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 526 "/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
 
 
# 532 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 532 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc loop seq 
# 532 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 532 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 532 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
                                do q = vidxb + 1, vidxe
 
# 534 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 534 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc loop seq 
# 534 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 534 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 534 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
                                    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
 
# 540 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 540 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc loop seq 
# 540 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 540 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 540 "/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
 
 
# 548 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 548 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc loop seq 
# 548 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 548 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 548 "/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
 
 
# 554 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 554 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc loop seq 
# 554 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 554 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 554 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
                                do q = vidxb, vidxe - 1
 
# 556 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 556 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc loop seq 
# 556 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 556 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 556 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
                                    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
 
# 562 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 562 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc loop seq 
# 562 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 562 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 562 "/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
 
 
# 570 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 570 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc loop seq 
# 570 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 570 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 570 "/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
 
 
# 580 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 580 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc loop seq 
# 580 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 580 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 580 "/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
 
                                rho_l = 0._wp; rho_r = 0._wp
                                gamma_l = 0._wp; gamma_r = 0._wp
                                pi_inf_l = 0._wp; pi_inf_r = 0._wp
 
 
# 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_fluids
                                    rho_l = rho_l + alpha_rho_l(i)
                                    gamma_l = gamma_l + alpha_l(i)*gammas(i)
                                    pi_inf_l = pi_inf_l + alpha_l(i)*pi_infs(i)
 
                                    rho_r = rho_r + alpha_rho_r(i)
                                    gamma_r = gamma_r + alpha_r(i)*gammas(i)
                                    pi_inf_r = pi_inf_r + alpha_r(i)*pi_infs(i)
                                end do
 
 
# 602 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 602 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc loop seq 
# 602 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 602 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 602 "/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
 
# 610 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 610 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc loop seq 
# 610 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 610 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 610 "/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
 
 
# 616 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 616 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 616 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 616 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 616 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
                                    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)
 
# 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_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)
 
 
# 623 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 623 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 623 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 623 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 623 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
                                    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)
 
# 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_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)
 
 
# 630 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 630 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 630 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 630 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 630 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
                                    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)
 
# 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_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)
 
 
# 637 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 637 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 637 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 637 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 637 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
                                    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)
 
# 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_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)
 
 
# 644 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 644 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 644 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 644 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 644 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
                                    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)
 
# 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_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)
 
 
# 651 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 651 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 651 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 651 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 651 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
                                    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)
 
# 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_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)
 
 
# 658 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 658 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 658 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 658 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 658 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
                                    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)
 
# 661 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 661 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 661 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 661 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 661 "/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)
 
 
# 665 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 665 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 665 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 665 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 665 "/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)
 
# 668 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 668 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 668 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 668 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 668 "/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
 
 
# 675 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 675 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc loop seq 
# 675 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 675 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 675 "/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
 
 
# 680 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 680 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc loop seq 
# 680 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 680 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 680 "/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
 
# 689 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 689 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 689 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 689 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 689 "/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)
 
 
# 694 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 694 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 694 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 694 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 694 "/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
 
# 701 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 701 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc loop seq 
# 701 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 701 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 701 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
                                    do i = 1, num_fluids - 1
 
# 703 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 703 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 703 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 703 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 703 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
                                        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)
 
 
# 708 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 708 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 708 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 708 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 708 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
                                        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)
 
 
# 713 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 713 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 713 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 713 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 713 "/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)
 
 
# 718 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 718 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 718 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 718 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 718 "/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
 
 
# 725 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 725 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 725 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 725 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 725 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
                                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)
 
 
# 730 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 730 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 730 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 730 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 730 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
                                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)
 
 
# 735 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 735 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 735 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 735 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 735 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
                                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)
 
 
# 740 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 740 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 740 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 740 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 740 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
                                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)
 
 
# 745 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 745 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 745 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 745 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 745 "/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)
 
 
# 750 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 750 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 750 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 750 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 750 "/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)
 
 
# 755 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 755 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc loop seq 
# 755 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 755 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 755 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
                                do i = 1, num_fluids
 
# 757 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 757 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 757 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 757 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 757 "/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)
 
 
# 762 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 762 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 762 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 762 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 762 "/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
 
# 769 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 769 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc loop seq 
# 769 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 769 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 769 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
                                    do i = 1, num_fluids - 1
 
# 771 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 771 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 771 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 771 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 771 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
                                        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)
 
 
# 776 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 776 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 776 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 776 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 776 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
                                        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)
 
 
# 781 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 781 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 781 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 781 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 781 "/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)
 
 
# 786 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 786 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 786 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 786 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 786 "/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
 
 
# 793 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 793 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 793 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 793 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 793 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
                                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)
 
 
# 798 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 798 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 798 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 798 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 798 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
                                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)
 
 
# 803 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 803 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 803 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 803 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 803 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
                                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)
 
 
# 808 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 808 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 808 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 808 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 808 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
                                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)
 
 
# 813 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 813 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 813 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 813 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 813 "/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)
 
 
# 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 atomic update
# 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"
!$omp atomic update
# 818 "/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
 
# 825 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 825 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc end parallel loop
# 825 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 825 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 825 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp end target teams loop
# 825 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
# 827 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
            else
# 829 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 829 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 829 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 829 "/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, 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, rho_sf_small, vflux_L_arr, vflux_R_arr) 
# 829 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 829 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 829 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 829 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 829 "/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, rho_R, gamma_L, gamma_R, pi_inf_L, pi_inf_R, 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, rho_sf_small, vflux_L_arr, vflux_R_arr) 
# 829 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
# 832 "/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
 
# 845 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 845 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 845 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc loop seq 
# 845 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 845 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 845 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
                                do q = vidxb, vidxe
                                    ! x-direction contributions
 
# 848 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 848 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc loop seq 
# 848 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 848 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 848 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
                                    do i = -1, 1
                                        rho_l = 0._wp
 
# 851 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 851 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc loop seq 
# 851 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 851 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 851 "/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
 
# 866 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 866 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc loop seq 
# 866 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 866 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 866 "/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
 
# 884 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 884 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc loop seq 
# 884 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 884 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 884 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
                                    do i = -1, 1
                                        rho_l = 0._wp
 
# 887 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 887 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc loop seq 
# 887 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 887 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 887 "/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
 
# 901 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 901 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc loop seq 
# 901 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 901 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 901 "/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
 
# 917 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 917 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc loop seq 
# 917 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 917 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 917 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
                                    do i = -1, 1
                                        rho_l = 0._wp
 
# 920 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 920 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc loop seq 
# 920 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 920 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 920 "/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
 
# 935 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 935 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc loop seq 
# 935 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 935 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 935 "/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
 
 
# 957 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 957 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc loop seq 
# 957 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 957 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 957 "/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
 
# 964 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 964 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc loop seq 
# 964 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 964 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 964 "/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
 
 
# 970 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 970 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc loop seq 
# 970 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 970 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 970 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
                                do q = vidxb + 1, vidxe
 
# 972 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 972 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc loop seq 
# 972 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 972 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 972 "/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
 
# 978 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 978 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc loop seq 
# 978 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 978 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 978 "/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
 
 
# 986 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 986 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc loop seq 
# 986 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 986 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 986 "/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
 
 
# 992 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 992 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc loop seq 
# 992 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 992 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 992 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
                                do q = vidxb, vidxe - 1
 
# 994 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 994 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc loop seq 
# 994 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 994 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 994 "/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
 
# 1000 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 1000 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc loop seq 
# 1000 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 1000 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 1000 "/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
 
 
# 1008 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 1008 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc loop seq 
# 1008 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 1008 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 1008 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
                                    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
 
 
# 1018 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 1018 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc loop seq 
# 1018 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 1018 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 1018 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
                                    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
 
                                rho_l = 0._wp; rho_r = 0._wp
                                gamma_l = 0._wp; gamma_r = 0._wp
                                pi_inf_l = 0._wp; pi_inf_r = 0._wp
 
 
# 1029 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 1029 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc loop seq 
# 1029 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 1029 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 1029 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
                                do i = 1, num_fluids
                                    rho_l = rho_l + alpha_rho_l(i)
                                    gamma_l = gamma_l + alpha_l(i)*gammas(i)
                                    pi_inf_l = pi_inf_l + alpha_l(i)*pi_infs(i)
 
                                    rho_r = rho_r + alpha_rho_r(i)
                                    gamma_r = gamma_r + alpha_r(i)*gammas(i)
                                    pi_inf_r = pi_inf_r + alpha_r(i)*pi_infs(i)
                                end do
 
 
# 1040 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 1040 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc loop seq 
# 1040 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 1040 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 1040 "/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
 
# 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 loop seq 
# 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"
 
# 1049 "/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
 
 
# 1055 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 1055 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 1055 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 1055 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 1055 "/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)
 
# 1058 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 1058 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 1058 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 1058 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 1058 "/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)
 
 
# 1062 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 1062 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 1062 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 1062 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 1062 "/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)
 
# 1065 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 1065 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 1065 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 1065 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 1065 "/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)
 
 
# 1069 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 1069 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 1069 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 1069 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 1069 "/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)
 
# 1072 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 1072 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 1072 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 1072 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 1072 "/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)
 
 
# 1076 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 1076 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 1076 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 1076 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 1076 "/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)
 
# 1079 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 1079 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 1079 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 1079 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 1079 "/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)
 
 
# 1083 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 1083 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 1083 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 1083 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 1083 "/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)
 
# 1086 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 1086 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 1086 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 1086 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 1086 "/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)
 
 
# 1090 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 1090 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 1090 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 1090 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 1090 "/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)
 
# 1093 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 1093 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 1093 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 1093 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 1093 "/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)
 
 
# 1097 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 1097 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 1097 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 1097 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 1097 "/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)
 
# 1100 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 1100 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 1100 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 1100 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 1100 "/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)
 
 
# 1104 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 1104 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 1104 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 1104 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 1104 "/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)
 
# 1107 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 1107 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 1107 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 1107 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 1107 "/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)
 
 
# 1111 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 1111 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 1111 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 1111 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 1111 "/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)
 
# 1114 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 1114 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 1114 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 1114 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 1114 "/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)
 
 
# 1118 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 1118 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 1118 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 1118 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 1118 "/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)
 
# 1121 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 1121 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 1121 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 1121 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 1121 "/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)
 
 
# 1125 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 1125 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 1125 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 1125 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 1125 "/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)
 
# 1128 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 1128 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 1128 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 1128 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 1128 "/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)
 
 
# 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 atomic update
# 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"
!$omp atomic update
# 1132 "/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)
 
# 1135 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 1135 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 1135 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 1135 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 1135 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
                                    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
 
 
# 1142 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 1142 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc loop seq 
# 1142 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 1142 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 1142 "/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
 
 
# 1147 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 1147 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc loop seq 
# 1147 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 1147 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 1147 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
                                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)
 
 
# 1155 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 1155 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc loop seq 
# 1155 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 1155 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 1155 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
                                do i = 1, num_fluids
 
# 1157 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 1157 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 1157 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 1157 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 1157 "/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)
 
 
# 1162 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 1162 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 1162 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 1162 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 1162 "/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
 
# 1169 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 1169 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc loop seq 
# 1169 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 1169 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 1169 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
                                    do i = 1, num_fluids - 1
 
# 1171 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 1171 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 1171 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 1171 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 1171 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
                                        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)
 
 
# 1176 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 1176 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 1176 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 1176 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 1176 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
                                        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)
 
 
# 1181 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 1181 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 1181 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 1181 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 1181 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
                                        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)
 
 
# 1186 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 1186 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 1186 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 1186 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 1186 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
                                        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
 
 
# 1193 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 1193 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 1193 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 1193 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 1193 "/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)
 
 
# 1198 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 1198 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 1198 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 1198 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 1198 "/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)
 
 
# 1203 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 1203 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 1203 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 1203 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 1203 "/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)
 
 
# 1208 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 1208 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 1208 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 1208 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 1208 "/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)
 
 
# 1213 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 1213 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 1213 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 1213 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 1213 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
                                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)
 
 
# 1218 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 1218 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 1218 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 1218 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 1218 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
                                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)
 
 
# 1223 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 1223 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 1223 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 1223 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 1223 "/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)
 
 
# 1228 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 1228 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 1228 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 1228 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 1228 "/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)
 
 
# 1233 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 1233 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc loop seq 
# 1233 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 1233 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 1233 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
                                do i = 1, num_fluids
 
# 1235 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 1235 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 1235 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 1235 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 1235 "/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)
 
 
# 1240 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 1240 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 1240 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 1240 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 1240 "/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
 
# 1247 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 1247 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc loop seq 
# 1247 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 1247 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 1247 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
                                    do i = 1, num_fluids - 1
 
# 1249 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 1249 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 1249 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 1249 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 1249 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
                                        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)
 
 
# 1254 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 1254 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 1254 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 1254 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 1254 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
                                        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)
 
 
# 1259 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 1259 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 1259 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 1259 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 1259 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
                                        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)
 
 
# 1264 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 1264 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 1264 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 1264 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 1264 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
                                        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
 
 
# 1271 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 1271 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 1271 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 1271 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 1271 "/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)
 
 
# 1276 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 1276 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 1276 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 1276 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 1276 "/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)
 
 
# 1281 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 1281 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 1281 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 1281 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 1281 "/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)
 
 
# 1286 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 1286 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 1286 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 1286 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 1286 "/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)
 
 
# 1291 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 1291 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 1291 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 1291 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 1291 "/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)
 
 
# 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 atomic update
# 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"
!$omp atomic update
# 1296 "/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)
 
 
# 1301 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 1301 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 1301 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 1301 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 1301 "/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)
 
 
# 1306 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 1306 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 1306 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 1306 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 1306 "/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
 
# 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 end parallel loop
# 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"
!$omp end target teams loop
# 1313 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
# 1315 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
            end if
        else if (idir == 2) then
            if (p == 0) then
# 1319 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 1319 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 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 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, 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, vflux_L_arr, vflux_R_arr) 
# 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"
 
# 1319 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 1319 "/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, rho_R, gamma_L, gamma_R, pi_inf_L, pi_inf_R, 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, vflux_L_arr, vflux_R_arr) 
# 1319 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
# 1322 "/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
 
# 1336 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 1336 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 1336 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc loop seq 
# 1336 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 1336 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 1336 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
                                    do q = vidxb, vidxe
                                        ! x-direction contributions
 
# 1339 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 1339 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc loop seq 
# 1339 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 1339 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 1339 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
                                        do i = -1, 1
                                            rho_l = 0._wp
 
# 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 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
 
# 1365 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 1365 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc loop seq 
# 1365 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 1365 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 1365 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
                                        do i = -1, 1
                                            rho_l = 0._wp
 
# 1368 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 1368 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc loop seq 
# 1368 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 1368 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 1368 "/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
 
 
# 1392 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 1392 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc loop seq 
# 1392 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 1392 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 1392 "/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
 
# 1399 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 1399 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc loop seq 
# 1399 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 1399 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 1399 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
                                do i = 1, num_dims
                                    vel_l(i) = 0._wp
                                    vel_r(i) = 0._wp
                                end do
 
 
# 1405 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 1405 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc loop seq 
# 1405 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 1405 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 1405 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
                                do q = vidxb + 1, vidxe
 
# 1407 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 1407 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc loop seq 
# 1407 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 1407 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 1407 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
                                    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
 
# 1413 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 1413 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc loop seq 
# 1413 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 1413 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 1413 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
                                        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
 
 
# 1421 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 1421 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc loop seq 
# 1421 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 1421 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 1421 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
                                    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
 
 
# 1427 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 1427 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc loop seq 
# 1427 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 1427 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 1427 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
                                do q = vidxb, vidxe - 1
 
# 1429 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 1429 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc loop seq 
# 1429 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 1429 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 1429 "/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
 
# 1435 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 1435 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc loop seq 
# 1435 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 1435 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 1435 "/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
 
 
# 1443 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 1443 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc loop seq 
# 1443 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 1443 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 1443 "/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
 
 
# 1453 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 1453 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc loop seq 
# 1453 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 1453 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 1453 "/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
 
                                rho_l = 0._wp; rho_r = 0._wp
                                gamma_l = 0._wp; gamma_r = 0._wp
                                pi_inf_l = 0._wp; pi_inf_r = 0._wp
 
 
# 1464 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 1464 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc loop seq 
# 1464 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 1464 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 1464 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
                                do i = 1, num_fluids
                                    rho_l = rho_l + alpha_rho_l(i)
                                    gamma_l = gamma_l + alpha_l(i)*gammas(i)
                                    pi_inf_l = pi_inf_l + alpha_l(i)*pi_infs(i)
 
                                    rho_r = rho_r + alpha_rho_r(i)
                                    gamma_r = gamma_r + alpha_r(i)*gammas(i)
                                    pi_inf_r = pi_inf_r + alpha_r(i)*pi_infs(i)
                                end do
 
 
# 1475 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 1475 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc loop seq 
# 1475 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 1475 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 1475 "/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
 
# 1484 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 1484 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc loop seq 
# 1484 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 1484 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 1484 "/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
 
 
# 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)%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)
 
# 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 + 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)
 
 
# 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)%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)
 
# 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, 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)
 
 
# 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)%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)
 
# 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 + 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)
 
 
# 1511 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 1511 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 1511 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 1511 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 1511 "/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)
 
# 1514 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 1514 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 1514 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 1514 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 1514 "/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)
 
 
# 1518 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 1518 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 1518 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 1518 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 1518 "/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)
 
# 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 atomic update
# 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"
!$omp atomic update
# 1521 "/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)
 
 
# 1525 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 1525 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 1525 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 1525 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 1525 "/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)
 
# 1528 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 1528 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 1528 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 1528 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 1528 "/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)
 
 
# 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(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)
 
# 1535 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 1535 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 1535 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 1535 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 1535 "/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)
 
 
# 1539 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 1539 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 1539 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 1539 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 1539 "/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)
 
# 1542 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 1542 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 1542 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 1542 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 1542 "/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
 
 
# 1550 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 1550 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc loop seq 
# 1550 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 1550 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 1550 "/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
 
 
# 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 loop seq 
# 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"
 
# 1556 "/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)
 
 
# 1565 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 1565 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc loop seq 
# 1565 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 1565 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 1565 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
                                do i = 1, num_fluids
 
# 1567 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 1567 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 1567 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 1567 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 1567 "/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)
 
 
# 1572 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 1572 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 1572 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 1572 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 1572 "/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
 
# 1579 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 1579 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc loop seq 
# 1579 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 1579 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 1579 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
                                    do i = 1, num_fluids - 1
 
# 1581 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 1581 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 1581 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 1581 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 1581 "/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)
 
 
# 1586 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 1586 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 1586 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 1586 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 1586 "/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)
 
 
# 1591 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 1591 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 1591 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 1591 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 1591 "/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)
 
 
# 1596 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 1596 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 1596 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 1596 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 1596 "/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
 
 
# 1603 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 1603 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 1603 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 1603 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 1603 "/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)
 
 
# 1608 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 1608 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 1608 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 1608 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 1608 "/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)
 
 
# 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_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)
 
 
# 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_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)
 
 
# 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_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)
 
 
# 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_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)
 
 
# 1633 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 1633 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc loop seq 
# 1633 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 1633 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 1633 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
                                do i = 1, num_fluids
 
# 1635 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 1635 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 1635 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 1635 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 1635 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
                                    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)
 
# 1639 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 1639 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 1639 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 1639 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 1639 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
                                    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
 
# 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 loop seq 
# 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"
 
# 1646 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
                                    do i = 1, num_fluids - 1
 
# 1648 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 1648 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 1648 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 1648 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 1648 "/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)
 
 
# 1653 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 1653 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 1653 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 1653 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 1653 "/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)
 
 
# 1658 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 1658 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 1658 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 1658 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 1658 "/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)
 
 
# 1663 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 1663 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 1663 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 1663 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 1663 "/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
 
# 1669 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 1669 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 1669 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 1669 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 1669 "/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)
 
# 1673 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 1673 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 1673 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 1673 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 1673 "/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)
 
# 1677 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 1677 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 1677 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 1677 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 1677 "/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)
 
# 1681 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 1681 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 1681 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 1681 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 1681 "/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)
 
# 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 atomic update
# 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"
!$omp atomic update
# 1685 "/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)
 
# 1689 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 1689 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 1689 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 1689 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 1689 "/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
 
# 1696 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 1696 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc end parallel loop
# 1696 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 1696 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 1696 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp end target teams loop
# 1696 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
# 1698 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
            else
# 1700 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 1700 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 1700 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 1700 "/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, 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, vflux_L_arr, vflux_R_arr) 
# 1700 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 1700 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 1700 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 1700 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 1700 "/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, rho_R, gamma_L, gamma_R, pi_inf_L, pi_inf_R, 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, vflux_L_arr, vflux_R_arr) 
# 1700 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
# 1703 "/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
 
# 1717 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 1717 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 1717 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc loop seq 
# 1717 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 1717 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 1717 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
                                    do q = vidxb, vidxe
                                        ! x-direction contributions
 
# 1720 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 1720 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc loop seq 
# 1720 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 1720 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 1720 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
                                        do i = -1, 1
                                            rho_l = 0._wp
 
# 1723 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 1723 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc loop seq 
# 1723 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 1723 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 1723 "/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
 
# 1746 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 1746 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc loop seq 
# 1746 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 1746 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 1746 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
                                        do i = -1, 1
                                            rho_l = 0._wp
 
# 1749 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 1749 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc loop seq 
# 1749 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 1749 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 1749 "/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
 
# 1777 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 1777 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc loop seq 
# 1777 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 1777 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 1777 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
                                        do i = -1, 1
                                            rho_l = 0._wp
 
# 1780 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 1780 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc loop seq 
# 1780 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 1780 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 1780 "/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
 
 
# 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 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
 
# 1811 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 1811 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc loop seq 
# 1811 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 1811 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 1811 "/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
 
 
# 1817 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 1817 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc loop seq 
# 1817 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 1817 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 1817 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
                                do q = vidxb + 1, vidxe
 
# 1819 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 1819 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc loop seq 
# 1819 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 1819 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 1819 "/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
 
# 1825 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 1825 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc loop seq 
# 1825 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 1825 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 1825 "/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
 
 
# 1833 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 1833 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc loop seq 
# 1833 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 1833 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 1833 "/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
 
 
# 1839 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 1839 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc loop seq 
# 1839 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 1839 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 1839 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
                                do q = vidxb, vidxe - 1
 
# 1841 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 1841 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc loop seq 
# 1841 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 1841 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 1841 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
                                    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
 
# 1847 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 1847 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc loop seq 
# 1847 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 1847 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 1847 "/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
 
 
# 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 loop seq 
# 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"
 
# 1855 "/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
 
 
# 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 loop seq 
# 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"
 
# 1865 "/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
 
                                rho_l = 0._wp; rho_r = 0._wp
                                gamma_l = 0._wp; gamma_r = 0._wp
                                pi_inf_l = 0._wp; pi_inf_r = 0._wp
 
 
# 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 loop seq 
# 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"
 
# 1876 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
                                do i = 1, num_fluids
                                    rho_l = rho_l + alpha_rho_l(i)
                                    gamma_l = gamma_l + alpha_l(i)*gammas(i)
                                    pi_inf_l = pi_inf_l + alpha_l(i)*pi_infs(i)
 
                                    rho_r = rho_r + alpha_rho_r(i)
                                    gamma_r = gamma_r + alpha_r(i)*gammas(i)
                                    pi_inf_r = pi_inf_r + alpha_r(i)*pi_infs(i)
                                end do
 
 
# 1887 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 1887 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc loop seq 
# 1887 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 1887 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 1887 "/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
 
# 1896 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 1896 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc loop seq 
# 1896 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 1896 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 1896 "/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
 
 
# 1902 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 1902 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 1902 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 1902 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 1902 "/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)
 
# 1905 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 1905 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 1905 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 1905 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 1905 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
                                    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)
 
 
# 1909 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 1909 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 1909 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 1909 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 1909 "/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)
 
# 1912 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 1912 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 1912 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 1912 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 1912 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
                                    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)
 
 
# 1916 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 1916 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 1916 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 1916 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 1916 "/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)
 
# 1919 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 1919 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 1919 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 1919 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 1919 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
                                    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)
 
 
# 1923 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 1923 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 1923 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 1923 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 1923 "/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)
 
# 1926 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 1926 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 1926 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 1926 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 1926 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
                                    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)
 
 
# 1930 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 1930 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 1930 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 1930 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 1930 "/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)
 
# 1933 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 1933 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 1933 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 1933 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 1933 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
                                    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)
 
 
# 1937 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 1937 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 1937 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 1937 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 1937 "/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)
 
# 1940 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 1940 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 1940 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 1940 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 1940 "/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)
 
 
# 1944 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 1944 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 1944 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 1944 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 1944 "/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)
 
# 1947 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 1947 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 1947 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 1947 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 1947 "/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)
 
 
# 1951 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 1951 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 1951 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 1951 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 1951 "/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)
 
# 1954 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 1954 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 1954 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 1954 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 1954 "/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)
 
 
# 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 atomic update
# 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"
!$omp atomic update
# 1958 "/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)
 
# 1961 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 1961 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 1961 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 1961 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 1961 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
                                    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)
 
 
# 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(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)
 
# 1968 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 1968 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 1968 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 1968 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 1968 "/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)
 
 
# 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 atomic update
# 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"
!$omp atomic update
# 1972 "/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)
 
# 1975 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 1975 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 1975 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 1975 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 1975 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
                                    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)
 
 
# 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_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)
 
# 1982 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 1982 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 1982 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 1982 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 1982 "/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
 
 
# 1990 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 1990 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc loop seq 
# 1990 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 1990 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 1990 "/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
 
 
# 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 loop seq 
# 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"
 
# 1996 "/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)
 
 
# 2005 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 2005 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc loop seq 
# 2005 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 2005 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 2005 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
                                do i = 1, num_fluids
 
# 2007 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 2007 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 2007 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 2007 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 2007 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
                                    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)
 
 
# 2012 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 2012 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 2012 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 2012 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 2012 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
                                    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
 
# 2019 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 2019 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc loop seq 
# 2019 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 2019 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 2019 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
                                    do i = 1, num_fluids - 1
 
# 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_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)
 
 
# 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_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)
 
 
# 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_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)
 
 
# 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 atomic update
# 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"
!$omp atomic update
# 2036 "/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
 
 
# 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(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)
 
 
# 2048 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 2048 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 2048 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 2048 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 2048 "/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)
 
 
# 2053 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 2053 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 2053 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 2053 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 2053 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
                                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)
 
 
# 2058 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 2058 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 2058 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 2058 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 2058 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
                                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)
 
 
# 2063 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 2063 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 2063 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 2063 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 2063 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
                                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)
 
 
# 2068 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 2068 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 2068 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 2068 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 2068 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
                                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)
 
 
# 2073 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 2073 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 2073 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 2073 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 2073 "/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)
 
 
# 2078 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 2078 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 2078 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 2078 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 2078 "/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)
 
 
# 2083 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 2083 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc loop seq 
# 2083 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 2083 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 2083 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
                                do i = 1, num_fluids
 
# 2085 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 2085 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 2085 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 2085 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 2085 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
                                    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)
 
 
# 2090 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 2090 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 2090 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 2090 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 2090 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
                                    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
 
# 2097 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 2097 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc loop seq 
# 2097 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 2097 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 2097 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
                                    do i = 1, num_fluids - 1
 
# 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_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)
 
 
# 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_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)
 
 
# 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_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)
 
 
# 2114 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 2114 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 2114 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 2114 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 2114 "/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
 
 
# 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 atomic update
# 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"
!$omp atomic update
# 2121 "/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)
 
 
# 2126 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 2126 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 2126 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 2126 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 2126 "/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)
 
 
# 2131 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 2131 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 2131 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 2131 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 2131 "/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)
 
 
# 2136 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 2136 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 2136 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 2136 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 2136 "/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)
 
 
# 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 atomic update
# 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"
!$omp atomic update
# 2141 "/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)
 
 
# 2146 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 2146 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 2146 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 2146 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 2146 "/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)
 
 
# 2151 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 2151 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 2151 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 2151 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 2151 "/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)
 
 
# 2156 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 2156 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 2156 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 2156 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 2156 "/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
 
# 2163 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 2163 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc end parallel loop
# 2163 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 2163 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 2163 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp end target teams loop
# 2163 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
# 2165 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
            end if
        else if (idir == 3) then
# 2168 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 2168 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 2168 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 2168 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc 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, 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, vflux_L_arr, vflux_R_arr) 
# 2168 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 2168 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 2168 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 2168 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 2168 "/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, rho_R, gamma_L, gamma_R, pi_inf_L, pi_inf_R, 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, vflux_L_arr, vflux_R_arr) 
# 2168 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
# 2171 "/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
 
# 2185 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 2185 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 2185 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc loop seq 
# 2185 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 2185 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 2185 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
                                do q = vidxb, vidxe
                                    ! x-direction contributions
 
# 2188 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 2188 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc loop seq 
# 2188 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 2188 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 2188 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
                                    do i = -1, 1
                                        rho_l = 0._wp
 
# 2191 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 2191 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc loop seq 
# 2191 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 2191 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 2191 "/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
 
# 2214 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 2214 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc loop seq 
# 2214 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 2214 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 2214 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
                                    do i = -1, 1
                                        rho_l = 0._wp
 
# 2217 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 2217 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc loop seq 
# 2217 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 2217 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 2217 "/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
 
# 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, 1
                                        rho_l = 0._wp
 
# 2244 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 2244 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc loop seq 
# 2244 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 2244 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 2244 "/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
 
 
# 2272 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 2272 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc loop seq 
# 2272 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 2272 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 2272 "/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
 
 
# 2280 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 2280 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc loop seq 
# 2280 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 2280 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 2280 "/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
 
 
# 2286 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 2286 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc loop seq 
# 2286 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 2286 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 2286 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
                            do q = vidxb + 1, vidxe
 
# 2288 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 2288 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc loop seq 
# 2288 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 2288 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 2288 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
                                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
 
# 2294 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 2294 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc loop seq 
# 2294 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 2294 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 2294 "/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
 
 
# 2302 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 2302 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc loop seq 
# 2302 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 2302 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 2302 "/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
 
 
# 2308 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 2308 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc loop seq 
# 2308 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 2308 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 2308 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
                            do q = vidxb, vidxe - 1
 
# 2310 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 2310 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc loop seq 
# 2310 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 2310 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 2310 "/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
 
# 2316 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 2316 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc loop seq 
# 2316 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 2316 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 2316 "/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
 
 
# 2324 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 2324 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc loop seq 
# 2324 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 2324 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 2324 "/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
 
 
# 2334 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 2334 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc loop seq 
# 2334 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 2334 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 2334 "/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
 
                            rho_l = 0._wp; rho_r = 0._wp
                            gamma_l = 0._wp; gamma_r = 0._wp
                            pi_inf_l = 0._wp; pi_inf_r = 0._wp
 
 
# 2345 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 2345 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc loop seq 
# 2345 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 2345 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 2345 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
                            do i = 1, num_fluids
                                rho_l = rho_l + alpha_rho_l(i)
                                gamma_l = gamma_l + alpha_l(i)*gammas(i)
                                pi_inf_l = pi_inf_l + alpha_l(i)*pi_infs(i)
 
                                rho_r = rho_r + alpha_rho_r(i)
                                gamma_r = gamma_r + alpha_r(i)*gammas(i)
                                pi_inf_r = pi_inf_r + alpha_r(i)*pi_infs(i)
                            end do
 
 
# 2356 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 2356 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc loop seq 
# 2356 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 2356 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 2356 "/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
 
# 2365 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 2365 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc loop seq 
# 2365 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 2365 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 2365 "/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
 
 
# 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_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)
 
# 2374 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 2374 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 2374 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 2374 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 2374 "/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)
 
 
# 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_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)
 
# 2381 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 2381 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 2381 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 2381 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 2381 "/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)
 
 
# 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_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)
 
# 2388 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 2388 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 2388 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 2388 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 2388 "/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)
 
 
# 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_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)
 
# 2395 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 2395 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 2395 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 2395 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 2395 "/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)
 
 
# 2399 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 2399 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 2399 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 2399 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 2399 "/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)
 
# 2402 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 2402 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 2402 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 2402 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 2402 "/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)
 
 
# 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 atomic update
# 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"
!$omp atomic update
# 2406 "/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)
 
# 2409 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 2409 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 2409 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 2409 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 2409 "/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)
 
 
# 2413 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 2413 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 2413 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 2413 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 2413 "/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)
 
# 2416 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 2416 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 2416 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 2416 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 2416 "/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)
 
 
# 2420 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 2420 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 2420 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 2420 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 2420 "/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)
 
# 2423 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 2423 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 2423 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 2423 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 2423 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
                                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)
 
 
# 2427 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 2427 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 2427 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 2427 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 2427 "/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)
 
# 2430 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 2430 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 2430 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 2430 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 2430 "/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)
 
 
# 2434 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 2434 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 2434 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 2434 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 2434 "/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)
 
# 2437 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 2437 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 2437 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 2437 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 2437 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
                                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)
 
 
# 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_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)
 
# 2444 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 2444 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 2444 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 2444 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 2444 "/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)
 
 
# 2448 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 2448 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 2448 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 2448 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 2448 "/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)
 
# 2451 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 2451 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 2451 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 2451 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 2451 "/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
 
 
# 2459 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 2459 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc loop seq 
# 2459 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 2459 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 2459 "/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
 
 
# 2465 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 2465 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc loop seq 
# 2465 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 2465 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 2465 "/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)
 
 
# 2474 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 2474 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc loop seq 
# 2474 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 2474 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 2474 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
                            do i = 1, num_fluids
 
# 2476 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 2476 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 2476 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 2476 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 2476 "/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)
 
 
# 2481 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 2481 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 2481 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 2481 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 2481 "/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
 
# 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 loop seq 
# 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"
 
# 2488 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
                                do i = 1, num_fluids - 1
 
# 2490 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 2490 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 2490 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 2490 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 2490 "/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)
 
 
# 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(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)
 
 
# 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(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)
 
 
# 2505 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 2505 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 2505 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 2505 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 2505 "/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
 
 
# 2512 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 2512 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 2512 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 2512 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 2512 "/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)
 
 
# 2517 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 2517 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 2517 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 2517 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 2517 "/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)
 
 
# 2522 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 2522 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 2522 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 2522 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 2522 "/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)
 
 
# 2527 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 2527 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 2527 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 2527 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 2527 "/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)
 
 
# 2532 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 2532 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 2532 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 2532 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 2532 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
                            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)
 
 
# 2537 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 2537 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 2537 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 2537 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 2537 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
                            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)
 
 
# 2542 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 2542 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 2542 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 2542 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 2542 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
                            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)
 
 
# 2547 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 2547 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 2547 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 2547 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 2547 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
                            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)
 
 
# 2552 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 2552 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc loop seq 
# 2552 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 2552 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 2552 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
                            do i = 1, num_fluids
 
# 2554 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 2554 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 2554 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 2554 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 2554 "/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)
 
 
# 2559 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 2559 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 2559 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 2559 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 2559 "/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
 
# 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 loop seq 
# 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"
 
# 2566 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
                                do i = 1, num_fluids - 1
 
# 2568 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 2568 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 2568 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 2568 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 2568 "/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)
 
 
# 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 atomic update
# 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"
!$omp atomic update
# 2573 "/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)
 
 
# 2578 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 2578 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 2578 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 2578 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 2578 "/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)
 
 
# 2583 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 2583 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 2583 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 2583 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 2583 "/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
 
 
# 2590 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 2590 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 2590 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 2590 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 2590 "/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)
 
 
# 2595 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 2595 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 2595 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 2595 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 2595 "/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)
 
 
# 2600 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 2600 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 2600 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 2600 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 2600 "/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)
 
 
# 2605 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 2605 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 2605 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 2605 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 2605 "/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)
 
 
# 2610 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 2610 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 2610 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 2610 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 2610 "/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)
 
 
# 2615 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 2615 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 2615 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 2615 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 2615 "/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)
 
 
# 2620 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 2620 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 2620 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 2620 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 2620 "/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)
 
 
# 2625 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 2625 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 2625 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 2625 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 2625 "/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
 
# 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 end parallel loop
# 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"
!$omp end target teams loop
# 2632 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
# 2634 "/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)
 
 
# 2641 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if MFC_OpenACC
# 2641 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc routine seq 
# 2641 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif MFC_OpenMP
# 2641 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 2641 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 2641 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp declare target device_type(any) 
# 2641 "/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 = (e_l - pi_inf_l - 0.5_wp*rho_l*(vel_l(1)**2._wp + vel_l(2)**2._wp))/gamma_l
            pres_r = (e_r - pi_inf_r - 0.5_wp*rho_r*(vel_r(1)**2._wp + vel_r(2)**2._wp))/gamma_r
 
            if (igr_pres_lim) then
                pres_l = max(pres_l, 0._wp)
                pres_r = max(pres_r, 0._wp)
            end if
 
            a_l = sqrt((pres_l*(1._wp/gamma_l + 1._wp) + pi_inf_l/gamma_l)/rho_l)
            a_r = sqrt((pres_r*(1._wp/gamma_r + 1._wp) + pi_inf_r/gamma_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
# 2664 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
                pres_l = (e_l - pi_inf_l - 0.5_wp*rho_l*(vel_l(1)**2._wp + vel_l(2)**2._wp + vel_l(3)**2._wp))/gamma_l
                pres_r = (e_r - pi_inf_r - 0.5_wp*rho_r*(vel_r(1)**2._wp + vel_r(2)**2._wp + vel_r(3)**2._wp))/gamma_r
 
                if (igr_pres_lim) then
                    pres_l = max(pres_l, 0._wp)
                    pres_r = max(pres_r, 0._wp)
                end if
 
                a_l = sqrt((pres_l*(1._wp/gamma_l + 1._wp) + pi_inf_l/gamma_l)/rho_l)
                a_r = sqrt((pres_r*(1._wp/gamma_r + 1._wp) + pi_inf_r/gamma_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)
# 2678 "/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
 
# 2689 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 2689 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 2689 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc parallel loop collapse(4) gang vector default(present) private(i, j, k, l) 
# 2689 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 2689 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 2689 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 2689 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 2689 "/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) 
# 2689 "/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
 
# 2699 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 2699 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc end parallel loop
# 2699 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 2699 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 2699 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp end target teams loop
# 2699 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
        else if (idir == 2) then
 
# 2701 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 2701 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 2701 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc parallel loop collapse(4) gang vector default(present) private(i, j, k, l) 
# 2701 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 2701 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 2701 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 2701 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 2701 "/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) 
# 2701 "/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
 
# 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 end parallel loop
# 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"
 
# 2712 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp end target teams loop
# 2712 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
        else if (idir == 3) then
 
# 2714 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 2714 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 2714 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc parallel loop collapse(4) gang vector default(present) private(i, j, k, l) 
# 2714 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 2714 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 2714 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 2714 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 2714 "/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) 
# 2714 "/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
 
# 2725 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 2725 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc end parallel loop
# 2725 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 2725 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 2725 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp end target teams loop
# 2725 "/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
# 2734 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
    block
# 2734 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
        use iso_fortran_env, only: output_unit
# 2734 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 2734 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
        print *, 'm_igr.fpp:2734: ', '@:DEALLOCATE(Res_igr)'
# 2734 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 2734 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
        call flush (output_unit)
# 2734 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
    end block
# 2734 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
# 2734 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 2734 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 2734 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc exit data delete(Res_igr) 
# 2734 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 2734 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp target exit data map(release:Res_igr) 
# 2734 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
# 2734 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
    deallocate (res_igr)
        end if
 
#ifndef __NVCOMPILER_GPU_UNIFIED_MEM
#ifdef MFC_DEBUG
# 2738 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
    block
# 2738 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
        use iso_fortran_env, only: output_unit
# 2738 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 2738 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
        print *, 'm_igr.fpp:2738: ', '@:DEALLOCATE(jac, jac_rhs)'
# 2738 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 2738 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
        call flush (output_unit)
# 2738 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
    end block
# 2738 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
# 2738 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 2738 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 2738 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc exit data delete(jac, jac_rhs) 
# 2738 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 2738 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp target exit data map(release:jac, jac_rhs) 
# 2738 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
# 2738 "/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
# 2741 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
    block
# 2741 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
        use iso_fortran_env, only: output_unit
# 2741 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 2741 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
        print *, 'm_igr.fpp:2741: ', '@:DEALLOCATE(jac_old)'
# 2741 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 2741 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
        call flush (output_unit)
# 2741 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
    end block
# 2741 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
# 2741 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 2741 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 2741 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc exit data delete(jac_old) 
# 2741 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 2741 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp target exit data map(release:jac_old) 
# 2741 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
# 2741 "/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
# 2745 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
    block
# 2745 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
        use iso_fortran_env, only: output_unit
# 2745 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 2745 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
        print *, 'm_igr.fpp:2745: ', '@:DEALLOCATE(jac)'
# 2745 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 2745 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
        call flush (output_unit)
# 2745 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
    end block
# 2745 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
# 2745 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 2745 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 2745 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc exit data delete(jac) 
# 2745 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 2745 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp target exit data map(release:jac) 
# 2745 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
# 2745 "/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
# 2752 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
    block
# 2752 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
        use iso_fortran_env, only: output_unit
# 2752 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 2752 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
        print *, 'm_igr.fpp:2752: ', '@:DEALLOCATE(jac_rhs)'
# 2752 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 2752 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
        call flush (output_unit)
# 2752 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
    end block
# 2752 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
# 2752 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 2752 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 2752 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc exit data delete(jac_rhs) 
# 2752 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 2752 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp target exit data map(release:jac_rhs) 
# 2752 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
# 2752 "/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
# 2760 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
    block
# 2760 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
        use iso_fortran_env, only: output_unit
# 2760 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 2760 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
        print *, 'm_igr.fpp:2760: ', '@:DEALLOCATE(jac_old)'
# 2760 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 2760 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
        call flush (output_unit)
# 2760 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
    end block
# 2760 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
# 2760 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 2760 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 2760 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc exit data delete(jac_old) 
# 2760 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 2760 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp target exit data map(release:jac_old) 
# 2760 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
# 2760 "/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
 
# 2769 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#ifdef MFC_DEBUG
# 2769 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
    block
# 2769 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
        use iso_fortran_env, only: output_unit
# 2769 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 2769 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
        print *, 'm_igr.fpp:2769: ', '@:DEALLOCATE(coeff_L, coeff_R)'
# 2769 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 2769 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
        call flush (output_unit)
# 2769 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
    end block
# 2769 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
# 2769 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 2769 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 2769 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc exit data delete(coeff_L, coeff_R) 
# 2769 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 2769 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp target exit data map(release:coeff_L, coeff_R) 
# 2769 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
# 2769 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
    deallocate (coeff_l, coeff_r)
# 2771 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
    end subroutine s_finalize_igr_module
 
end module m_igr