m_cbc.fpp.f90

Go to the documentation of this file.

# 1 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!>
!! @file
!! @brief Contains module m_cbc
 
!> @brief Characteristic boundary conditions (CBC) for slip walls, non-reflecting subsonic inflow/outflow, and supersonic boundaries
# 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"
# 7 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp" 2
# 1 "/home/runner/work/MFC/MFC/src/common/include/macros.fpp" 1
# 1 "/home/runner/work/MFC/MFC/src/common/include/parallel_macros.fpp" 1
# 1 "/home/runner/work/MFC/MFC/src/common/include/shared_parallel_macros.fpp" 1
# 2 "/home/runner/work/MFC/MFC/src/common/include/shared_parallel_macros.fpp"
# 3 "/home/runner/work/MFC/MFC/src/common/include/shared_parallel_macros.fpp"
# 4 "/home/runner/work/MFC/MFC/src/common/include/shared_parallel_macros.fpp"
# 5 "/home/runner/work/MFC/MFC/src/common/include/shared_parallel_macros.fpp"
# 6 "/home/runner/work/MFC/MFC/src/common/include/shared_parallel_macros.fpp"
 
# 8 "/home/runner/work/MFC/MFC/src/common/include/shared_parallel_macros.fpp"
# 9 "/home/runner/work/MFC/MFC/src/common/include/shared_parallel_macros.fpp"
# 10 "/home/runner/work/MFC/MFC/src/common/include/shared_parallel_macros.fpp"
 
# 17 "/home/runner/work/MFC/MFC/src/common/include/shared_parallel_macros.fpp"
 
# 46 "/home/runner/work/MFC/MFC/src/common/include/shared_parallel_macros.fpp"
 
# 58 "/home/runner/work/MFC/MFC/src/common/include/shared_parallel_macros.fpp"
 
# 68 "/home/runner/work/MFC/MFC/src/common/include/shared_parallel_macros.fpp"
 
# 98 "/home/runner/work/MFC/MFC/src/common/include/shared_parallel_macros.fpp"
 
# 110 "/home/runner/work/MFC/MFC/src/common/include/shared_parallel_macros.fpp"
 
# 120 "/home/runner/work/MFC/MFC/src/common/include/shared_parallel_macros.fpp"
! New line at end of file is required for FYPP
# 2 "/home/runner/work/MFC/MFC/src/common/include/parallel_macros.fpp" 2
# 1 "/home/runner/work/MFC/MFC/src/common/include/omp_macros.fpp" 1
# 1 "/home/runner/work/MFC/MFC/src/common/include/shared_parallel_macros.fpp" 1
# 2 "/home/runner/work/MFC/MFC/src/common/include/shared_parallel_macros.fpp"
# 3 "/home/runner/work/MFC/MFC/src/common/include/shared_parallel_macros.fpp"
# 4 "/home/runner/work/MFC/MFC/src/common/include/shared_parallel_macros.fpp"
# 5 "/home/runner/work/MFC/MFC/src/common/include/shared_parallel_macros.fpp"
# 6 "/home/runner/work/MFC/MFC/src/common/include/shared_parallel_macros.fpp"
 
# 8 "/home/runner/work/MFC/MFC/src/common/include/shared_parallel_macros.fpp"
# 9 "/home/runner/work/MFC/MFC/src/common/include/shared_parallel_macros.fpp"
# 10 "/home/runner/work/MFC/MFC/src/common/include/shared_parallel_macros.fpp"
 
# 17 "/home/runner/work/MFC/MFC/src/common/include/shared_parallel_macros.fpp"
 
# 46 "/home/runner/work/MFC/MFC/src/common/include/shared_parallel_macros.fpp"
 
# 58 "/home/runner/work/MFC/MFC/src/common/include/shared_parallel_macros.fpp"
 
# 68 "/home/runner/work/MFC/MFC/src/common/include/shared_parallel_macros.fpp"
 
# 98 "/home/runner/work/MFC/MFC/src/common/include/shared_parallel_macros.fpp"
 
# 110 "/home/runner/work/MFC/MFC/src/common/include/shared_parallel_macros.fpp"
 
# 120 "/home/runner/work/MFC/MFC/src/common/include/shared_parallel_macros.fpp"
! New line at end of file is required for FYPP
# 2 "/home/runner/work/MFC/MFC/src/common/include/omp_macros.fpp" 2
 
# 4 "/home/runner/work/MFC/MFC/src/common/include/omp_macros.fpp"
# 5 "/home/runner/work/MFC/MFC/src/common/include/omp_macros.fpp"
# 6 "/home/runner/work/MFC/MFC/src/common/include/omp_macros.fpp"
# 7 "/home/runner/work/MFC/MFC/src/common/include/omp_macros.fpp"
# 8 "/home/runner/work/MFC/MFC/src/common/include/omp_macros.fpp"
 
# 20 "/home/runner/work/MFC/MFC/src/common/include/omp_macros.fpp"
 
# 43 "/home/runner/work/MFC/MFC/src/common/include/omp_macros.fpp"
 
# 48 "/home/runner/work/MFC/MFC/src/common/include/omp_macros.fpp"
 
# 53 "/home/runner/work/MFC/MFC/src/common/include/omp_macros.fpp"
 
# 58 "/home/runner/work/MFC/MFC/src/common/include/omp_macros.fpp"
 
# 63 "/home/runner/work/MFC/MFC/src/common/include/omp_macros.fpp"
 
# 68 "/home/runner/work/MFC/MFC/src/common/include/omp_macros.fpp"
 
# 76 "/home/runner/work/MFC/MFC/src/common/include/omp_macros.fpp"
 
# 81 "/home/runner/work/MFC/MFC/src/common/include/omp_macros.fpp"
 
# 86 "/home/runner/work/MFC/MFC/src/common/include/omp_macros.fpp"
 
# 91 "/home/runner/work/MFC/MFC/src/common/include/omp_macros.fpp"
 
# 96 "/home/runner/work/MFC/MFC/src/common/include/omp_macros.fpp"
 
# 101 "/home/runner/work/MFC/MFC/src/common/include/omp_macros.fpp"
 
# 106 "/home/runner/work/MFC/MFC/src/common/include/omp_macros.fpp"
 
# 111 "/home/runner/work/MFC/MFC/src/common/include/omp_macros.fpp"
 
# 116 "/home/runner/work/MFC/MFC/src/common/include/omp_macros.fpp"
 
# 121 "/home/runner/work/MFC/MFC/src/common/include/omp_macros.fpp"
 
# 151 "/home/runner/work/MFC/MFC/src/common/include/omp_macros.fpp"
 
# 192 "/home/runner/work/MFC/MFC/src/common/include/omp_macros.fpp"
 
# 207 "/home/runner/work/MFC/MFC/src/common/include/omp_macros.fpp"
 
# 232 "/home/runner/work/MFC/MFC/src/common/include/omp_macros.fpp"
 
# 243 "/home/runner/work/MFC/MFC/src/common/include/omp_macros.fpp"
 
# 245 "/home/runner/work/MFC/MFC/src/common/include/omp_macros.fpp"
# 255 "/home/runner/work/MFC/MFC/src/common/include/omp_macros.fpp"
 
# 283 "/home/runner/work/MFC/MFC/src/common/include/omp_macros.fpp"
 
# 293 "/home/runner/work/MFC/MFC/src/common/include/omp_macros.fpp"
 
# 303 "/home/runner/work/MFC/MFC/src/common/include/omp_macros.fpp"
 
# 312 "/home/runner/work/MFC/MFC/src/common/include/omp_macros.fpp"
 
# 329 "/home/runner/work/MFC/MFC/src/common/include/omp_macros.fpp"
 
# 339 "/home/runner/work/MFC/MFC/src/common/include/omp_macros.fpp"
 
# 346 "/home/runner/work/MFC/MFC/src/common/include/omp_macros.fpp"
 
# 352 "/home/runner/work/MFC/MFC/src/common/include/omp_macros.fpp"
 
# 358 "/home/runner/work/MFC/MFC/src/common/include/omp_macros.fpp"
 
# 364 "/home/runner/work/MFC/MFC/src/common/include/omp_macros.fpp"
 
# 370 "/home/runner/work/MFC/MFC/src/common/include/omp_macros.fpp"
 
# 376 "/home/runner/work/MFC/MFC/src/common/include/omp_macros.fpp"
! New line at end of file is required for FYPP
# 3 "/home/runner/work/MFC/MFC/src/common/include/parallel_macros.fpp" 2
# 1 "/home/runner/work/MFC/MFC/src/common/include/acc_macros.fpp" 1
# 1 "/home/runner/work/MFC/MFC/src/common/include/shared_parallel_macros.fpp" 1
# 2 "/home/runner/work/MFC/MFC/src/common/include/shared_parallel_macros.fpp"
# 3 "/home/runner/work/MFC/MFC/src/common/include/shared_parallel_macros.fpp"
# 4 "/home/runner/work/MFC/MFC/src/common/include/shared_parallel_macros.fpp"
# 5 "/home/runner/work/MFC/MFC/src/common/include/shared_parallel_macros.fpp"
# 6 "/home/runner/work/MFC/MFC/src/common/include/shared_parallel_macros.fpp"
 
# 8 "/home/runner/work/MFC/MFC/src/common/include/shared_parallel_macros.fpp"
# 9 "/home/runner/work/MFC/MFC/src/common/include/shared_parallel_macros.fpp"
# 10 "/home/runner/work/MFC/MFC/src/common/include/shared_parallel_macros.fpp"
 
# 17 "/home/runner/work/MFC/MFC/src/common/include/shared_parallel_macros.fpp"
 
# 46 "/home/runner/work/MFC/MFC/src/common/include/shared_parallel_macros.fpp"
 
# 58 "/home/runner/work/MFC/MFC/src/common/include/shared_parallel_macros.fpp"
 
# 68 "/home/runner/work/MFC/MFC/src/common/include/shared_parallel_macros.fpp"
 
# 98 "/home/runner/work/MFC/MFC/src/common/include/shared_parallel_macros.fpp"
 
# 110 "/home/runner/work/MFC/MFC/src/common/include/shared_parallel_macros.fpp"
 
# 120 "/home/runner/work/MFC/MFC/src/common/include/shared_parallel_macros.fpp"
! New line at end of file is required for FYPP
# 2 "/home/runner/work/MFC/MFC/src/common/include/acc_macros.fpp" 2
 
# 7 "/home/runner/work/MFC/MFC/src/common/include/acc_macros.fpp"
 
# 17 "/home/runner/work/MFC/MFC/src/common/include/acc_macros.fpp"
 
# 22 "/home/runner/work/MFC/MFC/src/common/include/acc_macros.fpp"
 
# 27 "/home/runner/work/MFC/MFC/src/common/include/acc_macros.fpp"
 
# 32 "/home/runner/work/MFC/MFC/src/common/include/acc_macros.fpp"
 
# 37 "/home/runner/work/MFC/MFC/src/common/include/acc_macros.fpp"
 
# 42 "/home/runner/work/MFC/MFC/src/common/include/acc_macros.fpp"
 
# 47 "/home/runner/work/MFC/MFC/src/common/include/acc_macros.fpp"
 
# 52 "/home/runner/work/MFC/MFC/src/common/include/acc_macros.fpp"
 
# 57 "/home/runner/work/MFC/MFC/src/common/include/acc_macros.fpp"
 
# 62 "/home/runner/work/MFC/MFC/src/common/include/acc_macros.fpp"
 
# 73 "/home/runner/work/MFC/MFC/src/common/include/acc_macros.fpp"
 
# 78 "/home/runner/work/MFC/MFC/src/common/include/acc_macros.fpp"
 
# 83 "/home/runner/work/MFC/MFC/src/common/include/acc_macros.fpp"
 
# 88 "/home/runner/work/MFC/MFC/src/common/include/acc_macros.fpp"
 
# 103 "/home/runner/work/MFC/MFC/src/common/include/acc_macros.fpp"
 
# 131 "/home/runner/work/MFC/MFC/src/common/include/acc_macros.fpp"
 
# 160 "/home/runner/work/MFC/MFC/src/common/include/acc_macros.fpp"
 
# 175 "/home/runner/work/MFC/MFC/src/common/include/acc_macros.fpp"
 
# 192 "/home/runner/work/MFC/MFC/src/common/include/acc_macros.fpp"
 
# 213 "/home/runner/work/MFC/MFC/src/common/include/acc_macros.fpp"
 
# 241 "/home/runner/work/MFC/MFC/src/common/include/acc_macros.fpp"
 
# 256 "/home/runner/work/MFC/MFC/src/common/include/acc_macros.fpp"
 
# 266 "/home/runner/work/MFC/MFC/src/common/include/acc_macros.fpp"
 
# 275 "/home/runner/work/MFC/MFC/src/common/include/acc_macros.fpp"
 
# 291 "/home/runner/work/MFC/MFC/src/common/include/acc_macros.fpp"
 
# 301 "/home/runner/work/MFC/MFC/src/common/include/acc_macros.fpp"
 
# 308 "/home/runner/work/MFC/MFC/src/common/include/acc_macros.fpp"
! New line at end of file is required for FYPP
# 4 "/home/runner/work/MFC/MFC/src/common/include/parallel_macros.fpp" 2
 
# 21 "/home/runner/work/MFC/MFC/src/common/include/parallel_macros.fpp"
 
# 37 "/home/runner/work/MFC/MFC/src/common/include/parallel_macros.fpp"
 
# 50 "/home/runner/work/MFC/MFC/src/common/include/parallel_macros.fpp"
 
# 104 "/home/runner/work/MFC/MFC/src/common/include/parallel_macros.fpp"
 
# 119 "/home/runner/work/MFC/MFC/src/common/include/parallel_macros.fpp"
 
# 130 "/home/runner/work/MFC/MFC/src/common/include/parallel_macros.fpp"
 
# 143 "/home/runner/work/MFC/MFC/src/common/include/parallel_macros.fpp"
 
# 171 "/home/runner/work/MFC/MFC/src/common/include/parallel_macros.fpp"
 
# 182 "/home/runner/work/MFC/MFC/src/common/include/parallel_macros.fpp"
 
# 193 "/home/runner/work/MFC/MFC/src/common/include/parallel_macros.fpp"
 
# 204 "/home/runner/work/MFC/MFC/src/common/include/parallel_macros.fpp"
 
# 214 "/home/runner/work/MFC/MFC/src/common/include/parallel_macros.fpp"
 
# 225 "/home/runner/work/MFC/MFC/src/common/include/parallel_macros.fpp"
 
# 236 "/home/runner/work/MFC/MFC/src/common/include/parallel_macros.fpp"
 
# 246 "/home/runner/work/MFC/MFC/src/common/include/parallel_macros.fpp"
 
# 252 "/home/runner/work/MFC/MFC/src/common/include/parallel_macros.fpp"
 
# 258 "/home/runner/work/MFC/MFC/src/common/include/parallel_macros.fpp"
 
# 264 "/home/runner/work/MFC/MFC/src/common/include/parallel_macros.fpp"
 
# 270 "/home/runner/work/MFC/MFC/src/common/include/parallel_macros.fpp"
 
# 272 "/home/runner/work/MFC/MFC/src/common/include/parallel_macros.fpp"
# 273 "/home/runner/work/MFC/MFC/src/common/include/parallel_macros.fpp"
! New line at end of file is required for FYPP
# 2 "/home/runner/work/MFC/MFC/src/common/include/macros.fpp" 2
 
# 14 "/home/runner/work/MFC/MFC/src/common/include/macros.fpp"
 
! Caution:
! This macro requires the use of a binding script to set CUDA_VISIBLE_DEVICES, such that we have one GPU device per MPI rank.
! That's because for both cudaMemAdvise (preferred location) and cudaMemPrefetchAsync we use location = device_id = 0.
! For an example see misc/nvidia_uvm/bind.sh.
# 63 "/home/runner/work/MFC/MFC/src/common/include/macros.fpp"
 
# 81 "/home/runner/work/MFC/MFC/src/common/include/macros.fpp"
 
# 88 "/home/runner/work/MFC/MFC/src/common/include/macros.fpp"
 
# 111 "/home/runner/work/MFC/MFC/src/common/include/macros.fpp"
 
# 127 "/home/runner/work/MFC/MFC/src/common/include/macros.fpp"
 
# 153 "/home/runner/work/MFC/MFC/src/common/include/macros.fpp"
 
# 159 "/home/runner/work/MFC/MFC/src/common/include/macros.fpp"
 
# 167 "/home/runner/work/MFC/MFC/src/common/include/macros.fpp"
! New line at end of file is required for FYPP
# 8 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp" 2
 
module m_cbc
 
    use m_derived_types        !< definitions of the derived types
 
    use m_global_parameters    !< definitions of the global parameters
 
    use m_variables_conversion !< state variables type conversion procedures
 
    use m_compute_cbc
 
    use m_thermochem, only: &
        get_mixture_energy_mass, get_mixture_specific_heat_cv_mass, &
        get_mixture_specific_heat_cp_mass, gas_constant, &
        get_mixture_molecular_weight, get_species_enthalpies_rt, &
        molecular_weights, get_species_specific_heats_r, &
        get_mole_fractions, get_species_specific_heats_r
 
# 29 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
    implicit none
 
    private; public :: s_initialize_cbc_module, s_cbc, s_finalize_cbc_module
 
    !! The cell-average primitive variables. They are obtained by reshaping (RS)
    !! q_prim_vf in the coordinate direction normal to the domain boundary along
    !! which the CBC is applied.
 
    real(wp), allocatable, dimension(:, :, :, :) :: q_prim_rsx_vf
    real(wp), allocatable, dimension(:, :, :, :) :: q_prim_rsy_vf
    real(wp), allocatable, dimension(:, :, :, :) :: q_prim_rsz_vf
 
# 40 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 40 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc declare create(q_prim_rsx_vf, q_prim_rsy_vf, q_prim_rsz_vf) 
# 40 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 40 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$omp declare target (q_prim_rsx_vf, q_prim_rsy_vf, q_prim_rsz_vf) 
# 40 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
 
    !! Cell-average fluxes (src - source). These are directly determined from the
    !! cell-average primitive variables, q_prims_rs_vf, and not a Riemann solver.
 
    real(wp), allocatable, dimension(:, :, :, :) :: f_rsx_vf, f_src_rsx_vf !<
    real(wp), allocatable, dimension(:, :, :, :) :: f_rsy_vf, f_src_rsy_vf !<
    real(wp), allocatable, dimension(:, :, :, :) :: f_rsz_vf, f_src_rsz_vf !<
 
# 48 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 48 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc declare create(F_rsx_vf, F_src_rsx_vf, F_rsy_vf, F_src_rsy_vf, F_rsz_vf, F_src_rsz_vf) 
# 48 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 48 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$omp declare target (F_rsx_vf, F_src_rsx_vf, F_rsy_vf, F_src_rsy_vf, F_rsz_vf, F_src_rsz_vf) 
# 48 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
 
    !! There is a CCE bug that is causing some subset of these variables to interfere
    !! with variables of the same name in m_riemann_solvers.fpp, and giving this versions
    !! unique "_l" names works around the bug. Other private module allocatable arrays
    !! in `acc declare create` clauses don't have this problem, so we still need to
    !! isolate this bug.
 
    real(wp), allocatable, dimension(:, :, :, :) :: flux_rsx_vf_l, flux_src_rsx_vf_l !<
    real(wp), allocatable, dimension(:, :, :, :) :: flux_rsy_vf_l, flux_src_rsy_vf_l
    real(wp), allocatable, dimension(:, :, :, :) :: flux_rsz_vf_l, flux_src_rsz_vf_l
 
# 59 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 59 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc declare create(flux_rsx_vf_l, flux_src_rsx_vf_l, flux_rsy_vf_l, flux_src_rsy_vf_l, flux_rsz_vf_l, flux_src_rsz_vf_l) 
# 59 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 59 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$omp declare target (flux_rsx_vf_l, flux_src_rsx_vf_l, flux_rsy_vf_l, flux_src_rsy_vf_l, flux_rsz_vf_l, flux_src_rsz_vf_l) 
# 59 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
 
    real(wp), allocatable, dimension(:) :: ds !< Cell-width distribution in the s-direction
 
    ! CBC Coefficients
 
    real(wp), allocatable, dimension(:, :) :: fd_coef_x !< Finite diff. coefficients x-dir
    real(wp), allocatable, dimension(:, :) :: fd_coef_y !< Finite diff. coefficients y-dir
    real(wp), allocatable, dimension(:, :) :: fd_coef_z !< Finite diff. coefficients z-dir
 
    !! The first dimension identifies the location of a coefficient in the FD
    !! formula, while the last dimension denotes the location of the CBC.
 
    ! Bug with NVHPC when using nullified pointers in a declare create
    !    real(wp), pointer, dimension(:, :) :: fd_coef => null()
 
    real(wp), allocatable, dimension(:, :, :) :: pi_coef_x !< Polynomial interpolant coefficients in x-dir
    real(wp), allocatable, dimension(:, :, :) :: pi_coef_y !< Polynomial interpolant coefficients in y-dir
    real(wp), allocatable, dimension(:, :, :) :: pi_coef_z !< Polynomial interpolant coefficients in z-dir
 
 
# 79 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 79 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc declare create(ds, fd_coef_x, fd_coef_y, fd_coef_z, pi_coef_x, pi_coef_y, pi_coef_z) 
# 79 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 79 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$omp declare target (ds, fd_coef_x, fd_coef_y, fd_coef_z, pi_coef_x, pi_coef_y, pi_coef_z) 
# 79 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
 
    !! The first dimension of the array identifies the polynomial, the
    !! second dimension identifies the position of its coefficients and the last
    !! dimension denotes the location of the CBC.
 
    type(int_bounds_info) :: is1, is2, is3 !< Indical bounds in the s1-, s2- and s3-directions
 
# 86 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 86 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc declare create(is1, is2, is3) 
# 86 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 86 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$omp declare target (is1, is2, is3) 
# 86 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
 
    integer :: dj
    integer :: bcxb, bcxe, bcyb, bcye, bczb, bcze
    integer :: cbc_dir, cbc_loc
    integer :: flux_cbc_index
 
# 92 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 92 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc declare create(dj, bcxb, bcxe, bcyb, bcye, bczb, bcze) 
# 92 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 92 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$omp declare target (dj, bcxb, bcxe, bcyb, bcye, bczb, bcze) 
# 92 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
 
# 93 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 93 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc declare create(cbc_dir, cbc_loc, flux_cbc_index) 
# 93 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 93 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$omp declare target (cbc_dir, cbc_loc, flux_cbc_index) 
# 93 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
 
    !! GRCBC inputs for subsonic inflow and outflow conditions consisting of
    !! inflow velocities, pressure, density and void fraction as well as
    !! outflow velocities and pressure
 
    real(wp), allocatable, dimension(:) :: pres_in, pres_out, del_in, del_out
    real(wp), allocatable, dimension(:, :) :: vel_in, vel_out
    real(wp), allocatable, dimension(:, :) :: alpha_rho_in, alpha_in
 
# 102 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 102 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc declare create(pres_in, pres_out, Del_in, Del_out) 
# 102 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 102 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$omp declare target (pres_in, pres_out, Del_in, Del_out) 
# 102 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
 
# 103 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 103 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc declare create(vel_in, vel_out) 
# 103 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 103 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$omp declare target (vel_in, vel_out) 
# 103 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
 
# 104 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 104 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc declare create(alpha_rho_in, alpha_in) 
# 104 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 104 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$omp declare target (alpha_rho_in, alpha_in) 
# 104 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
 
contains
 
    !>  The computation of parameters, the allocation of memory,
        !!      the association of pointers and/or the execution of any
        !!      other procedures that are necessary to setup the module.
    impure subroutine s_initialize_cbc_module
 
        integer :: i
        logical :: is_cbc
        type(int_bounds_info) :: idx1, idx2
 
        if (chemistry) then
            flux_cbc_index = sys_size
        else
            flux_cbc_index = adv_idx%end
        end if
 
# 122 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 122 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc update device(flux_cbc_index) 
# 122 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 122 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$omp target update to(flux_cbc_index) 
# 122 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
 
        call s_any_cbc_boundaries(is_cbc)
 
        if (is_cbc .eqv. .false.) return
 
        if (n == 0) then
            is2%beg = 0
 
        else
            is2%beg = -buff_size
        end if
 
        is2%end = n - is2%beg
 
        if (p == 0) then
            is3%beg = 0
 
        else
            is3%beg = -buff_size
        end if
        is3%end = p - is3%beg
 
#ifdef MFC_DEBUG
# 145 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
    block
# 145 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
        use iso_fortran_env, only: output_unit
# 145 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 145 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
        print *, 'm_cbc.fpp:145: ', '@:ALLOCATE(q_prim_rsx_vf(0:buff_size, is2%beg:is2%end, is3%beg:is3%end, 1:sys_size))'
# 145 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 145 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
        call flush (output_unit)
# 145 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
    end block
# 145 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
# 145 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
    allocate (q_prim_rsx_vf(0:buff_size,             is2%beg:is2%end,             is3%beg:is3%end, 1:sys_size))
