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"
 
# 207 "/home/runner/work/MFC/MFC/src/common/include/omp_macros.fpp"
 
# 232 "/home/runner/work/MFC/MFC/src/common/include/omp_macros.fpp"
 
# 243 "/home/runner/work/MFC/MFC/src/common/include/omp_macros.fpp"
 
# 245 "/home/runner/work/MFC/MFC/src/common/include/omp_macros.fpp"
# 255 "/home/runner/work/MFC/MFC/src/common/include/omp_macros.fpp"
 
# 283 "/home/runner/work/MFC/MFC/src/common/include/omp_macros.fpp"
 
# 293 "/home/runner/work/MFC/MFC/src/common/include/omp_macros.fpp"
 
# 303 "/home/runner/work/MFC/MFC/src/common/include/omp_macros.fpp"
 
# 312 "/home/runner/work/MFC/MFC/src/common/include/omp_macros.fpp"
 
# 329 "/home/runner/work/MFC/MFC/src/common/include/omp_macros.fpp"
 
# 339 "/home/runner/work/MFC/MFC/src/common/include/omp_macros.fpp"
 
# 346 "/home/runner/work/MFC/MFC/src/common/include/omp_macros.fpp"
 
# 352 "/home/runner/work/MFC/MFC/src/common/include/omp_macros.fpp"
 
# 358 "/home/runner/work/MFC/MFC/src/common/include/omp_macros.fpp"
 
# 364 "/home/runner/work/MFC/MFC/src/common/include/omp_macros.fpp"
 
# 370 "/home/runner/work/MFC/MFC/src/common/include/omp_macros.fpp"
 
# 376 "/home/runner/work/MFC/MFC/src/common/include/omp_macros.fpp"
! New line at end of file is required for FYPP
# 3 "/home/runner/work/MFC/MFC/src/common/include/parallel_macros.fpp" 2
# 1 "/home/runner/work/MFC/MFC/src/common/include/acc_macros.fpp" 1
# 1 "/home/runner/work/MFC/MFC/src/common/include/shared_parallel_macros.fpp" 1
# 2 "/home/runner/work/MFC/MFC/src/common/include/shared_parallel_macros.fpp"
# 3 "/home/runner/work/MFC/MFC/src/common/include/shared_parallel_macros.fpp"
# 4 "/home/runner/work/MFC/MFC/src/common/include/shared_parallel_macros.fpp"
# 5 "/home/runner/work/MFC/MFC/src/common/include/shared_parallel_macros.fpp"
# 6 "/home/runner/work/MFC/MFC/src/common/include/shared_parallel_macros.fpp"
 
# 8 "/home/runner/work/MFC/MFC/src/common/include/shared_parallel_macros.fpp"
# 9 "/home/runner/work/MFC/MFC/src/common/include/shared_parallel_macros.fpp"
# 10 "/home/runner/work/MFC/MFC/src/common/include/shared_parallel_macros.fpp"
 
# 17 "/home/runner/work/MFC/MFC/src/common/include/shared_parallel_macros.fpp"
 
# 46 "/home/runner/work/MFC/MFC/src/common/include/shared_parallel_macros.fpp"
 
# 58 "/home/runner/work/MFC/MFC/src/common/include/shared_parallel_macros.fpp"
 
# 68 "/home/runner/work/MFC/MFC/src/common/include/shared_parallel_macros.fpp"
 
# 98 "/home/runner/work/MFC/MFC/src/common/include/shared_parallel_macros.fpp"
 
# 110 "/home/runner/work/MFC/MFC/src/common/include/shared_parallel_macros.fpp"
 
# 120 "/home/runner/work/MFC/MFC/src/common/include/shared_parallel_macros.fpp"
! New line at end of file is required for FYPP
# 2 "/home/runner/work/MFC/MFC/src/common/include/acc_macros.fpp" 2
 
# 7 "/home/runner/work/MFC/MFC/src/common/include/acc_macros.fpp"
 
# 17 "/home/runner/work/MFC/MFC/src/common/include/acc_macros.fpp"
 
# 22 "/home/runner/work/MFC/MFC/src/common/include/acc_macros.fpp"
 
# 27 "/home/runner/work/MFC/MFC/src/common/include/acc_macros.fpp"
 
# 32 "/home/runner/work/MFC/MFC/src/common/include/acc_macros.fpp"
 
# 37 "/home/runner/work/MFC/MFC/src/common/include/acc_macros.fpp"
 
# 42 "/home/runner/work/MFC/MFC/src/common/include/acc_macros.fpp"
 
# 47 "/home/runner/work/MFC/MFC/src/common/include/acc_macros.fpp"
 
# 52 "/home/runner/work/MFC/MFC/src/common/include/acc_macros.fpp"
 
# 57 "/home/runner/work/MFC/MFC/src/common/include/acc_macros.fpp"
 
# 62 "/home/runner/work/MFC/MFC/src/common/include/acc_macros.fpp"
 
# 73 "/home/runner/work/MFC/MFC/src/common/include/acc_macros.fpp"
 
# 78 "/home/runner/work/MFC/MFC/src/common/include/acc_macros.fpp"
 
# 83 "/home/runner/work/MFC/MFC/src/common/include/acc_macros.fpp"
 
# 88 "/home/runner/work/MFC/MFC/src/common/include/acc_macros.fpp"
 
# 103 "/home/runner/work/MFC/MFC/src/common/include/acc_macros.fpp"
 
# 131 "/home/runner/work/MFC/MFC/src/common/include/acc_macros.fpp"
 
# 160 "/home/runner/work/MFC/MFC/src/common/include/acc_macros.fpp"
 
# 175 "/home/runner/work/MFC/MFC/src/common/include/acc_macros.fpp"
 
# 192 "/home/runner/work/MFC/MFC/src/common/include/acc_macros.fpp"
 
# 213 "/home/runner/work/MFC/MFC/src/common/include/acc_macros.fpp"
 
# 241 "/home/runner/work/MFC/MFC/src/common/include/acc_macros.fpp"
 
# 256 "/home/runner/work/MFC/MFC/src/common/include/acc_macros.fpp"
 
# 266 "/home/runner/work/MFC/MFC/src/common/include/acc_macros.fpp"
 
# 275 "/home/runner/work/MFC/MFC/src/common/include/acc_macros.fpp"
 
# 291 "/home/runner/work/MFC/MFC/src/common/include/acc_macros.fpp"
 
# 301 "/home/runner/work/MFC/MFC/src/common/include/acc_macros.fpp"
 
# 308 "/home/runner/work/MFC/MFC/src/common/include/acc_macros.fpp"
! New line at end of file is required for FYPP
# 4 "/home/runner/work/MFC/MFC/src/common/include/parallel_macros.fpp" 2
 
# 21 "/home/runner/work/MFC/MFC/src/common/include/parallel_macros.fpp"
 
# 37 "/home/runner/work/MFC/MFC/src/common/include/parallel_macros.fpp"
 
# 50 "/home/runner/work/MFC/MFC/src/common/include/parallel_macros.fpp"
 
# 76 "/home/runner/work/MFC/MFC/src/common/include/parallel_macros.fpp"
 
# 91 "/home/runner/work/MFC/MFC/src/common/include/parallel_macros.fpp"
 
# 102 "/home/runner/work/MFC/MFC/src/common/include/parallel_macros.fpp"
 
# 115 "/home/runner/work/MFC/MFC/src/common/include/parallel_macros.fpp"
 
# 143 "/home/runner/work/MFC/MFC/src/common/include/parallel_macros.fpp"
 
# 154 "/home/runner/work/MFC/MFC/src/common/include/parallel_macros.fpp"
 
# 165 "/home/runner/work/MFC/MFC/src/common/include/parallel_macros.fpp"
 
# 176 "/home/runner/work/MFC/MFC/src/common/include/parallel_macros.fpp"
 
# 187 "/home/runner/work/MFC/MFC/src/common/include/parallel_macros.fpp"
 
# 198 "/home/runner/work/MFC/MFC/src/common/include/parallel_macros.fpp"
 
# 208 "/home/runner/work/MFC/MFC/src/common/include/parallel_macros.fpp"
 
# 214 "/home/runner/work/MFC/MFC/src/common/include/parallel_macros.fpp"
 
# 220 "/home/runner/work/MFC/MFC/src/common/include/parallel_macros.fpp"
 
# 226 "/home/runner/work/MFC/MFC/src/common/include/parallel_macros.fpp"
 
# 232 "/home/runner/work/MFC/MFC/src/common/include/parallel_macros.fpp"
 
# 234 "/home/runner/work/MFC/MFC/src/common/include/parallel_macros.fpp"
# 235 "/home/runner/work/MFC/MFC/src/common/include/parallel_macros.fpp"
! New line at end of file is required for FYPP
# 2 "/home/runner/work/MFC/MFC/src/common/include/macros.fpp" 2
 
# 14 "/home/runner/work/MFC/MFC/src/common/include/macros.fpp"
 
! Caution:
! This macro requires the use of a binding script to set CUDA_VISIBLE_DEVICES, such that we have one GPU device per MPI rank.
! That's because for both cudaMemAdvise (preferred location) and cudaMemPrefetchAsync we use location = device_id = 0.
! For an example see misc/nvidia_uvm/bind.sh.
# 63 "/home/runner/work/MFC/MFC/src/common/include/macros.fpp"
 
# 81 "/home/runner/work/MFC/MFC/src/common/include/macros.fpp"
 
# 88 "/home/runner/work/MFC/MFC/src/common/include/macros.fpp"
 
# 111 "/home/runner/work/MFC/MFC/src/common/include/macros.fpp"
 
# 127 "/home/runner/work/MFC/MFC/src/common/include/macros.fpp"
 
# 153 "/home/runner/work/MFC/MFC/src/common/include/macros.fpp"
 
# 159 "/home/runner/work/MFC/MFC/src/common/include/macros.fpp"
 
# 167 "/home/runner/work/MFC/MFC/src/common/include/macros.fpp"
! New line at end of file is required for FYPP
# 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        !< definitions of the 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
 
# 43 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 43 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc declare create(jac, jac_rhs, jac_old) 
# 43 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 43 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp declare target (jac, jac_rhs, jac_old) 
# 43 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
!> @cond
#endif
!> @endcond
    type(scalar_field), dimension(1) :: jac_sf
 
# 48 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 48 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc declare create(jac_sf) 
# 48 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 48 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp declare target (jac_sf) 
# 48 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
 
    real(wp), allocatable, dimension(:, :) :: res_igr
 
# 51 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 51 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc declare create(Res_igr) 
# 51 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 51 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp declare target (Res_igr) 
# 51 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
 
    real(wp) :: alf_igr
 
# 54 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 54 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc declare create(alf_igr) 
# 54 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 54 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp declare target (alf_igr) 
# 54 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
 
# 57 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
        integer :: vidxb, vidxe
 
# 58 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 58 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc declare create(vidxb, vidxe) 
# 58 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 58 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp declare target (vidxb, vidxe) 
# 58 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
 
        real(wp), allocatable, dimension(:) :: coeff_l, coeff_r
 
# 61 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 61 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc declare create(coeff_L, coeff_R) 
# 61 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 61 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp declare target (coeff_L, coeff_R) 
# 61 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
# 133 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
    integer(kind=8) :: i, j, k, l, q, r
 
contains
 
    !> @brief Allocates and initializes arrays, coefficients, and GPU data structures for the implicit gradient reconstruction module.
    subroutine s_initialize_igr_module()
 
        if (viscous) then
#ifdef MFC_DEBUG
# 142 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
    block
# 142 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
        use iso_fortran_env, only: output_unit
# 142 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 142 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
        print *, 'm_igr.fpp:142: ', '@:ALLOCATE(Res_igr(1:2, 1:maxval(Re_size)))'
# 142 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 142 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
        call flush (output_unit)
# 142 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
    end block
# 142 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
# 142 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
    allocate (res_igr(1:2, 1:maxval(re_size)))
# 142 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 142 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 142 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 142 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc enter data create(Res_igr) 
# 142 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 142 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp target enter data map(always,alloc:Res_igr) 
# 142 "/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
 
# 148 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 148 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc update device(Res_igr, Re_idx, Re_size) 
# 148 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 148 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp target update to(Res_igr, Re_idx, Re_size) 
# 148 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
#ifdef MFC_SIMULATION
# 149 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#ifdef __NVCOMPILER_GPU_UNIFIED_MEM
# 149 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
    block
# 149 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
! Beginning in the 25.3 release, the structure of the cudafor module has been changed slightly.
# 149 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
! The module now includes, or “uses” 3 submodules: cuda_runtime_api, gpu_reductions, and sort.
# 149 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
! The cudafor functionality has not changed. But for new users, or users who have needed to
# 149 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
! work-around name conflicts in the module, it may be better to use cuda_runtime_api to expose
# 149 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
! interfaces to the CUDA runtime calls described in Chapter 4 of this guide.
# 149 "/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
# 149 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if __NVCOMPILER_MAJOR__ < 25 || (__NVCOMPILER_MAJOR__ == 25 && __NVCOMPILER_MINOR__ < 3)
# 149 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
        use cudafor, gpu_sum => sum, gpu_maxval => maxval, gpu_minval => minval
# 149 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#else
# 149 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
        use cuda_runtime_api
# 149 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
# 149 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
        integer :: istat
# 149 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 149 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
        if (nv_uvm_pref_gpu) then
# 149 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
                !print*, "Moving Res_igr to GPU => ", SHAPE(Res_igr)
# 149 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
                ! set preferred location GPU
# 149 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
                istat = cudamemadvise(c_devloc(res_igr), sizeof(res_igr), cudamemadvisesetpreferredlocation, 0)
# 149 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
                if (istat /= cudasuccess) then
# 149 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
                    write (*, "('Error code: ',I0, ': ')") istat
# 149 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
                    !write(*,*) cudaGetErrorString(istat)
# 149 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
                end if
# 149 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
                ! set accessed by CPU
# 149 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
                istat = cudamemadvise(c_devloc(res_igr), sizeof(res_igr), cudamemadvisesetaccessedby, cudacpudeviceid)
# 149 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
                if (istat /= cudasuccess) then
# 149 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
                    write (*, "('Error code: ',I0, ': ')") istat
# 149 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
                    !write(*,*) cudaGetErrorString(istat)
# 149 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
                end if
# 149 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
                ! prefetch to GPU - physically populate memory pages
# 149 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
                istat = cudamemprefetchasync(c_devloc(res_igr), sizeof(res_igr), 0, 0)
# 149 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
                if (istat /= cudasuccess) then
# 149 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
                    write (*, "('Error code: ',I0, ': ')") istat
# 149 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
                    !write(*,*) cudaGetErrorString(istat)
# 149 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
                end if
# 149 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
        end if
# 149 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
    end block
# 149 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
# 149 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
#ifdef MFC_SIMULATION
# 150 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#ifdef __NVCOMPILER_GPU_UNIFIED_MEM
# 150 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
    block