# 145 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 145 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 145 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 145 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc enter data create(q_prim_rsx_vf) 
# 145 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 145 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$omp target enter data map(always,alloc:q_prim_rsx_vf) 
# 145 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
# 148 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
        if (weno_order > 1 .or. muscl_order > 1) then
 
#ifdef MFC_DEBUG
# 151 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
    block
# 151 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
        use iso_fortran_env, only: output_unit
# 151 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 151 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
        print *, 'm_cbc.fpp:151: ', '@:ALLOCATE(F_rsx_vf(0:buff_size, is2%beg:is2%end, is3%beg:is3%end, 1:flux_cbc_index))'
# 151 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 151 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
        call flush (output_unit)
# 151 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
    end block
# 151 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
# 151 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
    allocate (f_rsx_vf(0:buff_size,                 is2%beg:is2%end,                 is3%beg:is3%end, 1:flux_cbc_index))
# 151 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 151 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 151 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 151 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc enter data create(F_rsx_vf) 
# 151 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 151 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$omp target enter data map(always,alloc:F_rsx_vf) 
# 151 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
# 154 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
#ifdef MFC_DEBUG
# 155 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
    block
# 155 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
        use iso_fortran_env, only: output_unit
# 155 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 155 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
        print *, 'm_cbc.fpp:155: ', '@:ALLOCATE(F_src_rsx_vf(0:buff_size, is2%beg:is2%end, is3%beg:is3%end, adv_idx%beg:adv_idx%end))'
# 155 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 155 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
        call flush (output_unit)
# 155 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
    end block
# 155 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
# 155 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
    allocate (f_src_rsx_vf(0:buff_size,                 is2%beg:is2%end,                 is3%beg:is3%end, adv_idx%beg:adv_idx%end))
# 155 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 155 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 155 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 155 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc enter data create(F_src_rsx_vf) 
# 155 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 155 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$omp target enter data map(always,alloc:F_src_rsx_vf) 
# 155 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
# 158 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
        end if
 
#ifdef MFC_DEBUG
# 161 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
    block
# 161 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
        use iso_fortran_env, only: output_unit
# 161 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 161 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
        print *, 'm_cbc.fpp:161: ', '@:ALLOCATE(flux_rsx_vf_l(-1:buff_size, is2%beg:is2%end, is3%beg:is3%end, 1:flux_cbc_index))'
# 161 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 161 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
        call flush (output_unit)
# 161 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
    end block
# 161 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
# 161 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
    allocate (flux_rsx_vf_l(-1:buff_size,             is2%beg:is2%end,             is3%beg:is3%end, 1:flux_cbc_index))
# 161 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 161 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 161 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 161 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc enter data create(flux_rsx_vf_l) 
# 161 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 161 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$omp target enter data map(always,alloc:flux_rsx_vf_l) 
# 161 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
# 164 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
#ifdef MFC_DEBUG
# 165 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
    block
# 165 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
        use iso_fortran_env, only: output_unit
# 165 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 165 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
        print *, 'm_cbc.fpp:165: ', '@:ALLOCATE(flux_src_rsx_vf_l(-1:buff_size, is2%beg:is2%end, is3%beg:is3%end, adv_idx%beg:adv_idx%end))'
# 165 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 165 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
        call flush (output_unit)
# 165 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
    end block
# 165 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
# 165 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
    allocate (flux_src_rsx_vf_l(-1:buff_size,             is2%beg:is2%end,             is3%beg:is3%end, adv_idx%beg:adv_idx%end))
# 165 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 165 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 165 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 165 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc enter data create(flux_src_rsx_vf_l) 
# 165 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 165 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$omp target enter data map(always,alloc:flux_src_rsx_vf_l) 
# 165 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
# 168 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
        if (n > 0) then
 
            if (m == 0) then
                is2%beg = 0
 
            else
                is2%beg = -buff_size
            end if
 
            is2%end = m - is2%beg
 
            if (p == 0) then
                is3%beg = 0
 
            else
                is3%beg = -buff_size
            end if
            is3%end = p - is3%beg
 
#ifdef MFC_DEBUG
# 188 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
    block
# 188 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
        use iso_fortran_env, only: output_unit
# 188 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 188 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
        print *, 'm_cbc.fpp:188: ', '@:ALLOCATE(q_prim_rsy_vf(0:buff_size, is2%beg:is2%end, is3%beg:is3%end, 1:sys_size))'
# 188 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 188 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
        call flush (output_unit)
# 188 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
    end block
# 188 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
# 188 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
    allocate (q_prim_rsy_vf(0:buff_size,                 is2%beg:is2%end,                 is3%beg:is3%end, 1:sys_size))
# 188 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 188 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 188 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 188 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc enter data create(q_prim_rsy_vf) 
# 188 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 188 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$omp target enter data map(always,alloc:q_prim_rsy_vf) 
# 188 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
# 191 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
            if (weno_order > 1 .or. muscl_order > 1) then
 
#ifdef MFC_DEBUG
# 194 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
    block
# 194 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
        use iso_fortran_env, only: output_unit
# 194 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 194 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
        print *, 'm_cbc.fpp:194: ', '@:ALLOCATE(F_rsy_vf(0:buff_size, is2%beg:is2%end, is3%beg:is3%end, 1:flux_cbc_index))'
# 194 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 194 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
        call flush (output_unit)
# 194 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
    end block
# 194 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
# 194 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
    allocate (f_rsy_vf(0:buff_size,                     is2%beg:is2%end,                     is3%beg:is3%end, 1:flux_cbc_index))
# 194 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 194 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 194 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 194 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc enter data create(F_rsy_vf) 
# 194 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 194 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$omp target enter data map(always,alloc:F_rsy_vf) 
# 194 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
# 197 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
#ifdef MFC_DEBUG
# 198 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
    block
# 198 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
        use iso_fortran_env, only: output_unit
# 198 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 198 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
        print *, 'm_cbc.fpp:198: ', '@:ALLOCATE(F_src_rsy_vf(0:buff_size, is2%beg:is2%end, is3%beg:is3%end, adv_idx%beg:adv_idx%end))'
# 198 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 198 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
        call flush (output_unit)
# 198 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
    end block
# 198 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
# 198 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
    allocate (f_src_rsy_vf(0:buff_size,                     is2%beg:is2%end,                     is3%beg:is3%end, adv_idx%beg:adv_idx%end))
# 198 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 198 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 198 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 198 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc enter data create(F_src_rsy_vf) 
# 198 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 198 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$omp target enter data map(always,alloc:F_src_rsy_vf) 
# 198 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
# 201 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
            end if
 
#ifdef MFC_DEBUG
# 204 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
    block
# 204 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
        use iso_fortran_env, only: output_unit
# 204 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 204 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
        print *, 'm_cbc.fpp:204: ', '@:ALLOCATE(flux_rsy_vf_l(-1:buff_size, is2%beg:is2%end, is3%beg:is3%end, 1:flux_cbc_index))'
# 204 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 204 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
        call flush (output_unit)
# 204 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
    end block
# 204 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
# 204 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
    allocate (flux_rsy_vf_l(-1:buff_size,                 is2%beg:is2%end,                 is3%beg:is3%end, 1:flux_cbc_index))
# 204 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 204 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 204 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 204 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc enter data create(flux_rsy_vf_l) 
# 204 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 204 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$omp target enter data map(always,alloc:flux_rsy_vf_l) 
# 204 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
# 207 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
#ifdef MFC_DEBUG
# 208 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
    block
# 208 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
        use iso_fortran_env, only: output_unit
# 208 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 208 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
        print *, 'm_cbc.fpp:208: ', '@:ALLOCATE(flux_src_rsy_vf_l(-1:buff_size, is2%beg:is2%end, is3%beg:is3%end, adv_idx%beg:adv_idx%end))'
# 208 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 208 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
        call flush (output_unit)
# 208 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
    end block
# 208 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
# 208 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
    allocate (flux_src_rsy_vf_l(-1:buff_size,                 is2%beg:is2%end,                 is3%beg:is3%end, adv_idx%beg:adv_idx%end))
# 208 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 208 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 208 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 208 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc enter data create(flux_src_rsy_vf_l) 
# 208 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 208 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$omp target enter data map(always,alloc:flux_src_rsy_vf_l) 
# 208 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
# 211 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
        end if
 
        if (p > 0) then
 
            if (n == 0) then
                is2%beg = 0
 
            else
                is2%beg = -buff_size
            end if
 
            is2%end = n - is2%beg
 
            if (m == 0) then
                is3%beg = 0
 
            else
                is3%beg = -buff_size
            end if
            is3%end = m - is3%beg
 
#ifdef MFC_DEBUG
# 233 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
    block
# 233 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
        use iso_fortran_env, only: output_unit
# 233 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 233 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
        print *, 'm_cbc.fpp:233: ', '@:ALLOCATE(q_prim_rsz_vf(0:buff_size, is2%beg:is2%end, is3%beg:is3%end, 1:sys_size))'
# 233 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 233 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
        call flush (output_unit)
# 233 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
    end block
# 233 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
# 233 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
    allocate (q_prim_rsz_vf(0:buff_size,                 is2%beg:is2%end,                 is3%beg:is3%end, 1:sys_size))
# 233 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 233 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 233 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 233 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc enter data create(q_prim_rsz_vf) 
# 233 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 233 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$omp target enter data map(always,alloc:q_prim_rsz_vf) 
# 233 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
# 236 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
            if (weno_order > 1 .or. muscl_order > 1) then
 
#ifdef MFC_DEBUG
# 239 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
    block
# 239 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
        use iso_fortran_env, only: output_unit
# 239 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 239 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
        print *, 'm_cbc.fpp:239: ', '@:ALLOCATE(F_rsz_vf(0:buff_size, is2%beg:is2%end, is3%beg:is3%end, 1:flux_cbc_index))'
# 239 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 239 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
        call flush (output_unit)
# 239 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
    end block
# 239 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
# 239 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
    allocate (f_rsz_vf(0:buff_size,                     is2%beg:is2%end,                     is3%beg:is3%end, 1:flux_cbc_index))
# 239 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 239 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 239 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 239 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc enter data create(F_rsz_vf) 
# 239 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 239 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$omp target enter data map(always,alloc:F_rsz_vf) 
# 239 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
# 242 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
#ifdef MFC_DEBUG
# 243 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
    block
# 243 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
        use iso_fortran_env, only: output_unit
# 243 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 243 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
        print *, 'm_cbc.fpp:243: ', '@:ALLOCATE(F_src_rsz_vf(0:buff_size, is2%beg:is2%end, is3%beg:is3%end, adv_idx%beg:adv_idx%end))'
# 243 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 243 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
        call flush (output_unit)
# 243 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
    end block
# 243 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
# 243 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
    allocate (f_src_rsz_vf(0:buff_size,                     is2%beg:is2%end,                     is3%beg:is3%end, adv_idx%beg:adv_idx%end))
# 243 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 243 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 243 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 243 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc enter data create(F_src_rsz_vf) 
# 243 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 243 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$omp target enter data map(always,alloc:F_src_rsz_vf) 
# 243 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
# 246 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
            end if
 
#ifdef MFC_DEBUG
# 249 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
    block
# 249 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
        use iso_fortran_env, only: output_unit
# 249 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 249 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
        print *, 'm_cbc.fpp:249: ', '@:ALLOCATE(flux_rsz_vf_l(-1:buff_size, is2%beg:is2%end, is3%beg:is3%end, 1:flux_cbc_index))'
# 249 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 249 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
        call flush (output_unit)
# 249 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
    end block
# 249 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
# 249 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
    allocate (flux_rsz_vf_l(-1:buff_size,                 is2%beg:is2%end,                 is3%beg:is3%end, 1:flux_cbc_index))
# 249 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 249 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 249 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 249 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc enter data create(flux_rsz_vf_l) 
# 249 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 249 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$omp target enter data map(always,alloc:flux_rsz_vf_l) 
# 249 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
# 252 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
#ifdef MFC_DEBUG
# 253 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
    block
# 253 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
        use iso_fortran_env, only: output_unit
# 253 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 253 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
        print *, 'm_cbc.fpp:253: ', '@:ALLOCATE(flux_src_rsz_vf_l(-1:buff_size, is2%beg:is2%end, is3%beg:is3%end, adv_idx%beg:adv_idx%end))'
# 253 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 253 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
        call flush (output_unit)
# 253 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
    end block
# 253 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
# 253 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
    allocate (flux_src_rsz_vf_l(-1:buff_size,                 is2%beg:is2%end,                 is3%beg:is3%end, adv_idx%beg:adv_idx%end))
# 253 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 253 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 253 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 253 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc enter data create(flux_src_rsz_vf_l) 
# 253 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 253 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$omp target enter data map(always,alloc:flux_src_rsz_vf_l) 
# 253 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
# 256 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
        end if
 
        ! Allocating the cell-width distribution in the s-direction
#ifdef MFC_DEBUG
# 260 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
    block
# 260 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
        use iso_fortran_env, only: output_unit
# 260 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 260 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
        print *, 'm_cbc.fpp:260: ', '@:ALLOCATE(ds(0:buff_size))'
# 260 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 260 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
        call flush (output_unit)
# 260 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
    end block
# 260 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
# 260 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
    allocate (ds(0:buff_size))
# 260 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 260 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 260 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 260 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc enter data create(ds) 
# 260 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 260 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$omp target enter data map(always,alloc:ds) 
# 260 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
 
        if (recon_type == weno_type) then
            idx1%beg = 0
            idx1%end = weno_polyn - 1
            idx2%beg = 0
            idx2%end = weno_order - 3
        else if (recon_type == muscl_type) then
            idx1%beg = 0
            idx1%end = muscl_polyn
            idx2%beg = 0
            idx2%end = muscl_order - 1
        end if
        ! Allocating/Computing CBC Coefficients in x-direction
        if (all((/bc_x%beg, bc_x%end/) <= -5) .and. all((/bc_x%beg, bc_x%end/) >= -13)) then
 
#ifdef MFC_DEBUG
# 276 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
    block
# 276 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
        use iso_fortran_env, only: output_unit
# 276 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 276 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
        print *, 'm_cbc.fpp:276: ', '@:ALLOCATE(fd_coef_x(0:buff_size, -1:1))'
# 276 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 276 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
        call flush (output_unit)
# 276 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
    end block
# 276 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
# 276 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
    allocate (fd_coef_x(0:buff_size, -1:1))
# 276 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 276 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 276 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 276 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc enter data create(fd_coef_x) 
# 276 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 276 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$omp target enter data map(always,alloc:fd_coef_x) 
# 276 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
 
            if (weno_order > 1 .or. muscl_order > 1) then
#ifdef MFC_DEBUG
# 279 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
    block
# 279 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
        use iso_fortran_env, only: output_unit
# 279 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 279 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
        print *, 'm_cbc.fpp:279: ', '@:ALLOCATE(pi_coef_x(idx1%beg:idx1%end, idx2%beg:idx2%end, -1:1))'
# 279 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 279 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
        call flush (output_unit)
# 279 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
    end block
# 279 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
# 279 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
    allocate (pi_coef_x(idx1%beg:idx1%end, idx2%beg:idx2%end, -1:1))
# 279 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 279 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 279 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 279 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc enter data create(pi_coef_x) 
# 279 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 279 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$omp target enter data map(always,alloc:pi_coef_x) 
# 279 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
            end if
 
            call s_compute_cbc_coefficients(1, -1)
            call s_compute_cbc_coefficients(1, 1)
 
        elseif (bc_x%beg <= -5 .and. bc_x%beg >= -13) then
 
#ifdef MFC_DEBUG
# 287 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
    block
# 287 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
        use iso_fortran_env, only: output_unit
# 287 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 287 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
        print *, 'm_cbc.fpp:287: ', '@:ALLOCATE(fd_coef_x(0:buff_size, -1:-1))'
# 287 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 287 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
        call flush (output_unit)
# 287 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
    end block
# 287 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
# 287 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
    allocate (fd_coef_x(0:buff_size, -1:-1))
# 287 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 287 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 287 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 287 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc enter data create(fd_coef_x) 
# 287 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 287 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$omp target enter data map(always,alloc:fd_coef_x) 
# 287 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
 
            if (weno_order > 1 .or. muscl_order > 1) then
#ifdef MFC_DEBUG
# 290 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
    block
# 290 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
        use iso_fortran_env, only: output_unit
# 290 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 290 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
        print *, 'm_cbc.fpp:290: ', '@:ALLOCATE(pi_coef_x(idx1%beg:idx1%end, idx2%beg:idx2%end, -1:-1))'
# 290 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 290 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
        call flush (output_unit)
# 290 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
    end block
# 290 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
# 290 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
    allocate (pi_coef_x(idx1%beg:idx1%end, idx2%beg:idx2%end, -1:-1))
# 290 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 290 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 290 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 290 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc enter data create(pi_coef_x) 
# 290 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 290 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$omp target enter data map(always,alloc:pi_coef_x) 
# 290 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
            end if
 
            call s_compute_cbc_coefficients(1, -1)
 
        elseif (bc_x%end <= -5 .and. bc_x%end >= -13) then
 
#ifdef MFC_DEBUG
# 297 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
    block
# 297 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
        use iso_fortran_env, only: output_unit
# 297 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 297 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
        print *, 'm_cbc.fpp:297: ', '@:ALLOCATE(fd_coef_x(0:buff_size, 1:1))'
# 297 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 297 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
        call flush (output_unit)
# 297 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
    end block
# 297 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
# 297 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
    allocate (fd_coef_x(0:buff_size, 1:1))
# 297 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 297 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 297 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 297 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc enter data create(fd_coef_x) 
# 297 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 297 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$omp target enter data map(always,alloc:fd_coef_x) 
# 297 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
 
            if (weno_order > 1 .or. muscl_order > 1) then
#ifdef MFC_DEBUG
# 300 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
    block
# 300 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
        use iso_fortran_env, only: output_unit
# 300 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 300 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
        print *, 'm_cbc.fpp:300: ', '@:ALLOCATE(pi_coef_x(idx1%beg:idx1%end, idx2%beg:idx2%end, 1:1))'
# 300 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 300 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
        call flush (output_unit)
# 300 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
    end block
# 300 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
# 300 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
    allocate (pi_coef_x(idx1%beg:idx1%end, idx2%beg:idx2%end, 1:1))
# 300 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 300 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 300 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 300 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc enter data create(pi_coef_x) 
# 300 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 300 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$omp target enter data map(always,alloc:pi_coef_x) 
# 300 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
            end if
 
            call s_compute_cbc_coefficients(1, 1)
 
        end if
 
        ! Allocating/Computing CBC Coefficients in y-direction
        if (n > 0) then
 
            if (all((/bc_y%beg, bc_y%end/) <= -5) .and. all((/bc_y%beg, bc_y%end/) >= -13)) then
 
#ifdef MFC_DEBUG
# 312 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
    block
# 312 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
        use iso_fortran_env, only: output_unit
# 312 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 312 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
        print *, 'm_cbc.fpp:312: ', '@:ALLOCATE(fd_coef_y(0:buff_size, -1:1))'
# 312 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 312 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
        call flush (output_unit)
# 312 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
    end block
# 312 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
# 312 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
    allocate (fd_coef_y(0:buff_size, -1:1))
# 312 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 312 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 312 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 312 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc enter data create(fd_coef_y) 
# 312 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 312 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$omp target enter data map(always,alloc:fd_coef_y) 
# 312 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
 
                if (weno_order > 1 .or. muscl_order > 1) then
#ifdef MFC_DEBUG
# 315 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
    block
# 315 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
        use iso_fortran_env, only: output_unit
# 315 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 315 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
        print *, 'm_cbc.fpp:315: ', '@:ALLOCATE(pi_coef_y(idx1%beg:idx1%end, idx2%beg:idx2%end, -1:1))'
# 315 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 315 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
        call flush (output_unit)
# 315 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
    end block
# 315 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
# 315 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
    allocate (pi_coef_y(idx1%beg:idx1%end, idx2%beg:idx2%end, -1:1))
# 315 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 315 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 315 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 315 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc enter data create(pi_coef_y) 
# 315 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 315 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$omp target enter data map(always,alloc:pi_coef_y) 
# 315 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
                end if
 
                call s_compute_cbc_coefficients(2, -1)
                call s_compute_cbc_coefficients(2, 1)
 
            elseif (bc_y%beg <= -5 .and. bc_y%beg >= -13) then
 
#ifdef MFC_DEBUG
# 323 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
    block
# 323 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
        use iso_fortran_env, only: output_unit
# 323 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 323 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
        print *, 'm_cbc.fpp:323: ', '@:ALLOCATE(fd_coef_y(0:buff_size, -1:-1))'
# 323 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 323 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
        call flush (output_unit)
# 323 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
    end block
# 323 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
# 323 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
    allocate (fd_coef_y(0:buff_size, -1:-1))
# 323 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 323 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 323 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 323 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc enter data create(fd_coef_y) 
# 323 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 323 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$omp target enter data map(always,alloc:fd_coef_y) 
# 323 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
 
                if (weno_order > 1 .or. muscl_order > 1) then
#ifdef MFC_DEBUG
# 326 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
    block
# 326 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
        use iso_fortran_env, only: output_unit
# 326 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 326 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
        print *, 'm_cbc.fpp:326: ', '@:ALLOCATE(pi_coef_y(idx1%beg:idx1%end, idx2%beg:idx2%end, -1:-1))'
# 326 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 326 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
        call flush (output_unit)
# 326 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
    end block
# 326 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
# 326 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
    allocate (pi_coef_y(idx1%beg:idx1%end, idx2%beg:idx2%end, -1:-1))
# 326 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 326 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 326 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 326 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc enter data create(pi_coef_y) 
# 326 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 326 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$omp target enter data map(always,alloc:pi_coef_y) 
# 326 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
                end if
 
                call s_compute_cbc_coefficients(2, -1)
 
            elseif (bc_y%end <= -5 .and. bc_y%end >= -13) then
 
#ifdef MFC_DEBUG
# 333 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
    block
# 333 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
        use iso_fortran_env, only: output_unit
# 333 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 333 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
        print *, 'm_cbc.fpp:333: ', '@:ALLOCATE(fd_coef_y(0:buff_size, 1:1))'
# 333 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 333 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
        call flush (output_unit)
# 333 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
    end block
# 333 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
# 333 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
    allocate (fd_coef_y(0:buff_size, 1:1))
# 333 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 333 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 333 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 333 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc enter data create(fd_coef_y) 
# 333 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 333 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$omp target enter data map(always,alloc:fd_coef_y) 
# 333 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
 
                if (weno_order > 1 .or. muscl_order > 1) then
#ifdef MFC_DEBUG
# 336 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
    block
# 336 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
        use iso_fortran_env, only: output_unit
# 336 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 336 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
        print *, 'm_cbc.fpp:336: ', '@:ALLOCATE(pi_coef_y(idx1%beg:idx1%end, idx2%beg:idx2%end, 1:1))'
# 336 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 336 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
        call flush (output_unit)
# 336 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
    end block
# 336 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
# 336 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
    allocate (pi_coef_y(idx1%beg:idx1%end, idx2%beg:idx2%end, 1:1))
# 336 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 336 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 336 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 336 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc enter data create(pi_coef_y) 
# 336 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 336 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$omp target enter data map(always,alloc:pi_coef_y) 
# 336 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
                end if
 
                call s_compute_cbc_coefficients(2, 1)
 
            end if
 
        end if
 
        ! Allocating/Computing CBC Coefficients in z-direction
        if (p > 0) then
 
            if (all((/bc_z%beg, bc_z%end/) <= -5) .and. all((/bc_z%beg, bc_z%end/) >= -13)) then
 
#ifdef MFC_DEBUG
# 350 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
    block
# 350 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
        use iso_fortran_env, only: output_unit
# 350 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 350 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
        print *, 'm_cbc.fpp:350: ', '@:ALLOCATE(fd_coef_z(0:buff_size, -1:1))'
# 350 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 350 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
        call flush (output_unit)
# 350 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
    end block
# 350 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
# 350 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
    allocate (fd_coef_z(0:buff_size, -1:1))
# 350 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 350 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 350 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 350 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc enter data create(fd_coef_z) 
# 350 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 350 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$omp target enter data map(always,alloc:fd_coef_z) 
# 350 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
 
                if (weno_order > 1 .or. muscl_order > 1) then
#ifdef MFC_DEBUG
# 353 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
    block
# 353 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
        use iso_fortran_env, only: output_unit
# 353 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 353 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
        print *, 'm_cbc.fpp:353: ', '@:ALLOCATE(pi_coef_z(idx1%beg:idx1%end, idx2%beg:idx2%end, -1:1))'
# 353 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 353 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
        call flush (output_unit)
# 353 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
    end block
# 353 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
# 353 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
    allocate (pi_coef_z(idx1%beg:idx1%end, idx2%beg:idx2%end, -1:1))
# 353 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 353 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 353 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 353 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc enter data create(pi_coef_z) 
# 353 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 353 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$omp target enter data map(always,alloc:pi_coef_z) 
# 353 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
                end if
 
                call s_compute_cbc_coefficients(3, -1)
                call s_compute_cbc_coefficients(3, 1)
 
            elseif (bc_z%beg <= -5 .and. bc_z%beg >= -13) then
 