# 150 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
! Beginning in the 25.3 release, the structure of the cudafor module has been changed slightly.
# 150 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
! The module now includes, or “uses” 3 submodules: cuda_runtime_api, gpu_reductions, and sort.
# 150 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
! The cudafor functionality has not changed. But for new users, or users who have needed to
# 150 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
! work-around name conflicts in the module, it may be better to use cuda_runtime_api to expose
# 150 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
! interfaces to the CUDA runtime calls described in Chapter 4 of this guide.
# 150 "/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
# 150 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if __NVCOMPILER_MAJOR__ < 25 || (__NVCOMPILER_MAJOR__ == 25 && __NVCOMPILER_MINOR__ < 3)
# 150 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
        use cudafor, gpu_sum => sum, gpu_maxval => maxval, gpu_minval => minval
# 150 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#else
# 150 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
        use cuda_runtime_api
# 150 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
# 150 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
        integer :: istat
# 150 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 150 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
        if (nv_uvm_pref_gpu) then
# 150 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
                !print*, "Moving Re_idx to GPU => ", SHAPE(Re_idx)
# 150 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
                ! set preferred location GPU
# 150 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
                istat = cudamemadvise(c_devloc(re_idx), sizeof(re_idx), cudamemadvisesetpreferredlocation, 0)
# 150 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
                if (istat /= cudasuccess) then
# 150 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
                    write (*, "('Error code: ',I0, ': ')") istat
# 150 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
                    !write(*,*) cudaGetErrorString(istat)
# 150 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
                end if
# 150 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
                ! set accessed by CPU
# 150 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
                istat = cudamemadvise(c_devloc(re_idx), sizeof(re_idx), cudamemadvisesetaccessedby, cudacpudeviceid)
# 150 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
                if (istat /= cudasuccess) then
# 150 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
                    write (*, "('Error code: ',I0, ': ')") istat
# 150 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
                    !write(*,*) cudaGetErrorString(istat)
# 150 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
                end if
# 150 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
                ! prefetch to GPU - physically populate memory pages
# 150 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
                istat = cudamemprefetchasync(c_devloc(re_idx), sizeof(re_idx), 0, 0)
# 150 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
                if (istat /= cudasuccess) then
# 150 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
                    write (*, "('Error code: ',I0, ': ')") istat
# 150 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
                    !write(*,*) cudaGetErrorString(istat)
# 150 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
                end if
# 150 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
        end if
# 150 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
    end block
# 150 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
# 150 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
        end if
 
#ifndef __NVCOMPILER_GPU_UNIFIED_MEM
#ifdef MFC_DEBUG
# 154 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
    block
# 154 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
        use iso_fortran_env, only: output_unit
# 154 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 154 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
        print *, 'm_igr.fpp:154: ', '@:ALLOCATE(jac(idwbuff(1)%beg:idwbuff(1)%end, idwbuff(2)%beg:idwbuff(2)%end, idwbuff(3)%beg:idwbuff(3)%end))'
# 154 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 154 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
        call flush (output_unit)
# 154 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
    end block
# 154 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
# 154 "/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))
# 154 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 154 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 154 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 154 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc enter data create(jac) 
# 154 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 154 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp target enter data map(always,alloc:jac) 
# 154 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
# 157 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#ifdef MFC_DEBUG
# 157 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
    block
# 157 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
        use iso_fortran_env, only: output_unit
# 157 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 157 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
        print *, 'm_igr.fpp:157: ', '@:ALLOCATE(jac_rhs(-1:m,-1:n,-1:p))'
# 157 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 157 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
        call flush (output_unit)
# 157 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
    end block
# 157 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
# 157 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
    allocate (jac_rhs(-1:m,-1:n,-1:p))
# 157 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 157 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 157 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 157 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc enter data create(jac_rhs) 
# 157 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 157 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp target enter data map(always,alloc:jac_rhs) 
# 157 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
 
        if (igr_iter_solver == 1) then ! Jacobi iteration
#ifdef MFC_DEBUG
# 160 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
    block
# 160 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
        use iso_fortran_env, only: output_unit
# 160 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 160 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
        print *, 'm_igr.fpp:160: ', '@:ALLOCATE(jac_old(idwbuff(1)%beg:idwbuff(1)%end, idwbuff(2)%beg:idwbuff(2)%end, idwbuff(3)%beg:idwbuff(3)%end))'
# 160 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 160 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
        call flush (output_unit)
# 160 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
    end block
# 160 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
# 160 "/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))
# 160 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 160 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 160 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 160 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc enter data create(jac_old) 
# 160 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 160 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp target enter data map(always,alloc:jac_old) 
# 160 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
# 163 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
        end if
#else
        ! create map
        nv_uvm_temp_on_gpu(1:3) = 0
        nv_uvm_temp_on_gpu(1:nv_uvm_igr_temps_on_gpu) = 1
 
        if (nv_uvm_temp_on_gpu(1) == 1) then
#ifdef MFC_DEBUG
# 170 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
    block
# 170 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
        use iso_fortran_env, only: output_unit
# 170 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 170 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
        print *, 'm_igr.fpp:170: ', '@:ALLOCATE(jac(idwbuff(1)%beg:idwbuff(1)%end, idwbuff(2)%beg:idwbuff(2)%end, idwbuff(3)%beg:idwbuff(3)%end))'
# 170 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 170 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
        call flush (output_unit)
# 170 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
    end block
# 170 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
# 170 "/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))
# 170 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 170 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 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 enter data create(jac) 
# 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 enter data map(always,alloc:jac) 
# 170 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
# 173 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#ifdef MFC_SIMULATION
# 173 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#ifdef __NVCOMPILER_GPU_UNIFIED_MEM
# 173 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
    block
# 173 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
! Beginning in the 25.3 release, the structure of the cudafor module has been changed slightly.
# 173 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
! The module now includes, or “uses” 3 submodules: cuda_runtime_api, gpu_reductions, and sort.
# 173 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
! The cudafor functionality has not changed. But for new users, or users who have needed to
# 173 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
! work-around name conflicts in the module, it may be better to use cuda_runtime_api to expose
# 173 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
! interfaces to the CUDA runtime calls described in Chapter 4 of this guide.
# 173 "/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
# 173 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if __NVCOMPILER_MAJOR__ < 25 || (__NVCOMPILER_MAJOR__ == 25 && __NVCOMPILER_MINOR__ < 3)
# 173 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
        use cudafor, gpu_sum => sum, gpu_maxval => maxval, gpu_minval => minval
# 173 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#else
# 173 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
        use cuda_runtime_api
# 173 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
# 173 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
        integer :: istat
# 173 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 173 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
        if (nv_uvm_pref_gpu) then
# 173 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
                !print*, "Moving jac to GPU => ", SHAPE(jac)
# 173 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
                ! set preferred location GPU
# 173 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
                istat = cudamemadvise(c_devloc(jac), sizeof(jac), cudamemadvisesetpreferredlocation, 0)
# 173 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
                if (istat /= cudasuccess) then
# 173 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
                    write (*, "('Error code: ',I0, ': ')") istat
# 173 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
                    !write(*,*) cudaGetErrorString(istat)
# 173 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
                end if
# 173 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
                ! set accessed by CPU
# 173 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
                istat = cudamemadvise(c_devloc(jac), sizeof(jac), cudamemadvisesetaccessedby, cudacpudeviceid)
# 173 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
                if (istat /= cudasuccess) then
# 173 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
                    write (*, "('Error code: ',I0, ': ')") istat
# 173 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
                    !write(*,*) cudaGetErrorString(istat)
# 173 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
                end if
# 173 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
                ! prefetch to GPU - physically populate memory pages
# 173 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
                istat = cudamemprefetchasync(c_devloc(jac), sizeof(jac), 0, 0)
# 173 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
                if (istat /= cudasuccess) then
# 173 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
                    write (*, "('Error code: ',I0, ': ')") istat
# 173 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
                    !write(*,*) cudaGetErrorString(istat)
# 173 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
                end if
# 173 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
        end if
# 173 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
    end block
# 173 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
# 173 "/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
# 185 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
    block
# 185 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
        use iso_fortran_env, only: output_unit
# 185 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 185 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
        print *, 'm_igr.fpp:185: ', '@:ALLOCATE(jac_rhs(-1:m,-1:n,-1:p))'
# 185 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 185 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
        call flush (output_unit)
# 185 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
    end block
# 185 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
# 185 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
    allocate (jac_rhs(-1:m,-1:n,-1:p))
# 185 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 185 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 185 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 185 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc enter data create(jac_rhs) 
# 185 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 185 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp target enter data map(always,alloc:jac_rhs) 
# 185 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
#ifdef MFC_SIMULATION
# 186 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#ifdef __NVCOMPILER_GPU_UNIFIED_MEM
# 186 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
    block
# 186 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
! Beginning in the 25.3 release, the structure of the cudafor module has been changed slightly.
# 186 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
! The module now includes, or “uses” 3 submodules: cuda_runtime_api, gpu_reductions, and sort.
# 186 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
! The cudafor functionality has not changed. But for new users, or users who have needed to
# 186 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
! work-around name conflicts in the module, it may be better to use cuda_runtime_api to expose
# 186 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
! interfaces to the CUDA runtime calls described in Chapter 4 of this guide.
# 186 "/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
# 186 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if __NVCOMPILER_MAJOR__ < 25 || (__NVCOMPILER_MAJOR__ == 25 && __NVCOMPILER_MINOR__ < 3)
# 186 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
        use cudafor, gpu_sum => sum, gpu_maxval => maxval, gpu_minval => minval
# 186 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#else
# 186 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
        use cuda_runtime_api
# 186 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
# 186 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
        integer :: istat
# 186 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 186 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
        if (nv_uvm_pref_gpu) then
# 186 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
                !print*, "Moving jac_rhs to GPU => ", SHAPE(jac_rhs)
# 186 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
                ! set preferred location GPU
# 186 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
                istat = cudamemadvise(c_devloc(jac_rhs), sizeof(jac_rhs), cudamemadvisesetpreferredlocation, 0)
# 186 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
                if (istat /= cudasuccess) then
# 186 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
                    write (*, "('Error code: ',I0, ': ')") istat
# 186 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
                    !write(*,*) cudaGetErrorString(istat)
# 186 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
                end if
# 186 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
                ! set accessed by CPU
# 186 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
                istat = cudamemadvise(c_devloc(jac_rhs), sizeof(jac_rhs), cudamemadvisesetaccessedby, cudacpudeviceid)
# 186 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
                if (istat /= cudasuccess) then
# 186 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
                    write (*, "('Error code: ',I0, ': ')") istat
# 186 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
                    !write(*,*) cudaGetErrorString(istat)
# 186 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
                end if
# 186 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
                ! prefetch to GPU - physically populate memory pages
# 186 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
                istat = cudamemprefetchasync(c_devloc(jac_rhs), sizeof(jac_rhs), 0, 0)
# 186 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
                if (istat /= cudasuccess) then
# 186 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
                    write (*, "('Error code: ',I0, ': ')") istat
# 186 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
                    !write(*,*) cudaGetErrorString(istat)
# 186 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
                end if
# 186 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
        end if
# 186 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
    end block
# 186 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
# 186 "/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
# 194 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
    block
# 194 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
        use iso_fortran_env, only: output_unit
# 194 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 194 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
        print *, 'm_igr.fpp:194: ', '@:ALLOCATE(jac_old(idwbuff(1)%beg:idwbuff(1)%end, idwbuff(2)%beg:idwbuff(2)%end, idwbuff(3)%beg:idwbuff(3)%end))'
# 194 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 194 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
        call flush (output_unit)
# 194 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
    end block
# 194 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
# 194 "/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))
# 194 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 194 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 194 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 194 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc enter data create(jac_old) 
# 194 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 194 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp target enter data map(always,alloc:jac_old) 
# 194 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
# 197 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#ifdef MFC_SIMULATION
# 197 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#ifdef __NVCOMPILER_GPU_UNIFIED_MEM
# 197 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
    block
# 197 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
! Beginning in the 25.3 release, the structure of the cudafor module has been changed slightly.
# 197 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
! The module now includes, or “uses” 3 submodules: cuda_runtime_api, gpu_reductions, and sort.
# 197 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
! The cudafor functionality has not changed. But for new users, or users who have needed to
# 197 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
! work-around name conflicts in the module, it may be better to use cuda_runtime_api to expose
# 197 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
! interfaces to the CUDA runtime calls described in Chapter 4 of this guide.
# 197 "/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
# 197 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if __NVCOMPILER_MAJOR__ < 25 || (__NVCOMPILER_MAJOR__ == 25 && __NVCOMPILER_MINOR__ < 3)
# 197 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
        use cudafor, gpu_sum => sum, gpu_maxval => maxval, gpu_minval => minval
# 197 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#else
# 197 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
        use cuda_runtime_api
# 197 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
# 197 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
        integer :: istat
# 197 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 197 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
        if (nv_uvm_pref_gpu) then
# 197 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
                !print*, "Moving jac_old to GPU => ", SHAPE(jac_old)
# 197 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
                ! set preferred location GPU
# 197 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
                istat = cudamemadvise(c_devloc(jac_old), sizeof(jac_old), cudamemadvisesetpreferredlocation, 0)
# 197 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
                if (istat /= cudasuccess) then
# 197 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
                    write (*, "('Error code: ',I0, ': ')") istat
# 197 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
                    !write(*,*) cudaGetErrorString(istat)
# 197 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
                end if
# 197 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
                ! set accessed by CPU
# 197 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
                istat = cudamemadvise(c_devloc(jac_old), sizeof(jac_old), cudamemadvisesetaccessedby, cudacpudeviceid)
# 197 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
                if (istat /= cudasuccess) then
# 197 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
                    write (*, "('Error code: ',I0, ': ')") istat
# 197 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
                    !write(*,*) cudaGetErrorString(istat)
# 197 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
                end if
# 197 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
                ! prefetch to GPU - physically populate memory pages
# 197 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
                istat = cudamemprefetchasync(c_devloc(jac_old), sizeof(jac_old), 0, 0)
# 197 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
                if (istat /= cudasuccess) then
# 197 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
                    write (*, "('Error code: ',I0, ': ')") istat
# 197 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
                    !write(*,*) cudaGetErrorString(istat)
# 197 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
                end if
# 197 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
        end if
# 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"
#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
 
 
# 210 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 210 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 210 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc parallel loop collapse(3) gang vector default(present) private(j, k, l) 
# 210 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 210 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
    
# 210 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 210 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 210 "/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) 
# 210 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
# 210 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
        do l = idwbuff(3)%beg, idwbuff(3)%end
            do k = idwbuff(2)%beg, idwbuff(2)%end
                do j = idwbuff(1)%beg, idwbuff(1)%end
                    jac(j, k, l) = 0._stp
                    if (igr_iter_solver == 1) jac_old(j, k, l) = 0._stp
                end do
            end do
        end do
 
# 219 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 219 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 219 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc end parallel loop
# 219 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 219 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
    