#ifdef MFC_DEBUG
# 361 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
    block
# 361 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
        use iso_fortran_env, only: output_unit
# 361 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 361 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
        print *, 'm_cbc.fpp:361: ', '@:ALLOCATE(fd_coef_z(0:buff_size, -1:-1))'
# 361 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 361 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
        call flush (output_unit)
# 361 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
    end block
# 361 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
# 361 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
    allocate (fd_coef_z(0:buff_size, -1:-1))
# 361 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 361 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 361 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 361 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc enter data create(fd_coef_z) 
# 361 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 361 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$omp target enter data map(always,alloc:fd_coef_z) 
# 361 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
 
                if (weno_order > 1 .or. muscl_order > 1) then
#ifdef MFC_DEBUG
# 364 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
    block
# 364 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
        use iso_fortran_env, only: output_unit
# 364 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 364 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
        print *, 'm_cbc.fpp:364: ', '@:ALLOCATE(pi_coef_z(idx1%beg:idx1%end, idx2%beg:idx2%end, -1:-1))'
# 364 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 364 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
        call flush (output_unit)
# 364 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
    end block
# 364 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
# 364 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
    allocate (pi_coef_z(idx1%beg:idx1%end, idx2%beg:idx2%end, -1:-1))
# 364 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 364 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 364 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 364 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc enter data create(pi_coef_z) 
# 364 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 364 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$omp target enter data map(always,alloc:pi_coef_z) 
# 364 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
                end if
 
                call s_compute_cbc_coefficients(3, -1)
 
            elseif (bc_z%end <= -5 .and. bc_z%end >= -13) then
 
#ifdef MFC_DEBUG
# 371 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
    block
# 371 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
        use iso_fortran_env, only: output_unit
# 371 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 371 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
        print *, 'm_cbc.fpp:371: ', '@:ALLOCATE(fd_coef_z(0:buff_size, 1:1))'
# 371 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 371 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
        call flush (output_unit)
# 371 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
    end block
# 371 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
# 371 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
    allocate (fd_coef_z(0:buff_size, 1:1))
# 371 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 371 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 371 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 371 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc enter data create(fd_coef_z) 
# 371 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 371 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$omp target enter data map(always,alloc:fd_coef_z) 
# 371 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
 
                if (weno_order > 1 .or. muscl_order > 1) then
#ifdef MFC_DEBUG
# 374 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
    block
# 374 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
        use iso_fortran_env, only: output_unit
# 374 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 374 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
        print *, 'm_cbc.fpp:374: ', '@:ALLOCATE(pi_coef_z(idx1%beg:idx1%end, idx2%beg:idx2%end, 1:1))'
# 374 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 374 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
        call flush (output_unit)
# 374 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
    end block
# 374 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
# 374 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
    allocate (pi_coef_z(idx1%beg:idx1%end, idx2%beg:idx2%end, 1:1))
# 374 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 374 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 374 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 374 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc enter data create(pi_coef_z) 
# 374 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 374 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$omp target enter data map(always,alloc:pi_coef_z) 
# 374 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
                end if
 
                call s_compute_cbc_coefficients(3, 1)
 
            end if
 
        end if
 
 
# 383 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 383 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc update device(fd_coef_x, fd_coef_y, fd_coef_z, pi_coef_x, pi_coef_y, pi_coef_z) 
# 383 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 383 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$omp target update to(fd_coef_x, fd_coef_y, fd_coef_z, pi_coef_x, pi_coef_y, pi_coef_z) 
# 383 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
# 385 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
        ! Associating the procedural pointer to the appropriate subroutine
        ! that will be utilized in the conversion to the mixture variables
 
        bcxb = bc_x%beg
        bcxe = bc_x%end
 
 
# 392 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 392 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc update device(bcxb, bcxe) 
# 392 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 392 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$omp target update to(bcxb, bcxe) 
# 392 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
 
        if (n > 0) then
            bcyb = bc_y%beg
            bcye = bc_y%end
 
 
# 398 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 398 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc update device(bcyb, bcye) 
# 398 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 398 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$omp target update to(bcyb, bcye) 
# 398 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
        end if
 
        if (p > 0) then
            bczb = bc_z%beg
            bcze = bc_z%end
 
 
# 405 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 405 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc update device(bczb, bcze) 
# 405 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 405 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$omp target update to(bczb, bcze) 
# 405 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
        end if
 
        ! Allocate GRCBC inputs
#ifdef MFC_DEBUG
# 409 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
    block
# 409 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
        use iso_fortran_env, only: output_unit
# 409 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 409 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
        print *, 'm_cbc.fpp:409: ', '@:ALLOCATE(pres_in(1:num_dims), pres_out(1:num_dims))'
# 409 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 409 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
        call flush (output_unit)
# 409 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
    end block
# 409 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
# 409 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
    allocate (pres_in(1:num_dims), pres_out(1:num_dims))
# 409 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 409 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 409 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 409 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 409 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc enter data create(pres_in, pres_out) 
# 409 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 409 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$omp target enter data map(always,alloc:pres_in, pres_out) 
# 409 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
#ifdef MFC_DEBUG
# 410 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
    block
# 410 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
        use iso_fortran_env, only: output_unit
# 410 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 410 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
        print *, 'm_cbc.fpp:410: ', '@:ALLOCATE(Del_in(1:num_dims), Del_out(1:num_dims))'
# 410 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 410 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
        call flush (output_unit)
# 410 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
    end block
# 410 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
# 410 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
    allocate (del_in(1:num_dims), del_out(1:num_dims))
# 410 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 410 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 410 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 410 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 410 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc enter data create(Del_in, Del_out) 
# 410 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 410 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$omp target enter data map(always,alloc:Del_in, Del_out) 
# 410 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
#ifdef MFC_DEBUG
# 411 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
    block
# 411 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
        use iso_fortran_env, only: output_unit
# 411 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 411 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
        print *, 'm_cbc.fpp:411: ', '@:ALLOCATE(vel_in(1:num_dims, 1:num_dims), vel_out(1:num_dims, 1:num_dims))'
# 411 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 411 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
        call flush (output_unit)
# 411 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
    end block
# 411 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
# 411 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
    allocate (vel_in(1:num_dims, 1:num_dims), vel_out(1:num_dims, 1:num_dims))
# 411 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 411 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 411 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 411 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 411 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc enter data create(vel_in, vel_out) 
# 411 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 411 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$omp target enter data map(always,alloc:vel_in, vel_out) 
# 411 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
#ifdef MFC_DEBUG
# 412 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
    block
# 412 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
        use iso_fortran_env, only: output_unit
# 412 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 412 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
        print *, 'm_cbc.fpp:412: ', '@:ALLOCATE(alpha_rho_in(1:num_fluids, 1:num_dims), alpha_in(1:num_fluids, 1:num_dims))'
# 412 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 412 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
        call flush (output_unit)
# 412 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
    end block
# 412 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
# 412 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
    allocate (alpha_rho_in(1:num_fluids, 1:num_dims), alpha_in(1:num_fluids, 1:num_dims))
# 412 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 412 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 412 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 412 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 412 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc enter data create(alpha_rho_in, alpha_in) 
# 412 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 412 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$omp target enter data map(always,alloc:alpha_rho_in, alpha_in) 
# 412 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
 
        ! Assign and update GRCBC inputs
# 416 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
            if (1 <= num_dims) then
                vel_in(1, 1) = bc_x%vel_in(1)
                vel_out(1, 1) = bc_x%vel_out(1)
                if (n > 0) then
                    vel_in(1, 2) = bc_x%vel_in(2)
                    vel_out(1, 2) = bc_x%vel_out(2)
                    if (p > 0) then
                        vel_in(1, 3) = bc_x%vel_in(3)
                        vel_out(1, 3) = bc_x%vel_out(3)
                    end if
                end if
                del_in(1) = maxval(dx)
                del_out(1) = maxval(dx)
                pres_in(1) = bc_x%pres_in
                pres_out(1) = bc_x%pres_out
                do i = 1, num_fluids
                    alpha_rho_in(i, 1) = bc_x%alpha_rho_in(i)
                    alpha_in(i, 1) = bc_x%alpha_in(i)
                end do
            end if
# 416 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
            if (2 <= num_dims) then
                vel_in(2, 1) = bc_y%vel_in(1)
                vel_out(2, 1) = bc_y%vel_out(1)
                if (n > 0) then
                    vel_in(2, 2) = bc_y%vel_in(2)
                    vel_out(2, 2) = bc_y%vel_out(2)
                    if (p > 0) then
                        vel_in(2, 3) = bc_y%vel_in(3)
                        vel_out(2, 3) = bc_y%vel_out(3)
                    end if
                end if
                del_in(2) = maxval(dy)
                del_out(2) = maxval(dy)
                pres_in(2) = bc_y%pres_in
                pres_out(2) = bc_y%pres_out
                do i = 1, num_fluids
                    alpha_rho_in(i, 2) = bc_y%alpha_rho_in(i)
                    alpha_in(i, 2) = bc_y%alpha_in(i)
                end do
            end if
# 416 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
            if (3 <= num_dims) then
                vel_in(3, 1) = bc_z%vel_in(1)
                vel_out(3, 1) = bc_z%vel_out(1)
                if (n > 0) then
                    vel_in(3, 2) = bc_z%vel_in(2)
                    vel_out(3, 2) = bc_z%vel_out(2)
                    if (p > 0) then
                        vel_in(3, 3) = bc_z%vel_in(3)
                        vel_out(3, 3) = bc_z%vel_out(3)
                    end if
                end if
                del_in(3) = maxval(dz)
                del_out(3) = maxval(dz)
                pres_in(3) = bc_z%pres_in
                pres_out(3) = bc_z%pres_out
                do i = 1, num_fluids
                    alpha_rho_in(i, 3) = bc_z%alpha_rho_in(i)
                    alpha_in(i, 3) = bc_z%alpha_in(i)
                end do
            end if
# 437 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 437 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 437 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc update device(vel_in, vel_out, pres_in, pres_out, Del_in, Del_out, alpha_rho_in, alpha_in) 
# 437 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 437 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$omp target update to(vel_in, vel_out, pres_in, pres_out, Del_in, Del_out, alpha_rho_in, alpha_in) 
# 437 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
 
    end subroutine s_initialize_cbc_module
 
    !>  Compute CBC coefficients
        !!  @param cbc_dir_in CBC coordinate direction
        !!  @param cbc_loc_in CBC coordinate location
    subroutine s_compute_cbc_coefficients(cbc_dir_in, cbc_loc_in)
        ! Description: The purpose of this subroutine is to compute the grid
        !              dependent FD and PI coefficients, or CBC coefficients,
        !              provided the CBC coordinate direction and location.
 
        ! CBC coordinate direction and location
        integer, intent(in) :: cbc_dir_in, cbc_loc_in
 
        ! Cell-boundary locations in the s-direction
        real(wp), dimension(0:buff_size + 1) :: s_cb
 
        ! Generic loop iterator
        integer :: i
 
        ! Associating CBC coefficients pointers
        call s_associate_cbc_coefficients_pointers(cbc_dir_in, cbc_loc_in)
 
        ! Determining the cell-boundary locations in the s-direction
        s_cb(0) = 0._wp
 
        do i = 0, buff_size
            s_cb(i + 1) = s_cb(i) + ds(i)
        end do
 
        ! Computing CBC1 Coefficients
# 470 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
            if (cbc_dir_in == 1 .and. recon_type == weno_type) then
                if (weno_order == 1) then
 
                    fd_coef_x(:, cbc_loc_in) = 0._wp
                    fd_coef_x(0, cbc_loc_in) = -2._wp/(ds(0) + ds(1))
                    fd_coef_x(1, cbc_loc_in) = -fd_coef_x(0, cbc_loc_in)
 
                    ! Computing CBC2 Coefficients
                elseif (weno_order == 3) then
 
                    fd_coef_x(:, cbc_loc_in) = 0._wp
                    fd_coef_x(0, cbc_loc_in) = -6._wp/(3._wp*ds(0) + 2._wp*ds(1) - ds(2))
                    fd_coef_x(1, cbc_loc_in) = -4._wp*fd_coef_x(0, cbc_loc_in)/3._wp
                    fd_coef_x(2, cbc_loc_in) = fd_coef_x(0, cbc_loc_in)/3._wp
 
                    pi_coef_x(0, 0, cbc_loc_in) = (s_cb(0) - s_cb(1))/(s_cb(0) - s_cb(2))
 
                    ! Computing CBC4 Coefficients
                else
 
                    fd_coef_x(:, cbc_loc_in) = 0._wp
                    fd_coef_x(0, cbc_loc_in) = -50._wp/(25._wp*ds(0) + 2._wp*ds(1) &
                                                               - 1.e1_wp*ds(2) + 1.e1_wp*ds(3) &
                                                               - 3._wp*ds(4))
                    fd_coef_x(1, cbc_loc_in) = -48._wp*fd_coef_x(0, cbc_loc_in)/25._wp
                    fd_coef_x(2, cbc_loc_in) = 36._wp*fd_coef_x(0, cbc_loc_in)/25._wp
                    fd_coef_x(3, cbc_loc_in) = -16._wp*fd_coef_x(0, cbc_loc_in)/25._wp
                    fd_coef_x(4, cbc_loc_in) = 3._wp*fd_coef_x(0, cbc_loc_in)/25._wp
 
                    pi_coef_x(0, 0, cbc_loc_in) = &
                        ((s_cb(0) - s_cb(1))*(s_cb(1) - s_cb(2))* &
                         (s_cb(1) - s_cb(3)))/((s_cb(1) - s_cb(4))* &
                                               (s_cb(4) - s_cb(0))*(s_cb(4) - s_cb(2)))
                    pi_coef_x(0, 1, cbc_loc_in) = &
                        ((s_cb(1) - s_cb(0))*(s_cb(1) - s_cb(2))* &
                         ((s_cb(1) - s_cb(3))*(s_cb(1) - s_cb(3)) - &
                          (s_cb(0) - s_cb(4))*((s_cb(3) - s_cb(1)) + &
                                               (s_cb(4) - s_cb(1)))))/ &
                        ((s_cb(0) - s_cb(3))*(s_cb(1) - s_cb(3))* &
                         (s_cb(0) - s_cb(4))*(s_cb(1) - s_cb(4)))
                    pi_coef_x(0, 2, cbc_loc_in) = &
                        (s_cb(1) - s_cb(0))*((s_cb(1) - s_cb(2))* &
                                             (s_cb(1) - s_cb(3)) + ((s_cb(0) - s_cb(2)) + &
                                                                    (s_cb(1) - s_cb(3)))*(s_cb(0) - s_cb(4)))/ &
                        ((s_cb(2) - s_cb(0))*(s_cb(0) - s_cb(3))* &
                         (s_cb(0) - s_cb(4)))
                    pi_coef_x(1, 0, cbc_loc_in) = &
                        ((s_cb(0) - s_cb(2))*(s_cb(2) - s_cb(1))* &
                         (s_cb(2) - s_cb(3)))/((s_cb(2) - s_cb(4))* &
                                               (s_cb(4) - s_cb(0))*(s_cb(4) - s_cb(1)))
                    pi_coef_x(1, 1, cbc_loc_in) = &
                        ((s_cb(0) - s_cb(2))*(s_cb(1) - s_cb(2))* &
                         ((s_cb(1) - s_cb(3))*(s_cb(2) - s_cb(3)) + &
                          (s_cb(0) - s_cb(4))*((s_cb(1) - s_cb(3)) + &
                                               (s_cb(2) - s_cb(4)))))/ &
                        ((s_cb(0) - s_cb(3))*(s_cb(1) - s_cb(3))* &
                         (s_cb(0) - s_cb(4))*(s_cb(1) - s_cb(4)))
                    pi_coef_x(1, 2, cbc_loc_in) = &
                        ((s_cb(1) - s_cb(2))*(s_cb(2) - s_cb(3))* &
                         (s_cb(2) - s_cb(4)))/((s_cb(0) - s_cb(2))* &
                                               (s_cb(0) - s_cb(3))*(s_cb(0) - s_cb(4)))
 
                end if
            end if
# 470 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
            if (cbc_dir_in == 2 .and. recon_type == weno_type) then
                if (weno_order == 1) then
 
                    fd_coef_y(:, cbc_loc_in) = 0._wp
                    fd_coef_y(0, cbc_loc_in) = -2._wp/(ds(0) + ds(1))
                    fd_coef_y(1, cbc_loc_in) = -fd_coef_y(0, cbc_loc_in)
 
                    ! Computing CBC2 Coefficients
                elseif (weno_order == 3) then
 
                    fd_coef_y(:, cbc_loc_in) = 0._wp
                    fd_coef_y(0, cbc_loc_in) = -6._wp/(3._wp*ds(0) + 2._wp*ds(1) - ds(2))
                    fd_coef_y(1, cbc_loc_in) = -4._wp*fd_coef_y(0, cbc_loc_in)/3._wp
                    fd_coef_y(2, cbc_loc_in) = fd_coef_y(0, cbc_loc_in)/3._wp
 
                    pi_coef_y(0, 0, cbc_loc_in) = (s_cb(0) - s_cb(1))/(s_cb(0) - s_cb(2))
 
                    ! Computing CBC4 Coefficients
                else
 
                    fd_coef_y(:, cbc_loc_in) = 0._wp
                    fd_coef_y(0, cbc_loc_in) = -50._wp/(25._wp*ds(0) + 2._wp*ds(1) &
                                                               - 1.e1_wp*ds(2) + 1.e1_wp*ds(3) &
                                                               - 3._wp*ds(4))
                    fd_coef_y(1, cbc_loc_in) = -48._wp*fd_coef_y(0, cbc_loc_in)/25._wp
                    fd_coef_y(2, cbc_loc_in) = 36._wp*fd_coef_y(0, cbc_loc_in)/25._wp
                    fd_coef_y(3, cbc_loc_in) = -16._wp*fd_coef_y(0, cbc_loc_in)/25._wp
                    fd_coef_y(4, cbc_loc_in) = 3._wp*fd_coef_y(0, cbc_loc_in)/25._wp
 
                    pi_coef_y(0, 0, cbc_loc_in) = &
                        ((s_cb(0) - s_cb(1))*(s_cb(1) - s_cb(2))* &
                         (s_cb(1) - s_cb(3)))/((s_cb(1) - s_cb(4))* &
                                               (s_cb(4) - s_cb(0))*(s_cb(4) - s_cb(2)))
                    pi_coef_y(0, 1, cbc_loc_in) = &
                        ((s_cb(1) - s_cb(0))*(s_cb(1) - s_cb(2))* &
                         ((s_cb(1) - s_cb(3))*(s_cb(1) - s_cb(3)) - &
                          (s_cb(0) - s_cb(4))*((s_cb(3) - s_cb(1)) + &
                                               (s_cb(4) - s_cb(1)))))/ &
                        ((s_cb(0) - s_cb(3))*(s_cb(1) - s_cb(3))* &
                         (s_cb(0) - s_cb(4))*(s_cb(1) - s_cb(4)))
                    pi_coef_y(0, 2, cbc_loc_in) = &
                        (s_cb(1) - s_cb(0))*((s_cb(1) - s_cb(2))* &
                                             (s_cb(1) - s_cb(3)) + ((s_cb(0) - s_cb(2)) + &
                                                                    (s_cb(1) - s_cb(3)))*(s_cb(0) - s_cb(4)))/ &
                        ((s_cb(2) - s_cb(0))*(s_cb(0) - s_cb(3))* &
                         (s_cb(0) - s_cb(4)))
                    pi_coef_y(1, 0, cbc_loc_in) = &
                        ((s_cb(0) - s_cb(2))*(s_cb(2) - s_cb(1))* &
                         (s_cb(2) - s_cb(3)))/((s_cb(2) - s_cb(4))* &
                                               (s_cb(4) - s_cb(0))*(s_cb(4) - s_cb(1)))
                    pi_coef_y(1, 1, cbc_loc_in) = &
                        ((s_cb(0) - s_cb(2))*(s_cb(1) - s_cb(2))* &
                         ((s_cb(1) - s_cb(3))*(s_cb(2) - s_cb(3)) + &
                          (s_cb(0) - s_cb(4))*((s_cb(1) - s_cb(3)) + &
                                               (s_cb(2) - s_cb(4)))))/ &
                        ((s_cb(0) - s_cb(3))*(s_cb(1) - s_cb(3))* &
                         (s_cb(0) - s_cb(4))*(s_cb(1) - s_cb(4)))
                    pi_coef_y(1, 2, cbc_loc_in) = &
                        ((s_cb(1) - s_cb(2))*(s_cb(2) - s_cb(3))* &
                         (s_cb(2) - s_cb(4)))/((s_cb(0) - s_cb(2))* &
                                               (s_cb(0) - s_cb(3))*(s_cb(0) - s_cb(4)))
 
                end if
            end if
# 470 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
            if (cbc_dir_in == 3 .and. recon_type == weno_type) then
                if (weno_order == 1) then
 
                    fd_coef_z(:, cbc_loc_in) = 0._wp
                    fd_coef_z(0, cbc_loc_in) = -2._wp/(ds(0) + ds(1))
                    fd_coef_z(1, cbc_loc_in) = -fd_coef_z(0, cbc_loc_in)
 
                    ! Computing CBC2 Coefficients
                elseif (weno_order == 3) then
 
                    fd_coef_z(:, cbc_loc_in) = 0._wp
                    fd_coef_z(0, cbc_loc_in) = -6._wp/(3._wp*ds(0) + 2._wp*ds(1) - ds(2))
                    fd_coef_z(1, cbc_loc_in) = -4._wp*fd_coef_z(0, cbc_loc_in)/3._wp
                    fd_coef_z(2, cbc_loc_in) = fd_coef_z(0, cbc_loc_in)/3._wp
 
                    pi_coef_z(0, 0, cbc_loc_in) = (s_cb(0) - s_cb(1))/(s_cb(0) - s_cb(2))
 
                    ! Computing CBC4 Coefficients
                else
 
                    fd_coef_z(:, cbc_loc_in) = 0._wp
                    fd_coef_z(0, cbc_loc_in) = -50._wp/(25._wp*ds(0) + 2._wp*ds(1) &
                                                               - 1.e1_wp*ds(2) + 1.e1_wp*ds(3) &
                                                               - 3._wp*ds(4))
                    fd_coef_z(1, cbc_loc_in) = -48._wp*fd_coef_z(0, cbc_loc_in)/25._wp
                    fd_coef_z(2, cbc_loc_in) = 36._wp*fd_coef_z(0, cbc_loc_in)/25._wp
                    fd_coef_z(3, cbc_loc_in) = -16._wp*fd_coef_z(0, cbc_loc_in)/25._wp
                    fd_coef_z(4, cbc_loc_in) = 3._wp*fd_coef_z(0, cbc_loc_in)/25._wp
 
                    pi_coef_z(0, 0, cbc_loc_in) = &
                        ((s_cb(0) - s_cb(1))*(s_cb(1) - s_cb(2))* &
                         (s_cb(1) - s_cb(3)))/((s_cb(1) - s_cb(4))* &
                                               (s_cb(4) - s_cb(0))*(s_cb(4) - s_cb(2)))
                    pi_coef_z(0, 1, cbc_loc_in) = &
                        ((s_cb(1) - s_cb(0))*(s_cb(1) - s_cb(2))* &
                         ((s_cb(1) - s_cb(3))*(s_cb(1) - s_cb(3)) - &
                          (s_cb(0) - s_cb(4))*((s_cb(3) - s_cb(1)) + &
                                               (s_cb(4) - s_cb(1)))))/ &
                        ((s_cb(0) - s_cb(3))*(s_cb(1) - s_cb(3))* &
                         (s_cb(0) - s_cb(4))*(s_cb(1) - s_cb(4)))
                    pi_coef_z(0, 2, cbc_loc_in) = &
                        (s_cb(1) - s_cb(0))*((s_cb(1) - s_cb(2))* &
                                             (s_cb(1) - s_cb(3)) + ((s_cb(0) - s_cb(2)) + &
                                                                    (s_cb(1) - s_cb(3)))*(s_cb(0) - s_cb(4)))/ &
                        ((s_cb(2) - s_cb(0))*(s_cb(0) - s_cb(3))* &
                         (s_cb(0) - s_cb(4)))
                    pi_coef_z(1, 0, cbc_loc_in) = &
                        ((s_cb(0) - s_cb(2))*(s_cb(2) - s_cb(1))* &
                         (s_cb(2) - s_cb(3)))/((s_cb(2) - s_cb(4))* &
                                               (s_cb(4) - s_cb(0))*(s_cb(4) - s_cb(1)))
                    pi_coef_z(1, 1, cbc_loc_in) = &
                        ((s_cb(0) - s_cb(2))*(s_cb(1) - s_cb(2))* &
                         ((s_cb(1) - s_cb(3))*(s_cb(2) - s_cb(3)) + &
                          (s_cb(0) - s_cb(4))*((s_cb(1) - s_cb(3)) + &
                                               (s_cb(2) - s_cb(4)))))/ &
                        ((s_cb(0) - s_cb(3))*(s_cb(1) - s_cb(3))* &
                         (s_cb(0) - s_cb(4))*(s_cb(1) - s_cb(4)))
                    pi_coef_z(1, 2, cbc_loc_in) = &
                        ((s_cb(1) - s_cb(2))*(s_cb(2) - s_cb(3))* &
                         (s_cb(2) - s_cb(4)))/((s_cb(0) - s_cb(2))* &
                                               (s_cb(0) - s_cb(3))*(s_cb(0) - s_cb(4)))
 
                end if
            end if
# 535 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
        ! END: Computing CBC4 Coefficients
 
        ! Nullifying CBC coefficients
 
    end subroutine s_compute_cbc_coefficients
 
    !> @brief Associates finite-difference and polynomial-interpolation CBC coefficients with targets based on coordinate direction and boundary location.
    !!  The goal of the procedure is to associate the FD and PI
    !!      coefficients, or CBC coefficients, with the appropriate
    !!      targets, based on the coordinate direction and location
    !!      of the CBC.
    !!  @param cbc_dir_in CBC coordinate direction
    !!  @param cbc_loc_in CBC coordinate location
    subroutine s_associate_cbc_coefficients_pointers(cbc_dir_in, cbc_loc_in)
 
        integer, intent(in) :: cbc_dir_in, cbc_loc_in
 
        integer :: i !< Generic loop iterator
 
        ! Associating CBC Coefficients in x-direction
        if (cbc_dir_in == 1) then
 
            !fd_coef => fd_coef_x; if (weno_order > 1) pi_coef => pi_coef_x
 
            if (cbc_loc_in == -1) then
                do i = 0, buff_size
                    ds(i) = dx(i)
                end do
            else
                do i = 0, buff_size
                    ds(i) = dx(m - i)
                end do
            end if
 
            ! Associating CBC Coefficients in y-direction
        elseif (cbc_dir_in == 2) then
 
            !fd_coef => fd_coef_y; if (weno_order > 1) pi_coef => pi_coef_y
 
            if (cbc_loc_in == -1) then
                do i = 0, buff_size
                    ds(i) = dy(i)
                end do
            else
                do i = 0, buff_size
                    ds(i) = dy(n - i)
                end do
            end if
 
            ! Associating CBC Coefficients in z-direction
        else
 
            !fd_coef => fd_coef_z; if (weno_order > 1) pi_coef => pi_coef_z
 
            if (cbc_loc_in == -1) then
                do i = 0, buff_size
                    ds(i) = dz(i)
                end do
            else
                do i = 0, buff_size
                    ds(i) = dz(p - i)
                end do
            end if
 
        end if
 
 
# 602 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 602 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc update device(ds) 
# 602 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 602 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$omp target update to(ds) 
# 602 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
 
    end subroutine s_associate_cbc_coefficients_pointers
 
    !>  The following is the implementation of the CBC based on
        !!      the work of Thompson (1987, 1990) on hyperbolic systems.
        !!      The CBC is indirectly applied in the computation of the
        !!      right-hand-side (RHS) near the relevant domain boundary
        !!      through the modification of the fluxes.
        !!  @param q_prim_vf Cell-average primitive variables
        !!  @param flux_vf Cell-boundary-average fluxes
        !!  @param flux_src_vf Cell-boundary-average flux sources
        !!  @param cbc_dir_norm CBC coordinate direction
        !!  @param cbc_loc_norm CBC coordinate location
        !!  @param ix Index bound in the first coordinate direction
        !!  @param iy Index bound in the second coordinate direction
        !!  @param iz Index bound in the third coordinate direction
    subroutine s_cbc(q_prim_vf, flux_vf, flux_src_vf, &
                     cbc_dir_norm, cbc_loc_norm, &
                     ix, iy, iz)
 
        type(scalar_field), &
            dimension(sys_size), &
            intent(in) :: q_prim_vf
 
        type(scalar_field), &
            dimension(sys_size), &
            intent(inout) :: flux_vf, flux_src_vf
 
        integer, intent(in) :: cbc_dir_norm, cbc_loc_norm
 
        type(int_bounds_info), intent(in) :: ix, iy, iz
        real(wp) :: drho_dt
        real(wp) :: dpres_dt
        real(wp) :: dgamma_dt
        real(wp) :: dpi_inf_dt
        real(wp) :: dqv_dt
        real(wp) :: dpres_ds
# 643 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
            real(wp), dimension(sys_size) :: l
# 645 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
# 654 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
            real(wp), dimension(num_fluids) :: alpha_rho, dalpha_rho_ds, mf
            real(wp), dimension(num_vels) :: vel, dvel_ds
            real(wp), dimension(num_fluids) :: adv_local, dadv_ds
            real(wp), dimension(num_fluids) :: dadv_dt
            real(wp), dimension(num_dims) :: dvel_dt
            real(wp), dimension(num_fluids) :: dalpha_rho_dt
            real(wp), dimension(num_species) :: ys, h_k, dys_dt, dys_ds, xs, gamma_i, cp_i
# 662 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
        real(wp), dimension(2) :: re_cbc
        real(wp), dimension(3) :: lambda
 
        real(wp) :: rho         !< Cell averaged density
        real(wp) :: pres        !< Cell averaged pressure
        real(wp) :: e           !< Cell averaged energy
        real(wp) :: h           !< Cell averaged enthalpy
        real(wp) :: gamma       !< Cell averaged specific heat ratio
        real(wp) :: pi_inf      !< Cell averaged liquid stiffness
        real(wp) :: qv          !< Cell averaged fluid reference energy
        real(wp) :: c
        real(wp) :: ma
        real(wp) :: t, sum_enthalpies
        real(wp) :: cv, cp, e_mix, mw, r_gas
 
        real(wp) :: vel_k_sum, vel_dv_dt_sum
 
        integer :: i, j, k, r !< Generic loop iterators
 
        ! Reshaping of inputted data and association of the FD and PI
        ! coefficients, or CBC coefficients, respectively, hinging on
        ! selected CBC coordinate direction
 
        cbc_dir = cbc_dir_norm
        cbc_loc = cbc_loc_norm
 
 
# 688 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 688 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc update device(cbc_dir, cbc_loc) 
# 688 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 688 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$omp target update to(cbc_dir, cbc_loc) 
# 688 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
 
        call s_initialize_cbc(q_prim_vf, flux_vf, flux_src_vf, &
                              ix, iy, iz)
 
        call s_associate_cbc_coefficients_pointers(cbc_dir, cbc_loc)
 
# 696 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
            if (cbc_dir == 1 .and. recon_type == weno_type) then
 
                ! PI2 of flux_rs_vf and flux_src_rs_vf at j = 1/2
                if (weno_order == 3 .or. dummy) then
 
                    call s_convert_primitive_to_flux_variables(q_prim_rsx_vf, &
                                                               f_rsx_vf, &
                                                               f_src_rsx_vf, &
                                                               is1, is2, is3, idwbuff(2)%beg, idwbuff(3)%beg)
 
 
# 706 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 706 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 706 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc parallel loop collapse(3) gang vector default(present) private(i, r, k) 
# 706 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 706 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
    
# 706 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 706 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 706 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$omp target teams loop defaultmap(firstprivate:scalar) bind(teams,parallel) collapse(3) defaultmap(tofrom:aggregate) defaultmap(tofrom:allocatable) defaultmap(tofrom:pointer) private(i, r, k) 
# 706 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
# 706 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
                    do i = 1, flux_cbc_index
                        do r = is3%beg, is3%end
                            do k = is2%beg, is2%end
                                flux_rsx_vf_l(0, k, r, i) = f_rsx_vf(0, k, r, i) &
                                                                  + pi_coef_x(0, 0, cbc_loc)* &
                                                                  (f_rsx_vf(1, k, r, i) - &
                                                                   f_rsx_vf(0, k, r, i))
                            end do
                        end do
                    end do
 
# 717 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 717 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 717 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc end parallel loop
# 717 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 717 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
    
# 717 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 717 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$omp end target teams loop
# 717 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
# 717 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
 
 
# 719 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 719 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 719 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc parallel loop collapse(3) gang vector default(present) private(i, r, k) 
# 719 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 719 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
    
# 719 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 719 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 719 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$omp target teams loop defaultmap(firstprivate:scalar) bind(teams,parallel) collapse(3) defaultmap(tofrom:aggregate) defaultmap(tofrom:allocatable) defaultmap(tofrom:pointer) private(i, r, k) 
# 719 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
# 719 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
                    do i = advxb, advxe
                        do r = is3%beg, is3%end
                            do k = is2%beg, is2%end
                                flux_src_rsx_vf_l(0, k, r, i) = f_src_rsx_vf(0, k, r, i) + &
                                                                      (f_src_rsx_vf(1, k, r, i) - &
                                                                       f_src_rsx_vf(0, k, r, i)) &
                                                                      *pi_coef_x(0, 0, cbc_loc)
                            end do
                        end do
                    end do
 
# 730 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 730 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 730 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc end parallel loop
# 730 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 730 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
    
# 730 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 730 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$omp end target teams loop
# 730 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
# 730 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
                end if
 
                ! PI4 of flux_rs_vf and flux_src_rs_vf at j = 1/2, 3/2
                if (weno_order == 5 .or. dummy) then
                    call s_convert_primitive_to_flux_variables(q_prim_rsx_vf, &
                                                               f_rsx_vf, &
                                                               f_src_rsx_vf, &
                                                               is1, is2, is3, idwbuff(2)%beg, idwbuff(3)%beg)
 
 
# 740 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 740 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 740 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc parallel loop collapse(4) gang vector default(present) private(i, j, r, k) 
# 740 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 740 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
    
# 740 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 740 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 740 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.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, r, k) 
# 740 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
# 740 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
                    do i = 1, flux_cbc_index
                        do j = 0, 1
                            do r = is3%beg, is3%end
                                do k = is2%beg, is2%end
                                    flux_rsx_vf_l(j, k, r, i) = f_rsx_vf(j, k, r, i) &
                                                                      + pi_coef_x(j, 0, cbc_loc)* &
                                                                      (f_rsx_vf(3, k, r, i) - &
                                                                       f_rsx_vf(2, k, r, i)) &
                                                                      + pi_coef_x(j, 1, cbc_loc)* &
                                                                      (f_rsx_vf(2, k, r, i) - &
                                                                       f_rsx_vf(1, k, r, i)) &
                                                                      + pi_coef_x(j, 2, cbc_loc)* &
                                                                      (f_rsx_vf(1, k, r, i) - &
                                                                       f_rsx_vf(0, k, r, i))
                                end do
                            end do
                        end do
                    end do
 
# 759 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 759 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 759 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc end parallel loop
# 759 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 759 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
    
# 759 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 759 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$omp end target teams loop
# 759 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
# 759 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
 
 
# 761 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 761 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 761 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc parallel loop collapse(4) gang vector default(present) private(i, j, r, k) 
# 761 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 761 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
    
# 761 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 761 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 761 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.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, r, k) 
# 761 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
# 761 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
                    do i = advxb, advxe
                        do j = 0, 1
                            do r = is3%beg, is3%end
                                do k = is2%beg, is2%end
                                    flux_src_rsx_vf_l(j, k, r, i) = f_src_rsx_vf(j, k, r, i) + &
                                                                          (f_src_rsx_vf(3, k, r, i) - &
                                                                           f_src_rsx_vf(2, k, r, i)) &
                                                                          *pi_coef_x(j, 0, cbc_loc) + &
                                                                          (f_src_rsx_vf(2, k, r, i) - &
                                                                           f_src_rsx_vf(1, k, r, i)) &
                                                                          *pi_coef_x(j, 1, cbc_loc) + &
                                                                          (f_src_rsx_vf(1, k, r, i) - &
                                                                           f_src_rsx_vf(0, k, r, i)) &
                                                                          *pi_coef_x(j, 2, cbc_loc)
                                end do
                            end do
                        end do
                    end do
 
# 780 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 780 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 780 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc end parallel loop
# 780 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 780 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
    
# 780 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 780 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$omp end target teams loop
# 780 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
# 780 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
 
                end if
 
                ! FD2 or FD4 of RHS at j = 0
 
# 785 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 785 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 785 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc parallel loop collapse(2) gang vector default(present) private(r, k, alpha_rho, vel, adv_local, mf, dvel_ds, dadv_ds, Re_cbc, dalpha_rho_ds, dpres_ds, dvel_dt, dadv_dt, dalpha_rho_dt, L, lambda, Ys, dYs_dt, dYs_ds, h_k, Cp_i, Gamma_i, Xs, drho_dt, dpres_dt, dpi_inf_dt, dqv_dt, dgamma_dt, rho, pres, E, H, gamma, pi_inf, qv, c, Ma, T, sum_Enthalpies, Cv, Cp, e_mix, Mw, R_gas, vel_K_sum, vel_dv_dt_sum, i, j) copyin(dir_idx) 
# 785 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 785 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
    
# 785 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 785 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 785 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$omp target teams loop defaultmap(firstprivate:scalar) bind(teams,parallel) collapse(2) defaultmap(tofrom:aggregate) defaultmap(tofrom:allocatable) defaultmap(tofrom:pointer) private(r, k, alpha_rho, vel, adv_local, mf, dvel_ds, dadv_ds, Re_cbc, dalpha_rho_ds, dpres_ds, dvel_dt, dadv_dt, dalpha_rho_dt, L, lambda, Ys, dYs_dt, dYs_ds, h_k, Cp_i, Gamma_i, Xs, drho_dt, dpres_dt, dpi_inf_dt, dqv_dt, dgamma_dt, rho, pres, E, H, gamma, pi_inf, qv, c, Ma, T, sum_Enthalpies, Cv, Cp, e_mix, Mw, R_gas, vel_K_sum, vel_dv_dt_sum, i, j) map(to:dir_idx) 
# 785 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
# 785 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
                do r = is3%beg, is3%end
                    do k = is2%beg, is2%end
 
                        ! Transferring the Primitive Variables
 
# 790 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 790 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc loop seq 
# 790 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 790 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 790 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
                        do i = 1, contxe
                            alpha_rho(i) = q_prim_rsx_vf(0, k, r, i)
                        end do
 
 
# 795 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 795 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc loop seq 
# 795 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 795 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 795 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
                        do i = 1, num_dims
                            vel(i) = q_prim_rsx_vf(0, k, r, contxe + i)
                        end do
 
                        vel_k_sum = 0._wp
 
# 801 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 801 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc loop seq 
# 801 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 801 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 801 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
                        do i = 1, num_dims
                            vel_k_sum = vel_k_sum + vel(i)**2._wp
                        end do
 
                        pres = q_prim_rsx_vf(0, k, r, e_idx)
 
 
# 808 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 808 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc loop seq 
# 808 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 808 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 808 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
                        do i = 1, advxe - e_idx
                            adv_local(i) = q_prim_rsx_vf(0, k, r, e_idx + i)
                        end do
 
                        call s_convert_species_to_mixture_variables_acc(rho, gamma, pi_inf, qv, adv_local, alpha_rho, re_cbc)
 
 
# 815 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 815 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc loop seq 
# 815 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 815 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 815 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
                        do i = 1, contxe
                            mf(i) = alpha_rho(i)/rho
                        end do
 
                        if (chemistry) then
 
# 821 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 821 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc loop seq 
# 821 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 821 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 821 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
                            do i = chemxb, chemxe
                                ys(i - chemxb + 1) = q_prim_rsx_vf(0, k, r, i)
                            end do
 
                            call get_mixture_molecular_weight(ys, mw)
                            r_gas = gas_constant/mw
                            t = pres/rho/r_gas
                            call get_mixture_specific_heat_cp_mass(t, ys, cp)
                            call get_mixture_energy_mass(t, ys, e_mix)
                            e = rho*e_mix + 5.e-1_wp*rho*vel_k_sum
                            if (chem_params%gamma_method == 1) then
                                !> gamma_method = 1: Ref. Section 2.3.1 Formulation of doi:10.7907/ZKW8-ES97.
                                call get_mole_fractions(mw, ys, xs)
                                call get_species_specific_heats_r(t, cp_i)
                                gamma_i = cp_i/(cp_i - 1.0_wp)
                                gamma = sum(xs(:)/(gamma_i(:) - 1.0_wp))
                            else if (chem_params%gamma_method == 2) then
                                !> gamma_method = 2: c_p / c_v where c_p, c_v are specific heats.
                                call get_mixture_specific_heat_cv_mass(t, ys, cv)
                                gamma = 1.0_wp/(cp/cv - 1.0_wp)
                            end if
                        else
                            e = gamma*pres + pi_inf + 5.e-1_wp*rho*vel_k_sum
                        end if
 
                        h = (e + pres)/rho
 
                        ! Compute mixture sound speed
                        call s_compute_speed_of_sound(pres, rho, gamma, pi_inf, h, adv_local, vel_k_sum, 0._wp, c, qv)
 
                        ! First-Order Spatial Derivatives of Primitive Variables
 
 
# 854 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 854 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc loop seq 
# 854 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 854 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 854 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
                        do i = 1, contxe
                            dalpha_rho_ds(i) = 0._wp
                        end do
 
 
# 859 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 859 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc loop seq 
# 859 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 859 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 859 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
                        do i = 1, num_dims
                            dvel_ds(i) = 0._wp
                        end do
 
                        dpres_ds = 0._wp
 
# 865 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 865 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc loop seq 
# 865 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 865 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 865 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
                        do i = 1, advxe - e_idx
                            dadv_ds(i) = 0._wp
                        end do
 
                        if (chemistry) then
 
# 871 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 871 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc loop seq 
# 871 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 871 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 871 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
                            do i = 1, num_species
                                dys_ds(i) = 0._wp
                            end do
                        end if
 
 
# 877 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 877 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc loop seq 
# 877 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 877 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 877 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
                        do j = 0, buff_size
 
 
# 880 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 880 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc loop seq 
# 880 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 880 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 880 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
                            do i = 1, contxe
                                dalpha_rho_ds(i) = q_prim_rsx_vf(j, k, r, i)* &
                                                   fd_coef_x(j, cbc_loc) + &
                                                   dalpha_rho_ds(i)
                            end do
 
# 886 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 886 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc loop seq 
# 886 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 886 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 886 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
                            do i = 1, num_dims
                                dvel_ds(i) = q_prim_rsx_vf(j, k, r, contxe + i)* &
                                             fd_coef_x(j, cbc_loc) + &
                                             dvel_ds(i)
                            end do
 
                            dpres_ds = q_prim_rsx_vf(j, k, r, e_idx)* &
                                       fd_coef_x(j, cbc_loc) + &
                                       dpres_ds
 
# 896 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 896 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc loop seq 
# 896 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 896 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 896 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
                            do i = 1, advxe - e_idx
                                dadv_ds(i) = q_prim_rsx_vf(j, k, r, e_idx + i)* &
                                             fd_coef_x(j, cbc_loc) + &
                                             dadv_ds(i)
                            end do
 
                            if (chemistry) then
 
# 904 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 904 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc loop seq 
# 904 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 904 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 904 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
                                do i = 1, num_species
                                    dys_ds(i) = q_prim_rsx_vf(j, k, r, chemxb - 1 + i)* &
                                                fd_coef_x(j, cbc_loc) + &
                                                dys_ds(i)
                                end do
                            end if
                        end do
 
                        ! First-Order Temporal Derivatives of Primitive Variables
                        lambda(1) = vel(dir_idx(1)) - c
                        lambda(2) = vel(dir_idx(1))
                        lambda(3) = vel(dir_idx(1)) + c
 
                        ma = vel(dir_idx(1))/c
 
                        if ((cbc_loc == -1 .and. bcxb == bc_char_slip_wall) .or. &
                            (cbc_loc == 1 .and. bcxe == bc_char_slip_wall)) then
                            call s_compute_slip_wall_l(lambda, l, rho, c, dpres_ds, dvel_ds)
                        else if ((cbc_loc == -1 .and. bcxb == bc_char_nr_sub_buffer) .or. &
                                 (cbc_loc == 1 .and. bcxe == bc_char_nr_sub_buffer)) then
                            call s_compute_nonreflecting_subsonic_buffer_l(lambda, l, rho, c, mf, dalpha_rho_ds, dpres_ds, dvel_ds, dadv_ds, dys_ds)
                        else if ((cbc_loc == -1 .and. bcxb == bc_char_nr_sub_inflow) .or. &
                                 (cbc_loc == 1 .and. bcxe == bc_char_nr_sub_inflow)) then
                            call s_compute_nonreflecting_subsonic_inflow_l(lambda, l, rho, c, dpres_ds, dvel_ds)
                            ! Add GRCBC for Subsonic Inflow
                            if (bc_x%grcbc_in) then
 
# 931 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 931 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc loop seq 
# 931 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 931 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 931 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
                                do i = 2, momxb
                                    l(i) = c**3._wp*ma*(alpha_rho(i - 1) - alpha_rho_in(i - 1, 1))/del_in(1) - c*ma*(pres - pres_in(1))/del_in(1)
                                end do
                                if (n > 0) then
                                    l(momxb + 1) = c*ma*(vel(dir_idx(2)) - vel_in(1, dir_idx(2)))/del_in(1)
                                    if (p > 0) then
                                        l(momxb + 2) = c*ma*(vel(dir_idx(3)) - vel_in(1, dir_idx(3)))/del_in(1)
                                    end if
                                end if
 
# 941 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 941 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc loop seq 
# 941 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 941 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 941 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
                                do i = e_idx, advxe - 1
                                    l(i) = c*ma*(adv_local(i + 1 - e_idx) - alpha_in(i + 1 - e_idx, 1))/del_in(1)
                                end do
                                l(advxe) = rho*c**2._wp*(1._wp + ma)*(vel(dir_idx(1)) + vel_in(1, dir_idx(1))*sign(1, cbc_loc))/del_in(1) + c*(1._wp + ma)*(pres - pres_in(1))/del_in(1)
                            end if
                        else if ((cbc_loc == -1 .and. bcxb == bc_char_nr_sub_outflow) .or. &
                                 (cbc_loc == 1 .and. bcxe == bc_char_nr_sub_outflow)) then
                            call s_compute_nonreflecting_subsonic_outflow_l(lambda, l, rho, c, mf, dalpha_rho_ds, dpres_ds, dvel_ds, dadv_ds, dys_ds)
                            ! Add GRCBC for Subsonic Outflow (Pressure)
                            if (bc_x%grcbc_out) then
                                l(advxe) = c*(1._wp - ma)*(pres - pres_out(1))/del_out(1)
 
                                ! Add GRCBC for Subsonic Outflow (Normal Velocity)
                                if (bc_x%grcbc_vel_out) then
                                    l(advxe) = l(advxe) + rho*c**2._wp*(1._wp - ma)*(vel(dir_idx(1)) + vel_out(1, dir_idx(1))*sign(1, cbc_loc))/del_out(1)
                                end if
                            end if
                        else if ((cbc_loc == -1 .and. bcxb == bc_char_ff_sub_outflow) .or. &
                                 (cbc_loc == 1 .and. bcxe == bc_char_ff_sub_outflow)) then
                            call s_compute_force_free_subsonic_outflow_l(lambda, l, rho, c, mf, dalpha_rho_ds, dpres_ds, dvel_ds, dadv_ds)
                        else if ((cbc_loc == -1 .and. bcxb == bc_char_cp_sub_outflow) .or. &
                                 (cbc_loc == 1 .and. bcxe == bc_char_cp_sub_outflow)) then
                            call s_compute_constant_pressure_subsonic_outflow_l(lambda, l, rho, c, mf, dalpha_rho_ds, dpres_ds, dvel_ds, dadv_ds)
                        else if ((cbc_loc == -1 .and. bcxb == bc_char_sup_inflow) .or. &
                                 (cbc_loc == 1 .and. bcxe == bc_char_sup_inflow)) then
                            call s_compute_supersonic_inflow_l(l)
                        else if ((cbc_loc == -1 .and. bcxb == bc_char_sup_outflow) .or. &
                                 (cbc_loc == 1 .and. bcxe == bc_char_sup_outflow)) then
                            call s_compute_supersonic_outflow_l(lambda, l, rho, c, mf, dalpha_rho_ds, dpres_ds, dvel_ds, dadv_ds, dys_ds)
                        end if
 
                        ! Be careful about the cylindrical coordinate!
                        if (cyl_coord .and. cbc_dir == 2 .and. cbc_loc == 1) then
                            dpres_dt = -5.e-1_wp*(l(advxe) + l(1)) + rho*c*c*vel(dir_idx(1)) &
                                       /y_cc(n)
                        else
                            dpres_dt = -5.e-1_wp*(l(advxe) + l(1))
                        end if
 
 
# 981 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 981 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc loop seq 
# 981 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 981 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 981 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
                        do i = 1, contxe
                            dalpha_rho_dt(i) = &
                                -(l(i + 1) - mf(i)*dpres_dt)/(c*c)
                        end do
 
 
# 987 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 987 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc loop seq 
# 987 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 987 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 987 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
                        do i = 1, num_dims
                            dvel_dt(dir_idx(i)) = dir_flg(dir_idx(i))* &
                                                  (l(1) - l(advxe))/(2._wp*rho*c) + &
                                                  (dir_flg(dir_idx(i)) - 1._wp)* &
                                                  l(momxb + i - 1)
                        end do
 
                        vel_dv_dt_sum = 0._wp
 