# 219 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 219 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp end target teams loop
# 219 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
# 219 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
 
        if (p == 0) then
            alf_igr = alf_factor*max(dx(1), dy(1))**2._wp
        else
            alf_igr = alf_factor*max(dx(1), dy(1), dz(1))**2._wp
        end if
 
# 226 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 226 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc update device(alf_igr) 
# 226 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 226 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp target update to(alf_igr) 
# 226 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
 
# 229 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
            if (igr_order == 3) then
                vidxb = -1; vidxe = 2; 
 
# 231 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 231 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc update device(vidxb, vidxe) 
# 231 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 231 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp target update to(vidxb, vidxe) 
# 231 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
 
#ifdef MFC_DEBUG
# 233 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
    block
# 233 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
        use iso_fortran_env, only: output_unit
# 233 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 233 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
        print *, 'm_igr.fpp:233: ', '@:ALLOCATE(coeff_L(0:2))'
# 233 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 233 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
        call flush (output_unit)
# 233 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
    end block
# 233 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
# 233 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
    allocate (coeff_l(0:2))
# 233 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 233 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 233 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 233 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc enter data create(coeff_L) 
# 233 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 233 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp target enter data map(always,alloc:coeff_L) 
# 233 "/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
# 238 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
    block
# 238 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
        use iso_fortran_env, only: output_unit
# 238 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 238 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
        print *, 'm_igr.fpp:238: ', '@:ALLOCATE(coeff_R(-1:1))'
# 238 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 238 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
        call flush (output_unit)
# 238 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
    end block
# 238 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
# 238 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
    allocate (coeff_r(-1:1))
# 238 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 238 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 238 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 238 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc enter data create(coeff_R) 
# 238 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 238 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp target enter data map(always,alloc:coeff_R) 
# 238 "/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)
 
            elseif (igr_order == 5) then
                vidxb = -2; vidxe = 3; 
 
# 245 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 245 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc update device(vidxb, vidxe) 
# 245 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 245 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp target update to(vidxb, vidxe) 
# 245 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
 
#ifdef MFC_DEBUG
# 247 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
    block
# 247 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
        use iso_fortran_env, only: output_unit
# 247 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 247 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
        print *, 'm_igr.fpp:247: ', '@:ALLOCATE(coeff_L(-1:3))'
# 247 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 247 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
        call flush (output_unit)
# 247 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
    end block
# 247 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
# 247 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
    allocate (coeff_l(-1:3))
# 247 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 247 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 247 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 247 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc enter data create(coeff_L) 
# 247 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 247 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp target enter data map(always,alloc:coeff_L) 
# 247 "/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
# 254 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
    block
# 254 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
        use iso_fortran_env, only: output_unit
# 254 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 254 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
        print *, 'm_igr.fpp:254: ', '@:ALLOCATE(coeff_R(-2:2))'
# 254 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 254 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
        call flush (output_unit)
# 254 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
    end block
# 254 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
# 254 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
    allocate (coeff_r(-2:2))
# 254 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 254 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 254 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 254 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc enter data create(coeff_R) 
# 254 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 254 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp target enter data map(always,alloc:coeff_R) 
# 254 "/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
 
 
# 262 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 262 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc update device(coeff_L) 
# 262 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 262 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp target update to(coeff_L) 
# 262 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
 
# 263 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 263 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc update device(coeff_R) 
# 263 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 263 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp target update to(coeff_R) 
# 263 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
# 270 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
        jac_sf(1)%sf => jac
 
# 271 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 271 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc enter data copyin(jac_sf(1)%sf) 
# 271 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 271 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp target enter data map(to:jac_sf(1)%sf) 
# 271 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
 
# 272 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 272 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc enter data attach(jac_sf(1)%sf) 
# 272 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 272 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp target enter data map(always,to:jac_sf(1)%sf) 
# 272 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
 
    end subroutine s_initialize_igr_module
 
    !> @brief Iteratively solves the implicit gradient reconstruction system using Jacobi or Gauss-Seidel relaxation.
    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
 
# 296 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 296 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 296 "/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) 
# 296 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 296 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
    
# 296 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 296 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 296 "/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) 
# 296 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
# 296 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
            do l = 0, p
                do k = 0, n
                    do j = 0, m
                        rho_lx = 0._wp
                        rho_rx = 0._wp
                        rho_ly = 0._wp
                        rho_ry = 0._wp
                        rho_lz = 0._wp
                        rho_rz = 0._wp
                        fd_coeff = 0._wp
 
 
# 308 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 308 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc loop seq 
# 308 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 308 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 308 "/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
 
# 359 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 359 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 359 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc end parallel loop
# 359 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 359 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
    
# 359 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 359 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp end target teams loop
# 359 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
# 359 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
 
            call s_populate_f_igr_buffers(bc_type, jac_sf)
 
            if (igr_iter_solver == 1 .or. dummy) then ! Jacobi iteration
 
# 364 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 364 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 364 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc parallel loop collapse(3) gang vector default(present) private(j, k, l) 
# 364 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 364 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
    
# 364 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 364 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 364 "/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) 
# 364 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
# 364 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
                do l = idwbuff(3)%beg, idwbuff(3)%end
                    do k = idwbuff(2)%beg, idwbuff(2)%end
                        do j = idwbuff(1)%beg, idwbuff(1)%end
                            jac_old(j, k, l) = jac(j, k, l)
                        end do
                    end do
                end do
 
# 372 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 372 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 372 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc end parallel loop
# 372 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 372 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
    
# 372 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 372 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp end target teams loop
# 372 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
# 372 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
            end if
        end do
 
    end subroutine s_igr_iterative_solve
 
    !> @brief Computes the IGR viscous stress contribution in the x-direction and accumulates it 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
# 392 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
            real(wp), dimension(num_fluids_max) :: alpha_rho_l, alpha_rho_r
# 396 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
 
# 397 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 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 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) 
# 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"
 
# 397 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 397 "/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) 
# 397 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
# 397 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
        do l = 0, p
            do k = 0, n
                do j = -1, m
 
                    f_l = 0._wp; f_r = 0._wp
                    vel_l = 0._wp; vel_r = 0._wp
                    rho_l = 0._wp; rho_r = 0._wp
 
 
# 406 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 406 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc loop seq 
# 406 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 406 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 406 "/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
 
 
# 412 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 412 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc loop seq 
# 412 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 412 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 412 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
                    do q = vidxb + 1, vidxe
 
# 414 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 414 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc loop seq 
# 414 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 414 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 414 "/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(momxb)%sf(j + q, k, l)
                        f_l = f_l + coeff_l(q)*jac(j + q, k, l)
                    end do
 
 
# 423 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 423 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc loop seq 
# 423 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 423 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 423 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
                    do q = vidxb, vidxe - 1
 
# 425 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 425 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc loop seq 
# 425 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 425 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 425 "/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(momxb)%sf(j + q, k, l)
                        f_r = f_r + coeff_r(q)*jac(j + q, k, l)
                    end do
 
 
# 434 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 434 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc loop seq 
# 434 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 434 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 434 "/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
 
# 444 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 444 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 444 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 444 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 444 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 444 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
                        rhs_vf(momxb)%sf(j + 1, k, l) = rhs_vf(momxb)%sf(j + 1, k, l) + &
                                                        real(0.5_wp*dt*f_l*(1._wp/dx(j + 1)), kind=stp)
 
# 447 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 447 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 447 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 447 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 447 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
                        rhs_vf(e_idx)%sf(j + 1, k, l) = rhs_vf(e_idx)%sf(j + 1, k, l) + &
                                                        real(0.5_wp*dt*vel_l*f_l*(1._wp/dx(j + 1)), kind=stp)
 
# 450 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 450 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 450 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 450 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 450 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
                        rhs_vf(momxb)%sf(j, k, l) = rhs_vf(momxb)%sf(j, k, l) - &
                                                    real(0.5_wp*dt*f_l*(1._wp/dx(j)), kind=stp)
 
# 453 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 453 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 453 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 453 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 453 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
                        rhs_vf(e_idx)%sf(j, k, l) = rhs_vf(e_idx)%sf(j, k, l) - &
                                                    real(0.5_wp*dt*vel_l*f_l*(1._wp/dx(j)), kind=stp)
# 444 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 444 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 444 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 444 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 444 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 444 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
                        rhs_vf(momxb)%sf(j + 1, k, l) = rhs_vf(momxb)%sf(j + 1, k, l) + &
                                                        real(0.5_wp*dt*f_r*(1._wp/dx(j + 1)), kind=stp)
 
# 447 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 447 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 447 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 447 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 447 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
                        rhs_vf(e_idx)%sf(j + 1, k, l) = rhs_vf(e_idx)%sf(j + 1, k, l) + &
                                                        real(0.5_wp*dt*vel_r*f_r*(1._wp/dx(j + 1)), kind=stp)
 
# 450 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 450 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 450 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 450 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 450 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
                        rhs_vf(momxb)%sf(j, k, l) = rhs_vf(momxb)%sf(j, k, l) - &
                                                    real(0.5_wp*dt*f_r*(1._wp/dx(j)), kind=stp)
 
# 453 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 453 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 453 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 453 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 453 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
                        rhs_vf(e_idx)%sf(j, k, l) = rhs_vf(e_idx)%sf(j, k, l) - &
                                                    real(0.5_wp*dt*vel_r*f_r*(1._wp/dx(j)), kind=stp)
# 457 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
                end do
            end do
        end do
 
# 460 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 460 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 460 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc end parallel loop
# 460 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 460 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
    
# 460 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 460 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp end target teams loop
# 460 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
# 460 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
 
    end subroutine s_igr_sigma_x
 
    !> @brief Evaluates the approximate Riemann solver for the IGR scheme along a given coordinate 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
# 483 "/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
# 493 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
        if (idir == 1) then
            if (p == 0) then
# 497 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 497 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 497 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 497 "/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) 
# 497 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 497 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
    
# 497 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 497 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 497 "/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) 
# 497 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
# 497 "/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
 
# 512 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 512 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 512 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc loop seq 
# 512 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 512 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 512 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
                                do q = vidxb, vidxe
                                    !x-direction contributions
 
# 515 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 515 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc loop seq 
# 515 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 515 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 515 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
                                    do i = -1, 1
                                        rho_l = 0._wp
 
# 518 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 518 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc loop seq 
# 518 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 518 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 518 "/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(momxb)%sf(j + 1 + q, k, l)/rho_sf_small(1) - &
                                                    1._wp*q_cons_vf(momxb)%sf(j - 1 + q, k, l)/rho_sf_small(-1))
                                    dvel_small(2) = (1/(2._wp*dx(j)))*( &
                                                    q_cons_vf(momxb + 1)%sf(j + 1 + q, k, l)/rho_sf_small(1) - &
                                                    q_cons_vf(momxb + 1)%sf(j - 1 + q, k, l)/rho_sf_small(-1))
 
                                    if (q == 0) then
 
# 533 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 533 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc loop seq 
# 533 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 533 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 533 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
                                        do 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
 
# 549 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 549 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc loop seq 
# 549 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 549 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 549 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
                                    do i = -1, 1
                                        rho_l = 0._wp
 
# 552 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 552 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc loop seq 
# 552 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 552 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 552 "/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(momxb)%sf(j + q, k + 1, l)/rho_sf_small(1) - &
                                                    q_cons_vf(momxb)%sf(j + q, k - 1, l)/rho_sf_small(-1))
                                    dvel_small(2) = (1/(2._wp*dy(k)))*( &
                                                    q_cons_vf(momxb + 1)%sf(j + q, k + 1, l)/rho_sf_small(1) - &
                                                    q_cons_vf(momxb + 1)%sf(j + q, k - 1, l)/rho_sf_small(-1))
 
                                    if (q == 0) then
 
# 567 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 567 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc loop seq 
# 567 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 567 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 567 "/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
 
 
# 589 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 589 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc loop seq 
# 589 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 589 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 589 "/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
 
# 596 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 596 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc loop seq 
# 596 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 596 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 596 "/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
 
 
# 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 q = vidxb + 1, vidxe
 
# 604 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 604 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc loop seq 
# 604 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 604 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 604 "/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
 
# 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 - 1
                                            alpha_l(i) = alpha_l(i) + coeff_l(q)*q_cons_vf(e_idx + i)%sf(j + q, k, l)
                                        end do
                                    else
                                        alpha_l(1) = 1._wp
                                    end if
 
 
# 618 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 618 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc loop seq 
# 618 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 618 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 618 "/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(momxb + i - 1)%sf(j + q, k, l)
                                    end do
                                end do
 
 
# 624 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 624 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc loop seq 
# 624 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 624 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 624 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
                                do q = vidxb, vidxe - 1
 
# 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 loop seq 
# 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"
 
# 626 "/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
 
# 632 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 632 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc loop seq 
# 632 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 632 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 632 "/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(e_idx + i)%sf(j + q, k, l)
                                        end do
                                    else
                                        alpha_r(1) = 1._wp
                                    end if
 
 
# 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 loop seq 
# 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"
 
# 640 "/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(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
 
 
# 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 loop seq 
# 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"
 
# 651 "/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
 
 
# 662 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 662 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc loop seq 
# 662 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 662 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 662 "/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
 
 
# 673 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 673 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc loop seq 
# 673 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 673 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 673 "/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
 
# 681 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 681 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc loop seq 
# 681 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 681 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 681 "/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
 
 
# 687 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 687 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 687 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 687 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 687 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
                                    rhs_vf(momxb + 1)%sf(j + 1, k, l) = rhs_vf(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)
 
# 690 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 690 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 690 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 690 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 690 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
                                    rhs_vf(e_idx)%sf(j + 1, k, l) = rhs_vf(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)
 
 
# 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(momxb + 1)%sf(j, k, l) = rhs_vf(momxb + 1)%sf(j, k, l) + &
                                                                    real(0.5_wp*dt*mu_l*vflux_l_arr(1)*(1._wp/dx(j)), kind=stp)
 
# 697 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 697 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 697 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 697 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 697 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
                                    rhs_vf(e_idx)%sf(j, k, l) = rhs_vf(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)
 
 
# 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 atomic update
# 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"
!$omp atomic update
# 701 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
                                    rhs_vf(momxb + 1)%sf(j + 1, k, l) = rhs_vf(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)
 
# 704 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 704 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 704 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 704 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 704 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
                                    rhs_vf(e_idx)%sf(j + 1, k, l) = rhs_vf(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)
 
 
# 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(momxb + 1)%sf(j, k, l) = rhs_vf(momxb + 1)%sf(j, k, l) + &
                                                                    real(0.5_wp*dt*mu_r*vflux_r_arr(1)*(1._wp/dx(j)), kind=stp)
 
# 711 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 711 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 711 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 711 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 711 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
                                    rhs_vf(e_idx)%sf(j, k, l) = rhs_vf(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)
 
 