# 996 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 996 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc loop seq 
# 996 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 996 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 996 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
                        do i = 1, num_dims
                            vel_dv_dt_sum = vel_dv_dt_sum + vel(i)*dvel_dt(i)
                        end do
 
                        if (chemistry) then
 
# 1002 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 1002 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc loop seq 
# 1002 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 1002 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 1002 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
                            do i = 1, num_species
                                dys_dt(i) = -1._wp*l(chemxb + i - 1)
                            end do
                        end if
 
                        ! The treatment of void fraction source is unclear
                        if (cyl_coord .and. cbc_dir == 2 .and. cbc_loc == 1) then
 
# 1010 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 1010 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc loop seq 
# 1010 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 1010 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 1010 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
                            do i = 1, advxe - e_idx
                                dadv_dt(i) = -l(momxe + i) !+ adv_local(i) * vel(dir_idx(1))/y_cc(n)
                            end do
                        else
 
# 1015 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 1015 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc loop seq 
# 1015 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 1015 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 1015 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
                            do i = 1, advxe - e_idx
                                dadv_dt(i) = -l(momxe + i)
                            end do
                        end if
 
                        drho_dt = 0._wp; dgamma_dt = 0._wp; dpi_inf_dt = 0._wp; dqv_dt = 0._wp
 
                        if (model_eqns == 1) then
                            drho_dt = dalpha_rho_dt(1)
                            dgamma_dt = dadv_dt(1)
# 1027 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
                                dpi_inf_dt = dadv_dt(2)
# 1029 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
                        else
 
# 1030 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 1030 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc loop seq 
# 1030 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 1030 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 1030 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
                            do i = 1, num_fluids
                                drho_dt = drho_dt + dalpha_rho_dt(i)
                                dgamma_dt = dgamma_dt + dadv_dt(i)*gammas(i)
                                dpi_inf_dt = dpi_inf_dt + dadv_dt(i)*pi_infs(i)
                                dqv_dt = dqv_dt + dalpha_rho_dt(i)*qvs(i)
                            end do
                        end if
 
                        ! flux_rs_vf_l and flux_src_rs_vf_l at j = -1/2
 
# 1040 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 1040 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc loop seq 
# 1040 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 1040 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 1040 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
                        do i = 1, contxe
                            flux_rsx_vf_l(-1, k, r, i) = flux_rsx_vf_l(0, k, r, i) &
                                                               + ds(0)*dalpha_rho_dt(i)
                        end do
 
 
# 1046 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 1046 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc loop seq 
# 1046 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 1046 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 1046 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
                        do i = momxb, momxe
                            flux_rsx_vf_l(-1, k, r, i) = flux_rsx_vf_l(0, k, r, i) &
                                                               + ds(0)*(vel(i - contxe)*drho_dt &
                                                                        + rho*dvel_dt(i - contxe))
                        end do
 
                        if (chemistry) then
                            ! Evolution of LODI equation of energy for real gases adjusted to perfect gas, doi:10.1006/jcph.2002.6990
                            call get_species_enthalpies_rt(t, h_k)
                            sum_enthalpies = 0._wp
 
# 1057 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 1057 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc loop seq 
# 1057 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 1057 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 1057 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
                            do i = 1, num_species
 
# 1064 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
                                    h_k(i) = h_k(i)*gas_constant/molecular_weights(i)*t
                                    sum_enthalpies = sum_enthalpies + (rho*h_k(i) - pres*mw/molecular_weights(i)*cp/r_gas)*dys_dt(i)
# 1067 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
                            end do
                            flux_rsx_vf_l(-1, k, r, e_idx) = flux_rsx_vf_l(0, k, r, e_idx) &
                                                                   + ds(0)*((e/rho + pres/rho)*drho_dt + rho*vel_dv_dt_sum + cp*t*l(2)/(c*c) + sum_enthalpies)
 
# 1070 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 1070 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc loop seq 
# 1070 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 1070 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 1070 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
                            do i = 1, num_species
                                flux_rsx_vf_l(-1, k, r, i - 1 + chemxb) = flux_rsx_vf_l(0, k, r, chemxb + i - 1) &
                                                                                + ds(0)*(drho_dt*ys(i) + rho*dys_dt(i))
                            end do
                        else
                            flux_rsx_vf_l(-1, k, r, e_idx) = flux_rsx_vf_l(0, k, r, e_idx) &
                                                                   + ds(0)*(pres*dgamma_dt &
                                                                            + gamma*dpres_dt &
                                                                            + dpi_inf_dt &
                                                                            + dqv_dt &
                                                                            + rho*vel_dv_dt_sum &
                                                                            + 5.e-1_wp*drho_dt*vel_k_sum)
                        end if
 
                        if (riemann_solver == 1) then
 
# 1086 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 1086 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc loop seq 
# 1086 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 1086 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 1086 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
                            do i = advxb, advxe
                                flux_rsx_vf_l(-1, k, r, i) = 0._wp
                            end do
 
 
# 1091 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 1091 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc loop seq 
# 1091 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 1091 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 1091 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
                            do i = advxb, advxe
                                flux_src_rsx_vf_l(-1, k, r, i) = &
                                    1._wp/max(abs(vel(dir_idx(1))), sgm_eps) &
                                    *sign(1._wp, vel(dir_idx(1))) &
                                    *(flux_rsx_vf_l(0, k, r, i) &
                                      + vel(dir_idx(1)) &
                                      *flux_src_rsx_vf_l(0, k, r, i) &
                                      + ds(0)*dadv_dt(i - e_idx))
                            end do
 
                        else
 
 
# 1104 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 1104 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc loop seq 
# 1104 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 1104 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 1104 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
                            do i = advxb, advxe
                                flux_rsx_vf_l(-1, k, r, i) = flux_rsx_vf_l(0, k, r, i) + &
                                                                   ds(0)*dadv_dt(i - e_idx)
                            end do
 
 
# 1110 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 1110 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc loop seq 
# 1110 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 1110 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 1110 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
                            do i = advxb, advxe
                                flux_src_rsx_vf_l(-1, k, r, i) = flux_src_rsx_vf_l(0, k, r, i)
                            end do
 
                        end if
                        ! END: flux_rs_vf_l and flux_src_rs_vf_l at j = -1/2
 
                    end do
                end do
 
# 1120 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 1120 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 1120 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc end parallel loop
# 1120 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 1120 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
    
# 1120 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 1120 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$omp end target teams loop
# 1120 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
# 1120 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
            end if
# 696 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
            if (cbc_dir == 2 .and. recon_type == weno_type) then
 
                ! PI2 of flux_rs_vf and flux_src_rs_vf at j = 1/2
                if (weno_order == 3 .or. dummy) then
 
                    call s_convert_primitive_to_flux_variables(q_prim_rsy_vf, &
                                                               f_rsy_vf, &
                                                               f_src_rsy_vf, &
                                                               is1, is2, is3, idwbuff(2)%beg, idwbuff(3)%beg)
 
 
# 706 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 706 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 706 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc parallel loop collapse(3) gang vector default(present) private(i, r, k) 
# 706 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 706 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
    
# 706 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 706 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 706 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$omp target teams loop defaultmap(firstprivate:scalar) bind(teams,parallel) collapse(3) defaultmap(tofrom:aggregate) defaultmap(tofrom:allocatable) defaultmap(tofrom:pointer) private(i, r, k) 
# 706 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
# 706 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
                    do i = 1, flux_cbc_index
                        do r = is3%beg, is3%end
                            do k = is2%beg, is2%end
                                flux_rsy_vf_l(0, k, r, i) = f_rsy_vf(0, k, r, i) &
                                                                  + pi_coef_y(0, 0, cbc_loc)* &
                                                                  (f_rsy_vf(1, k, r, i) - &
                                                                   f_rsy_vf(0, k, r, i))
                            end do
                        end do
                    end do
 
# 717 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 717 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 717 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc end parallel loop
# 717 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 717 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
    
# 717 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 717 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$omp end target teams loop
# 717 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
# 717 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
 
 
# 719 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 719 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 719 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc parallel loop collapse(3) gang vector default(present) private(i, r, k) 
# 719 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 719 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
    
# 719 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 719 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 719 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$omp target teams loop defaultmap(firstprivate:scalar) bind(teams,parallel) collapse(3) defaultmap(tofrom:aggregate) defaultmap(tofrom:allocatable) defaultmap(tofrom:pointer) private(i, r, k) 
# 719 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
# 719 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
                    do i = advxb, advxe
                        do r = is3%beg, is3%end
                            do k = is2%beg, is2%end
                                flux_src_rsy_vf_l(0, k, r, i) = f_src_rsy_vf(0, k, r, i) + &
                                                                      (f_src_rsy_vf(1, k, r, i) - &
                                                                       f_src_rsy_vf(0, k, r, i)) &
                                                                      *pi_coef_y(0, 0, cbc_loc)
                            end do
                        end do
                    end do
 
# 730 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 730 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 730 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc end parallel loop
# 730 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 730 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
    
# 730 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 730 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$omp end target teams loop
# 730 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
# 730 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
                end if
 
                ! PI4 of flux_rs_vf and flux_src_rs_vf at j = 1/2, 3/2
                if (weno_order == 5 .or. dummy) then
                    call s_convert_primitive_to_flux_variables(q_prim_rsy_vf, &
                                                               f_rsy_vf, &
                                                               f_src_rsy_vf, &
                                                               is1, is2, is3, idwbuff(2)%beg, idwbuff(3)%beg)
 
 
# 740 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 740 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 740 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc parallel loop collapse(4) gang vector default(present) private(i, j, r, k) 
# 740 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 740 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
    
# 740 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 740 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 740 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.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, r, k) 
# 740 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
# 740 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
                    do i = 1, flux_cbc_index
                        do j = 0, 1
                            do r = is3%beg, is3%end
                                do k = is2%beg, is2%end
                                    flux_rsy_vf_l(j, k, r, i) = f_rsy_vf(j, k, r, i) &
                                                                      + pi_coef_y(j, 0, cbc_loc)* &
                                                                      (f_rsy_vf(3, k, r, i) - &
                                                                       f_rsy_vf(2, k, r, i)) &
                                                                      + pi_coef_y(j, 1, cbc_loc)* &
                                                                      (f_rsy_vf(2, k, r, i) - &
                                                                       f_rsy_vf(1, k, r, i)) &
                                                                      + pi_coef_y(j, 2, cbc_loc)* &
                                                                      (f_rsy_vf(1, k, r, i) - &
                                                                       f_rsy_vf(0, k, r, i))
                                end do
                            end do
                        end do
                    end do
 
# 759 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 759 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 759 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc end parallel loop
# 759 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 759 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
    
# 759 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 759 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$omp end target teams loop
# 759 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
# 759 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
 
 
# 761 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 761 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 761 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc parallel loop collapse(4) gang vector default(present) private(i, j, r, k) 
# 761 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 761 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
    
# 761 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 761 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 761 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.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, r, k) 
# 761 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
# 761 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
                    do i = advxb, advxe
                        do j = 0, 1
                            do r = is3%beg, is3%end
                                do k = is2%beg, is2%end
                                    flux_src_rsy_vf_l(j, k, r, i) = f_src_rsy_vf(j, k, r, i) + &
                                                                          (f_src_rsy_vf(3, k, r, i) - &
                                                                           f_src_rsy_vf(2, k, r, i)) &
                                                                          *pi_coef_y(j, 0, cbc_loc) + &
                                                                          (f_src_rsy_vf(2, k, r, i) - &
                                                                           f_src_rsy_vf(1, k, r, i)) &
                                                                          *pi_coef_y(j, 1, cbc_loc) + &
                                                                          (f_src_rsy_vf(1, k, r, i) - &
                                                                           f_src_rsy_vf(0, k, r, i)) &
                                                                          *pi_coef_y(j, 2, cbc_loc)
                                end do
                            end do
                        end do
                    end do
 
# 780 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 780 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 780 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc end parallel loop
# 780 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 780 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
    
# 780 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 780 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$omp end target teams loop
# 780 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
# 780 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
 
                end if
 
                ! FD2 or FD4 of RHS at j = 0
 
# 785 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 785 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 785 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc parallel loop collapse(2) gang vector default(present) private(r, k, alpha_rho, vel, adv_local, mf, dvel_ds, dadv_ds, Re_cbc, dalpha_rho_ds, dpres_ds, dvel_dt, dadv_dt, dalpha_rho_dt, L, lambda, Ys, dYs_dt, dYs_ds, h_k, Cp_i, Gamma_i, Xs, drho_dt, dpres_dt, dpi_inf_dt, dqv_dt, dgamma_dt, rho, pres, E, H, gamma, pi_inf, qv, c, Ma, T, sum_Enthalpies, Cv, Cp, e_mix, Mw, R_gas, vel_K_sum, vel_dv_dt_sum, i, j) copyin(dir_idx) 
# 785 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 785 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
    
# 785 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 785 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 785 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$omp target teams loop defaultmap(firstprivate:scalar) bind(teams,parallel) collapse(2) defaultmap(tofrom:aggregate) defaultmap(tofrom:allocatable) defaultmap(tofrom:pointer) private(r, k, alpha_rho, vel, adv_local, mf, dvel_ds, dadv_ds, Re_cbc, dalpha_rho_ds, dpres_ds, dvel_dt, dadv_dt, dalpha_rho_dt, L, lambda, Ys, dYs_dt, dYs_ds, h_k, Cp_i, Gamma_i, Xs, drho_dt, dpres_dt, dpi_inf_dt, dqv_dt, dgamma_dt, rho, pres, E, H, gamma, pi_inf, qv, c, Ma, T, sum_Enthalpies, Cv, Cp, e_mix, Mw, R_gas, vel_K_sum, vel_dv_dt_sum, i, j) map(to:dir_idx) 
# 785 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
# 785 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
                do r = is3%beg, is3%end
                    do k = is2%beg, is2%end
 
                        ! Transferring the Primitive Variables
 
# 790 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 790 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc loop seq 
# 790 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 790 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 790 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
                        do i = 1, contxe
                            alpha_rho(i) = q_prim_rsy_vf(0, k, r, i)
                        end do
 
 
# 795 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 795 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc loop seq 
# 795 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 795 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 795 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
                        do i = 1, num_dims
                            vel(i) = q_prim_rsy_vf(0, k, r, contxe + i)
                        end do
 
                        vel_k_sum = 0._wp
 
# 801 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 801 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc loop seq 
# 801 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 801 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 801 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
                        do i = 1, num_dims
                            vel_k_sum = vel_k_sum + vel(i)**2._wp
                        end do
 
                        pres = q_prim_rsy_vf(0, k, r, e_idx)
 
 
# 808 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 808 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc loop seq 
# 808 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 808 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 808 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
                        do i = 1, advxe - e_idx
                            adv_local(i) = q_prim_rsy_vf(0, k, r, e_idx + i)
                        end do
 
                        call s_convert_species_to_mixture_variables_acc(rho, gamma, pi_inf, qv, adv_local, alpha_rho, re_cbc)
 
 
# 815 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 815 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc loop seq 
# 815 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 815 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 815 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
                        do i = 1, contxe
                            mf(i) = alpha_rho(i)/rho
                        end do
 
                        if (chemistry) then
 
# 821 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 821 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc loop seq 
# 821 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 821 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 821 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
                            do i = chemxb, chemxe
                                ys(i - chemxb + 1) = q_prim_rsy_vf(0, k, r, i)
                            end do
 
                            call get_mixture_molecular_weight(ys, mw)
                            r_gas = gas_constant/mw
                            t = pres/rho/r_gas
                            call get_mixture_specific_heat_cp_mass(t, ys, cp)
                            call get_mixture_energy_mass(t, ys, e_mix)
                            e = rho*e_mix + 5.e-1_wp*rho*vel_k_sum
                            if (chem_params%gamma_method == 1) then
                                !> gamma_method = 1: Ref. Section 2.3.1 Formulation of doi:10.7907/ZKW8-ES97.
                                call get_mole_fractions(mw, ys, xs)
                                call get_species_specific_heats_r(t, cp_i)
                                gamma_i = cp_i/(cp_i - 1.0_wp)
                                gamma = sum(xs(:)/(gamma_i(:) - 1.0_wp))
                            else if (chem_params%gamma_method == 2) then
                                !> gamma_method = 2: c_p / c_v where c_p, c_v are specific heats.
                                call get_mixture_specific_heat_cv_mass(t, ys, cv)
                                gamma = 1.0_wp/(cp/cv - 1.0_wp)
                            end if
                        else
                            e = gamma*pres + pi_inf + 5.e-1_wp*rho*vel_k_sum
                        end if
 
                        h = (e + pres)/rho
 
                        ! Compute mixture sound speed
                        call s_compute_speed_of_sound(pres, rho, gamma, pi_inf, h, adv_local, vel_k_sum, 0._wp, c, qv)
 
                        ! First-Order Spatial Derivatives of Primitive Variables
 
 
# 854 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 854 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc loop seq 
# 854 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 854 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 854 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
                        do i = 1, contxe
                            dalpha_rho_ds(i) = 0._wp
                        end do
 
 
# 859 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 859 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc loop seq 
# 859 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 859 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 859 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
                        do i = 1, num_dims
                            dvel_ds(i) = 0._wp
                        end do
 
                        dpres_ds = 0._wp
 
# 865 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 865 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc loop seq 
# 865 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 865 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 865 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
                        do i = 1, advxe - e_idx
                            dadv_ds(i) = 0._wp
                        end do
 
                        if (chemistry) then
 
# 871 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 871 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc loop seq 
# 871 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 871 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 871 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
                            do i = 1, num_species
                                dys_ds(i) = 0._wp
                            end do
                        end if
 
 
# 877 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 877 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc loop seq 
# 877 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 877 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 877 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
                        do j = 0, buff_size
 
 
# 880 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 880 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc loop seq 
# 880 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 880 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 880 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
                            do i = 1, contxe
                                dalpha_rho_ds(i) = q_prim_rsy_vf(j, k, r, i)* &
                                                   fd_coef_y(j, cbc_loc) + &
                                                   dalpha_rho_ds(i)
                            end do
 
# 886 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 886 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc loop seq 
# 886 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 886 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 886 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
                            do i = 1, num_dims
                                dvel_ds(i) = q_prim_rsy_vf(j, k, r, contxe + i)* &
                                             fd_coef_y(j, cbc_loc) + &
                                             dvel_ds(i)
                            end do
 
                            dpres_ds = q_prim_rsy_vf(j, k, r, e_idx)* &
                                       fd_coef_y(j, cbc_loc) + &
                                       dpres_ds
 
# 896 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 896 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc loop seq 
# 896 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 896 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 896 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
                            do i = 1, advxe - e_idx
                                dadv_ds(i) = q_prim_rsy_vf(j, k, r, e_idx + i)* &
                                             fd_coef_y(j, cbc_loc) + &
                                             dadv_ds(i)
                            end do
 
                            if (chemistry) then
 
# 904 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 904 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc loop seq 
# 904 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 904 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 904 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
                                do i = 1, num_species
                                    dys_ds(i) = q_prim_rsy_vf(j, k, r, chemxb - 1 + i)* &
                                                fd_coef_y(j, cbc_loc) + &
                                                dys_ds(i)
                                end do
                            end if
                        end do
 
                        ! First-Order Temporal Derivatives of Primitive Variables
                        lambda(1) = vel(dir_idx(1)) - c
                        lambda(2) = vel(dir_idx(1))
                        lambda(3) = vel(dir_idx(1)) + c
 
                        ma = vel(dir_idx(1))/c
 
                        if ((cbc_loc == -1 .and. bcyb == bc_char_slip_wall) .or. &
                            (cbc_loc == 1 .and. bcye == bc_char_slip_wall)) then
                            call s_compute_slip_wall_l(lambda, l, rho, c, dpres_ds, dvel_ds)
                        else if ((cbc_loc == -1 .and. bcyb == bc_char_nr_sub_buffer) .or. &
                                 (cbc_loc == 1 .and. bcye == bc_char_nr_sub_buffer)) then
                            call s_compute_nonreflecting_subsonic_buffer_l(lambda, l, rho, c, mf, dalpha_rho_ds, dpres_ds, dvel_ds, dadv_ds, dys_ds)
                        else if ((cbc_loc == -1 .and. bcyb == bc_char_nr_sub_inflow) .or. &
                                 (cbc_loc == 1 .and. bcye == bc_char_nr_sub_inflow)) then
                            call s_compute_nonreflecting_subsonic_inflow_l(lambda, l, rho, c, dpres_ds, dvel_ds)
                            ! Add GRCBC for Subsonic Inflow
                            if (bc_y%grcbc_in) then
 
# 931 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 931 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc loop seq 
# 931 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 931 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 931 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
                                do i = 2, momxb
                                    l(i) = c**3._wp*ma*(alpha_rho(i - 1) - alpha_rho_in(i - 1, 2))/del_in(2) - c*ma*(pres - pres_in(2))/del_in(2)
                                end do
                                if (n > 0) then
                                    l(momxb + 1) = c*ma*(vel(dir_idx(2)) - vel_in(2, dir_idx(2)))/del_in(2)
                                    if (p > 0) then
                                        l(momxb + 2) = c*ma*(vel(dir_idx(3)) - vel_in(2, dir_idx(3)))/del_in(2)
                                    end if
                                end if
 
# 941 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 941 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc loop seq 
# 941 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 941 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 941 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
                                do i = e_idx, advxe - 1
                                    l(i) = c*ma*(adv_local(i + 1 - e_idx) - alpha_in(i + 1 - e_idx, 2))/del_in(2)
                                end do
                                l(advxe) = rho*c**2._wp*(1._wp + ma)*(vel(dir_idx(1)) + vel_in(2, dir_idx(1))*sign(1, cbc_loc))/del_in(2) + c*(1._wp + ma)*(pres - pres_in(2))/del_in(2)
                            end if
                        else if ((cbc_loc == -1 .and. bcyb == bc_char_nr_sub_outflow) .or. &
                                 (cbc_loc == 1 .and. bcye == bc_char_nr_sub_outflow)) then
                            call s_compute_nonreflecting_subsonic_outflow_l(lambda, l, rho, c, mf, dalpha_rho_ds, dpres_ds, dvel_ds, dadv_ds, dys_ds)
                            ! Add GRCBC for Subsonic Outflow (Pressure)
                            if (bc_y%grcbc_out) then
                                l(advxe) = c*(1._wp - ma)*(pres - pres_out(2))/del_out(2)
 
                                ! Add GRCBC for Subsonic Outflow (Normal Velocity)
                                if (bc_y%grcbc_vel_out) then
                                    l(advxe) = l(advxe) + rho*c**2._wp*(1._wp - ma)*(vel(dir_idx(1)) + vel_out(2, dir_idx(1))*sign(1, cbc_loc))/del_out(2)
                                end if
                            end if
                        else if ((cbc_loc == -1 .and. bcyb == bc_char_ff_sub_outflow) .or. &
                                 (cbc_loc == 1 .and. bcye == bc_char_ff_sub_outflow)) then
                            call s_compute_force_free_subsonic_outflow_l(lambda, l, rho, c, mf, dalpha_rho_ds, dpres_ds, dvel_ds, dadv_ds)
                        else if ((cbc_loc == -1 .and. bcyb == bc_char_cp_sub_outflow) .or. &
                                 (cbc_loc == 1 .and. bcye == bc_char_cp_sub_outflow)) then
                            call s_compute_constant_pressure_subsonic_outflow_l(lambda, l, rho, c, mf, dalpha_rho_ds, dpres_ds, dvel_ds, dadv_ds)
                        else if ((cbc_loc == -1 .and. bcyb == bc_char_sup_inflow) .or. &
                                 (cbc_loc == 1 .and. bcye == bc_char_sup_inflow)) then
                            call s_compute_supersonic_inflow_l(l)
                        else if ((cbc_loc == -1 .and. bcyb == bc_char_sup_outflow) .or. &
                                 (cbc_loc == 1 .and. bcye == bc_char_sup_outflow)) then
                            call s_compute_supersonic_outflow_l(lambda, l, rho, c, mf, dalpha_rho_ds, dpres_ds, dvel_ds, dadv_ds, dys_ds)
                        end if
 
                        ! Be careful about the cylindrical coordinate!
                        if (cyl_coord .and. cbc_dir == 2 .and. cbc_loc == 1) then
                            dpres_dt = -5.e-1_wp*(l(advxe) + l(1)) + rho*c*c*vel(dir_idx(1)) &
                                       /y_cc(n)
                        else
                            dpres_dt = -5.e-1_wp*(l(advxe) + l(1))
                        end if
 
 
# 981 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 981 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc loop seq 
# 981 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 981 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 981 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
                        do i = 1, contxe
                            dalpha_rho_dt(i) = &
                                -(l(i + 1) - mf(i)*dpres_dt)/(c*c)
                        end do
 
 