# 715 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 715 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 715 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 715 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 715 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
                                    rhs_vf(momxb)%sf(j + 1, k, l) = rhs_vf(momxb)%sf(j + 1, k, l) - &
                                                                    real(0.5_wp*dt*mu_l*vflux_l_arr(3)*(1._wp/dx(j + 1)), 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(e_idx)%sf(j + 1, k, l) = rhs_vf(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)
 
 
# 722 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 722 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 722 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 722 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 722 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
                                    rhs_vf(momxb)%sf(j, k, l) = rhs_vf(momxb)%sf(j, k, l) + &
                                                                real(0.5_wp*dt*mu_l*vflux_l_arr(3)*(1._wp/dx(j)), kind=stp)
 
# 725 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 725 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 725 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 725 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 725 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
                                    rhs_vf(e_idx)%sf(j, k, l) = rhs_vf(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)
 
 
# 729 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 729 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 729 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 729 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 729 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
                                    rhs_vf(momxb)%sf(j + 1, k, l) = rhs_vf(momxb)%sf(j + 1, k, l) - &
                                                                    real(0.5_wp*dt*mu_r*vflux_r_arr(3)*(1._wp/dx(j + 1)), kind=stp)
 
# 732 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 732 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 732 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 732 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 732 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
                                    rhs_vf(e_idx)%sf(j + 1, k, l) = rhs_vf(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)
 
 
# 736 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 736 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 736 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 736 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 736 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
                                    rhs_vf(momxb)%sf(j, k, l) = rhs_vf(momxb)%sf(j, k, l) + &
                                                                real(0.5_wp*dt*mu_r*vflux_r_arr(3)*(1._wp/dx(j)), kind=stp)
 
# 739 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 739 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 739 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 739 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 739 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
                                    rhs_vf(e_idx)%sf(j, k, l) = rhs_vf(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
 
 
# 746 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 746 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc loop seq 
# 746 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 746 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 746 "/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(e_idx)%sf(j + q, k, l)
                                end do
 
 
# 751 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 751 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc loop seq 
# 751 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 751 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 751 "/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(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
 
# 761 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 761 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 761 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 761 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 761 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
                                    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)
 
 
# 767 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 767 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 767 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 767 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 767 "/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
 
# 775 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 775 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc loop seq 
# 775 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 775 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 775 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
                                    do i = 1, num_fluids - 1
 
# 777 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 777 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 777 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 777 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 777 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
                                        rhs_vf(advxb + i - 1)%sf(j + 1, k, l) = rhs_vf(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)
 
 
# 783 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 783 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 783 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 783 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 783 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
                                        rhs_vf(advxb + i - 1)%sf(j + 1, k, l) = rhs_vf(advxb + i - 1)%sf(j + 1, k, l) &
                                                                                - real((0.5_wp*dt*q_cons_vf(advxb + i - 1)%sf(j + 1, k, l)*vel_l(1)*(1._wp/dx(j + 1))), kind=stp)
 
 
# 787 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 787 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 787 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 787 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 787 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
                                        rhs_vf(advxb + i - 1)%sf(j, k, l) = rhs_vf(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)
 
 
# 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(advxb + i - 1)%sf(j, k, l) = rhs_vf(advxb + i - 1)%sf(j, k, l) &
                                                                            + real((0.5_wp*dt*q_cons_vf(advxb + i - 1)%sf(j, k, l)*vel_l(1)*(1._wp/dx(j))), kind=stp)
                                    end do
                                end if
 
 
# 799 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 799 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 799 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 799 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 799 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
                                rhs_vf(momxb)%sf(j + 1, k, l) = rhs_vf(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)
 
 
# 805 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 805 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 805 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 805 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 805 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
                                rhs_vf(momxb + 1)%sf(j + 1, k, l) = rhs_vf(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)
 
 
# 810 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 810 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 810 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 810 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 810 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
                                rhs_vf(e_idx)%sf(j + 1, k, l) = rhs_vf(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)
 
 
# 816 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 816 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 816 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 816 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 816 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
                                rhs_vf(momxb)%sf(j, k, l) = rhs_vf(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)
 
 
# 822 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 822 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 822 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 822 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 822 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
                                rhs_vf(momxb + 1)%sf(j, k, l) = rhs_vf(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)
 
 
# 827 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 827 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 827 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 827 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 827 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
                                rhs_vf(e_idx)%sf(j, k, l) = rhs_vf(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)
 
 
# 833 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 833 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc loop seq 
# 833 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 833 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 833 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
                                do i = 1, num_fluids
 
# 835 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 835 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 835 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 835 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 835 "/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)
 
 
# 841 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 841 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 841 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 841 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 841 "/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
 
# 849 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 849 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc loop seq 
# 849 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 849 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 849 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
                                    do i = 1, num_fluids - 1
 
# 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 atomic update
# 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"
!$omp atomic update
# 851 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
                                        rhs_vf(advxb + i - 1)%sf(j + 1, k, l) = rhs_vf(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)
 
 
# 857 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 857 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 857 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 857 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 857 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
                                        rhs_vf(advxb + i - 1)%sf(j + 1, k, l) = rhs_vf(advxb + i - 1)%sf(j + 1, k, l) &
                                                                                - real((0.5_wp*dt*q_cons_vf(advxb + i - 1)%sf(j + 1, k, l)*vel_r(1)*(1._wp/dx(j + 1))), kind=stp)
 
 
# 861 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 861 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 861 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 861 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 861 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
                                        rhs_vf(advxb + i - 1)%sf(j, k, l) = rhs_vf(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)
 
 
# 867 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 867 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 867 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 867 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 867 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
                                        rhs_vf(advxb + i - 1)%sf(j, k, l) = rhs_vf(advxb + i - 1)%sf(j, k, l) &
                                                                            + real((0.5_wp*dt*q_cons_vf(advxb + i - 1)%sf(j, k, l)*vel_r(1)*(1._wp/dx(j))), kind=stp)
                                    end do
                                end if
 
 
# 873 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 873 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 873 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 873 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 873 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
                                rhs_vf(momxb)%sf(j + 1, k, l) = rhs_vf(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)
 
 
# 879 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 879 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 879 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 879 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 879 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
                                rhs_vf(momxb + 1)%sf(j + 1, k, l) = rhs_vf(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)
 
 
# 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 atomic update
# 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"
!$omp atomic update
# 884 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
                                rhs_vf(e_idx)%sf(j + 1, k, l) = rhs_vf(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)
 
 
# 890 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 890 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 890 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 890 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 890 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
                                rhs_vf(momxb)%sf(j, k, l) = rhs_vf(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)
 
 
# 896 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 896 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 896 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 896 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 896 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
                                rhs_vf(momxb + 1)%sf(j, k, l) = rhs_vf(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)
 
 
# 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 atomic update
# 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"
!$omp atomic update
# 901 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
                                rhs_vf(e_idx)%sf(j, k, l) = rhs_vf(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
 
# 910 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 910 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 910 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc end parallel loop
# 910 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 910 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
    
# 910 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 910 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp end target teams loop
# 910 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
# 910 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 912 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
            else
# 914 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 914 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 914 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 914 "/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) 
# 914 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 914 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
    
# 914 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 914 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 914 "/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) 
# 914 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
# 914 "/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
 
# 929 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 929 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 929 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc loop seq 
# 929 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 929 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 929 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
                                do q = vidxb, vidxe
 
                                    !x-direction contributions
 
# 933 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 933 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc loop seq 
# 933 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 933 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 933 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
                                    do i = -1, 1
                                        rho_l = 0._wp
 
# 936 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 936 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc loop seq 
# 936 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 936 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 936 "/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(momxb)%sf(j + 1 + q, k, l)/rho_sf_small(1) - &
                                                    q_cons_vf(momxb)%sf(j - 1 + q, k, l)/rho_sf_small(-1))
                                    dvel_small(2) = (1/(2._wp*dx(j)))*( &
                                                    q_cons_vf(momxb + 1)%sf(j + 1 + q, k, l)/rho_sf_small(1) - &
                                                    q_cons_vf(momxb + 1)%sf(j - 1 + q, k, l)/rho_sf_small(-1))
                                    dvel_small(3) = (1/(2._wp*dx(j)))*( &
                                                    q_cons_vf(momxb + 2)%sf(j + 1 + q, k, l)/rho_sf_small(1) - &
                                                    q_cons_vf(momxb + 2)%sf(j - 1 + q, k, l)/rho_sf_small(-1))
 
                                    if (q == 0) then
 
# 954 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 954 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc loop seq 
# 954 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 954 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 954 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
                                        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
 
# 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, 1
                                        rho_l = 0._wp
 
# 975 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 975 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc loop seq 
# 975 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 975 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 975 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
                                        do 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(momxb)%sf(j + q, k + 1, l)/rho_sf_small(1) - &
                                                    q_cons_vf(momxb)%sf(j + q, k - 1, l)/rho_sf_small(-1))
                                    dvel_small(2) = (1/(2._wp*dy(k)))*( &
                                                    q_cons_vf(momxb + 1)%sf(j + q, k + 1, l)/rho_sf_small(1) - &
                                                    q_cons_vf(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(momxb + 2)%sf(j + q, k + 1, l)/rho_sf_small(1) - &
                                                                q_cons_vf(momxb + 2)%sf(j + q, k - 1, l)/rho_sf_small(-1))
                                    if (q == 0) then
 
# 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 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
 
# 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, 1
                                        rho_l = 0._wp
 
# 1011 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 1011 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc loop seq 
# 1011 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 1011 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 1011 "/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(momxb)%sf(j + q, k, l + 1)/rho_sf_small(1) - &
                                                    q_cons_vf(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(momxb + 1)%sf(j + q, k, l + 1)/rho_sf_small(1) - &
                                                                q_cons_vf(momxb + 1)%sf(j + q, k, l - 1)/rho_sf_small(-1))
                                    dvel_small(3) = (1/(2._wp*dz(l)))*( &
                                                    q_cons_vf(momxb + 2)%sf(j + q, k, l + 1)/rho_sf_small(1) - &
                                                    q_cons_vf(momxb + 2)%sf(j + q, k, l - 1)/rho_sf_small(-1))
                                    if (q == 0) then
 
# 1028 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 1028 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc loop seq 
# 1028 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 1028 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 1028 "/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
 
 
# 1053 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 1053 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc loop seq 
# 1053 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 1053 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 1053 "/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
 
# 1060 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 1060 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc loop seq 
# 1060 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 1060 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 1060 "/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
 
 
# 1066 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 1066 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc loop seq 
# 1066 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 1066 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 1066 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
                                do q = vidxb + 1, vidxe
 
# 1068 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 1068 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc loop seq 
# 1068 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 1068 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 1068 "/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
 
# 1074 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 1074 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc loop seq 
# 1074 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 1074 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 1074 "/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(e_idx + i)%sf(j + q, k, l)
                                        end do
                                    else
                                        alpha_l(1) = 1._wp
                                    end if
 
 
# 1082 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 1082 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc loop seq 
# 1082 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 1082 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 1082 "/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(momxb + i - 1)%sf(j + q, k, l)
                                    end do
                                end do
 
 
# 1088 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 1088 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc loop seq 
# 1088 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 1088 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 1088 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
                                do q = vidxb, vidxe - 1
 
# 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 loop seq 
# 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"
 
# 1090 "/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
 
# 1096 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 1096 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc loop seq 
# 1096 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 1096 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 1096 "/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(e_idx + i)%sf(j + q, k, l)
                                        end do
                                    else
                                        alpha_r(1) = 1._wp
                                    end if
 
 
# 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 loop seq 
# 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"
 
# 1104 "/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(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
 
 
# 1115 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 1115 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc loop seq 
# 1115 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 1115 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 1115 "/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
 
 
# 1126 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 1126 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc loop seq 
# 1126 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 1126 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 1126 "/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
 
 
# 1137 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 1137 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc loop seq 
# 1137 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 1137 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 1137 "/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
 
# 1146 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 1146 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc loop seq 
# 1146 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 1146 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 1146 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
                                    do i = 1, num_fluids
                                        mu_l = alpha_l(i)/res_igr(1, i) + mu_l
                                        mu_r = alpha_r(i)/res_igr(1, i) + mu_r
                                    end do
 
 
# 1152 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 1152 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 1152 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 1152 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 1152 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
                                    rhs_vf(momxb + 1)%sf(j + 1, k, l) = rhs_vf(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)
 
# 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 atomic update
# 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"
!$omp atomic update
# 1155 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
                                    rhs_vf(e_idx)%sf(j + 1, k, l) = rhs_vf(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)
 
 
# 1159 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 1159 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 1159 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 1159 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 1159 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
                                    rhs_vf(momxb + 1)%sf(j, k, l) = rhs_vf(momxb + 1)%sf(j, k, l) + &
                                                                    real(0.5_wp*dt*mu_l*vflux_l_arr(1)*(1._wp/dx(j)), 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(e_idx)%sf(j, k, l) = rhs_vf(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)
 
 
# 1166 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 1166 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 1166 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 1166 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 1166 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
                                    rhs_vf(momxb + 1)%sf(j + 1, k, l) = rhs_vf(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)
 
# 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 atomic update
# 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"
!$omp atomic update
# 1169 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
                                    rhs_vf(e_idx)%sf(j + 1, k, l) = rhs_vf(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)
 
 
# 1173 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 1173 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 1173 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 1173 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 1173 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
                                    rhs_vf(momxb + 1)%sf(j, k, l) = rhs_vf(momxb + 1)%sf(j, k, l) + &
                                                                    real(0.5_wp*dt*mu_r*vflux_r_arr(1)*(1._wp/dx(j)), 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(e_idx)%sf(j, k, l) = rhs_vf(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)
 
 
# 1180 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 1180 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 1180 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 1180 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 1180 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
                                    rhs_vf(momxb + 2)%sf(j + 1, k, l) = rhs_vf(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)
 
# 1183 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 1183 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 1183 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 1183 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 1183 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
                                    rhs_vf(e_idx)%sf(j + 1, k, l) = rhs_vf(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)
 
 
# 1187 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 1187 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 1187 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 1187 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 1187 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
                                    rhs_vf(momxb + 2)%sf(j, k, l) = rhs_vf(momxb + 2)%sf(j, k, l) + &
                                                                    real(0.5_wp*dt*mu_l*vflux_l_arr(2)*(1._wp/dx(j)), kind=stp)
 
# 1190 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 1190 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 1190 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 1190 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 1190 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
                                    rhs_vf(e_idx)%sf(j, k, l) = rhs_vf(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)
 
 
# 1194 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 1194 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 1194 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 1194 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 1194 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
                                    rhs_vf(momxb + 2)%sf(j + 1, k, l) = rhs_vf(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)
 
# 1197 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 1197 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 1197 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 1197 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 1197 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
                                    rhs_vf(e_idx)%sf(j + 1, k, l) = rhs_vf(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)
 
 
# 1201 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 1201 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 1201 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 1201 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 1201 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
                                    rhs_vf(momxb + 2)%sf(j, k, l) = rhs_vf(momxb + 2)%sf(j, k, l) + &
                                                                    real(0.5_wp*dt*mu_r*vflux_r_arr(2)*(1._wp/dx(j)), kind=stp)
 
# 1204 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 1204 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 1204 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 1204 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 1204 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
                                    rhs_vf(e_idx)%sf(j, k, l) = rhs_vf(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)
 
 
# 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(momxb)%sf(j + 1, k, l) = rhs_vf(momxb)%sf(j + 1, k, l) - &
                                                                    real(0.5_wp*dt*mu_l*vflux_l_arr(3)*(1._wp/dx(j + 1)), kind=stp)
 
# 1211 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 1211 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 1211 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 1211 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 1211 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
                                    rhs_vf(e_idx)%sf(j + 1, k, l) = rhs_vf(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)
 
 
# 1215 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 1215 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 1215 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 1215 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 1215 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
                                    rhs_vf(momxb)%sf(j, k, l) = rhs_vf(momxb)%sf(j, k, l) + &
                                                                real(0.5_wp*dt*mu_l*vflux_l_arr(3)*(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(e_idx)%sf(j, k, l) = rhs_vf(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)
 
 
# 1222 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 1222 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 1222 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 1222 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 1222 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
                                    rhs_vf(momxb)%sf(j + 1, k, l) = rhs_vf(momxb)%sf(j + 1, k, l) - &
                                                                    real(0.5_wp*dt*mu_r*vflux_r_arr(3)*(1._wp/dx(j + 1)), kind=stp)
 
# 1225 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 1225 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 1225 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 1225 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 1225 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
                                    rhs_vf(e_idx)%sf(j + 1, k, l) = rhs_vf(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)
 
 
# 1229 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 1229 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 1229 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 1229 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 1229 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
                                    rhs_vf(momxb)%sf(j, k, l) = rhs_vf(momxb)%sf(j, k, l) + &
                                                                real(0.5_wp*dt*mu_r*vflux_r_arr(3)*(1._wp/dx(j)), kind=stp)
 
# 1232 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 1232 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 1232 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 1232 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 1232 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
                                    rhs_vf(e_idx)%sf(j, k, l) = rhs_vf(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
 
 
# 1239 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 1239 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc loop seq 
# 1239 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 1239 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 1239 "/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(e_idx)%sf(j + q, k, l)
                                end do
 
 
# 1244 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 1244 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc loop seq 
# 1244 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 1244 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 1244 "/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(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)
 
 
# 1253 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 1253 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc loop seq 
# 1253 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 1253 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 1253 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
                                do i = 1, num_fluids
 
# 1255 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 1255 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 1255 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 1255 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 1255 "/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)
 
 
# 1261 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 1261 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 1261 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 1261 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 1261 "/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
 
# 1269 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 1269 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc loop seq 
# 1269 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 1269 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 1269 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
                                    do i = 1, num_fluids - 1
 
# 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(advxb + i - 1)%sf(j + 1, k, l) = rhs_vf(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)
 
 
# 1277 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 1277 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 1277 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 1277 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 1277 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
                                        rhs_vf(advxb + i - 1)%sf(j + 1, k, l) = rhs_vf(advxb + i - 1)%sf(j + 1, k, l) &
                                                                                - real(0.5_wp*dt*q_cons_vf(advxb + i - 1)%sf(j + 1, k, l)*vel_l(1)*(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(advxb + i - 1)%sf(j, k, l) = rhs_vf(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)
 
 
# 1287 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 1287 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 1287 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 1287 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 1287 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
                                        rhs_vf(advxb + i - 1)%sf(j, k, l) = rhs_vf(advxb + i - 1)%sf(j, k, l) &
                                                                            + real(0.5_wp*dt*q_cons_vf(advxb + i - 1)%sf(j, k, l)*vel_l(1)*(1._wp/dx(j)), kind=stp)
                                    end do
                                end if
 
 
# 1293 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 1293 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 1293 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 1293 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 1293 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
                                rhs_vf(momxb)%sf(j + 1, k, l) = rhs_vf(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)
 
 
# 1299 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 1299 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 1299 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 1299 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 1299 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
                                rhs_vf(momxb + 1)%sf(j + 1, k, l) = rhs_vf(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)
 
 
# 1304 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 1304 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 1304 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 1304 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 1304 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
                                rhs_vf(momxb + 2)%sf(j + 1, k, l) = rhs_vf(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)
 
 
# 1309 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 1309 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 1309 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 1309 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 1309 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
                                rhs_vf(e_idx)%sf(j + 1, k, l) = rhs_vf(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)
 
 
# 1315 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 1315 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 1315 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 1315 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 1315 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
                                rhs_vf(momxb)%sf(j, k, l) = rhs_vf(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)
 
 
# 1321 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 1321 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 1321 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 1321 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 1321 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
                                rhs_vf(momxb + 1)%sf(j, k, l) = rhs_vf(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)
 
 
# 1326 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 1326 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 1326 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 1326 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 1326 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
                                rhs_vf(momxb + 2)%sf(j, k, l) = rhs_vf(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)
 
 
# 1331 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 1331 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 1331 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 1331 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 1331 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
                                rhs_vf(e_idx)%sf(j, k, l) = rhs_vf(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)
 
 
# 1337 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 1337 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc loop seq 
# 1337 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 1337 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 1337 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
                                do i = 1, num_fluids
 
# 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 atomic update
# 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"
!$omp atomic update
# 1339 "/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)
 
 
# 1345 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 1345 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 1345 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 1345 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 1345 "/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
 
# 1353 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 1353 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc loop seq 
# 1353 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 1353 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 1353 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
                                    do i = 1, num_fluids - 1
 
# 1355 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 1355 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 1355 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 1355 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 1355 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
                                        rhs_vf(advxb + i - 1)%sf(j + 1, k, l) = rhs_vf(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)
 
 
# 1361 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 1361 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 1361 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 1361 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 1361 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
                                        rhs_vf(advxb + i - 1)%sf(j + 1, k, l) = rhs_vf(advxb + i - 1)%sf(j + 1, k, l) &
                                                                                - real((0.5_wp*dt*q_cons_vf(advxb + i - 1)%sf(j + 1, k, l)*vel_r(1)*(1._wp/dx(j + 1))), kind=stp)
 
 
# 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 atomic update
# 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"
!$omp atomic update
# 1365 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
                                        rhs_vf(advxb + i - 1)%sf(j, k, l) = rhs_vf(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)
 
 
# 1371 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 1371 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 1371 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 1371 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 1371 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
                                        rhs_vf(advxb + i - 1)%sf(j, k, l) = rhs_vf(advxb + i - 1)%sf(j, k, l) &
                                                                            + real((0.5_wp*dt*q_cons_vf(advxb + i - 1)%sf(j, k, l)*vel_r(1)*(1._wp/dx(j))), kind=stp)
                                    end do
                                end if
 
 
# 1377 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 1377 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 1377 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 1377 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 1377 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
                                rhs_vf(momxb)%sf(j + 1, k, l) = rhs_vf(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)
 
 
# 1383 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 1383 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 1383 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 1383 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 1383 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
                                rhs_vf(momxb + 1)%sf(j + 1, k, l) = rhs_vf(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)
 
 
# 1388 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 1388 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 1388 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 1388 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 1388 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
                                rhs_vf(momxb + 2)%sf(j + 1, k, l) = rhs_vf(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)
 
 
# 1393 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 1393 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 1393 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 1393 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 1393 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
                                rhs_vf(e_idx)%sf(j + 1, k, l) = rhs_vf(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)
 
 
# 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 atomic update
# 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"
!$omp atomic update
# 1399 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
                                rhs_vf(momxb)%sf(j, k, l) = rhs_vf(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)
 
 
# 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 atomic update
# 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"
!$omp atomic update
# 1405 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
                                rhs_vf(momxb + 1)%sf(j, k, l) = rhs_vf(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)
 
 
# 1410 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 1410 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 1410 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 1410 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 1410 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
                                rhs_vf(momxb + 2)%sf(j, k, l) = rhs_vf(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)
 
 
# 1415 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 1415 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 1415 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 1415 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 1415 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
                                rhs_vf(e_idx)%sf(j, k, l) = rhs_vf(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
 
# 1424 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 1424 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 1424 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc end parallel loop
# 1424 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 1424 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
    
# 1424 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 1424 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp end target teams loop
# 1424 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
# 1424 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 1426 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
            end if
        else if (idir == 2) then
            if (p == 0) then
# 1430 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 1430 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 1430 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 1430 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc 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) 
# 1430 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 1430 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
    
# 1430 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 1430 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 1430 "/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) 
# 1430 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
# 1430 "/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
 
# 1446 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 1446 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 1446 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc loop seq 
# 1446 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 1446 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 1446 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
                                    do q = vidxb, vidxe
 
                                        !x-direction contributions
 
# 1450 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 1450 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc loop seq 
# 1450 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 1450 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 1450 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
                                        do i = -1, 1
                                            rho_l = 0._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 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(momxb)%sf(j + 1, k + q, l)/rho_sf_small(1) - &
                                                        q_cons_vf(momxb)%sf(j - 1, k + q, l)/rho_sf_small(-1))
                                        dvel_small(2) = (1/(2._wp*dx(j)))*( &
                                                        q_cons_vf(momxb + 1)%sf(j + 1, k + q, l)/rho_sf_small(1) - &
                                                        q_cons_vf(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
 
# 1477 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 1477 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc loop seq 
# 1477 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 1477 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 1477 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
                                        do i = -1, 1
                                            rho_l = 0._wp
 
# 1480 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 1480 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc loop seq 
# 1480 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 1480 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 1480 "/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(momxb)%sf(j, k + 1 + q, l)/rho_sf_small(1) - &
                                                        q_cons_vf(momxb)%sf(j, k - 1 + q, l)/rho_sf_small(-1))
                                        dvel_small(2) = (1/(2._wp*dy(k)))*( &
                                                        q_cons_vf(momxb + 1)%sf(j, k + 1 + q, l)/rho_sf_small(1) - &
                                                        q_cons_vf(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
 
 
# 1505 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 1505 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc loop seq 
# 1505 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 1505 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 1505 "/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
 
# 1512 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 1512 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc loop seq 
# 1512 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 1512 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 1512 "/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
 
 
# 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 loop seq 
# 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"
 
# 1518 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
                                do q = vidxb + 1, vidxe
 
# 1520 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 1520 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc loop seq 
# 1520 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 1520 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 1520 "/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
 
# 1526 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 1526 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc loop seq 
# 1526 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 1526 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 1526 "/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(e_idx + i)%sf(j, k + q, l)
                                        end do
                                    else
                                        alpha_l(1) = 1._wp
                                    end if
 
 
# 1534 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 1534 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc loop seq 
# 1534 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 1534 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 1534 "/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(momxb + i - 1)%sf(j, k + q, l)
                                    end do
                                end do
 
 
# 1540 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 1540 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc loop seq 
# 1540 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 1540 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 1540 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
                                do q = vidxb, vidxe - 1
 
# 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 loop seq 
# 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"
 
# 1542 "/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
 
# 1548 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 1548 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc loop seq 
# 1548 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 1548 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 1548 "/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(e_idx + i)%sf(j, k + q, l)
                                        end do
                                    else
                                        alpha_r(1) = 1._wp
                                    end if
 
 
# 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 i = 1, num_dims
                                        vel_r(i) = vel_r(i) + coeff_r(q)*q_cons_vf(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
 
 
# 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 loop seq 
# 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"
 
# 1567 "/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
 
 
# 1578 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 1578 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc loop seq 
# 1578 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 1578 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 1578 "/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
 
 
# 1589 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 1589 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc loop seq 
# 1589 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 1589 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 1589 "/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
 
# 1598 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 1598 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc loop seq 
# 1598 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 1598 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 1598 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
                                    do i = 1, num_fluids
                                        mu_l = alpha_l(i)/res_igr(1, i) + mu_l
                                        mu_r = alpha_r(i)/res_igr(1, i) + mu_r
                                    end do
 
 
# 1604 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 1604 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 1604 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 1604 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 1604 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
                                    rhs_vf(momxb)%sf(j, k + 1, l) = rhs_vf(momxb)%sf(j, k + 1, l) - &
                                                                    real(0.5_wp*dt*mu_l*vflux_l_arr(1)*(1._wp/dy(k + 1)), kind=stp)
 
# 1607 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 1607 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 1607 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 1607 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 1607 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
                                    rhs_vf(e_idx)%sf(j, k + 1, l) = rhs_vf(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)
 
 
# 1611 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 1611 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 1611 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 1611 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 1611 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
                                    rhs_vf(momxb)%sf(j, k, l) = rhs_vf(momxb)%sf(j, k, l) + &
                                                                real(0.5_wp*dt*mu_l*vflux_l_arr(1)*(1._wp/dy(k)), kind=stp)
 
# 1614 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 1614 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 1614 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 1614 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 1614 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
                                    rhs_vf(e_idx)%sf(j, k, l) = rhs_vf(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)
 
 
# 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(momxb)%sf(j, k + 1, l) = rhs_vf(momxb)%sf(j, k + 1, l) - &
                                                                    real(0.5_wp*dt*mu_r*vflux_r_arr(1)*(1._wp/dy(k + 1)), kind=stp)
 
# 1621 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 1621 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 1621 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 1621 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 1621 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
                                    rhs_vf(e_idx)%sf(j, k + 1, l) = rhs_vf(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)
 
 
# 1625 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 1625 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 1625 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 1625 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 1625 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
                                    rhs_vf(momxb)%sf(j, k, l) = rhs_vf(momxb)%sf(j, k, l) + &
                                                                real(0.5_wp*dt*mu_r*vflux_r_arr(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(e_idx)%sf(j, k, l) = rhs_vf(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)
 
 
# 1632 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 1632 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 1632 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 1632 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 1632 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
                                    rhs_vf(momxb + 1)%sf(j, k + 1, l) = rhs_vf(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)
 
# 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(e_idx)%sf(j, k + 1, l) = rhs_vf(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)
 
 
# 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(momxb + 1)%sf(j, k, l) = rhs_vf(momxb + 1)%sf(j, k, l) + &
                                                                    real(0.5_wp*dt*mu_l*vflux_l_arr(3)*(1._wp/dy(k)), kind=stp)
 
# 1642 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 1642 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 1642 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 1642 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 1642 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
                                    rhs_vf(e_idx)%sf(j, k, l) = rhs_vf(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)
 
 
# 1646 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 1646 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 1646 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 1646 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 1646 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
                                    rhs_vf(momxb + 1)%sf(j, k + 1, l) = rhs_vf(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)
 
# 1649 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 1649 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 1649 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 1649 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 1649 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
                                    rhs_vf(e_idx)%sf(j, k + 1, l) = rhs_vf(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)
 
 
# 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(momxb + 1)%sf(j, k, l) = rhs_vf(momxb + 1)%sf(j, k, l) + &
                                                                    real(0.5_wp*dt*mu_r*vflux_r_arr(3)*(1._wp/dy(k)), kind=stp)
 
# 1656 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 1656 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 1656 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 1656 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 1656 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
                                    rhs_vf(e_idx)%sf(j, k, l) = rhs_vf(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
 
 
# 1664 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 1664 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc loop seq 
# 1664 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 1664 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 1664 "/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(e_idx)%sf(j, k + q, l)
                                    f_l = f_l + coeff_l(q)*jac(j, k + q, l)
                                end do
 
 
# 1670 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 1670 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc loop seq 
# 1670 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 1670 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 1670 "/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(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)
 
 
# 1680 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 1680 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc loop seq 
# 1680 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 1680 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 1680 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
                                do i = 1, num_fluids
 
# 1682 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 1682 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 1682 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 1682 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 1682 "/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)
 
 
# 1688 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 1688 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 1688 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 1688 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 1688 "/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
 
# 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 loop seq 
# 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"
#endif
                                    do i = 1, num_fluids - 1
 
# 1698 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 1698 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 1698 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 1698 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 1698 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
                                        rhs_vf(advxb + i - 1)%sf(j, k + 1, l) = rhs_vf(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)
 
 
# 1704 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 1704 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 1704 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 1704 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 1704 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
                                        rhs_vf(advxb + i - 1)%sf(j, k + 1, l) = rhs_vf(advxb + i - 1)%sf(j, k + 1, l) &
                                                                                - real(0.5_wp*dt*q_cons_vf(advxb + i - 1)%sf(j, k + 1, l)*vel_l(2)*(1._wp/dy(k + 1)), kind=stp)
 
 
# 1708 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 1708 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 1708 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 1708 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 1708 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
                                        rhs_vf(advxb + i - 1)%sf(j, k, l) = rhs_vf(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)
 
 
# 1714 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 1714 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 1714 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 1714 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 1714 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
                                        rhs_vf(advxb + i - 1)%sf(j, k, l) = rhs_vf(advxb + i - 1)%sf(j, k, l) &
                                                                            + real(0.5_wp*dt*q_cons_vf(advxb + i - 1)%sf(j, k, l)*vel_l(2)*(1._wp/dy(k)), kind=stp)
                                    end do
                                end if
 
 
# 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 atomic update
# 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"
!$omp atomic update
# 1720 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
                                rhs_vf(momxb + 1)%sf(j, k + 1, l) = rhs_vf(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)
 
 
# 1726 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 1726 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 1726 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 1726 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 1726 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
                                rhs_vf(momxb)%sf(j, k + 1, l) = rhs_vf(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)
 
 
# 1731 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 1731 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 1731 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 1731 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 1731 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
                                rhs_vf(e_idx)%sf(j, k + 1, l) = rhs_vf(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)
 
 
# 1737 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 1737 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 1737 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 1737 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 1737 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
                                rhs_vf(momxb + 1)%sf(j, k, l) = rhs_vf(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)
 
 
# 1743 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 1743 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 1743 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 1743 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 1743 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
                                rhs_vf(momxb)%sf(j, k, l) = rhs_vf(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)
 
 
# 1748 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 1748 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 1748 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 1748 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 1748 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
                                rhs_vf(e_idx)%sf(j, k, l) = rhs_vf(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)
 
 
# 1754 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 1754 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc loop seq 
# 1754 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 1754 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 1754 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
                                do i = 1, num_fluids
 
# 1756 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 1756 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 1756 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 1756 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 1756 "/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)
 
# 1761 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 1761 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 1761 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 1761 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 1761 "/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
 
# 1769 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 1769 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc loop seq 
# 1769 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 1769 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 1769 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
                                    do i = 1, num_fluids - 1
 
# 1771 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 1771 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 1771 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 1771 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 1771 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
                                        rhs_vf(advxb + i - 1)%sf(j, k + 1, l) = rhs_vf(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)
 
 
# 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 atomic update
# 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"
!$omp atomic update
# 1777 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
                                        rhs_vf(advxb + i - 1)%sf(j, k + 1, l) = rhs_vf(advxb + i - 1)%sf(j, k + 1, l) &
                                                                                - real(0.5_wp*dt*q_cons_vf(advxb + i - 1)%sf(j, k + 1, l)*vel_r(2)*(1._wp/dy(k + 1)), kind=stp)
 
 
# 1781 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 1781 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 1781 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 1781 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 1781 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
                                        rhs_vf(advxb + i - 1)%sf(j, k, l) = rhs_vf(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)
 
 
# 1787 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 1787 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 1787 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 1787 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 1787 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
                                        rhs_vf(advxb + i - 1)%sf(j, k, l) = rhs_vf(advxb + i - 1)%sf(j, k, l) &
                                                                            + real(0.5_wp*dt*q_cons_vf(advxb + i - 1)%sf(j, k, l)*vel_r(2)*(1._wp/dy(k)), kind=stp)
                                    end do
                                end if
 
# 1792 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 1792 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 1792 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 1792 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 1792 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
                                rhs_vf(momxb + 1)%sf(j, k + 1, l) = rhs_vf(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)
 
# 1797 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 1797 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 1797 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 1797 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 1797 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
                                rhs_vf(momxb)%sf(j, k + 1, l) = rhs_vf(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)
 
# 1801 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 1801 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 1801 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 1801 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 1801 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
                                rhs_vf(e_idx)%sf(j, k + 1, l) = rhs_vf(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)
 
# 1806 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 1806 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 1806 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 1806 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 1806 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
                                rhs_vf(momxb + 1)%sf(j, k, l) = rhs_vf(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)
 
# 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 atomic update
# 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"
!$omp atomic update
# 1811 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
                                rhs_vf(momxb)%sf(j, k, l) = rhs_vf(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)
 
# 1815 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 1815 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 1815 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 1815 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 1815 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
                                rhs_vf(e_idx)%sf(j, k, l) = rhs_vf(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
 
# 1823 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 1823 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 1823 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc end parallel loop
# 1823 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 1823 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
    
# 1823 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 1823 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp end target teams loop
# 1823 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
# 1823 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 1825 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
            else
# 1827 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 1827 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 1827 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 1827 "/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) 
# 1827 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 1827 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
    
# 1827 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 1827 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 1827 "/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) 
# 1827 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
# 1827 "/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
 
# 1843 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 1843 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 1843 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc loop seq 
# 1843 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 1843 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 1843 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
                                    do q = vidxb, vidxe
 
                                        !x-direction contributions
 
# 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, 1
                                            rho_l = 0._wp
 
# 1850 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 1850 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc loop seq 
# 1850 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 1850 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 1850 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
                                            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(momxb)%sf(j + 1, k + q, l)/rho_sf_small(1) - &
                                                        q_cons_vf(momxb)%sf(j - 1, k + q, l)/rho_sf_small(-1))
                                        dvel_small(2) = (1/(2._wp*dx(j)))*( &
                                                        q_cons_vf(momxb + 1)%sf(j + 1, k + q, l)/rho_sf_small(1) - &
                                                        q_cons_vf(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
 
# 1874 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 1874 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc loop seq 
# 1874 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 1874 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 1874 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
                                        do i = -1, 1
                                            rho_l = 0._wp
 
# 1877 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 1877 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc loop seq 
# 1877 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 1877 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 1877 "/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(momxb)%sf(j, k + 1 + q, l)/rho_sf_small(1) - &
                                                        q_cons_vf(momxb)%sf(j, k - 1 + q, l)/rho_sf_small(-1))
                                        dvel_small(2) = (1/(2._wp*dy(k)))*( &
                                                        q_cons_vf(momxb + 1)%sf(j, k + 1 + q, l)/rho_sf_small(1) - &
                                                        q_cons_vf(momxb + 1)%sf(j, k - 1 + q, l)/rho_sf_small(-1))
                                        dvel_small(3) = (1/(2._wp*dy(k)))*( &
                                                        q_cons_vf(momxb + 2)%sf(j, k + 1 + q, l)/rho_sf_small(1) - &
                                                        q_cons_vf(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
 
# 1906 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 1906 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc loop seq 
# 1906 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 1906 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 1906 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
                                        do i = -1, 1
                                            rho_l = 0._wp
 
# 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 loop seq 
# 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"
 
# 1909 "/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(momxb + 1)%sf(j, k + q, l + 1)/rho_sf_small(1) - &
                                                        q_cons_vf(momxb + 1)%sf(j, k + q, l - 1)/rho_sf_small(-1))
                                        dvel_small(3) = (1/(2._wp*dz(l)))*( &
                                                        q_cons_vf(momxb + 2)%sf(j, k + q, l + 1)/rho_sf_small(1) - &
                                                        q_cons_vf(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
 
 
# 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 loop seq 
# 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"
 
# 1933 "/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
 
# 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 loop seq 
# 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"
 
# 1940 "/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
 
 
# 1946 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 1946 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc loop seq 
# 1946 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 1946 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 1946 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
                                do q = vidxb + 1, vidxe
 
# 1948 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 1948 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc loop seq 
# 1948 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 1948 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 1948 "/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
 
# 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 loop seq 
# 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"
 
# 1954 "/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(e_idx + i)%sf(j, k + q, l)
                                        end do
                                    else
                                        alpha_l(1) = 1._wp
                                    end if
 
 
# 1962 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 1962 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc loop seq 
# 1962 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 1962 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 1962 "/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(momxb + i - 1)%sf(j, k + q, l)
                                    end do
                                end do
 
 
# 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 loop seq 
# 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"
 
# 1968 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
                                do q = vidxb, vidxe - 1
 
# 1970 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 1970 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc loop seq 
# 1970 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 1970 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 1970 "/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
 
# 1976 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 1976 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc loop seq 
# 1976 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 1976 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 1976 "/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(e_idx + i)%sf(j, k + q, l)
                                        end do
                                    else
                                        alpha_r(1) = 1._wp
                                    end if
 
 
# 1984 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 1984 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc loop seq 
# 1984 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 1984 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 1984 "/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(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
 
 
# 1995 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 1995 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc loop seq 
# 1995 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 1995 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 1995 "/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
 
 
# 2006 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 2006 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc loop seq 
# 2006 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 2006 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 2006 "/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
 
 
# 2017 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 2017 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc loop seq 
# 2017 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 2017 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 2017 "/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
 
# 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 loop seq 
# 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"
 
# 2026 "/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
 
 
# 2032 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 2032 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 2032 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 2032 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 2032 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
                                    rhs_vf(momxb)%sf(j, k + 1, l) = rhs_vf(momxb)%sf(j, k + 1, l) - &
                                                                    real(0.5_wp*dt*mu_l*vflux_l_arr(1)*(1._wp/dy(k + 1)), kind=stp)
 
# 2035 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 2035 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 2035 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 2035 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 2035 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
                                    rhs_vf(e_idx)%sf(j, k + 1, l) = rhs_vf(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)
 
 
# 2039 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 2039 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 2039 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 2039 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 2039 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
                                    rhs_vf(momxb)%sf(j, k, l) = rhs_vf(momxb)%sf(j, k, l) + &
                                                                real(0.5_wp*dt*mu_l*vflux_l_arr(1)*(1._wp/dy(k)), kind=stp)
 
# 2042 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 2042 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 2042 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 2042 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 2042 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
                                    rhs_vf(e_idx)%sf(j, k, l) = rhs_vf(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)
 
 
# 2046 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 2046 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 2046 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 2046 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 2046 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
                                    rhs_vf(momxb)%sf(j, k + 1, l) = rhs_vf(momxb)%sf(j, k + 1, l) - &
                                                                    real(0.5_wp*dt*mu_r*vflux_r_arr(1)*(1._wp/dy(k + 1)), kind=stp)
 
# 2049 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 2049 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 2049 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 2049 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 2049 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
                                    rhs_vf(e_idx)%sf(j, k + 1, l) = rhs_vf(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)
 
 
# 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(momxb)%sf(j, k, l) = rhs_vf(momxb)%sf(j, k, l) + &
                                                                real(0.5_wp*dt*mu_r*vflux_r_arr(1)*(1._wp/dy(k)), kind=stp)
 
# 2056 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 2056 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 2056 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 2056 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 2056 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
                                    rhs_vf(e_idx)%sf(j, k, l) = rhs_vf(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)
 
 
# 2060 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 2060 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 2060 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 2060 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 2060 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
                                    rhs_vf(momxb + 2)%sf(j, k + 1, l) = rhs_vf(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)
 
# 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(e_idx)%sf(j, k + 1, l) = rhs_vf(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)
 
 
# 2067 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 2067 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 2067 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 2067 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 2067 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
                                    rhs_vf(momxb + 2)%sf(j, k, l) = rhs_vf(momxb + 2)%sf(j, k, l) + &
                                                                    real(0.5_wp*dt*mu_l*vflux_l_arr(2)*(1._wp/dy(k)), kind=stp)
 
# 2070 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 2070 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 2070 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 2070 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 2070 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
                                    rhs_vf(e_idx)%sf(j, k, l) = rhs_vf(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)
 
 
# 2074 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 2074 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 2074 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 2074 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 2074 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
                                    rhs_vf(momxb + 2)%sf(j, k + 1, l) = rhs_vf(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)
 
# 2077 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 2077 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 2077 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 2077 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 2077 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
                                    rhs_vf(e_idx)%sf(j, k + 1, l) = rhs_vf(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)
 
 
# 2081 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 2081 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 2081 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 2081 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 2081 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
                                    rhs_vf(momxb + 2)%sf(j, k, l) = rhs_vf(momxb + 2)%sf(j, k, l) + &
                                                                    real(0.5_wp*dt*mu_r*vflux_r_arr(2)*(1._wp/dy(k)), kind=stp)
 
# 2084 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 2084 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 2084 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 2084 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 2084 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
                                    rhs_vf(e_idx)%sf(j, k, l) = rhs_vf(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)
 
 
# 2088 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 2088 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 2088 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 2088 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 2088 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
                                    rhs_vf(momxb + 1)%sf(j, k + 1, l) = rhs_vf(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)
 
# 2091 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 2091 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 2091 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 2091 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 2091 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
                                    rhs_vf(e_idx)%sf(j, k + 1, l) = rhs_vf(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)
 
 
# 2095 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 2095 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 2095 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 2095 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 2095 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
                                    rhs_vf(momxb + 1)%sf(j, k, l) = rhs_vf(momxb + 1)%sf(j, k, l) + &
                                                                    real(0.5_wp*dt*mu_l*vflux_l_arr(3)*(1._wp/dy(k)), kind=stp)
 
# 2098 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 2098 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 2098 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 2098 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 2098 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
                                    rhs_vf(e_idx)%sf(j, k, l) = rhs_vf(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)
 
 
# 2102 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 2102 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 2102 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 2102 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 2102 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
                                    rhs_vf(momxb + 1)%sf(j, k + 1, l) = rhs_vf(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)
 
# 2105 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 2105 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 2105 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 2105 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 2105 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
                                    rhs_vf(e_idx)%sf(j, k + 1, l) = rhs_vf(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)
 
 
# 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(momxb + 1)%sf(j, k, l) = rhs_vf(momxb + 1)%sf(j, k, l) + &
                                                                    real(0.5_wp*dt*mu_r*vflux_r_arr(3)*(1._wp/dy(k)), kind=stp)
 
# 2112 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 2112 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 2112 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 2112 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 2112 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
                                    rhs_vf(e_idx)%sf(j, k, l) = rhs_vf(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
 
 
# 2120 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 2120 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc loop seq 
# 2120 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 2120 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 2120 "/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(e_idx)%sf(j, k + q, l)
                                    f_l = f_l + coeff_l(q)*jac(j, k + q, l)
                                end do
 
 
# 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 loop seq 
# 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"
 
# 2126 "/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(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)
 
 
# 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 loop seq 
# 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"
 
# 2136 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
                                do i = 1, num_fluids
 
# 2138 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 2138 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 2138 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 2138 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 2138 "/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)
 
 
# 2144 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 2144 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 2144 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 2144 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 2144 "/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
 
# 2152 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 2152 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc loop seq 
# 2152 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 2152 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 2152 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
                                    do i = 1, num_fluids - 1
 
# 2154 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 2154 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 2154 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 2154 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 2154 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
                                        rhs_vf(advxb + i - 1)%sf(j, k + 1, l) = rhs_vf(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)
 
 
# 2160 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 2160 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 2160 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 2160 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 2160 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
                                        rhs_vf(advxb + i - 1)%sf(j, k + 1, l) = rhs_vf(advxb + i - 1)%sf(j, k + 1, l) &
                                                                                - real(0.5_wp*dt*q_cons_vf(advxb + i - 1)%sf(j, k + 1, l)*vel_l(2)*(1._wp/dy(k + 1)), kind=stp)
 
 
# 2164 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 2164 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 2164 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 2164 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 2164 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
                                        rhs_vf(advxb + i - 1)%sf(j, k, l) = rhs_vf(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)
 
 
# 2170 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 2170 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 2170 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 2170 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 2170 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
                                        rhs_vf(advxb + i - 1)%sf(j, k, l) = rhs_vf(advxb + i - 1)%sf(j, k, l) &
                                                                            + real(0.5_wp*dt*q_cons_vf(advxb + i - 1)%sf(j, k, l)*vel_l(2)*(1._wp/dy(k)), kind=stp)
                                    end do
                                end if
 
 
# 2176 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 2176 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 2176 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 2176 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 2176 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
                                rhs_vf(momxb + 1)%sf(j, k + 1, l) = rhs_vf(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)
 
 
# 2182 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 2182 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 2182 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 2182 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 2182 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
                                rhs_vf(momxb)%sf(j, k + 1, l) = rhs_vf(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)
 
 
# 2187 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 2187 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 2187 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 2187 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 2187 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
                                rhs_vf(momxb + 2)%sf(j, k + 1, l) = rhs_vf(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)
 
 
# 2192 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 2192 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 2192 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 2192 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 2192 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
                                rhs_vf(e_idx)%sf(j, k + 1, l) = rhs_vf(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)
 
 
# 2198 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 2198 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 2198 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 2198 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 2198 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
                                rhs_vf(momxb + 1)%sf(j, k, l) = rhs_vf(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)
 
 
# 2204 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 2204 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 2204 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 2204 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 2204 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
                                rhs_vf(momxb)%sf(j, k, l) = rhs_vf(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)
 
 
# 2209 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 2209 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 2209 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 2209 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 2209 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
                                rhs_vf(momxb + 2)%sf(j, k, l) = rhs_vf(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)
 
 
# 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 atomic update
# 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"
!$omp atomic update
# 2214 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
                                rhs_vf(e_idx)%sf(j, k, l) = rhs_vf(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)
 
 
# 2220 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 2220 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc loop seq 
# 2220 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 2220 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 2220 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
                                do i = 1, num_fluids
 
# 2222 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 2222 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 2222 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 2222 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 2222 "/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)
 
 
# 2228 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 2228 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 2228 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 2228 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 2228 "/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
 
# 2236 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 2236 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc loop seq 
# 2236 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 2236 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 2236 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
                                    do i = 1, num_fluids - 1
 
# 2238 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 2238 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 2238 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 2238 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 2238 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
                                        rhs_vf(advxb + i - 1)%sf(j, k + 1, l) = rhs_vf(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)
 
 
# 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 atomic update
# 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"
!$omp atomic update
# 2244 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
                                        rhs_vf(advxb + i - 1)%sf(j, k + 1, l) = rhs_vf(advxb + i - 1)%sf(j, k + 1, l) &
                                                                                - real(0.5_wp*dt*q_cons_vf(advxb + i - 1)%sf(j, k + 1, l)*vel_r(2)*(1._wp/dy(k + 1)), kind=stp)
 
 
# 2248 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 2248 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 2248 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 2248 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 2248 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
                                        rhs_vf(advxb + i - 1)%sf(j, k, l) = rhs_vf(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)
 
 
# 2254 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 2254 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 2254 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 2254 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 2254 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
                                        rhs_vf(advxb + i - 1)%sf(j, k, l) = rhs_vf(advxb + i - 1)%sf(j, k, l) &
                                                                            + real(0.5_wp*dt*q_cons_vf(advxb + i - 1)%sf(j, k, l)*vel_r(2)*(1._wp/dy(k)), kind=stp)
                                    end do
                                end if
 
 
# 2260 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 2260 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 2260 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 2260 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 2260 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
                                rhs_vf(momxb + 1)%sf(j, k + 1, l) = rhs_vf(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)
 
 
# 2266 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 2266 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 2266 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 2266 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 2266 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
                                rhs_vf(momxb)%sf(j, k + 1, l) = rhs_vf(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)
 
 
# 2271 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 2271 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 2271 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 2271 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 2271 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
                                rhs_vf(momxb + 2)%sf(j, k + 1, l) = rhs_vf(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)
 
 
# 2276 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 2276 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 2276 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 2276 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 2276 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
                                rhs_vf(e_idx)%sf(j, k + 1, l) = rhs_vf(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)
 
 
# 2282 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 2282 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 2282 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 2282 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 2282 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
                                rhs_vf(momxb + 1)%sf(j, k, l) = rhs_vf(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)
 
 
# 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 atomic update
# 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"
!$omp atomic update
# 2288 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
                                rhs_vf(momxb)%sf(j, k, l) = rhs_vf(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)
 
 
# 2293 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 2293 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 2293 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 2293 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 2293 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
                                rhs_vf(momxb + 2)%sf(j, k, l) = rhs_vf(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)
 
 
# 2298 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 2298 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 2298 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 2298 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 2298 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
                                rhs_vf(e_idx)%sf(j, k, l) = rhs_vf(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
 
# 2307 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 2307 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 2307 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc end parallel loop
# 2307 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 2307 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
    
# 2307 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 2307 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp end target teams loop
# 2307 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
# 2307 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 2309 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
            end if
        elseif (idir == 3) then
# 2312 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 2312 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 2312 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 2312 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc 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) 
# 2312 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 2312 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
    
# 2312 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 2312 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 2312 "/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) 
# 2312 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
# 2312 "/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
 
# 2328 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 2328 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 2328 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc loop seq 
# 2328 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 2328 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 2328 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
                                do q = vidxb, vidxe
 
                                    !x-direction contributions
 
# 2332 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 2332 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc loop seq 
# 2332 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 2332 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 2332 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
                                    do i = -1, 1
                                        rho_l = 0._wp
 
# 2335 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 2335 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc loop seq 
# 2335 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 2335 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 2335 "/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(momxb)%sf(j + 1, k, l + q)/rho_sf_small(1) - &
                                                    q_cons_vf(momxb)%sf(j - 1, k, l + q)/rho_sf_small(-1))
                                    dvel_small(3) = (1/(2._wp*dx(j)))*( &
                                                    q_cons_vf(momxb + 2)%sf(j + 1, k, l + q)/rho_sf_small(1) - &
                                                    q_cons_vf(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
 
# 2359 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 2359 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc loop seq 
# 2359 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 2359 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 2359 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
                                    do i = -1, 1
                                        rho_l = 0._wp
 
# 2362 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 2362 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc loop seq 
# 2362 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 2362 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 2362 "/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(momxb + 1)%sf(j, k + 1, l + q)/rho_sf_small(1) - &
                                                    q_cons_vf(momxb + 1)%sf(j, k - 1, l + q)/rho_sf_small(-1))
                                    dvel_small(3) = (1/(2._wp*dy(k)))*( &
                                                    q_cons_vf(momxb + 2)%sf(j, k + 1, l + q)/rho_sf_small(1) - &
                                                    q_cons_vf(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
 
# 2386 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 2386 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc loop seq 
# 2386 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 2386 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 2386 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
                                    do i = -1, 1
                                        rho_l = 0._wp
 
# 2389 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 2389 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc loop seq 
# 2389 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 2389 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 2389 "/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(momxb)%sf(j, k, l + 1 + q)/rho_sf_small(1) - &
                                                    q_cons_vf(momxb)%sf(j, k, l - 1 + q)/rho_sf_small(-1))
                                    dvel_small(2) = (1/(2._wp*dz(l)))*( &
                                                    q_cons_vf(momxb + 1)%sf(j, k, l + 1 + q)/rho_sf_small(1) - &
                                                    q_cons_vf(momxb + 1)%sf(j, k, l - 1 + q)/rho_sf_small(-1))
                                    dvel_small(3) = (1/(2._wp*dz(l)))*( &
                                                    q_cons_vf(momxb + 2)%sf(j, k, l + 1 + q)/rho_sf_small(1) - &
                                                    q_cons_vf(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
 
 
# 2417 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 2417 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc loop seq 
# 2417 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 2417 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 2417 "/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
 
 
# 2425 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 2425 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc loop seq 
# 2425 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 2425 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 2425 "/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
 
 
# 2431 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 2431 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc loop seq 
# 2431 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 2431 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 2431 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
                            do q = vidxb + 1, vidxe
 
# 2433 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 2433 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc loop seq 
# 2433 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 2433 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 2433 "/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
 
# 2439 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 2439 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc loop seq 
# 2439 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 2439 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 2439 "/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(e_idx + i)%sf(j, k, l + q)
                                    end do
                                else
                                    alpha_l(1) = 1._wp
                                end if
 
 
# 2447 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 2447 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc loop seq 
# 2447 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 2447 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 2447 "/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(momxb + i - 1)%sf(j, k, l + q)
                                end do
                            end do
 
 
# 2453 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 2453 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc loop seq 
# 2453 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 2453 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 2453 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
                            do q = vidxb, vidxe - 1
 
# 2455 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 2455 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc loop seq 
# 2455 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 2455 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 2455 "/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
 
# 2461 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 2461 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc loop seq 
# 2461 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 2461 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 2461 "/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(e_idx + i)%sf(j, k, l + q)
                                    end do
                                else
                                    alpha_r(1) = 1._wp
                                end if
 
 
# 2469 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 2469 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc loop seq 
# 2469 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 2469 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 2469 "/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(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
 
 
# 2480 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 2480 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc loop seq 
# 2480 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 2480 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 2480 "/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
 
 
# 2491 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 2491 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc loop seq 
# 2491 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 2491 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 2491 "/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
 
 
# 2502 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 2502 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc loop seq 
# 2502 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 2502 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 2502 "/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
 
# 2511 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 2511 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc loop seq 
# 2511 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 2511 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 2511 "/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
 
 
# 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(momxb)%sf(j, k, l + 1) = rhs_vf(momxb)%sf(j, k, l + 1) - &
                                                                real(0.5_wp*dt*mu_l*vflux_l_arr(1)*(1._wp/dz(l + 1)), kind=stp)
 
# 2520 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 2520 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 2520 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 2520 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 2520 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
                                rhs_vf(e_idx)%sf(j, k, l + 1) = rhs_vf(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)
 
 
# 2524 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 2524 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 2524 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 2524 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 2524 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
                                rhs_vf(momxb)%sf(j, k, l) = rhs_vf(momxb)%sf(j, k, l) + &
                                                            real(0.5_wp*dt*mu_l*vflux_l_arr(1)*(1._wp/dz(l)), 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(e_idx)%sf(j, k, l) = rhs_vf(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)
 
 
# 2531 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 2531 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 2531 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 2531 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 2531 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
                                rhs_vf(momxb)%sf(j, k, l + 1) = rhs_vf(momxb)%sf(j, k, l + 1) - &
                                                                real(0.5_wp*dt*mu_r*vflux_r_arr(1)*(1._wp/dz(l + 1)), kind=stp)
 
# 2534 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 2534 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 2534 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 2534 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 2534 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
                                rhs_vf(e_idx)%sf(j, k, l + 1) = rhs_vf(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)
 
 
# 2538 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 2538 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 2538 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 2538 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 2538 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
                                rhs_vf(momxb)%sf(j, k, l) = rhs_vf(momxb)%sf(j, k, l) + &
                                                            real(0.5_wp*dt*mu_r*vflux_r_arr(1)*(1._wp/dz(l)), kind=stp)
 
# 2541 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 2541 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 2541 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 2541 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 2541 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
                                rhs_vf(e_idx)%sf(j, k, l) = rhs_vf(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)
 
 
# 2545 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 2545 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 2545 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 2545 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 2545 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
                                rhs_vf(momxb + 1)%sf(j, k, l + 1) = rhs_vf(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)
 
# 2548 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 2548 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 2548 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 2548 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 2548 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
                                rhs_vf(e_idx)%sf(j, k, l + 1) = rhs_vf(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)
 
 
# 2552 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 2552 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 2552 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 2552 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 2552 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
                                rhs_vf(momxb + 1)%sf(j, k, l) = rhs_vf(momxb + 1)%sf(j, k, l) + &
                                                                real(0.5_wp*dt*mu_l*vflux_l_arr(2)*(1._wp/dz(l)), kind=stp)
 
# 2555 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 2555 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 2555 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 2555 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 2555 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
                                rhs_vf(e_idx)%sf(j, k, l) = rhs_vf(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)
 
 
# 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(momxb + 1)%sf(j, k, l + 1) = rhs_vf(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)
 
# 2562 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 2562 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 2562 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 2562 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 2562 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
                                rhs_vf(e_idx)%sf(j, k, l + 1) = rhs_vf(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)
 
 
# 2566 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 2566 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 2566 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 2566 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 2566 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
                                rhs_vf(momxb + 1)%sf(j, k, l) = rhs_vf(momxb + 1)%sf(j, k, l) + &
                                                                real(0.5_wp*dt*mu_r*vflux_r_arr(2)*(1._wp/dz(l)), kind=stp)
 
# 2569 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 2569 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 2569 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 2569 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 2569 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
                                rhs_vf(e_idx)%sf(j, k, l) = rhs_vf(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)
 
 
# 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(momxb + 2)%sf(j, k, l + 1) = rhs_vf(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)
 
# 2576 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 2576 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 2576 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 2576 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 2576 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
                                rhs_vf(e_idx)%sf(j, k, l + 1) = rhs_vf(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)
 
 
# 2580 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 2580 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 2580 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 2580 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 2580 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
                                rhs_vf(momxb + 2)%sf(j, k, l) = rhs_vf(momxb + 2)%sf(j, k, l) + &
                                                                real(0.5_wp*dt*mu_l*vflux_l_arr(3)*(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(e_idx)%sf(j, k, l) = rhs_vf(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)
 
 
# 2587 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 2587 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 2587 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 2587 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 2587 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
                                rhs_vf(momxb + 2)%sf(j, k, l + 1) = rhs_vf(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)
 
# 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(e_idx)%sf(j, k, l + 1) = rhs_vf(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)
 
 
# 2594 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 2594 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 2594 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 2594 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 2594 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
                                rhs_vf(momxb + 2)%sf(j, k, l) = rhs_vf(momxb + 2)%sf(j, k, l) + &
                                                                real(0.5_wp*dt*mu_r*vflux_r_arr(3)*(1._wp/dz(l)), kind=stp)
 
# 2597 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 2597 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 2597 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 2597 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 2597 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
                                rhs_vf(e_idx)%sf(j, k, l) = rhs_vf(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
 
 
# 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 loop seq 
# 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"
 
# 2605 "/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(e_idx)%sf(j, k, l + q)
                                f_l = f_l + coeff_l(q)*jac(j, k, l + q)
                            end do
 
 
# 2611 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 2611 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc loop seq 
# 2611 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 2611 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 2611 "/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(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)
 
 
# 2621 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 2621 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc loop seq 
# 2621 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 2621 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 2621 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
                            do i = 1, num_fluids
 
# 2623 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 2623 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 2623 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 2623 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 2623 "/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)
 
 
# 2629 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 2629 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 2629 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 2629 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 2629 "/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
 
# 2637 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 2637 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc loop seq 
# 2637 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 2637 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 2637 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
                                do i = 1, num_fluids - 1
 
# 2639 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 2639 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 2639 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 2639 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 2639 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
                                    rhs_vf(advxb + i - 1)%sf(j, k, l + 1) = rhs_vf(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)
 
 
# 2645 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 2645 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 2645 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 2645 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 2645 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
                                    rhs_vf(advxb + i - 1)%sf(j, k, l + 1) = rhs_vf(advxb + i - 1)%sf(j, k, l + 1) &
                                                                            - real(0.5_wp*dt*q_cons_vf(advxb + i - 1)%sf(j, k, l + 1)*vel_l(3)*(1._wp/dz(l + 1)), kind=stp)
 
 
# 2649 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 2649 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 2649 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 2649 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 2649 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
                                    rhs_vf(advxb + i - 1)%sf(j, k, l) = rhs_vf(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)
 
 
# 2655 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 2655 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 2655 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 2655 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 2655 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
                                    rhs_vf(advxb + i - 1)%sf(j, k, l) = rhs_vf(advxb + i - 1)%sf(j, k, l) &
                                                                        + real(0.5_wp*dt*q_cons_vf(advxb + i - 1)%sf(j, k, l)*vel_l(3)*(1._wp/dz(l)), kind=stp)
                                end do
                            end if
 
 
# 2661 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 2661 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 2661 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 2661 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 2661 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
                            rhs_vf(momxb + 2)%sf(j, k, l + 1) = rhs_vf(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)
 
 
# 2667 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 2667 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 2667 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 2667 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 2667 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
                            rhs_vf(momxb)%sf(j, k, l + 1) = rhs_vf(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)
 
 
# 2672 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 2672 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 2672 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 2672 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 2672 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
                            rhs_vf(momxb + 1)%sf(j, k, l + 1) = rhs_vf(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)
 
 
# 2677 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 2677 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 2677 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 2677 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 2677 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
                            rhs_vf(e_idx)%sf(j, k, l + 1) = rhs_vf(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)
 
 
# 2683 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 2683 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 2683 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 2683 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 2683 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
                            rhs_vf(momxb + 2)%sf(j, k, l) = rhs_vf(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)
 
 
# 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 atomic update
# 2689 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 2689 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 2689 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
                            rhs_vf(momxb)%sf(j, k, l) = rhs_vf(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)
 
 
# 2694 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 2694 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 2694 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 2694 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 2694 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
                            rhs_vf(momxb + 1)%sf(j, k, l) = rhs_vf(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)
 
 
# 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 atomic update
# 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"
!$omp atomic update
# 2699 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
                            rhs_vf(e_idx)%sf(j, k, l) = rhs_vf(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)
 
 
# 2705 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 2705 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc loop seq 
# 2705 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 2705 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 2705 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
                            do i = 1, num_fluids
 
# 2707 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 2707 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 2707 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 2707 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 2707 "/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)
 
 
# 2713 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 2713 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 2713 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 2713 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 2713 "/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
 
# 2721 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 2721 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc loop seq 
# 2721 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 2721 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 2721 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
                                do i = 1, num_fluids - 1
 
# 2723 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 2723 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 2723 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 2723 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 2723 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
                                    rhs_vf(advxb + i - 1)%sf(j, k, l + 1) = rhs_vf(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)
 
 
# 2729 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 2729 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 2729 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 2729 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 2729 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
                                    rhs_vf(advxb + i - 1)%sf(j, k, l + 1) = rhs_vf(advxb + i - 1)%sf(j, k, l + 1) &
                                                                            - real(0.5_wp*dt*q_cons_vf(advxb + i - 1)%sf(j, k, l + 1)*vel_r(3)*(1._wp/dz(l + 1)), kind=stp)
 
 
# 2733 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 2733 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 2733 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 2733 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 2733 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
                                    rhs_vf(advxb + i - 1)%sf(j, k, l) = rhs_vf(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)
 
 
# 2739 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 2739 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 2739 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 2739 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 2739 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
                                    rhs_vf(advxb + i - 1)%sf(j, k, l) = rhs_vf(advxb + i - 1)%sf(j, k, l) &
                                                                        + real(0.5_wp*dt*q_cons_vf(advxb + i - 1)%sf(j, k, l)*vel_r(3)*(1._wp/dz(l)), kind=stp)
                                end do
                            end if
 
 
# 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 atomic update
# 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 atomic update
# 2745 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
                            rhs_vf(momxb + 2)%sf(j, k, l + 1) = rhs_vf(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)
 
 
# 2751 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 2751 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 2751 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 2751 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 2751 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
                            rhs_vf(momxb)%sf(j, k, l + 1) = rhs_vf(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)
 
 
# 2756 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 2756 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 2756 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 2756 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 2756 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
                            rhs_vf(momxb + 1)%sf(j, k, l + 1) = rhs_vf(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)
 
 
# 2761 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 2761 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 2761 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 2761 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 2761 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
                            rhs_vf(e_idx)%sf(j, k, l + 1) = rhs_vf(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)
 
 
# 2767 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 2767 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 2767 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 2767 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 2767 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
                            rhs_vf(momxb + 2)%sf(j, k, l) = rhs_vf(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)
 
 
# 2773 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 2773 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 2773 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 2773 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 2773 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
                            rhs_vf(momxb)%sf(j, k, l) = rhs_vf(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)
 
 
# 2778 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 2778 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 2778 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 2778 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 2778 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
                            rhs_vf(momxb + 1)%sf(j, k, l) = rhs_vf(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)
 
 
# 2783 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 2783 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc atomic update
# 2783 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 2783 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp atomic update
# 2783 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
                            rhs_vf(e_idx)%sf(j, k, l) = rhs_vf(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
 
# 2792 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 2792 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 2792 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc end parallel loop
# 2792 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 2792 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
    
# 2792 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 2792 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp end target teams loop
# 2792 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
# 2792 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 2794 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
        end if
 
    end subroutine s_igr_riemann_solver
 
    !> @brief Computes pressure and maximum wavespeed from left and right reconstructed states for the IGR Riemann solver.
    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)
 
# 2802 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if MFC_OpenACC
# 2802 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc routine seq 
# 2802 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif MFC_OpenMP
# 2802 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
    
# 2802 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 2802 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp declare target device_type(any) 
# 2802 "/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)
        elseif (num_dims == 3) then
# 2828 "/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)
# 2843 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
        end if
 
    end subroutine s_get_derived_states
 
    !> @brief Accumulates the IGR numerical flux divergence into the right-hand side along the specified coordinate 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
 
# 2857 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 2857 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 2857 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc parallel loop collapse(4) gang vector default(present) private(i, j, k, l) 
# 2857 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 2857 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
    
# 2857 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 2857 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 2857 "/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) 
# 2857 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
# 2857 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
            do i = 1, sys_size
                do l = 0, p
                    do k = 0, n
                        do j = 0, m
                            rhs_vf(i)%sf(j, k, l) = 1._wp/dx(j)* &
                                                    (flux_vf(i)%sf(j - 1, k, l) &
                                                     - flux_vf(i)%sf(j, k, l))
                        end do
                    end do
                end do
            end do
 
# 2869 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 2869 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 2869 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc end parallel loop
# 2869 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 2869 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
    
# 2869 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 2869 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp end target teams loop
# 2869 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
# 2869 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
        elseif (idir == 2) then
 
# 2871 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 2871 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 2871 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc parallel loop collapse(4) gang vector default(present) private(i, j, k, l) 
# 2871 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 2871 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
    
# 2871 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 2871 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 2871 "/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) 
# 2871 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
# 2871 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
            do i = 1, sys_size
                do l = 0, p
                    do k = 0, n
                        do j = 0, m
                            rhs_vf(i)%sf(j, k, l) = &
                                rhs_vf(i)%sf(j, k, l) + 1._wp/dy(k)* &
                                (flux_vf(i)%sf(j, k - 1, l) &
                                 - flux_vf(i)%sf(j, k, l))
                        end do
                    end do
                end do
            end do
 
# 2884 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 2884 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 2884 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc end parallel loop
# 2884 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 2884 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
    
# 2884 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 2884 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp end target teams loop
# 2884 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
# 2884 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
        elseif (idir == 3) then
 
# 2886 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 2886 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 2886 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc parallel loop collapse(4) gang vector default(present) private(i, j, k, l) 
# 2886 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 2886 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
    
# 2886 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 2886 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 2886 "/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) 
# 2886 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
# 2886 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
            do i = 1, sys_size
                do l = 0, p
                    do k = 0, n
                        do j = 0, m
                            rhs_vf(i)%sf(j, k, l) = &
                                rhs_vf(i)%sf(j, k, l) + 1._wp/dz(l)* &
                                (flux_vf(i)%sf(j, k, l - 1) &
                                 - flux_vf(i)%sf(j, k, l))
                        end do
                    end do
                end do
            end do
 
# 2899 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 2899 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 2899 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc end parallel loop
# 2899 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 2899 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
    
# 2899 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 2899 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp end target teams loop
# 2899 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
# 2899 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
        end if
 
    end subroutine s_igr_flux_add
 
    !> @brief Deallocates all arrays and GPU resources allocated by the IGR module.
    subroutine s_finalize_igr_module()
 
        if (viscous) then
#ifdef MFC_DEBUG
# 2908 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
    block
# 2908 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
        use iso_fortran_env, only: output_unit
# 2908 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 2908 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
        print *, 'm_igr.fpp:2908: ', '@:DEALLOCATE(Res_igr)'
# 2908 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 2908 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
        call flush (output_unit)
# 2908 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
    end block
# 2908 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
# 2908 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 2908 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 2908 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc exit data delete(Res_igr) 
# 2908 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 2908 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp target exit data map(release:Res_igr) 
# 2908 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
# 2908 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
    deallocate (res_igr)
        end if
 
#ifndef __NVCOMPILER_GPU_UNIFIED_MEM
#ifdef MFC_DEBUG
# 2912 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
    block
# 2912 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
        use iso_fortran_env, only: output_unit
# 2912 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 2912 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
        print *, 'm_igr.fpp:2912: ', '@:DEALLOCATE(jac, jac_rhs)'
# 2912 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 2912 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
        call flush (output_unit)
# 2912 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
    end block
# 2912 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
# 2912 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 2912 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 2912 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc exit data delete(jac, jac_rhs) 
# 2912 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 2912 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp target exit data map(release:jac, jac_rhs) 
# 2912 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
# 2912 "/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
# 2915 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
    block
# 2915 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
        use iso_fortran_env, only: output_unit
# 2915 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 2915 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
        print *, 'm_igr.fpp:2915: ', '@:DEALLOCATE(jac_old)'
# 2915 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 2915 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
        call flush (output_unit)
# 2915 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
    end block
# 2915 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
# 2915 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 2915 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 2915 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc exit data delete(jac_old) 
# 2915 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 2915 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp target exit data map(release:jac_old) 
# 2915 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
# 2915 "/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
# 2919 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
    block
# 2919 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
        use iso_fortran_env, only: output_unit
# 2919 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 2919 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
        print *, 'm_igr.fpp:2919: ', '@:DEALLOCATE(jac)'
# 2919 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 2919 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
        call flush (output_unit)
# 2919 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
    end block
# 2919 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
# 2919 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 2919 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 2919 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc exit data delete(jac) 
# 2919 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 2919 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp target exit data map(release:jac) 
# 2919 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
# 2919 "/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
# 2926 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
    block
# 2926 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
        use iso_fortran_env, only: output_unit
# 2926 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 2926 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
        print *, 'm_igr.fpp:2926: ', '@:DEALLOCATE(jac_rhs)'
# 2926 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 2926 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
        call flush (output_unit)
# 2926 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
    end block
# 2926 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
# 2926 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 2926 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 2926 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc exit data delete(jac_rhs) 
# 2926 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 2926 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp target exit data map(release:jac_rhs) 
# 2926 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
# 2926 "/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
# 2934 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
    block
# 2934 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
        use iso_fortran_env, only: output_unit
# 2934 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 2934 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
        print *, 'm_igr.fpp:2934: ', '@:DEALLOCATE(jac_old)'
# 2934 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 2934 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
        call flush (output_unit)
# 2934 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
    end block
# 2934 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
# 2934 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 2934 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 2934 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc exit data delete(jac_old) 
# 2934 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 2934 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp target exit data map(release:jac_old) 
# 2934 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
# 2934 "/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
 
# 2943 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#ifdef MFC_DEBUG
# 2943 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
    block
# 2943 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
        use iso_fortran_env, only: output_unit
# 2943 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 2943 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
        print *, 'm_igr.fpp:2943: ', '@:DEALLOCATE(coeff_L, coeff_R)'
# 2943 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 2943 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
        call flush (output_unit)
# 2943 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
    end block
# 2943 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
# 2943 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
# 2943 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#if defined(MFC_OpenACC)
# 2943 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$acc exit data delete(coeff_L, coeff_R) 
# 2943 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#elif defined(MFC_OpenMP)
# 2943 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
!$omp target exit data map(release:coeff_L, coeff_R) 
# 2943 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
#endif
# 2943 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
    deallocate (coeff_l, coeff_r)
# 2945 "/home/runner/work/MFC/MFC/src/simulation/m_igr.fpp"
 
    end subroutine s_finalize_igr_module
 
end module m_igr