# 987 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 987 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc loop seq 
# 987 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 987 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 987 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
                        do i = 1, num_dims
                            dvel_dt(dir_idx(i)) = dir_flg(dir_idx(i))* &
                                                  (l(1) - l(advxe))/(2._wp*rho*c) + &
                                                  (dir_flg(dir_idx(i)) - 1._wp)* &
                                                  l(momxb + i - 1)
                        end do
 
                        vel_dv_dt_sum = 0._wp
 
# 996 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 996 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc loop seq 
# 996 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 996 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 996 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
                        do i = 1, num_dims
                            vel_dv_dt_sum = vel_dv_dt_sum + vel(i)*dvel_dt(i)
                        end do
 
                        if (chemistry) then
 
# 1002 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 1002 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc loop seq 
# 1002 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 1002 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 1002 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
                            do i = 1, num_species
                                dys_dt(i) = -1._wp*l(chemxb + i - 1)
                            end do
                        end if
 
                        ! The treatment of void fraction source is unclear
                        if (cyl_coord .and. cbc_dir == 2 .and. cbc_loc == 1) then
 
# 1010 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 1010 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc loop seq 
# 1010 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 1010 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 1010 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
                            do i = 1, advxe - e_idx
                                dadv_dt(i) = -l(momxe + i) !+ adv_local(i) * vel(dir_idx(1))/y_cc(n)
                            end do
                        else
 
# 1015 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 1015 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc loop seq 
# 1015 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 1015 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 1015 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
                            do i = 1, advxe - e_idx
                                dadv_dt(i) = -l(momxe + i)
                            end do
                        end if
 
                        drho_dt = 0._wp; dgamma_dt = 0._wp; dpi_inf_dt = 0._wp; dqv_dt = 0._wp
 
                        if (model_eqns == 1) then
                            drho_dt = dalpha_rho_dt(1)
                            dgamma_dt = dadv_dt(1)
# 1027 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
                                dpi_inf_dt = dadv_dt(2)
# 1029 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
                        else
 
# 1030 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 1030 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc loop seq 
# 1030 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 1030 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 1030 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
                            do i = 1, num_fluids
                                drho_dt = drho_dt + dalpha_rho_dt(i)
                                dgamma_dt = dgamma_dt + dadv_dt(i)*gammas(i)
                                dpi_inf_dt = dpi_inf_dt + dadv_dt(i)*pi_infs(i)
                                dqv_dt = dqv_dt + dalpha_rho_dt(i)*qvs(i)
                            end do
                        end if
 
                        ! flux_rs_vf_l and flux_src_rs_vf_l at j = -1/2
 
# 1040 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 1040 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc loop seq 
# 1040 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 1040 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 1040 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
                        do i = 1, contxe
                            flux_rsy_vf_l(-1, k, r, i) = flux_rsy_vf_l(0, k, r, i) &
                                                               + ds(0)*dalpha_rho_dt(i)
                        end do
 
 
# 1046 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 1046 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc loop seq 
# 1046 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 1046 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 1046 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
                        do i = momxb, momxe
                            flux_rsy_vf_l(-1, k, r, i) = flux_rsy_vf_l(0, k, r, i) &
                                                               + ds(0)*(vel(i - contxe)*drho_dt &
                                                                        + rho*dvel_dt(i - contxe))
                        end do
 
                        if (chemistry) then
                            ! Evolution of LODI equation of energy for real gases adjusted to perfect gas, doi:10.1006/jcph.2002.6990
                            call get_species_enthalpies_rt(t, h_k)
                            sum_enthalpies = 0._wp
 
# 1057 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 1057 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc loop seq 
# 1057 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 1057 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 1057 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
                            do i = 1, num_species
 
# 1064 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
                                    h_k(i) = h_k(i)*gas_constant/molecular_weights(i)*t
                                    sum_enthalpies = sum_enthalpies + (rho*h_k(i) - pres*mw/molecular_weights(i)*cp/r_gas)*dys_dt(i)
# 1067 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
                            end do
                            flux_rsy_vf_l(-1, k, r, e_idx) = flux_rsy_vf_l(0, k, r, e_idx) &
                                                                   + ds(0)*((e/rho + pres/rho)*drho_dt + rho*vel_dv_dt_sum + cp*t*l(2)/(c*c) + sum_enthalpies)
 
# 1070 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 1070 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc loop seq 
# 1070 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 1070 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 1070 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
                            do i = 1, num_species
                                flux_rsy_vf_l(-1, k, r, i - 1 + chemxb) = flux_rsy_vf_l(0, k, r, chemxb + i - 1) &
                                                                                + ds(0)*(drho_dt*ys(i) + rho*dys_dt(i))
                            end do
                        else
                            flux_rsy_vf_l(-1, k, r, e_idx) = flux_rsy_vf_l(0, k, r, e_idx) &
                                                                   + ds(0)*(pres*dgamma_dt &
                                                                            + gamma*dpres_dt &
                                                                            + dpi_inf_dt &
                                                                            + dqv_dt &
                                                                            + rho*vel_dv_dt_sum &
                                                                            + 5.e-1_wp*drho_dt*vel_k_sum)
                        end if
 
                        if (riemann_solver == 1) then
 
# 1086 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 1086 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc loop seq 
# 1086 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 1086 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 1086 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
                            do i = advxb, advxe
                                flux_rsy_vf_l(-1, k, r, i) = 0._wp
                            end do
 
 
# 1091 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 1091 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc loop seq 
# 1091 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 1091 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 1091 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
                            do i = advxb, advxe
                                flux_src_rsy_vf_l(-1, k, r, i) = &
                                    1._wp/max(abs(vel(dir_idx(1))), sgm_eps) &
                                    *sign(1._wp, vel(dir_idx(1))) &
                                    *(flux_rsy_vf_l(0, k, r, i) &
                                      + vel(dir_idx(1)) &
                                      *flux_src_rsy_vf_l(0, k, r, i) &
                                      + ds(0)*dadv_dt(i - e_idx))
                            end do
 
                        else
 
 
# 1104 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 1104 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc loop seq 
# 1104 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 1104 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 1104 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
                            do i = advxb, advxe
                                flux_rsy_vf_l(-1, k, r, i) = flux_rsy_vf_l(0, k, r, i) + &
                                                                   ds(0)*dadv_dt(i - e_idx)
                            end do
 
 
# 1110 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 1110 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc loop seq 
# 1110 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 1110 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 1110 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
                            do i = advxb, advxe
                                flux_src_rsy_vf_l(-1, k, r, i) = flux_src_rsy_vf_l(0, k, r, i)
                            end do
 
                        end if
                        ! END: flux_rs_vf_l and flux_src_rs_vf_l at j = -1/2
 
                    end do
                end do
 
# 1120 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 1120 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 1120 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc end parallel loop
# 1120 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 1120 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
    
# 1120 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 1120 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$omp end target teams loop
# 1120 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
# 1120 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
            end if
# 696 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
            if (cbc_dir == 3 .and. recon_type == weno_type) then
 
                ! PI2 of flux_rs_vf and flux_src_rs_vf at j = 1/2
                if (weno_order == 3 .or. dummy) then
 
                    call s_convert_primitive_to_flux_variables(q_prim_rsz_vf, &
                                                               f_rsz_vf, &
                                                               f_src_rsz_vf, &
                                                               is1, is2, is3, idwbuff(2)%beg, idwbuff(3)%beg)
 
 
# 706 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 706 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 706 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc parallel loop collapse(3) gang vector default(present) private(i, r, k) 
# 706 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 706 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
    
# 706 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 706 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 706 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$omp target teams loop defaultmap(firstprivate:scalar) bind(teams,parallel) collapse(3) defaultmap(tofrom:aggregate) defaultmap(tofrom:allocatable) defaultmap(tofrom:pointer) private(i, r, k) 
# 706 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
# 706 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
                    do i = 1, flux_cbc_index
                        do r = is3%beg, is3%end
                            do k = is2%beg, is2%end
                                flux_rsz_vf_l(0, k, r, i) = f_rsz_vf(0, k, r, i) &
                                                                  + pi_coef_z(0, 0, cbc_loc)* &
                                                                  (f_rsz_vf(1, k, r, i) - &
                                                                   f_rsz_vf(0, k, r, i))
                            end do
                        end do
                    end do
 
# 717 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 717 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 717 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc end parallel loop
# 717 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 717 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
    
# 717 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 717 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$omp end target teams loop
# 717 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
# 717 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
 
 
# 719 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 719 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 719 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc parallel loop collapse(3) gang vector default(present) private(i, r, k) 
# 719 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 719 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
    
# 719 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 719 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 719 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$omp target teams loop defaultmap(firstprivate:scalar) bind(teams,parallel) collapse(3) defaultmap(tofrom:aggregate) defaultmap(tofrom:allocatable) defaultmap(tofrom:pointer) private(i, r, k) 
# 719 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
# 719 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
                    do i = advxb, advxe
                        do r = is3%beg, is3%end
                            do k = is2%beg, is2%end
                                flux_src_rsz_vf_l(0, k, r, i) = f_src_rsz_vf(0, k, r, i) + &
                                                                      (f_src_rsz_vf(1, k, r, i) - &
                                                                       f_src_rsz_vf(0, k, r, i)) &
                                                                      *pi_coef_z(0, 0, cbc_loc)
                            end do
                        end do
                    end do
 
# 730 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 730 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 730 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc end parallel loop
# 730 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 730 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
    
# 730 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 730 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$omp end target teams loop
# 730 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
# 730 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
                end if
 
                ! PI4 of flux_rs_vf and flux_src_rs_vf at j = 1/2, 3/2
                if (weno_order == 5 .or. dummy) then
                    call s_convert_primitive_to_flux_variables(q_prim_rsz_vf, &
                                                               f_rsz_vf, &
                                                               f_src_rsz_vf, &
                                                               is1, is2, is3, idwbuff(2)%beg, idwbuff(3)%beg)
 
 
# 740 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 740 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 740 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc parallel loop collapse(4) gang vector default(present) private(i, j, r, k) 
# 740 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 740 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
    
# 740 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 740 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 740 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.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, r, k) 
# 740 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
# 740 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
                    do i = 1, flux_cbc_index
                        do j = 0, 1
                            do r = is3%beg, is3%end
                                do k = is2%beg, is2%end
                                    flux_rsz_vf_l(j, k, r, i) = f_rsz_vf(j, k, r, i) &
                                                                      + pi_coef_z(j, 0, cbc_loc)* &
                                                                      (f_rsz_vf(3, k, r, i) - &
                                                                       f_rsz_vf(2, k, r, i)) &
                                                                      + pi_coef_z(j, 1, cbc_loc)* &
                                                                      (f_rsz_vf(2, k, r, i) - &
                                                                       f_rsz_vf(1, k, r, i)) &
                                                                      + pi_coef_z(j, 2, cbc_loc)* &
                                                                      (f_rsz_vf(1, k, r, i) - &
                                                                       f_rsz_vf(0, k, r, i))
                                end do
                            end do
                        end do
                    end do
 
# 759 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 759 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 759 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc end parallel loop
# 759 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 759 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
    
# 759 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 759 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$omp end target teams loop
# 759 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
# 759 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
 
 
# 761 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 761 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 761 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc parallel loop collapse(4) gang vector default(present) private(i, j, r, k) 
# 761 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 761 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
    
# 761 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 761 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 761 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.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, r, k) 
# 761 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
# 761 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
                    do i = advxb, advxe
                        do j = 0, 1
                            do r = is3%beg, is3%end
                                do k = is2%beg, is2%end
                                    flux_src_rsz_vf_l(j, k, r, i) = f_src_rsz_vf(j, k, r, i) + &
                                                                          (f_src_rsz_vf(3, k, r, i) - &
                                                                           f_src_rsz_vf(2, k, r, i)) &
                                                                          *pi_coef_z(j, 0, cbc_loc) + &
                                                                          (f_src_rsz_vf(2, k, r, i) - &
                                                                           f_src_rsz_vf(1, k, r, i)) &
                                                                          *pi_coef_z(j, 1, cbc_loc) + &
                                                                          (f_src_rsz_vf(1, k, r, i) - &
                                                                           f_src_rsz_vf(0, k, r, i)) &
                                                                          *pi_coef_z(j, 2, cbc_loc)
                                end do
                            end do
                        end do
                    end do
 
# 780 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 780 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 780 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc end parallel loop
# 780 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 780 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
    
# 780 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 780 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$omp end target teams loop
# 780 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
# 780 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
 
                end if
 
                ! FD2 or FD4 of RHS at j = 0
 
# 785 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 785 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 785 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc parallel loop collapse(2) gang vector default(present) private(r, k, alpha_rho, vel, adv_local, mf, dvel_ds, dadv_ds, Re_cbc, dalpha_rho_ds, dpres_ds, dvel_dt, dadv_dt, dalpha_rho_dt, L, lambda, Ys, dYs_dt, dYs_ds, h_k, Cp_i, Gamma_i, Xs, drho_dt, dpres_dt, dpi_inf_dt, dqv_dt, dgamma_dt, rho, pres, E, H, gamma, pi_inf, qv, c, Ma, T, sum_Enthalpies, Cv, Cp, e_mix, Mw, R_gas, vel_K_sum, vel_dv_dt_sum, i, j) copyin(dir_idx) 
# 785 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 785 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
    
# 785 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 785 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 785 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$omp target teams loop defaultmap(firstprivate:scalar) bind(teams,parallel) collapse(2) defaultmap(tofrom:aggregate) defaultmap(tofrom:allocatable) defaultmap(tofrom:pointer) private(r, k, alpha_rho, vel, adv_local, mf, dvel_ds, dadv_ds, Re_cbc, dalpha_rho_ds, dpres_ds, dvel_dt, dadv_dt, dalpha_rho_dt, L, lambda, Ys, dYs_dt, dYs_ds, h_k, Cp_i, Gamma_i, Xs, drho_dt, dpres_dt, dpi_inf_dt, dqv_dt, dgamma_dt, rho, pres, E, H, gamma, pi_inf, qv, c, Ma, T, sum_Enthalpies, Cv, Cp, e_mix, Mw, R_gas, vel_K_sum, vel_dv_dt_sum, i, j) map(to:dir_idx) 
# 785 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
# 785 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
                do r = is3%beg, is3%end
                    do k = is2%beg, is2%end
 
                        ! Transferring the Primitive Variables
 
# 790 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 790 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc loop seq 
# 790 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 790 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 790 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
                        do i = 1, contxe
                            alpha_rho(i) = q_prim_rsz_vf(0, k, r, i)
                        end do
 
 
# 795 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 795 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc loop seq 
# 795 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 795 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 795 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
                        do i = 1, num_dims
                            vel(i) = q_prim_rsz_vf(0, k, r, contxe + i)
                        end do
 
                        vel_k_sum = 0._wp
 
# 801 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 801 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc loop seq 
# 801 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 801 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 801 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
                        do i = 1, num_dims
                            vel_k_sum = vel_k_sum + vel(i)**2._wp
                        end do
 
                        pres = q_prim_rsz_vf(0, k, r, e_idx)
 
 
# 808 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 808 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc loop seq 
# 808 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 808 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 808 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
                        do i = 1, advxe - e_idx
                            adv_local(i) = q_prim_rsz_vf(0, k, r, e_idx + i)
                        end do
 
                        call s_convert_species_to_mixture_variables_acc(rho, gamma, pi_inf, qv, adv_local, alpha_rho, re_cbc)
 
 
# 815 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 815 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc loop seq 
# 815 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 815 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 815 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
                        do i = 1, contxe
                            mf(i) = alpha_rho(i)/rho
                        end do
 
                        if (chemistry) then
 
# 821 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 821 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc loop seq 
# 821 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 821 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 821 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
                            do i = chemxb, chemxe
                                ys(i - chemxb + 1) = q_prim_rsz_vf(0, k, r, i)
                            end do
 
                            call get_mixture_molecular_weight(ys, mw)
                            r_gas = gas_constant/mw
                            t = pres/rho/r_gas
                            call get_mixture_specific_heat_cp_mass(t, ys, cp)
                            call get_mixture_energy_mass(t, ys, e_mix)
                            e = rho*e_mix + 5.e-1_wp*rho*vel_k_sum
                            if (chem_params%gamma_method == 1) then
                                !> gamma_method = 1: Ref. Section 2.3.1 Formulation of doi:10.7907/ZKW8-ES97.
                                call get_mole_fractions(mw, ys, xs)
                                call get_species_specific_heats_r(t, cp_i)
                                gamma_i = cp_i/(cp_i - 1.0_wp)
                                gamma = sum(xs(:)/(gamma_i(:) - 1.0_wp))
                            else if (chem_params%gamma_method == 2) then
                                !> gamma_method = 2: c_p / c_v where c_p, c_v are specific heats.
                                call get_mixture_specific_heat_cv_mass(t, ys, cv)
                                gamma = 1.0_wp/(cp/cv - 1.0_wp)
                            end if
                        else
                            e = gamma*pres + pi_inf + 5.e-1_wp*rho*vel_k_sum
                        end if
 
                        h = (e + pres)/rho
 
                        ! Compute mixture sound speed
                        call s_compute_speed_of_sound(pres, rho, gamma, pi_inf, h, adv_local, vel_k_sum, 0._wp, c, qv)
 
                        ! First-Order Spatial Derivatives of Primitive Variables
 
 
# 854 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 854 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc loop seq 
# 854 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 854 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 854 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
                        do i = 1, contxe
                            dalpha_rho_ds(i) = 0._wp
                        end do
 
 
# 859 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 859 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc loop seq 
# 859 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 859 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 859 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
                        do i = 1, num_dims
                            dvel_ds(i) = 0._wp
                        end do
 
                        dpres_ds = 0._wp
 
# 865 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 865 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc loop seq 
# 865 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 865 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 865 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
                        do i = 1, advxe - e_idx
                            dadv_ds(i) = 0._wp
                        end do
 
                        if (chemistry) then
 
# 871 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 871 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc loop seq 
# 871 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 871 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 871 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
                            do i = 1, num_species
                                dys_ds(i) = 0._wp
                            end do
                        end if
 
 
# 877 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 877 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc loop seq 
# 877 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 877 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 877 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
                        do j = 0, buff_size
 
 
# 880 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 880 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc loop seq 
# 880 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 880 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 880 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
                            do i = 1, contxe
                                dalpha_rho_ds(i) = q_prim_rsz_vf(j, k, r, i)* &
                                                   fd_coef_z(j, cbc_loc) + &
                                                   dalpha_rho_ds(i)
                            end do
 
# 886 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 886 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc loop seq 
# 886 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 886 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 886 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
                            do i = 1, num_dims
                                dvel_ds(i) = q_prim_rsz_vf(j, k, r, contxe + i)* &
                                             fd_coef_z(j, cbc_loc) + &
                                             dvel_ds(i)
                            end do
 
                            dpres_ds = q_prim_rsz_vf(j, k, r, e_idx)* &
                                       fd_coef_z(j, cbc_loc) + &
                                       dpres_ds
 
# 896 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 896 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc loop seq 
# 896 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 896 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 896 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
                            do i = 1, advxe - e_idx
                                dadv_ds(i) = q_prim_rsz_vf(j, k, r, e_idx + i)* &
                                             fd_coef_z(j, cbc_loc) + &
                                             dadv_ds(i)
                            end do
 
                            if (chemistry) then
 
# 904 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 904 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc loop seq 
# 904 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 904 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 904 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
                                do i = 1, num_species
                                    dys_ds(i) = q_prim_rsz_vf(j, k, r, chemxb - 1 + i)* &
                                                fd_coef_z(j, cbc_loc) + &
                                                dys_ds(i)
                                end do
                            end if
                        end do
 
                        ! First-Order Temporal Derivatives of Primitive Variables
                        lambda(1) = vel(dir_idx(1)) - c
                        lambda(2) = vel(dir_idx(1))
                        lambda(3) = vel(dir_idx(1)) + c
 
                        ma = vel(dir_idx(1))/c
 
                        if ((cbc_loc == -1 .and. bczb == bc_char_slip_wall) .or. &
                            (cbc_loc == 1 .and. bcze == bc_char_slip_wall)) then
                            call s_compute_slip_wall_l(lambda, l, rho, c, dpres_ds, dvel_ds)
                        else if ((cbc_loc == -1 .and. bczb == bc_char_nr_sub_buffer) .or. &
                                 (cbc_loc == 1 .and. bcze == bc_char_nr_sub_buffer)) then
                            call s_compute_nonreflecting_subsonic_buffer_l(lambda, l, rho, c, mf, dalpha_rho_ds, dpres_ds, dvel_ds, dadv_ds, dys_ds)
                        else if ((cbc_loc == -1 .and. bczb == bc_char_nr_sub_inflow) .or. &
                                 (cbc_loc == 1 .and. bcze == bc_char_nr_sub_inflow)) then
                            call s_compute_nonreflecting_subsonic_inflow_l(lambda, l, rho, c, dpres_ds, dvel_ds)
                            ! Add GRCBC for Subsonic Inflow
                            if (bc_z%grcbc_in) then
 
# 931 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 931 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc loop seq 
# 931 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 931 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 931 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
                                do i = 2, momxb
                                    l(i) = c**3._wp*ma*(alpha_rho(i - 1) - alpha_rho_in(i - 1, 3))/del_in(3) - c*ma*(pres - pres_in(3))/del_in(3)
                                end do
                                if (n > 0) then
                                    l(momxb + 1) = c*ma*(vel(dir_idx(2)) - vel_in(3, dir_idx(2)))/del_in(3)
                                    if (p > 0) then
                                        l(momxb + 2) = c*ma*(vel(dir_idx(3)) - vel_in(3, dir_idx(3)))/del_in(3)
                                    end if
                                end if
 
# 941 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 941 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc loop seq 
# 941 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 941 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 941 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
                                do i = e_idx, advxe - 1
                                    l(i) = c*ma*(adv_local(i + 1 - e_idx) - alpha_in(i + 1 - e_idx, 3))/del_in(3)
                                end do
                                l(advxe) = rho*c**2._wp*(1._wp + ma)*(vel(dir_idx(1)) + vel_in(3, dir_idx(1))*sign(1, cbc_loc))/del_in(3) + c*(1._wp + ma)*(pres - pres_in(3))/del_in(3)
                            end if
                        else if ((cbc_loc == -1 .and. bczb == bc_char_nr_sub_outflow) .or. &
                                 (cbc_loc == 1 .and. bcze == bc_char_nr_sub_outflow)) then
                            call s_compute_nonreflecting_subsonic_outflow_l(lambda, l, rho, c, mf, dalpha_rho_ds, dpres_ds, dvel_ds, dadv_ds, dys_ds)
                            ! Add GRCBC for Subsonic Outflow (Pressure)
                            if (bc_z%grcbc_out) then
                                l(advxe) = c*(1._wp - ma)*(pres - pres_out(3))/del_out(3)
 
                                ! Add GRCBC for Subsonic Outflow (Normal Velocity)
                                if (bc_z%grcbc_vel_out) then
                                    l(advxe) = l(advxe) + rho*c**2._wp*(1._wp - ma)*(vel(dir_idx(1)) + vel_out(3, dir_idx(1))*sign(1, cbc_loc))/del_out(3)
                                end if
                            end if
                        else if ((cbc_loc == -1 .and. bczb == bc_char_ff_sub_outflow) .or. &
                                 (cbc_loc == 1 .and. bcze == bc_char_ff_sub_outflow)) then
                            call s_compute_force_free_subsonic_outflow_l(lambda, l, rho, c, mf, dalpha_rho_ds, dpres_ds, dvel_ds, dadv_ds)
                        else if ((cbc_loc == -1 .and. bczb == bc_char_cp_sub_outflow) .or. &
                                 (cbc_loc == 1 .and. bcze == bc_char_cp_sub_outflow)) then
                            call s_compute_constant_pressure_subsonic_outflow_l(lambda, l, rho, c, mf, dalpha_rho_ds, dpres_ds, dvel_ds, dadv_ds)
                        else if ((cbc_loc == -1 .and. bczb == bc_char_sup_inflow) .or. &
                                 (cbc_loc == 1 .and. bcze == bc_char_sup_inflow)) then
                            call s_compute_supersonic_inflow_l(l)
                        else if ((cbc_loc == -1 .and. bczb == bc_char_sup_outflow) .or. &
                                 (cbc_loc == 1 .and. bcze == bc_char_sup_outflow)) then
                            call s_compute_supersonic_outflow_l(lambda, l, rho, c, mf, dalpha_rho_ds, dpres_ds, dvel_ds, dadv_ds, dys_ds)
                        end if
 
                        ! Be careful about the cylindrical coordinate!
                        if (cyl_coord .and. cbc_dir == 2 .and. cbc_loc == 1) then
                            dpres_dt = -5.e-1_wp*(l(advxe) + l(1)) + rho*c*c*vel(dir_idx(1)) &
                                       /y_cc(n)
                        else
                            dpres_dt = -5.e-1_wp*(l(advxe) + l(1))
                        end if
 
 
# 981 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 981 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc loop seq 
# 981 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 981 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 981 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
                        do i = 1, contxe
                            dalpha_rho_dt(i) = &
                                -(l(i + 1) - mf(i)*dpres_dt)/(c*c)
                        end do
 
 
# 987 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 987 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc loop seq 
# 987 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 987 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 987 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
                        do i = 1, num_dims
                            dvel_dt(dir_idx(i)) = dir_flg(dir_idx(i))* &
                                                  (l(1) - l(advxe))/(2._wp*rho*c) + &
                                                  (dir_flg(dir_idx(i)) - 1._wp)* &
                                                  l(momxb + i - 1)
                        end do
 
                        vel_dv_dt_sum = 0._wp
 
# 996 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 996 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc loop seq 
# 996 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 996 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 996 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
                        do i = 1, num_dims
                            vel_dv_dt_sum = vel_dv_dt_sum + vel(i)*dvel_dt(i)
                        end do
 
                        if (chemistry) then
 
# 1002 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 1002 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc loop seq 
# 1002 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 1002 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 1002 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
                            do i = 1, num_species
                                dys_dt(i) = -1._wp*l(chemxb + i - 1)
                            end do
                        end if
 
                        ! The treatment of void fraction source is unclear
                        if (cyl_coord .and. cbc_dir == 2 .and. cbc_loc == 1) then
 
# 1010 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 1010 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc loop seq 
# 1010 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 1010 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 1010 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
                            do i = 1, advxe - e_idx
                                dadv_dt(i) = -l(momxe + i) !+ adv_local(i) * vel(dir_idx(1))/y_cc(n)
                            end do
                        else
 
# 1015 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 1015 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc loop seq 
# 1015 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 1015 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 1015 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
                            do i = 1, advxe - e_idx
                                dadv_dt(i) = -l(momxe + i)
                            end do
                        end if
 
                        drho_dt = 0._wp; dgamma_dt = 0._wp; dpi_inf_dt = 0._wp; dqv_dt = 0._wp
 
                        if (model_eqns == 1) then
                            drho_dt = dalpha_rho_dt(1)
                            dgamma_dt = dadv_dt(1)
# 1027 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
                                dpi_inf_dt = dadv_dt(2)
# 1029 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
                        else
 
# 1030 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 1030 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc loop seq 
# 1030 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 1030 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 1030 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
                            do i = 1, num_fluids
                                drho_dt = drho_dt + dalpha_rho_dt(i)
                                dgamma_dt = dgamma_dt + dadv_dt(i)*gammas(i)
                                dpi_inf_dt = dpi_inf_dt + dadv_dt(i)*pi_infs(i)
                                dqv_dt = dqv_dt + dalpha_rho_dt(i)*qvs(i)
                            end do
                        end if
 
                        ! flux_rs_vf_l and flux_src_rs_vf_l at j = -1/2
 
# 1040 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 1040 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc loop seq 
# 1040 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 1040 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 1040 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
                        do i = 1, contxe
                            flux_rsz_vf_l(-1, k, r, i) = flux_rsz_vf_l(0, k, r, i) &
                                                               + ds(0)*dalpha_rho_dt(i)
                        end do
 
 
# 1046 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 1046 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc loop seq 
# 1046 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 1046 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 1046 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
                        do i = momxb, momxe
                            flux_rsz_vf_l(-1, k, r, i) = flux_rsz_vf_l(0, k, r, i) &
                                                               + ds(0)*(vel(i - contxe)*drho_dt &
                                                                        + rho*dvel_dt(i - contxe))
                        end do
 
                        if (chemistry) then
                            ! Evolution of LODI equation of energy for real gases adjusted to perfect gas, doi:10.1006/jcph.2002.6990
                            call get_species_enthalpies_rt(t, h_k)
                            sum_enthalpies = 0._wp
 
# 1057 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 1057 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc loop seq 
# 1057 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 1057 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 1057 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
                            do i = 1, num_species
 
# 1064 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
                                    h_k(i) = h_k(i)*gas_constant/molecular_weights(i)*t
                                    sum_enthalpies = sum_enthalpies + (rho*h_k(i) - pres*mw/molecular_weights(i)*cp/r_gas)*dys_dt(i)
# 1067 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
                            end do
                            flux_rsz_vf_l(-1, k, r, e_idx) = flux_rsz_vf_l(0, k, r, e_idx) &
                                                                   + ds(0)*((e/rho + pres/rho)*drho_dt + rho*vel_dv_dt_sum + cp*t*l(2)/(c*c) + sum_enthalpies)
 
# 1070 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 1070 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc loop seq 
# 1070 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 1070 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 1070 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
                            do i = 1, num_species
                                flux_rsz_vf_l(-1, k, r, i - 1 + chemxb) = flux_rsz_vf_l(0, k, r, chemxb + i - 1) &
                                                                                + ds(0)*(drho_dt*ys(i) + rho*dys_dt(i))
                            end do
                        else
                            flux_rsz_vf_l(-1, k, r, e_idx) = flux_rsz_vf_l(0, k, r, e_idx) &
                                                                   + ds(0)*(pres*dgamma_dt &
                                                                            + gamma*dpres_dt &
                                                                            + dpi_inf_dt &
                                                                            + dqv_dt &
                                                                            + rho*vel_dv_dt_sum &
                                                                            + 5.e-1_wp*drho_dt*vel_k_sum)
                        end if
 
                        if (riemann_solver == 1) then
 
# 1086 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 1086 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc loop seq 
# 1086 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 1086 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 1086 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
                            do i = advxb, advxe
                                flux_rsz_vf_l(-1, k, r, i) = 0._wp
                            end do
 
 
# 1091 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 1091 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc loop seq 
# 1091 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 1091 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 1091 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
                            do i = advxb, advxe
                                flux_src_rsz_vf_l(-1, k, r, i) = &
                                    1._wp/max(abs(vel(dir_idx(1))), sgm_eps) &
                                    *sign(1._wp, vel(dir_idx(1))) &
                                    *(flux_rsz_vf_l(0, k, r, i) &
                                      + vel(dir_idx(1)) &
                                      *flux_src_rsz_vf_l(0, k, r, i) &
                                      + ds(0)*dadv_dt(i - e_idx))
                            end do
 
                        else
 
 
# 1104 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 1104 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc loop seq 
# 1104 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 1104 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 1104 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
                            do i = advxb, advxe
                                flux_rsz_vf_l(-1, k, r, i) = flux_rsz_vf_l(0, k, r, i) + &
                                                                   ds(0)*dadv_dt(i - e_idx)
                            end do
 
 
# 1110 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 1110 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc loop seq 
# 1110 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 1110 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 1110 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
                            do i = advxb, advxe
                                flux_src_rsz_vf_l(-1, k, r, i) = flux_src_rsz_vf_l(0, k, r, i)
                            end do
 
                        end if
                        ! END: flux_rs_vf_l and flux_src_rs_vf_l at j = -1/2
 
                    end do
                end do
 
# 1120 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 1120 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 1120 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc end parallel loop
# 1120 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 1120 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
    
# 1120 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 1120 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$omp end target teams loop
# 1120 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
# 1120 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
            end if
# 1123 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
        ! END: FD2 or FD4 of RHS at j = 0
 
        ! The reshaping of outputted data and disssociation of the FD and PI
        ! coefficients, or CBC coefficients, respectively, based on selected
        ! CBC coordinate direction.
        call s_finalize_cbc(flux_vf, flux_src_vf)
    end subroutine s_cbc
 
    !>  The computation of parameters, the allocation of memory,
        !!      the association of pointers and/or the execution of any
        !!      other procedures that are required for the setup of the
        !!      selected CBC.
        !!  @param q_prim_vf Cell-average primitive variables
        !!  @param flux_vf Cell-boundary-average fluxes
        !!  @param flux_src_vf Cell-boundary-average flux sources
        !!  @param ix Index bound in the first coordinate direction
        !!  @param iy Index bound in the second coordinate direction
        !!  @param iz Index bound in the third coordinate direction
    subroutine s_initialize_cbc(q_prim_vf, flux_vf, flux_src_vf, &
                                ix, iy, iz)
 
        type(scalar_field), &
            dimension(sys_size), &
            intent(in) :: q_prim_vf
 
        type(scalar_field), &
            dimension(sys_size), &
            intent(in) :: flux_vf, flux_src_vf
 
        type(int_bounds_info), intent(in) :: ix, iy, iz
 
        integer :: i, j, k, r !< Generic loop iterators
 
        ! Configuring the coordinate direction indexes and flags
 
        ! Determining the indicial shift based on CBC location
 
        ! END: Allocation/Association of Primitive and Flux Variables
 
        if (cbc_dir == 1) then
            is1%beg = 0; is1%end = buff_size; is2 = iy; is3 = iz
            dir_idx = (/1, 2, 3/); dir_flg = (/1._wp, 0._wp, 0._wp/)
        elseif (cbc_dir == 2) then
            is1%beg = 0; is1%end = buff_size; is2 = ix; is3 = iz
            dir_idx = (/2, 1, 3/); dir_flg = (/0._wp, 1._wp, 0._wp/)
        else
            is1%beg = 0; is1%end = buff_size; is2 = iy; is3 = ix
            dir_idx = (/3, 1, 2/); dir_flg = (/0._wp, 0._wp, 1._wp/)
        end if
 
        dj = max(0, cbc_loc)
 
# 1175 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 1175 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc update device(is1, is2, is3, dj) 
# 1175 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 1175 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$omp target update to(is1, is2, is3, dj) 
# 1175 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
 
# 1176 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 1176 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc update device(dir_idx, dir_flg) 
# 1176 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 1176 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$omp target update to(dir_idx, dir_flg) 
# 1176 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
 
        ! Reshaping Inputted Data in x-direction
        if (cbc_dir == 1) then
 
 
# 1181 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 1181 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 1181 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc parallel loop collapse(4) gang vector default(present) private(i, j, k, r) 
# 1181 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 1181 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
    
# 1181 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 1181 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 1181 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.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, r) 
# 1181 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
# 1181 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
            do i = 1, sys_size
                do r = is3%beg, is3%end
                    do k = is2%beg, is2%end
                        do j = 0, buff_size
                            q_prim_rsx_vf(j, k, r, i) = &
                                q_prim_vf(i)%sf(dj*(m - 2*j) + j, k, r)
                        end do
                    end do
                end do
            end do
 
# 1192 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 1192 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 1192 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc end parallel loop
# 1192 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 1192 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
    
# 1192 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 1192 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$omp end target teams loop
# 1192 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
# 1192 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
 
 
# 1194 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 1194 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 1194 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc parallel loop collapse(3) gang vector default(present) private(j, k, r) 
# 1194 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 1194 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
    
# 1194 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 1194 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 1194 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.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, r) 
# 1194 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
# 1194 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
            do r = is3%beg, is3%end
                do k = is2%beg, is2%end
                    do j = 0, buff_size
                        q_prim_rsx_vf(j, k, r, momxb) = &
                            q_prim_vf(momxb)%sf(dj*(m - 2*j) + j, k, r)* &
                            sign(1._wp, -1._wp*cbc_loc)
                    end do
                end do
            end do
 
# 1204 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 1204 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 1204 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc end parallel loop
# 1204 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 1204 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
    
# 1204 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 1204 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$omp end target teams loop
# 1204 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
# 1204 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
 
 
# 1206 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 1206 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 1206 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc parallel loop collapse(4) gang vector default(present) private(i, j, k, r) 
# 1206 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 1206 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
    
# 1206 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 1206 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 1206 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.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, r) 
# 1206 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
# 1206 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
            do i = 1, flux_cbc_index
                do r = is3%beg, is3%end
                    do k = is2%beg, is2%end
                        do j = -1, buff_size
                            flux_rsx_vf_l(j, k, r, i) = &
                                flux_vf(i)%sf(dj*((m - 1) - 2*j) + j, k, r)* &
                                sign(1._wp, -1._wp*cbc_loc)
                        end do
                    end do
                end do
            end do
 
# 1218 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 1218 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 1218 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc end parallel loop
# 1218 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 1218 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
    
# 1218 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 1218 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$omp end target teams loop
# 1218 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
# 1218 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
 
 
# 1220 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 1220 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 1220 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc parallel loop collapse(3) gang vector default(present) private(j, k, r) 
# 1220 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 1220 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
    
# 1220 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 1220 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 1220 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.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, r) 
# 1220 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
# 1220 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
            do r = is3%beg, is3%end
                do k = is2%beg, is2%end
                    do j = -1, buff_size
                        flux_rsx_vf_l(j, k, r, momxb) = &
                            flux_vf(momxb)%sf(dj*((m - 1) - 2*j) + j, k, r)
                    end do
                end do
            end do
 
# 1229 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 1229 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 1229 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc end parallel loop
# 1229 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 1229 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
    
# 1229 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 1229 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$omp end target teams loop
# 1229 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
# 1229 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
 
            if (riemann_solver == 1) then
 
# 1232 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 1232 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 1232 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc parallel loop collapse(4) gang vector default(present) private(i, j, k, r) 
# 1232 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 1232 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
    
# 1232 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 1232 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 1232 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.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, r) 
# 1232 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
# 1232 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
                do i = advxb, advxe
                    do r = is3%beg, is3%end
                        do k = is2%beg, is2%end
                            do j = -1, buff_size
                                flux_src_rsx_vf_l(j, k, r, i) = &
                                    flux_src_vf(i)%sf(dj*((m - 1) - 2*j) + j, k, r)
                            end do
                        end do
                    end do
                end do
 
# 1243 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 1243 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 1243 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc end parallel loop
# 1243 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 1243 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
    
# 1243 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 1243 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$omp end target teams loop
# 1243 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
# 1243 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
            else
 
# 1245 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 1245 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 1245 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc parallel loop collapse(3) gang vector default(present) private(j, k, r) 
# 1245 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 1245 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
    
# 1245 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 1245 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 1245 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.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, r) 
# 1245 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
# 1245 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
                do r = is3%beg, is3%end
                    do k = is2%beg, is2%end
                        do j = -1, buff_size
                            flux_src_rsx_vf_l(j, k, r, advxb) = &
                                flux_src_vf(advxb)%sf(dj*((m - 1) - 2*j) + j, k, r)* &
                                sign(1._wp, -1._wp*cbc_loc)
                        end do
                    end do
                end do
 
# 1255 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 1255 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 1255 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc end parallel loop
# 1255 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 1255 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
    
# 1255 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 1255 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$omp end target teams loop
# 1255 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
# 1255 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
            end if
 
            ! END: Reshaping Inputted Data in x-direction
 
            ! Reshaping Inputted Data in y-direction
        elseif (cbc_dir == 2) then
 
 
# 1263 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 1263 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 1263 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc parallel loop collapse(4) gang vector default(present) private(i, j, k, r) 
# 1263 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 1263 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
    
# 1263 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 1263 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 1263 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.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, r) 
# 1263 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
# 1263 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
            do i = 1, sys_size
                do r = is3%beg, is3%end
                    do k = is2%beg, is2%end
                        do j = 0, buff_size
                            q_prim_rsy_vf(j, k, r, i) = &
                                q_prim_vf(i)%sf(k, dj*(n - 2*j) + j, r)
                        end do
                    end do
                end do
            end do
 
# 1274 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 1274 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 1274 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc end parallel loop
# 1274 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 1274 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
    
# 1274 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 1274 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$omp end target teams loop
# 1274 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
# 1274 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
 
 
# 1276 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 1276 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 1276 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc parallel loop collapse(3) gang vector default(present) private(j, k, r) 
# 1276 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 1276 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
    
# 1276 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 1276 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 1276 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.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, r) 
# 1276 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
# 1276 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
            do r = is3%beg, is3%end
                do k = is2%beg, is2%end
                    do j = 0, buff_size
                        q_prim_rsy_vf(j, k, r, momxb + 1) = &
                            q_prim_vf(momxb + 1)%sf(k, dj*(n - 2*j) + j, r)* &
                            sign(1._wp, -1._wp*cbc_loc)
                    end do
                end do
            end do
 
# 1286 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 1286 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 1286 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc end parallel loop
# 1286 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 1286 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
    
# 1286 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 1286 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$omp end target teams loop
# 1286 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
# 1286 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
 
 
# 1288 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 1288 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 1288 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc parallel loop collapse(4) gang vector default(present) private(i, j, k, r) 
# 1288 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 1288 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
    
# 1288 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 1288 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 1288 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.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, r) 
# 1288 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
# 1288 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
            do i = 1, flux_cbc_index
                do r = is3%beg, is3%end
                    do k = is2%beg, is2%end
                        do j = -1, buff_size
                            flux_rsy_vf_l(j, k, r, i) = &
                                flux_vf(i)%sf(k, dj*((n - 1) - 2*j) + j, r)* &
                                sign(1._wp, -1._wp*cbc_loc)
                        end do
                    end do
                end do
            end do
 
# 1300 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 1300 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 1300 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc end parallel loop
# 1300 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 1300 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
    
# 1300 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 1300 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$omp end target teams loop
# 1300 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
# 1300 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
 
 
# 1302 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 1302 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 1302 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc parallel loop collapse(3) gang vector default(present) private(j, k, r) 
# 1302 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 1302 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
    
# 1302 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 1302 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 1302 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.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, r) 
# 1302 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
# 1302 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
            do r = is3%beg, is3%end
                do k = is2%beg, is2%end
                    do j = -1, buff_size
                        flux_rsy_vf_l(j, k, r, momxb + 1) = &
                            flux_vf(momxb + 1)%sf(k, dj*((n - 1) - 2*j) + j, r)
                    end do
                end do
            end do
 
# 1311 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 1311 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 1311 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc end parallel loop
# 1311 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 1311 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
    
# 1311 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 1311 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$omp end target teams loop
# 1311 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
# 1311 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
 
            if (riemann_solver == 1) then
 
# 1314 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 1314 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 1314 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc parallel loop collapse(4) gang vector default(present) private(i, j, k, r) 
# 1314 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 1314 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
    
# 1314 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 1314 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 1314 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.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, r) 
# 1314 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
# 1314 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
                do i = advxb, advxe
                    do r = is3%beg, is3%end
                        do k = is2%beg, is2%end
                            do j = -1, buff_size
                                flux_src_rsy_vf_l(j, k, r, i) = &
                                    flux_src_vf(i)%sf(k, dj*((n - 1) - 2*j) + j, r)
                            end do
                        end do
                    end do
                end do
 
# 1325 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 1325 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 1325 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc end parallel loop
# 1325 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 1325 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
    
# 1325 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 1325 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$omp end target teams loop
# 1325 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
# 1325 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
            else
 
# 1327 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 1327 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 1327 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc parallel loop collapse(3) gang vector default(present) private(j, k, r) 
# 1327 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 1327 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
    
# 1327 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 1327 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 1327 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.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, r) 
# 1327 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
# 1327 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
                do r = is3%beg, is3%end
                    do k = is2%beg, is2%end
                        do j = -1, buff_size
                            flux_src_rsy_vf_l(j, k, r, advxb) = &
                                flux_src_vf(advxb)%sf(k, dj*((n - 1) - 2*j) + j, r)* &
                                sign(1._wp, -1._wp*cbc_loc)
                        end do
                    end do
                end do
 
# 1337 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 1337 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 1337 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc end parallel loop
# 1337 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 1337 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
    
# 1337 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 1337 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$omp end target teams loop
# 1337 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
# 1337 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
            end if
 
            ! END: Reshaping Inputted Data in y-direction
 
            ! Reshaping Inputted Data in z-direction
        else
 
 
# 1345 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 1345 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 1345 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc parallel loop collapse(4) gang vector default(present) private(i, j, k, r) 
# 1345 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 1345 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
    
# 1345 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 1345 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 1345 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.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, r) 
# 1345 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
# 1345 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
            do i = 1, sys_size
                do r = is3%beg, is3%end
                    do k = is2%beg, is2%end
                        do j = 0, buff_size
                            q_prim_rsz_vf(j, k, r, i) = &
                                q_prim_vf(i)%sf(r, k, dj*(p - 2*j) + j)
                        end do
                    end do
                end do
            end do
 
# 1356 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 1356 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 1356 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc end parallel loop
# 1356 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 1356 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
    
# 1356 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 1356 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$omp end target teams loop
# 1356 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
# 1356 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
 
 
# 1358 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 1358 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 1358 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc parallel loop collapse(3) gang vector default(present) private(j, k, r) 
# 1358 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 1358 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
    
# 1358 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 1358 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 1358 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.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, r) 
# 1358 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
# 1358 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
            do r = is3%beg, is3%end
                do k = is2%beg, is2%end
                    do j = 0, buff_size
                        q_prim_rsz_vf(j, k, r, momxe) = &
                            q_prim_vf(momxe)%sf(r, k, dj*(p - 2*j) + j)* &
                            sign(1._wp, -1._wp*cbc_loc)
                    end do
                end do
            end do
 
# 1368 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 1368 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 1368 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc end parallel loop
# 1368 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 1368 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
    
# 1368 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 1368 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$omp end target teams loop
# 1368 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
# 1368 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
 
 
# 1370 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 1370 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 1370 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc parallel loop collapse(4) gang vector default(present) private(i, j, k, r) 
# 1370 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 1370 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
    
# 1370 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 1370 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 1370 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.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, r) 
# 1370 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
# 1370 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
            do i = 1, flux_cbc_index
                do r = is3%beg, is3%end
                    do k = is2%beg, is2%end
                        do j = -1, buff_size
                            flux_rsz_vf_l(j, k, r, i) = &
                                flux_vf(i)%sf(r, k, dj*((p - 1) - 2*j) + j)* &
                                sign(1._wp, -1._wp*cbc_loc)
                        end do
                    end do
                end do
            end do
 
# 1382 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 1382 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 1382 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc end parallel loop
# 1382 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 1382 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
    
# 1382 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 1382 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$omp end target teams loop
# 1382 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
# 1382 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
 
 
# 1384 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 1384 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 1384 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc parallel loop collapse(3) gang vector default(present) private(j, k, r) 
# 1384 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 1384 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
    
# 1384 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 1384 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 1384 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.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, r) 
# 1384 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
# 1384 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
            do r = is3%beg, is3%end
                do k = is2%beg, is2%end
                    do j = -1, buff_size
                        flux_rsz_vf_l(j, k, r, momxe) = &
                            flux_vf(momxe)%sf(r, k, dj*((p - 1) - 2*j) + j)
                    end do
                end do
            end do
 
# 1393 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 1393 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 1393 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc end parallel loop
# 1393 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 1393 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
    
# 1393 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 1393 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$omp end target teams loop
# 1393 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
# 1393 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
 
            if (riemann_solver == 1) then
 
# 1396 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 1396 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 1396 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc parallel loop collapse(4) gang vector default(present) private(i, j, k, r) 
# 1396 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 1396 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
    
# 1396 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 1396 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 1396 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.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, r) 
# 1396 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
# 1396 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
                do i = advxb, advxe
                    do r = is3%beg, is3%end
                        do k = is2%beg, is2%end
                            do j = -1, buff_size
                                flux_src_rsz_vf_l(j, k, r, i) = &
                                    flux_src_vf(i)%sf(r, k, dj*((p - 1) - 2*j) + j)
                            end do
                        end do
                    end do
                end do
 
# 1407 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 1407 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 1407 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc end parallel loop
# 1407 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 1407 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
    
# 1407 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 1407 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$omp end target teams loop
# 1407 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
# 1407 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
            else
 
# 1409 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 1409 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 1409 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc parallel loop collapse(3) gang vector default(present) private(j, k, r) 
# 1409 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 1409 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
    
# 1409 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 1409 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 1409 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.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, r) 
# 1409 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
# 1409 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
                do r = is3%beg, is3%end
                    do k = is2%beg, is2%end
                        do j = -1, buff_size
                            flux_src_rsz_vf_l(j, k, r, advxb) = &
                                flux_src_vf(advxb)%sf(r, k, dj*((p - 1) - 2*j) + j)* &
                                sign(1._wp, -1._wp*cbc_loc)
                        end do
                    end do
                end do
 
# 1419 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 1419 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 1419 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc end parallel loop
# 1419 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 1419 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
    
# 1419 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 1419 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$omp end target teams loop
# 1419 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
# 1419 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
            end if
 
        end if
        ! END: Reshaping Inputted Data in z-direction
 
        ! Association of the procedural pointer to the appropriate procedure
        ! that will be utilized in the evaluation of L variables for the CBC
 
    end subroutine s_initialize_cbc
 
    !>  Deallocation and/or the disassociation procedures that
        !!      are necessary in order to finalize the CBC application
        !!  @param flux_vf Cell-boundary-average fluxes
        !!  @param flux_src_vf Cell-boundary-average flux sources
    subroutine s_finalize_cbc(flux_vf, flux_src_vf)
 
        type(scalar_field), &
            dimension(sys_size), &
            intent(inout) :: flux_vf, flux_src_vf
 
        integer :: i, j, k, r !< Generic loop iterators
 
        ! Determining the indicial shift based on CBC location
        dj = max(0, cbc_loc)
 
# 1444 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 1444 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc update device(dj) 
# 1444 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 1444 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$omp target update to(dj) 
# 1444 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
 
        ! Reshaping Outputted Data in x-direction
        if (cbc_dir == 1) then
 
 
# 1449 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 1449 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 1449 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc parallel loop collapse(4) gang vector default(present) private(i, j, k, r) 
# 1449 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 1449 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
    
# 1449 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 1449 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 1449 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.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, r) 
# 1449 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
# 1449 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
            do i = 1, flux_cbc_index
                do r = is3%beg, is3%end
                    do k = is2%beg, is2%end
                        do j = -1, buff_size
                            flux_vf(i)%sf(dj*((m - 1) - 2*j) + j, k, r) = &
                                flux_rsx_vf_l(j, k, r, i)* &
                                sign(1._wp, -1._wp*cbc_loc)
                        end do
                    end do
                end do
            end do
 
# 1461 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 1461 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 1461 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc end parallel loop
# 1461 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 1461 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
    
# 1461 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 1461 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$omp end target teams loop
# 1461 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
# 1461 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
 
# 1462 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 1462 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 1462 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc parallel loop collapse(3) gang vector default(present) private(j, k, r) 
# 1462 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 1462 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
    
# 1462 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 1462 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 1462 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.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, r) 
# 1462 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
# 1462 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
            do r = is3%beg, is3%end
                do k = is2%beg, is2%end
                    do j = -1, buff_size
                        flux_vf(momxb)%sf(dj*((m - 1) - 2*j) + j, k, r) = &
                            flux_rsx_vf_l(j, k, r, momxb)
                    end do
                end do
            end do
 
# 1471 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 1471 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 1471 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc end parallel loop
# 1471 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 1471 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
    
# 1471 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 1471 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$omp end target teams loop
# 1471 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
# 1471 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
 
            if (riemann_solver == 1) then
 
# 1474 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 1474 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 1474 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc parallel loop collapse(4) gang vector default(present) private(i, j, k, r) 
# 1474 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 1474 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
    
# 1474 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 1474 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 1474 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.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, r) 
# 1474 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
# 1474 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
                do i = advxb, advxe
                    do r = is3%beg, is3%end
                        do k = is2%beg, is2%end
                            do j = -1, buff_size
                                flux_src_vf(i)%sf(dj*((m - 1) - 2*j) + j, k, r) = &
                                    flux_src_rsx_vf_l(j, k, r, i)
                            end do
                        end do
                    end do
                end do
 
# 1485 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 1485 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 1485 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc end parallel loop
# 1485 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 1485 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
    
# 1485 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 1485 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$omp end target teams loop
# 1485 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
# 1485 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
            else
 
# 1487 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 1487 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 1487 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc parallel loop collapse(3) gang vector default(present) private(j, k, r) 
# 1487 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 1487 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
    
# 1487 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 1487 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 1487 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.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, r) 
# 1487 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
# 1487 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
                do r = is3%beg, is3%end
                    do k = is2%beg, is2%end
                        do j = -1, buff_size
                            flux_src_vf(advxb)%sf(dj*((m - 1) - 2*j) + j, k, r) = &
                                flux_src_rsx_vf_l(j, k, r, advxb)* &
                                sign(1._wp, -1._wp*cbc_loc)
                        end do
                    end do
                end do
 
# 1497 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 1497 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 1497 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc end parallel loop
# 1497 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 1497 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
    
# 1497 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 1497 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$omp end target teams loop
# 1497 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
# 1497 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
            end if
            ! END: Reshaping Outputted Data in x-direction
 
            ! Reshaping Outputted Data in y-direction
        elseif (cbc_dir == 2) then
 
 
# 1504 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 1504 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 1504 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc parallel loop collapse(4) gang vector default(present) private(i, j, k, r) 
# 1504 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 1504 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
    
# 1504 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 1504 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 1504 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.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, r) 
# 1504 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
# 1504 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
            do i = 1, flux_cbc_index
                do r = is3%beg, is3%end
                    do k = is2%beg, is2%end
                        do j = -1, buff_size
                            flux_vf(i)%sf(k, dj*((n - 1) - 2*j) + j, r) = &
                                flux_rsy_vf_l(j, k, r, i)* &
                                sign(1._wp, -1._wp*cbc_loc)
                        end do
                    end do
                end do
            end do
 
# 1516 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 1516 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 1516 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc end parallel loop
# 1516 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 1516 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
    
# 1516 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 1516 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$omp end target teams loop
# 1516 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
# 1516 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
 
 
# 1518 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 1518 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 1518 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc parallel loop collapse(3) gang vector default(present) private(j, k, r) 
# 1518 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 1518 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
    
# 1518 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 1518 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 1518 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.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, r) 
# 1518 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
# 1518 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
            do r = is3%beg, is3%end
                do k = is2%beg, is2%end
                    do j = -1, buff_size
                        flux_vf(momxb + 1)%sf(k, dj*((n - 1) - 2*j) + j, r) = &
                            flux_rsy_vf_l(j, k, r, momxb + 1)
                    end do
                end do
            end do
 
# 1527 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 1527 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 1527 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc end parallel loop
# 1527 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 1527 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
    
# 1527 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 1527 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$omp end target teams loop
# 1527 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
# 1527 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
 
            if (riemann_solver == 1) then
 
# 1530 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 1530 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 1530 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc parallel loop collapse(4) gang vector default(present) private(i, j, k, r) 
# 1530 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 1530 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
    
# 1530 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 1530 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 1530 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.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, r) 
# 1530 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
# 1530 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
                do i = advxb, advxe
                    do r = is3%beg, is3%end
                        do k = is2%beg, is2%end
                            do j = -1, buff_size
                                flux_src_vf(i)%sf(k, dj*((n - 1) - 2*j) + j, r) = &
                                    flux_src_rsy_vf_l(j, k, r, i)
                            end do
                        end do
                    end do
                end do
 
# 1541 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 1541 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 1541 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc end parallel loop
# 1541 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 1541 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
    
# 1541 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 1541 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$omp end target teams loop
# 1541 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
# 1541 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
            else
 
# 1543 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 1543 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 1543 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc parallel loop collapse(3) gang vector default(present) private(j, k, r) 
# 1543 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 1543 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
    
# 1543 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 1543 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 1543 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.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, r) 
# 1543 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
# 1543 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
                do r = is3%beg, is3%end
                    do k = is2%beg, is2%end
                        do j = -1, buff_size
                            flux_src_vf(advxb)%sf(k, dj*((n - 1) - 2*j) + j, r) = &
                                flux_src_rsy_vf_l(j, k, r, advxb)* &
                                sign(1._wp, -1._wp*cbc_loc)
                        end do
                    end do
                end do
 
# 1553 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 1553 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 1553 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc end parallel loop
# 1553 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 1553 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
    
# 1553 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 1553 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$omp end target teams loop
# 1553 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
# 1553 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
            end if
 
            ! END: Reshaping Outputted Data in y-direction
 
            ! Reshaping Outputted Data in z-direction
        else
 
 
# 1561 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 1561 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 1561 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc parallel loop collapse(4) gang vector default(present) private(i, j, k, r) 
# 1561 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 1561 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
    
# 1561 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 1561 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 1561 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.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, r) 
# 1561 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
# 1561 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
            do i = 1, flux_cbc_index
                do r = is3%beg, is3%end
                    do k = is2%beg, is2%end
                        do j = -1, buff_size
                            flux_vf(i)%sf(r, k, dj*((p - 1) - 2*j) + j) = &
                                flux_rsz_vf_l(j, k, r, i)* &
                                sign(1._wp, -1._wp*cbc_loc)
                        end do
                    end do
                end do
            end do
 
# 1573 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 1573 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 1573 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc end parallel loop
# 1573 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 1573 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
    
# 1573 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 1573 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$omp end target teams loop
# 1573 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
# 1573 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
 
 
# 1575 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 1575 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 1575 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc parallel loop collapse(3) gang vector default(present) private(j, k, r) 
# 1575 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 1575 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
    
# 1575 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 1575 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 1575 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.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, r) 
# 1575 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
# 1575 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
            do r = is3%beg, is3%end
                do k = is2%beg, is2%end
                    do j = -1, buff_size
                        flux_vf(momxe)%sf(r, k, dj*((p - 1) - 2*j) + j) = &
                            flux_rsz_vf_l(j, k, r, momxe)
                    end do
                end do
            end do
 
# 1584 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 1584 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 1584 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc end parallel loop
# 1584 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 1584 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
    
# 1584 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 1584 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$omp end target teams loop
# 1584 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
# 1584 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
 
            if (riemann_solver == 1) then
 
# 1587 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 1587 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 1587 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc parallel loop collapse(4) gang vector default(present) private(i, j, k, r) 
# 1587 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 1587 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
    
# 1587 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 1587 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 1587 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.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, r) 
# 1587 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
# 1587 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
                do i = advxb, advxe
                    do r = is3%beg, is3%end
                        do k = is2%beg, is2%end
                            do j = -1, buff_size
                                flux_src_vf(i)%sf(r, k, dj*((p - 1) - 2*j) + j) = &
                                    flux_src_rsz_vf_l(j, k, r, i)
                            end do
                        end do
                    end do
                end do
 
# 1598 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 1598 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 1598 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc end parallel loop
# 1598 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 1598 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
    
# 1598 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 1598 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$omp end target teams loop
# 1598 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
# 1598 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
            else
 
# 1600 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 1600 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 1600 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc parallel loop collapse(3) gang vector default(present) private(j, k, r) 
# 1600 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 1600 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
    
# 1600 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 1600 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 1600 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.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, r) 
# 1600 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
# 1600 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
                do r = is3%beg, is3%end
                    do k = is2%beg, is2%end
                        do j = -1, buff_size
                            flux_src_vf(advxb)%sf(r, k, dj*((p - 1) - 2*j) + j) = &
                                flux_src_rsz_vf_l(j, k, r, advxb)* &
                                sign(1._wp, -1._wp*cbc_loc)
                        end do
                    end do
                end do
 
# 1610 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 1610 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 1610 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc end parallel loop
# 1610 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 1610 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
    
# 1610 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 1610 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$omp end target teams loop
# 1610 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
# 1610 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
            end if
 
        end if
        ! END: Reshaping Outputted Data in z-direction
 
    end subroutine s_finalize_cbc
 
    !> @brief Detects whether any domain boundary uses characteristic boundary conditions.
    elemental subroutine s_any_cbc_boundaries(toggle)
 
        logical, intent(inout) :: toggle
 
        toggle = .false.
 
# 1626 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
            if (any((/bc_x%beg, bc_x%end, bc_y%beg, bc_y%end, bc_z%beg, bc_z%end/) == -13)) then
                toggle = .true.
            end if
# 1626 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
            if (any((/bc_x%beg, bc_x%end, bc_y%beg, bc_y%end, bc_z%beg, bc_z%end/) == -12)) then
                toggle = .true.
            end if
# 1626 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
            if (any((/bc_x%beg, bc_x%end, bc_y%beg, bc_y%end, bc_z%beg, bc_z%end/) == -11)) then
                toggle = .true.
            end if
# 1626 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
            if (any((/bc_x%beg, bc_x%end, bc_y%beg, bc_y%end, bc_z%beg, bc_z%end/) == -10)) then
                toggle = .true.
            end if
# 1626 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
            if (any((/bc_x%beg, bc_x%end, bc_y%beg, bc_y%end, bc_z%beg, bc_z%end/) == -9)) then
                toggle = .true.
            end if
# 1626 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
            if (any((/bc_x%beg, bc_x%end, bc_y%beg, bc_y%end, bc_z%beg, bc_z%end/) == -8)) then
                toggle = .true.
            end if
# 1626 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
            if (any((/bc_x%beg, bc_x%end, bc_y%beg, bc_y%end, bc_z%beg, bc_z%end/) == -7)) then
                toggle = .true.
            end if
# 1626 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
            if (any((/bc_x%beg, bc_x%end, bc_y%beg, bc_y%end, bc_z%beg, bc_z%end/) == -6)) then
                toggle = .true.
            end if
# 1626 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
            if (any((/bc_x%beg, bc_x%end, bc_y%beg, bc_y%end, bc_z%beg, bc_z%end/) == -5)) then
                toggle = .true.
            end if
# 1630 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
    end subroutine s_any_cbc_boundaries
 
    !> Module deallocation and/or disassociation procedures
    impure subroutine s_finalize_cbc_module
 
        logical :: is_cbc
 
        call s_any_cbc_boundaries(is_cbc)
 
        if (is_cbc .eqv. .false.) return
 
        ! Deallocating the cell-average primitive variables
#ifdef MFC_DEBUG
# 1643 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
    block
# 1643 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
        use iso_fortran_env, only: output_unit
# 1643 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 1643 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
        print *, 'm_cbc.fpp:1643: ', '@:DEALLOCATE(q_prim_rsx_vf)'
# 1643 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 1643 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
        call flush (output_unit)
# 1643 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
    end block
# 1643 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
# 1643 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 1643 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 1643 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc exit data delete(q_prim_rsx_vf) 
# 1643 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 1643 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$omp target exit data map(release:q_prim_rsx_vf) 
# 1643 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
# 1643 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
    deallocate (q_prim_rsx_vf)
        if (weno_order > 1 .or. muscl_order > 1) then
#ifdef MFC_DEBUG
# 1645 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
    block
# 1645 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
        use iso_fortran_env, only: output_unit
# 1645 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 1645 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
        print *, 'm_cbc.fpp:1645: ', '@:DEALLOCATE(F_rsx_vf, F_src_rsx_vf)'
# 1645 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 1645 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
        call flush (output_unit)
# 1645 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
    end block
# 1645 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
# 1645 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 1645 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 1645 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc exit data delete(F_rsx_vf, F_src_rsx_vf) 
# 1645 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 1645 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$omp target exit data map(release:F_rsx_vf, F_src_rsx_vf) 
# 1645 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
# 1645 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
    deallocate (f_rsx_vf, f_src_rsx_vf)
        end if
#ifdef MFC_DEBUG
# 1647 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
    block
# 1647 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
        use iso_fortran_env, only: output_unit
# 1647 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 1647 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
        print *, 'm_cbc.fpp:1647: ', '@:DEALLOCATE(flux_rsx_vf_l, flux_src_rsx_vf_l)'
# 1647 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 1647 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
        call flush (output_unit)
# 1647 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
    end block
# 1647 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
# 1647 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 1647 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 1647 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc exit data delete(flux_rsx_vf_l, flux_src_rsx_vf_l) 
# 1647 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 1647 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$omp target exit data map(release:flux_rsx_vf_l, flux_src_rsx_vf_l) 
# 1647 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
# 1647 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
    deallocate (flux_rsx_vf_l, flux_src_rsx_vf_l)
 
        if (n > 0) then
#ifdef MFC_DEBUG
# 1650 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
    block
# 1650 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
        use iso_fortran_env, only: output_unit
# 1650 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 1650 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
        print *, 'm_cbc.fpp:1650: ', '@:DEALLOCATE(q_prim_rsy_vf)'
# 1650 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 1650 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
        call flush (output_unit)
# 1650 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
    end block
# 1650 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
# 1650 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 1650 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 1650 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc exit data delete(q_prim_rsy_vf) 
# 1650 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 1650 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$omp target exit data map(release:q_prim_rsy_vf) 
# 1650 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
# 1650 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
    deallocate (q_prim_rsy_vf)
            if (weno_order > 1 .or. muscl_order > 1) then
#ifdef MFC_DEBUG
# 1652 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
    block
# 1652 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
        use iso_fortran_env, only: output_unit
# 1652 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 1652 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
        print *, 'm_cbc.fpp:1652: ', '@:DEALLOCATE(F_rsy_vf, F_src_rsy_vf)'
# 1652 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 1652 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
        call flush (output_unit)
# 1652 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
    end block
# 1652 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
# 1652 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 1652 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 1652 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc exit data delete(F_rsy_vf, F_src_rsy_vf) 
# 1652 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 1652 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$omp target exit data map(release:F_rsy_vf, F_src_rsy_vf) 
# 1652 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
# 1652 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
    deallocate (f_rsy_vf, f_src_rsy_vf)
            end if
#ifdef MFC_DEBUG
# 1654 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
    block
# 1654 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
        use iso_fortran_env, only: output_unit
# 1654 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 1654 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
        print *, 'm_cbc.fpp:1654: ', '@:DEALLOCATE(flux_rsy_vf_l, flux_src_rsy_vf_l)'
# 1654 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 1654 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
        call flush (output_unit)
# 1654 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
    end block
# 1654 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
# 1654 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 1654 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 1654 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc exit data delete(flux_rsy_vf_l, flux_src_rsy_vf_l) 
# 1654 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 1654 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$omp target exit data map(release:flux_rsy_vf_l, flux_src_rsy_vf_l) 
# 1654 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
# 1654 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
    deallocate (flux_rsy_vf_l, flux_src_rsy_vf_l)
        end if
        if (p > 0) then
#ifdef MFC_DEBUG
# 1657 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
    block
# 1657 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
        use iso_fortran_env, only: output_unit
# 1657 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 1657 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
        print *, 'm_cbc.fpp:1657: ', '@:DEALLOCATE(q_prim_rsz_vf)'
# 1657 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 1657 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
        call flush (output_unit)
# 1657 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
    end block
# 1657 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
# 1657 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 1657 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 1657 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc exit data delete(q_prim_rsz_vf) 
# 1657 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 1657 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$omp target exit data map(release:q_prim_rsz_vf) 
# 1657 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
# 1657 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
    deallocate (q_prim_rsz_vf)
            if (weno_order > 1 .or. muscl_order > 1) then
#ifdef MFC_DEBUG
# 1659 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
    block
# 1659 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
        use iso_fortran_env, only: output_unit
# 1659 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 1659 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
        print *, 'm_cbc.fpp:1659: ', '@:DEALLOCATE(F_rsz_vf, F_src_rsz_vf)'
# 1659 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 1659 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
        call flush (output_unit)
# 1659 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
    end block
# 1659 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
# 1659 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 1659 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 1659 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc exit data delete(F_rsz_vf, F_src_rsz_vf) 
# 1659 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 1659 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$omp target exit data map(release:F_rsz_vf, F_src_rsz_vf) 
# 1659 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
# 1659 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
    deallocate (f_rsz_vf, f_src_rsz_vf)
            end if
#ifdef MFC_DEBUG
# 1661 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
    block
# 1661 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
        use iso_fortran_env, only: output_unit
# 1661 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 1661 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
        print *, 'm_cbc.fpp:1661: ', '@:DEALLOCATE(flux_rsz_vf_l, flux_src_rsz_vf_l)'
# 1661 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 1661 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
        call flush (output_unit)
# 1661 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
    end block
# 1661 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
# 1661 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 1661 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 1661 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc exit data delete(flux_rsz_vf_l, flux_src_rsz_vf_l) 
# 1661 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 1661 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$omp target exit data map(release:flux_rsz_vf_l, flux_src_rsz_vf_l) 
# 1661 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
# 1661 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
    deallocate (flux_rsz_vf_l, flux_src_rsz_vf_l)
        end if
 
        ! Deallocating the cell-width distribution in the s-direction
#ifdef MFC_DEBUG
# 1665 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
    block
# 1665 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
        use iso_fortran_env, only: output_unit
# 1665 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 1665 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
        print *, 'm_cbc.fpp:1665: ', '@:DEALLOCATE(ds)'
# 1665 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 1665 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
        call flush (output_unit)
# 1665 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
    end block
# 1665 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
# 1665 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 1665 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 1665 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc exit data delete(ds) 
# 1665 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 1665 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$omp target exit data map(release:ds) 
# 1665 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
# 1665 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
    deallocate (ds)
 
        ! Deallocating GRCBC inputs
#ifdef MFC_DEBUG
# 1668 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
    block
# 1668 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
        use iso_fortran_env, only: output_unit
# 1668 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 1668 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
        print *, 'm_cbc.fpp:1668: ', '@:DEALLOCATE(vel_in, vel_out, pres_in, pres_out, Del_in, Del_out, alpha_rho_in, alpha_in)'
# 1668 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 1668 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
        call flush (output_unit)
# 1668 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
    end block
# 1668 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
# 1668 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 1668 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 1668 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc exit data delete(vel_in, vel_out, pres_in, pres_out, Del_in, Del_out, alpha_rho_in, alpha_in) 
# 1668 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 1668 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$omp target exit data map(release:vel_in, vel_out, pres_in, pres_out, Del_in, Del_out, alpha_rho_in, alpha_in) 
# 1668 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
# 1668 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
    deallocate (vel_in, vel_out, pres_in, pres_out, del_in, del_out, alpha_rho_in, alpha_in)
 
        ! Deallocating CBC Coefficients in x-direction
        if (all((/bc_x%beg, bc_x%end/) <= -5) .and. all((/bc_x%beg, bc_x%end/) >= -13) .or. &
            bc_x%beg <= -5 .and. bc_x%beg >= -13 .or. &
            bc_x%end <= -5 .and. bc_x%end >= -13) then
#ifdef MFC_DEBUG
# 1674 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
    block
# 1674 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
        use iso_fortran_env, only: output_unit
# 1674 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 1674 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
        print *, 'm_cbc.fpp:1674: ', '@:DEALLOCATE(fd_coef_x)'
# 1674 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 1674 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
        call flush (output_unit)
# 1674 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
    end block
# 1674 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
# 1674 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 1674 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 1674 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc exit data delete(fd_coef_x) 
# 1674 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 1674 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$omp target exit data map(release:fd_coef_x) 
# 1674 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
# 1674 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
    deallocate (fd_coef_x)
            if (weno_order > 1 .or. muscl_order > 1) then
#ifdef MFC_DEBUG
# 1676 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
    block
# 1676 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
        use iso_fortran_env, only: output_unit
# 1676 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 1676 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
        print *, 'm_cbc.fpp:1676: ', '@:DEALLOCATE(pi_coef_x)'
# 1676 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 1676 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
        call flush (output_unit)
# 1676 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
    end block
# 1676 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
# 1676 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 1676 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 1676 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc exit data delete(pi_coef_x) 
# 1676 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 1676 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$omp target exit data map(release:pi_coef_x) 
# 1676 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
# 1676 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
    deallocate (pi_coef_x)
            end if
        end if
 
        ! Deallocating CBC Coefficients in y-direction
        if (n > 0) then
            if (all((/bc_y%beg, bc_y%end/) <= -5) .and. all((/bc_y%beg, bc_y%end/) >= -13) .or. &
                bc_y%beg <= -5 .and. bc_y%beg >= -13 .or. &
                bc_y%end <= -5 .and. bc_y%end >= -13) then
#ifdef MFC_DEBUG
# 1685 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
    block
# 1685 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
        use iso_fortran_env, only: output_unit
# 1685 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 1685 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
        print *, 'm_cbc.fpp:1685: ', '@:DEALLOCATE(fd_coef_y)'
# 1685 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 1685 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
        call flush (output_unit)
# 1685 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
    end block
# 1685 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
# 1685 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 1685 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 1685 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc exit data delete(fd_coef_y) 
# 1685 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 1685 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$omp target exit data map(release:fd_coef_y) 
# 1685 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
# 1685 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
    deallocate (fd_coef_y)
                if (weno_order > 1) then
#ifdef MFC_DEBUG
# 1687 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
    block
# 1687 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
        use iso_fortran_env, only: output_unit
# 1687 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 1687 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
        print *, 'm_cbc.fpp:1687: ', '@:DEALLOCATE(pi_coef_y)'
# 1687 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 1687 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
        call flush (output_unit)
# 1687 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
    end block
# 1687 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
# 1687 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 1687 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 1687 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc exit data delete(pi_coef_y) 
# 1687 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 1687 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$omp target exit data map(release:pi_coef_y) 
# 1687 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
# 1687 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
    deallocate (pi_coef_y)
                end if
            end if
        end if
 
        ! Deallocating CBC Coefficients in z-direction
        if (p > 0) then
            if (all((/bc_z%beg, bc_z%end/) <= -5) .and. all((/bc_z%beg, bc_z%end/) >= -13) .or. &
                bc_z%beg <= -5 .and. bc_z%beg >= -13 .or. &
                bc_z%end <= -5 .and. bc_z%end >= -13) then
#ifdef MFC_DEBUG
# 1697 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
    block
# 1697 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
        use iso_fortran_env, only: output_unit
# 1697 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 1697 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
        print *, 'm_cbc.fpp:1697: ', '@:DEALLOCATE(fd_coef_z)'
# 1697 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 1697 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
        call flush (output_unit)
# 1697 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
    end block
# 1697 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
# 1697 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 1697 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 1697 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc exit data delete(fd_coef_z) 
# 1697 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 1697 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$omp target exit data map(release:fd_coef_z) 
# 1697 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
# 1697 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
    deallocate (fd_coef_z)
                if (weno_order > 1) then
#ifdef MFC_DEBUG
# 1699 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
    block
# 1699 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
        use iso_fortran_env, only: output_unit
# 1699 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 1699 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
        print *, 'm_cbc.fpp:1699: ', '@:DEALLOCATE(pi_coef_z)'
# 1699 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 1699 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
        call flush (output_unit)
# 1699 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
    end block
# 1699 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
# 1699 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 1699 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 1699 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc exit data delete(pi_coef_z) 
# 1699 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 1699 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$omp target exit data map(release:pi_coef_z) 
# 1699 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
# 1699 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
    deallocate (pi_coef_z)
                end if
            end if
        end if
 
    end subroutine s_finalize_cbc_module
 
end module m_cbc