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.
# 8 "/home/runner/work/MFC/MFC/src/common/include/case.fpp"
 
! For moving immersed boundaries in simulation
# 12 "/home/runner/work/MFC/MFC/src/common/include/case.fpp"
# 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"
 
# 206 "/home/runner/work/MFC/MFC/src/common/include/omp_macros.fpp"
 
# 231 "/home/runner/work/MFC/MFC/src/common/include/omp_macros.fpp"
 
# 242 "/home/runner/work/MFC/MFC/src/common/include/omp_macros.fpp"
 
# 244 "/home/runner/work/MFC/MFC/src/common/include/omp_macros.fpp"
# 255 "/home/runner/work/MFC/MFC/src/common/include/omp_macros.fpp"
 
# 284 "/home/runner/work/MFC/MFC/src/common/include/omp_macros.fpp"
 
# 294 "/home/runner/work/MFC/MFC/src/common/include/omp_macros.fpp"
 
# 304 "/home/runner/work/MFC/MFC/src/common/include/omp_macros.fpp"
 
# 313 "/home/runner/work/MFC/MFC/src/common/include/omp_macros.fpp"
 
# 330 "/home/runner/work/MFC/MFC/src/common/include/omp_macros.fpp"
 
# 340 "/home/runner/work/MFC/MFC/src/common/include/omp_macros.fpp"
 
# 347 "/home/runner/work/MFC/MFC/src/common/include/omp_macros.fpp"
 
# 353 "/home/runner/work/MFC/MFC/src/common/include/omp_macros.fpp"
 
# 359 "/home/runner/work/MFC/MFC/src/common/include/omp_macros.fpp"
 
# 365 "/home/runner/work/MFC/MFC/src/common/include/omp_macros.fpp"
 
# 371 "/home/runner/work/MFC/MFC/src/common/include/omp_macros.fpp"
 
# 377 "/home/runner/work/MFC/MFC/src/common/include/omp_macros.fpp"
! New line at end of file is required for FYPP
# 3 "/home/runner/work/MFC/MFC/src/common/include/parallel_macros.fpp" 2
# 1 "/home/runner/work/MFC/MFC/src/common/include/acc_macros.fpp" 1
# 1 "/home/runner/work/MFC/MFC/src/common/include/shared_parallel_macros.fpp" 1
# 2 "/home/runner/work/MFC/MFC/src/common/include/shared_parallel_macros.fpp"
# 3 "/home/runner/work/MFC/MFC/src/common/include/shared_parallel_macros.fpp"
# 4 "/home/runner/work/MFC/MFC/src/common/include/shared_parallel_macros.fpp"
# 5 "/home/runner/work/MFC/MFC/src/common/include/shared_parallel_macros.fpp"
# 6 "/home/runner/work/MFC/MFC/src/common/include/shared_parallel_macros.fpp"
 
# 8 "/home/runner/work/MFC/MFC/src/common/include/shared_parallel_macros.fpp"
# 9 "/home/runner/work/MFC/MFC/src/common/include/shared_parallel_macros.fpp"
# 10 "/home/runner/work/MFC/MFC/src/common/include/shared_parallel_macros.fpp"
 
# 17 "/home/runner/work/MFC/MFC/src/common/include/shared_parallel_macros.fpp"
 
# 46 "/home/runner/work/MFC/MFC/src/common/include/shared_parallel_macros.fpp"
 
# 58 "/home/runner/work/MFC/MFC/src/common/include/shared_parallel_macros.fpp"
 
# 68 "/home/runner/work/MFC/MFC/src/common/include/shared_parallel_macros.fpp"
 
# 98 "/home/runner/work/MFC/MFC/src/common/include/shared_parallel_macros.fpp"
 
# 110 "/home/runner/work/MFC/MFC/src/common/include/shared_parallel_macros.fpp"
 
# 120 "/home/runner/work/MFC/MFC/src/common/include/shared_parallel_macros.fpp"
! New line at end of file is required for FYPP
# 2 "/home/runner/work/MFC/MFC/src/common/include/acc_macros.fpp" 2
 
# 7 "/home/runner/work/MFC/MFC/src/common/include/acc_macros.fpp"
 
# 17 "/home/runner/work/MFC/MFC/src/common/include/acc_macros.fpp"
 
# 22 "/home/runner/work/MFC/MFC/src/common/include/acc_macros.fpp"
 
# 27 "/home/runner/work/MFC/MFC/src/common/include/acc_macros.fpp"
 
# 32 "/home/runner/work/MFC/MFC/src/common/include/acc_macros.fpp"
 
# 37 "/home/runner/work/MFC/MFC/src/common/include/acc_macros.fpp"
 
# 42 "/home/runner/work/MFC/MFC/src/common/include/acc_macros.fpp"
 
# 47 "/home/runner/work/MFC/MFC/src/common/include/acc_macros.fpp"
 
# 52 "/home/runner/work/MFC/MFC/src/common/include/acc_macros.fpp"
 
# 57 "/home/runner/work/MFC/MFC/src/common/include/acc_macros.fpp"
 
# 62 "/home/runner/work/MFC/MFC/src/common/include/acc_macros.fpp"
 
# 73 "/home/runner/work/MFC/MFC/src/common/include/acc_macros.fpp"
 
# 78 "/home/runner/work/MFC/MFC/src/common/include/acc_macros.fpp"
 
# 83 "/home/runner/work/MFC/MFC/src/common/include/acc_macros.fpp"
 
# 88 "/home/runner/work/MFC/MFC/src/common/include/acc_macros.fpp"
 
# 103 "/home/runner/work/MFC/MFC/src/common/include/acc_macros.fpp"
 
# 131 "/home/runner/work/MFC/MFC/src/common/include/acc_macros.fpp"
 
# 160 "/home/runner/work/MFC/MFC/src/common/include/acc_macros.fpp"
 
# 175 "/home/runner/work/MFC/MFC/src/common/include/acc_macros.fpp"
 
# 193 "/home/runner/work/MFC/MFC/src/common/include/acc_macros.fpp"
 
# 215 "/home/runner/work/MFC/MFC/src/common/include/acc_macros.fpp"
 
# 244 "/home/runner/work/MFC/MFC/src/common/include/acc_macros.fpp"
 
# 259 "/home/runner/work/MFC/MFC/src/common/include/acc_macros.fpp"
 
# 269 "/home/runner/work/MFC/MFC/src/common/include/acc_macros.fpp"
 
# 278 "/home/runner/work/MFC/MFC/src/common/include/acc_macros.fpp"
 
# 294 "/home/runner/work/MFC/MFC/src/common/include/acc_macros.fpp"
 
# 304 "/home/runner/work/MFC/MFC/src/common/include/acc_macros.fpp"
 
# 311 "/home/runner/work/MFC/MFC/src/common/include/acc_macros.fpp"
! New line at end of file is required for FYPP
# 4 "/home/runner/work/MFC/MFC/src/common/include/parallel_macros.fpp" 2
 
! GPU parallel region (scalar reductions, maxval/minval)
# 23 "/home/runner/work/MFC/MFC/src/common/include/parallel_macros.fpp"
 
! GPU parallel loop over threads (most common GPU macro)
# 43 "/home/runner/work/MFC/MFC/src/common/include/parallel_macros.fpp"
 
! Required closing for GPU_PARALLEL_LOOP
# 55 "/home/runner/work/MFC/MFC/src/common/include/parallel_macros.fpp"
 
! Mark routine for device compilation
# 112 "/home/runner/work/MFC/MFC/src/common/include/parallel_macros.fpp"
 
! Declare device-resident data
# 130 "/home/runner/work/MFC/MFC/src/common/include/parallel_macros.fpp"
 
! Inner loop within a GPU parallel region
# 145 "/home/runner/work/MFC/MFC/src/common/include/parallel_macros.fpp"
 
! Scoped GPU data region
# 164 "/home/runner/work/MFC/MFC/src/common/include/parallel_macros.fpp"
 
! Host code with device pointers (for MPI with GPU buffers)
# 193 "/home/runner/work/MFC/MFC/src/common/include/parallel_macros.fpp"
 
! Allocate device memory (unscoped)
# 207 "/home/runner/work/MFC/MFC/src/common/include/parallel_macros.fpp"
 
! Free device memory
# 219 "/home/runner/work/MFC/MFC/src/common/include/parallel_macros.fpp"
 
! Atomic operation on device
# 231 "/home/runner/work/MFC/MFC/src/common/include/parallel_macros.fpp"
 
! End atomic capture block
# 242 "/home/runner/work/MFC/MFC/src/common/include/parallel_macros.fpp"
 
! Copy data between host and device
# 254 "/home/runner/work/MFC/MFC/src/common/include/parallel_macros.fpp"
 
! Synchronization barrier
# 266 "/home/runner/work/MFC/MFC/src/common/include/parallel_macros.fpp"
 
! Import GPU library module (openacc or omp_lib)
# 275 "/home/runner/work/MFC/MFC/src/common/include/parallel_macros.fpp"
 
! Emit code only for AMD compiler
# 282 "/home/runner/work/MFC/MFC/src/common/include/parallel_macros.fpp"
 
! Emit code for non-Cray compilers
# 289 "/home/runner/work/MFC/MFC/src/common/include/parallel_macros.fpp"
 
! Emit code only for Cray compiler
# 296 "/home/runner/work/MFC/MFC/src/common/include/parallel_macros.fpp"
 
! Emit code for non-NVIDIA compilers
# 303 "/home/runner/work/MFC/MFC/src/common/include/parallel_macros.fpp"
 
# 305 "/home/runner/work/MFC/MFC/src/common/include/parallel_macros.fpp"
# 306 "/home/runner/work/MFC/MFC/src/common/include/parallel_macros.fpp"
! New line at end of file is required for FYPP
# 2 "/home/runner/work/MFC/MFC/src/common/include/macros.fpp" 2
 
# 14 "/home/runner/work/MFC/MFC/src/common/include/macros.fpp"
 
! Caution: This macro requires the use of a binding script to set CUDA_VISIBLE_DEVICES, such that we have one GPU device per MPI
! rank. That's because for both cudaMemAdvise (preferred location) and cudaMemPrefetchAsync we use location = device_id = 0. For an
! example see misc/nvidia_uvm/bind.sh. NVIDIA unified memory page placement hint
# 57 "/home/runner/work/MFC/MFC/src/common/include/macros.fpp"
 
! Allocate and create GPU device memory
# 77 "/home/runner/work/MFC/MFC/src/common/include/macros.fpp"
 
! Free GPU device memory and deallocate
# 85 "/home/runner/work/MFC/MFC/src/common/include/macros.fpp"
 
! Cray-specific GPU pointer setup for vector fields
# 109 "/home/runner/work/MFC/MFC/src/common/include/macros.fpp"
 
! Cray-specific GPU pointer setup for scalar fields
# 125 "/home/runner/work/MFC/MFC/src/common/include/macros.fpp"
 
! Cray-specific GPU pointer setup for acoustic source spatials
# 150 "/home/runner/work/MFC/MFC/src/common/include/macros.fpp"
 
# 156 "/home/runner/work/MFC/MFC/src/common/include/macros.fpp"
 
# 163 "/home/runner/work/MFC/MFC/src/common/include/macros.fpp"
! New line at end of file is required for FYPP
# 8 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp" 2
 
module m_cbc
 
    use m_derived_types
    use m_global_parameters
    use m_variables_conversion
    use m_compute_cbc
    use m_constants, only: riemann_solver_hll, model_eqns_gamma_law
    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
 
    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
 
# 30 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 30 "/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) 
# 30 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 30 "/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) 
# 30 "/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
 
# 38 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 38 "/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) 
# 38 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 38 "/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) 
# 38 "/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
 
# 47 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 47 "/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) 
# 47 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 47 "/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) 
# 47 "/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-direction
    ! 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
 
# 60 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 60 "/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) 
# 60 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 60 "/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) 
# 60 "/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
 
# 66 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 66 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc declare create(is1, is2, is3) 
# 66 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 66 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$omp declare target (is1, is2, is3) 
# 66 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
 
    integer :: dj
    integer :: cbc_dir, cbc_loc
    integer :: flux_cbc_index
 
# 71 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 71 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc declare create(dj) 
# 71 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 71 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$omp declare target (dj) 
# 71 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
 
# 72 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 72 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc declare create(cbc_dir, cbc_loc, flux_cbc_index) 
# 72 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 72 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$omp declare target (cbc_dir, cbc_loc, flux_cbc_index) 
# 72 "/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
 
# 80 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 80 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc declare create(pres_in, pres_out, Del_in, Del_out) 
# 80 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 80 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$omp declare target (pres_in, pres_out, Del_in, Del_out) 
# 80 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
 
# 81 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 81 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc declare create(vel_in, vel_out) 
# 81 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 81 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$omp declare target (vel_in, vel_out) 
# 81 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
 
# 82 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 82 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc declare create(alpha_rho_in, alpha_in) 
# 82 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 82 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$omp declare target (alpha_rho_in, alpha_in) 
# 82 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
 
contains
 
    !> Initialize the CBC 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 = eqn_idx%adv%end
        end if
 
# 98 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 98 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc update device(flux_cbc_index) 
# 98 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 98 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$omp target update to(flux_cbc_index) 
# 98 "/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
# 119 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
    block
# 119 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
        use iso_fortran_env, only: output_unit
# 119 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 119 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
        print *, 'm_cbc.fpp:119: ', '@:ALLOCATE(q_prim_rsx_vf(0:buff_size, is2%beg:is2%end, is3%beg:is3%end, 1:sys_size))'
# 119 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 119 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
        call flush (output_unit)
# 119 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
    end block
# 119 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
# 119 "/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))
# 119 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 119 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 119 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 119 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc enter data create(q_prim_rsx_vf) 
# 119 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 119 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$omp target enter data map(always,alloc:q_prim_rsx_vf) 
# 119 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
 
        if (weno_order > 1 .or. muscl_order > 1) then
#ifdef MFC_DEBUG
# 122 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
    block
# 122 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
        use iso_fortran_env, only: output_unit
# 122 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 122 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
        print *, 'm_cbc.fpp:122: ', '@:ALLOCATE(F_rsx_vf(0:buff_size, is2%beg:is2%end, is3%beg:is3%end, 1:flux_cbc_index))'
# 122 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 122 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
        call flush (output_unit)
# 122 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
    end block
# 122 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
# 122 "/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))
# 122 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 122 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 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 enter data create(F_rsx_vf) 
# 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 enter data map(always,alloc:F_rsx_vf) 
# 122 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
 
#ifdef MFC_DEBUG
# 124 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
    block
# 124 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
        use iso_fortran_env, only: output_unit
# 124 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 124 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
        print *, 'm_cbc.fpp:124: ', '@:ALLOCATE(F_src_rsx_vf(0:buff_size, is2%beg:is2%end, is3%beg:is3%end, eqn_idx%adv%beg:eqn_idx%adv%end))'
# 124 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 124 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
        call flush (output_unit)
# 124 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
    end block
# 124 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
# 124 "/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, eqn_idx%adv%beg:eqn_idx%adv%end))
# 124 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 124 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 124 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 124 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc enter data create(F_src_rsx_vf) 
# 124 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 124 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$omp target enter data map(always,alloc:F_src_rsx_vf) 
# 124 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
        end if
 
#ifdef MFC_DEBUG
# 127 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
    block
# 127 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
        use iso_fortran_env, only: output_unit
# 127 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 127 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
        print *, 'm_cbc.fpp:127: ', '@:ALLOCATE(flux_rsx_vf_l(-1:buff_size, is2%beg:is2%end, is3%beg:is3%end, 1:flux_cbc_index))'
# 127 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 127 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
        call flush (output_unit)
# 127 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
    end block
# 127 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
# 127 "/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))
# 127 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 127 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 127 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 127 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc enter data create(flux_rsx_vf_l) 
# 127 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 127 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$omp target enter data map(always,alloc:flux_rsx_vf_l) 
# 127 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
 
#ifdef MFC_DEBUG
# 129 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
    block
# 129 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
        use iso_fortran_env, only: output_unit
# 129 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 129 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
        print *, 'm_cbc.fpp:129: ', '@:ALLOCATE(flux_src_rsx_vf_l(-1:buff_size, is2%beg:is2%end, is3%beg:is3%end, eqn_idx%adv%beg:eqn_idx%adv%end))'
# 129 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 129 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
        call flush (output_unit)
# 129 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
    end block
# 129 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
# 129 "/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, eqn_idx%adv%beg:eqn_idx%adv%end))
# 129 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 129 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 129 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 129 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc enter data create(flux_src_rsx_vf_l) 
# 129 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 129 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$omp target enter data map(always,alloc:flux_src_rsx_vf_l) 
# 129 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
 
        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
# 147 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
    block
# 147 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
        use iso_fortran_env, only: output_unit
# 147 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 147 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
        print *, 'm_cbc.fpp:147: ', '@:ALLOCATE(q_prim_rsy_vf(0:buff_size, is2%beg:is2%end, is3%beg:is3%end, 1:sys_size))'
# 147 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 147 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
        call flush (output_unit)
# 147 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
    end block
# 147 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
# 147 "/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))
# 147 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 147 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 147 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 147 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc enter data create(q_prim_rsy_vf) 
# 147 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 147 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$omp target enter data map(always,alloc:q_prim_rsy_vf) 
# 147 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
 
            if (weno_order > 1 .or. muscl_order > 1) then
#ifdef MFC_DEBUG
# 150 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
    block
# 150 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
        use iso_fortran_env, only: output_unit
# 150 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 150 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
        print *, 'm_cbc.fpp:150: ', '@:ALLOCATE(F_rsy_vf(0:buff_size, is2%beg:is2%end, is3%beg:is3%end, 1:flux_cbc_index))'
# 150 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 150 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
        call flush (output_unit)
# 150 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
    end block
# 150 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
# 150 "/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))
# 150 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 150 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 150 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 150 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc enter data create(F_rsy_vf) 
# 150 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 150 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$omp target enter data map(always,alloc:F_rsy_vf) 
# 150 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
 
#ifdef MFC_DEBUG
# 152 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
    block
# 152 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
        use iso_fortran_env, only: output_unit
# 152 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 152 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
        print *, 'm_cbc.fpp:152: ', '@:ALLOCATE(F_src_rsy_vf(0:buff_size, is2%beg:is2%end, is3%beg:is3%end, eqn_idx%adv%beg:eqn_idx%adv%end))'
# 152 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 152 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
        call flush (output_unit)
# 152 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
    end block
# 152 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
# 152 "/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, eqn_idx%adv%beg:eqn_idx%adv%end))
# 152 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 152 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 152 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 152 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc enter data create(F_src_rsy_vf) 
# 152 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 152 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$omp target enter data map(always,alloc:F_src_rsy_vf) 
# 152 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
            end if
 
#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(flux_rsy_vf_l(-1:buff_size, is2%beg:is2%end, is3%beg:is3%end, 1:flux_cbc_index))'
# 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 (flux_rsy_vf_l(-1:buff_size, is2%beg:is2%end, is3%beg:is3%end, 1:flux_cbc_index))
# 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(flux_rsy_vf_l) 
# 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:flux_rsy_vf_l) 
# 155 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
 
#ifdef MFC_DEBUG
# 157 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
    block
# 157 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
        use iso_fortran_env, only: output_unit
# 157 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 157 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
        print *, 'm_cbc.fpp:157: ', '@:ALLOCATE(flux_src_rsy_vf_l(-1:buff_size, is2%beg:is2%end, is3%beg:is3%end, eqn_idx%adv%beg:eqn_idx%adv%end))'
# 157 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 157 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
        call flush (output_unit)
# 157 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
    end block
# 157 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
# 157 "/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, eqn_idx%adv%beg:eqn_idx%adv%end))
# 157 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 157 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 157 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 157 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc enter data create(flux_src_rsy_vf_l) 
# 157 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 157 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$omp target enter data map(always,alloc:flux_src_rsy_vf_l) 
# 157 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
        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
# 176 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
    block
# 176 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
        use iso_fortran_env, only: output_unit
# 176 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 176 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
        print *, 'm_cbc.fpp:176: ', '@:ALLOCATE(q_prim_rsz_vf(0:buff_size, is2%beg:is2%end, is3%beg:is3%end, 1:sys_size))'
# 176 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 176 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
        call flush (output_unit)
# 176 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
    end block
# 176 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
# 176 "/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))
# 176 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 176 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 176 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 176 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc enter data create(q_prim_rsz_vf) 
# 176 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 176 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$omp target enter data map(always,alloc:q_prim_rsz_vf) 
# 176 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
 
            if (weno_order > 1 .or. muscl_order > 1) then
#ifdef MFC_DEBUG
# 179 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
    block
# 179 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
        use iso_fortran_env, only: output_unit
# 179 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 179 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
        print *, 'm_cbc.fpp:179: ', '@:ALLOCATE(F_rsz_vf(0:buff_size, is2%beg:is2%end, is3%beg:is3%end, 1:flux_cbc_index))'
# 179 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 179 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
        call flush (output_unit)
# 179 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
    end block
# 179 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
# 179 "/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))
# 179 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 179 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 179 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 179 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc enter data create(F_rsz_vf) 
# 179 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 179 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$omp target enter data map(always,alloc:F_rsz_vf) 
# 179 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
 
#ifdef MFC_DEBUG
# 181 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
    block
# 181 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
        use iso_fortran_env, only: output_unit
# 181 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 181 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
        print *, 'm_cbc.fpp:181: ', '@:ALLOCATE(F_src_rsz_vf(0:buff_size, is2%beg:is2%end, is3%beg:is3%end, eqn_idx%adv%beg:eqn_idx%adv%end))'
# 181 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 181 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
        call flush (output_unit)
# 181 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
    end block
# 181 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
# 181 "/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, eqn_idx%adv%beg:eqn_idx%adv%end))
# 181 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 181 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 181 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 181 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc enter data create(F_src_rsz_vf) 
# 181 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 181 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$omp target enter data map(always,alloc:F_src_rsz_vf) 
# 181 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
            end if
 
#ifdef MFC_DEBUG
# 184 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
    block
# 184 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
        use iso_fortran_env, only: output_unit
# 184 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 184 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
        print *, 'm_cbc.fpp:184: ', '@:ALLOCATE(flux_rsz_vf_l(-1:buff_size, is2%beg:is2%end, is3%beg:is3%end, 1:flux_cbc_index))'
# 184 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 184 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
        call flush (output_unit)
# 184 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
    end block
# 184 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
# 184 "/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))
# 184 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 184 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 184 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 184 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc enter data create(flux_rsz_vf_l) 
# 184 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 184 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$omp target enter data map(always,alloc:flux_rsz_vf_l) 
# 184 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
 
#ifdef MFC_DEBUG
# 186 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
    block
# 186 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
        use iso_fortran_env, only: output_unit
# 186 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 186 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
        print *, 'm_cbc.fpp:186: ', '@:ALLOCATE(flux_src_rsz_vf_l(-1:buff_size, is2%beg:is2%end, is3%beg:is3%end, eqn_idx%adv%beg:eqn_idx%adv%end))'
# 186 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 186 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
        call flush (output_unit)
# 186 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
    end block
# 186 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
# 186 "/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, eqn_idx%adv%beg:eqn_idx%adv%end))
# 186 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 186 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 186 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 186 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc enter data create(flux_src_rsz_vf_l) 
# 186 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 186 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$omp target enter data map(always,alloc:flux_src_rsz_vf_l) 
# 186 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
        end if
 
        ! Allocating the cell-width distribution in the s-direction
#ifdef MFC_DEBUG
# 190 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
    block
# 190 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
        use iso_fortran_env, only: output_unit
# 190 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 190 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
        print *, 'm_cbc.fpp:190: ', '@:ALLOCATE(ds(0:buff_size))'
# 190 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 190 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
        call flush (output_unit)
# 190 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
    end block
# 190 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
# 190 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
    allocate (ds(0:buff_size))
# 190 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 190 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 190 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 190 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc enter data create(ds) 
# 190 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 190 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$omp target enter data map(always,alloc:ds) 
# 190 "/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
# 205 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
    block
# 205 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
        use iso_fortran_env, only: output_unit
# 205 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 205 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
        print *, 'm_cbc.fpp:205: ', '@:ALLOCATE(fd_coef_x(0:buff_size, -1:1))'
# 205 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 205 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
        call flush (output_unit)
# 205 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
    end block
# 205 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
# 205 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
    allocate (fd_coef_x(0:buff_size, -1:1))
# 205 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 205 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 205 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 205 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc enter data create(fd_coef_x) 
# 205 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 205 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$omp target enter data map(always,alloc:fd_coef_x) 
# 205 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
 
            if (weno_order > 1 .or. muscl_order > 1) then
#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(pi_coef_x(idx1%beg:idx1%end, idx2%beg:idx2%end, -1:1))'
# 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 (pi_coef_x(idx1%beg:idx1%end, idx2%beg:idx2%end, -1:1))
# 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(pi_coef_x) 
# 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:pi_coef_x) 
# 208 "/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)
        else if (bc_x%beg <= -5 .and. bc_x%beg >= -13) then
#ifdef MFC_DEBUG
# 214 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
    block
# 214 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
        use iso_fortran_env, only: output_unit
# 214 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 214 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
        print *, 'm_cbc.fpp:214: ', '@:ALLOCATE(fd_coef_x(0:buff_size, -1:-1))'
# 214 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 214 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
        call flush (output_unit)
# 214 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
    end block
# 214 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
# 214 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
    allocate (fd_coef_x(0:buff_size, -1:-1))
# 214 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 214 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 214 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 214 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc enter data create(fd_coef_x) 
# 214 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 214 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$omp target enter data map(always,alloc:fd_coef_x) 
# 214 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
 
            if (weno_order > 1 .or. muscl_order > 1) then
#ifdef MFC_DEBUG
# 217 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
    block
# 217 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
        use iso_fortran_env, only: output_unit
# 217 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 217 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
        print *, 'm_cbc.fpp:217: ', '@:ALLOCATE(pi_coef_x(idx1%beg:idx1%end, idx2%beg:idx2%end, -1:-1))'
# 217 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 217 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
        call flush (output_unit)
# 217 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
    end block
# 217 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
# 217 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
    allocate (pi_coef_x(idx1%beg:idx1%end, idx2%beg:idx2%end, -1:-1))
# 217 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 217 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 217 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 217 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc enter data create(pi_coef_x) 
# 217 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 217 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$omp target enter data map(always,alloc:pi_coef_x) 
# 217 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
            end if
 
            call s_compute_cbc_coefficients(1, -1)
        else if (bc_x%end <= -5 .and. bc_x%end >= -13) then
#ifdef MFC_DEBUG
# 222 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
    block
# 222 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
        use iso_fortran_env, only: output_unit
# 222 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 222 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
        print *, 'm_cbc.fpp:222: ', '@:ALLOCATE(fd_coef_x(0:buff_size, 1:1))'
# 222 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 222 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
        call flush (output_unit)
# 222 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
    end block
# 222 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
# 222 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
    allocate (fd_coef_x(0:buff_size, 1:1))
# 222 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 222 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 222 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 222 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc enter data create(fd_coef_x) 
# 222 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 222 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$omp target enter data map(always,alloc:fd_coef_x) 
# 222 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
 
            if (weno_order > 1 .or. muscl_order > 1) then
#ifdef MFC_DEBUG
# 225 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
    block
# 225 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
        use iso_fortran_env, only: output_unit
# 225 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 225 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
        print *, 'm_cbc.fpp:225: ', '@:ALLOCATE(pi_coef_x(idx1%beg:idx1%end, idx2%beg:idx2%end, 1:1))'
# 225 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 225 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
        call flush (output_unit)
# 225 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
    end block
# 225 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
# 225 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
    allocate (pi_coef_x(idx1%beg:idx1%end, idx2%beg:idx2%end, 1:1))
# 225 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 225 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 225 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 225 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc enter data create(pi_coef_x) 
# 225 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 225 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$omp target enter data map(always,alloc:pi_coef_x) 
# 225 "/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
# 234 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
    block
# 234 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
        use iso_fortran_env, only: output_unit
# 234 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 234 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
        print *, 'm_cbc.fpp:234: ', '@:ALLOCATE(fd_coef_y(0:buff_size, -1:1))'
# 234 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 234 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
        call flush (output_unit)
# 234 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
    end block
# 234 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
# 234 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
    allocate (fd_coef_y(0:buff_size, -1:1))
# 234 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 234 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 234 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 234 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc enter data create(fd_coef_y) 
# 234 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 234 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$omp target enter data map(always,alloc:fd_coef_y) 
# 234 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
 
                if (weno_order > 1 .or. muscl_order > 1) then
#ifdef MFC_DEBUG
# 237 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
    block
# 237 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
        use iso_fortran_env, only: output_unit
# 237 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 237 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
        print *, 'm_cbc.fpp:237: ', '@:ALLOCATE(pi_coef_y(idx1%beg:idx1%end, idx2%beg:idx2%end, -1:1))'
# 237 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 237 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
        call flush (output_unit)
# 237 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
    end block
# 237 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
# 237 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
    allocate (pi_coef_y(idx1%beg:idx1%end, idx2%beg:idx2%end, -1:1))
# 237 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 237 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 237 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 237 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc enter data create(pi_coef_y) 
# 237 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 237 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$omp target enter data map(always,alloc:pi_coef_y) 
# 237 "/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)
            else if (bc_y%beg <= -5 .and. bc_y%beg >= -13) then
#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(fd_coef_y(0:buff_size, -1:-1))'
# 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 (fd_coef_y(0:buff_size, -1:-1))
# 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(fd_coef_y) 
# 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:fd_coef_y) 
# 243 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
 
                if (weno_order > 1 .or. muscl_order > 1) then
#ifdef MFC_DEBUG
# 246 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
    block
# 246 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
        use iso_fortran_env, only: output_unit
# 246 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 246 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
        print *, 'm_cbc.fpp:246: ', '@:ALLOCATE(pi_coef_y(idx1%beg:idx1%end, idx2%beg:idx2%end, -1:-1))'
# 246 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 246 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
        call flush (output_unit)
# 246 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
    end block
# 246 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
# 246 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
    allocate (pi_coef_y(idx1%beg:idx1%end, idx2%beg:idx2%end, -1:-1))
# 246 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 246 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 246 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 246 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc enter data create(pi_coef_y) 
# 246 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 246 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$omp target enter data map(always,alloc:pi_coef_y) 
# 246 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
                end if
 
                call s_compute_cbc_coefficients(2, -1)
            else if (bc_y%end <= -5 .and. bc_y%end >= -13) then
#ifdef MFC_DEBUG
# 251 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
    block
# 251 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
        use iso_fortran_env, only: output_unit
# 251 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 251 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
        print *, 'm_cbc.fpp:251: ', '@:ALLOCATE(fd_coef_y(0:buff_size, 1:1))'
# 251 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 251 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
        call flush (output_unit)
# 251 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
    end block
# 251 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
# 251 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
    allocate (fd_coef_y(0:buff_size, 1:1))
# 251 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 251 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 251 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 251 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc enter data create(fd_coef_y) 
# 251 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 251 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$omp target enter data map(always,alloc:fd_coef_y) 
# 251 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
 
                if (weno_order > 1 .or. muscl_order > 1) then
#ifdef MFC_DEBUG
# 254 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
    block
# 254 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
        use iso_fortran_env, only: output_unit
# 254 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 254 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
        print *, 'm_cbc.fpp:254: ', '@:ALLOCATE(pi_coef_y(idx1%beg:idx1%end, idx2%beg:idx2%end, 1:1))'
# 254 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 254 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
        call flush (output_unit)
# 254 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
    end block
# 254 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
# 254 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
    allocate (pi_coef_y(idx1%beg:idx1%end, idx2%beg:idx2%end, 1:1))
# 254 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 254 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 254 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 254 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc enter data create(pi_coef_y) 
# 254 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 254 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$omp target enter data map(always,alloc:pi_coef_y) 
# 254 "/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
# 264 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
    block
# 264 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
        use iso_fortran_env, only: output_unit
# 264 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 264 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
        print *, 'm_cbc.fpp:264: ', '@:ALLOCATE(fd_coef_z(0:buff_size, -1:1))'
# 264 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 264 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
        call flush (output_unit)
# 264 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
    end block
# 264 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
# 264 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
    allocate (fd_coef_z(0:buff_size, -1:1))
# 264 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 264 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 264 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 264 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc enter data create(fd_coef_z) 
# 264 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 264 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$omp target enter data map(always,alloc:fd_coef_z) 
# 264 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
 
                if (weno_order > 1 .or. muscl_order > 1) then
#ifdef MFC_DEBUG
# 267 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
    block
# 267 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
        use iso_fortran_env, only: output_unit
# 267 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 267 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
        print *, 'm_cbc.fpp:267: ', '@:ALLOCATE(pi_coef_z(idx1%beg:idx1%end, idx2%beg:idx2%end, -1:1))'
# 267 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 267 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
        call flush (output_unit)
# 267 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
    end block
# 267 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
# 267 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
    allocate (pi_coef_z(idx1%beg:idx1%end, idx2%beg:idx2%end, -1:1))
# 267 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 267 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 267 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 267 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc enter data create(pi_coef_z) 
# 267 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 267 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$omp target enter data map(always,alloc:pi_coef_z) 
# 267 "/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)
            else if (bc_z%beg <= -5 .and. bc_z%beg >= -13) then
#ifdef MFC_DEBUG
# 273 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
    block
# 273 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
        use iso_fortran_env, only: output_unit
# 273 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 273 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
        print *, 'm_cbc.fpp:273: ', '@:ALLOCATE(fd_coef_z(0:buff_size, -1:-1))'
# 273 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 273 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
        call flush (output_unit)
# 273 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
    end block
# 273 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
# 273 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
    allocate (fd_coef_z(0:buff_size, -1:-1))
# 273 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 273 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 273 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 273 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc enter data create(fd_coef_z) 
# 273 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 273 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$omp target enter data map(always,alloc:fd_coef_z) 
# 273 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
 
                if (weno_order > 1 .or. muscl_order > 1) 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(pi_coef_z(idx1%beg:idx1%end, idx2%beg:idx2%end, -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 (pi_coef_z(idx1%beg:idx1%end, idx2%beg:idx2%end, -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(pi_coef_z) 
# 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:pi_coef_z) 
# 276 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
                end if
 
                call s_compute_cbc_coefficients(3, -1)
            else if (bc_z%end <= -5 .and. bc_z%end >= -13) then
#ifdef MFC_DEBUG
# 281 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
    block
# 281 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
        use iso_fortran_env, only: output_unit
# 281 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 281 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
        print *, 'm_cbc.fpp:281: ', '@:ALLOCATE(fd_coef_z(0:buff_size, 1:1))'
# 281 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 281 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
        call flush (output_unit)
# 281 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
    end block
# 281 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
# 281 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
    allocate (fd_coef_z(0:buff_size, 1:1))
# 281 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 281 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 281 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 281 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc enter data create(fd_coef_z) 
# 281 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 281 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$omp target enter data map(always,alloc:fd_coef_z) 
# 281 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
 
                if (weno_order > 1 .or. muscl_order > 1) then
#ifdef MFC_DEBUG
# 284 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
    block
# 284 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
        use iso_fortran_env, only: output_unit
# 284 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 284 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
        print *, 'm_cbc.fpp:284: ', '@:ALLOCATE(pi_coef_z(idx1%beg:idx1%end, idx2%beg:idx2%end, 1:1))'
# 284 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 284 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
        call flush (output_unit)
# 284 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
    end block
# 284 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
# 284 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
    allocate (pi_coef_z(idx1%beg:idx1%end, idx2%beg:idx2%end, 1:1))
# 284 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 284 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 284 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 284 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc enter data create(pi_coef_z) 
# 284 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 284 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$omp target enter data map(always,alloc:pi_coef_z) 
# 284 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
                end if
 
                call s_compute_cbc_coefficients(3, 1)
            end if
        end if
 
 
# 291 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 291 "/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) 
# 291 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 291 "/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) 
# 291 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
 
        ! Allocate GRCBC inputs
#ifdef MFC_DEBUG
# 294 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
    block
# 294 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
        use iso_fortran_env, only: output_unit
# 294 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 294 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
        print *, 'm_cbc.fpp:294: ', '@:ALLOCATE(pres_in(1:num_dims), pres_out(1:num_dims))'
# 294 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 294 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
        call flush (output_unit)
# 294 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
    end block
# 294 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
# 294 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
    allocate (pres_in(1:num_dims), pres_out(1:num_dims))
# 294 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 294 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 294 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 294 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 294 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc enter data create(pres_in, pres_out) 
# 294 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 294 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$omp target enter data map(always,alloc:pres_in, pres_out) 
# 294 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
#ifdef MFC_DEBUG
# 295 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
    block
# 295 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
        use iso_fortran_env, only: output_unit
# 295 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 295 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
        print *, 'm_cbc.fpp:295: ', '@:ALLOCATE(Del_in(1:num_dims), Del_out(1:num_dims))'
# 295 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 295 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
        call flush (output_unit)
# 295 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
    end block
# 295 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
# 295 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
    allocate (del_in(1:num_dims), del_out(1:num_dims))
# 295 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 295 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 295 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 295 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 295 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc enter data create(Del_in, Del_out) 
# 295 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 295 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$omp target enter data map(always,alloc:Del_in, Del_out) 
# 295 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
#ifdef MFC_DEBUG
# 296 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
    block
# 296 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
        use iso_fortran_env, only: output_unit
# 296 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 296 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
        print *, 'm_cbc.fpp:296: ', '@:ALLOCATE(vel_in(1:num_dims, 1:num_dims), vel_out(1:num_dims, 1:num_dims))'
# 296 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 296 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
        call flush (output_unit)
# 296 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
    end block
# 296 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
# 296 "/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))
# 296 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 296 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 296 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 296 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 296 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc enter data create(vel_in, vel_out) 
# 296 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 296 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$omp target enter data map(always,alloc:vel_in, vel_out) 
# 296 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
#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(alpha_rho_in(1:num_fluids, 1:num_dims), alpha_in(1:num_fluids, 1:num_dims))'
# 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 (alpha_rho_in(1:num_fluids, 1:num_dims), alpha_in(1:num_fluids, 1:num_dims))
# 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"
 
# 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(alpha_rho_in, alpha_in) 
# 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:alpha_rho_in, alpha_in) 
# 297 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
 
        ! Assign and update GRCBC inputs
# 301 "/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
# 301 "/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
# 301 "/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
# 322 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 322 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 322 "/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) 
# 322 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 322 "/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) 
# 322 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
 
    end subroutine s_initialize_cbc_module
 
    !> Compute CBC coefficients
    subroutine s_compute_cbc_coefficients(cbc_dir_in, cbc_loc_in)
 
        ! Compute grid-dependent CBC coefficients for given 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
# 353 "/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
                else if (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
# 353 "/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
                else if (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
# 353 "/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
                else if (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
# 403 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
        ! END: Computing CBC4 Coefficients
 
        ! Nullifying CBC coefficients
 
    end subroutine s_compute_cbc_coefficients
 
    !> Associate CBC finite-difference and polynomial-interpolation coefficients based on direction and boundary 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
        else if (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
 
 
# 459 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 459 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc update device(ds) 
# 459 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 459 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$omp target update to(ds) 
# 459 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
 
    end subroutine s_associate_cbc_coefficients_pointers
 
    !> Apply characteristic boundary conditions by modifying fluxes near domain boundaries
    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
 
# 480 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
            real(wp), dimension(sys_size) :: l
# 482 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
# 491 "/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
# 499 "/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
 
 
# 520 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 520 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc update device(cbc_dir, cbc_loc) 
# 520 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 520 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$omp target update to(cbc_dir, cbc_loc) 
# 520 "/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)
 
# 527 "/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) 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)
 
 
# 533 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 533 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 533 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc parallel loop collapse(3) gang vector default(present) private(i, r, k) 
# 533 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 533 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 533 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 533 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 533 "/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) 
# 533 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
                    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
 
# 542 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 542 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc end parallel loop
# 542 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 542 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 542 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$omp end target teams loop
# 542 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
 
 
# 544 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 544 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 544 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc parallel loop collapse(3) gang vector default(present) private(i, r, k) 
# 544 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 544 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 544 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 544 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 544 "/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) 
# 544 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
                    do i = eqn_idx%adv%beg, eqn_idx%adv%end
                        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
 
# 553 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 553 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc end parallel loop
# 553 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 553 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 553 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$omp end target teams loop
# 553 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
                end if
 
                ! PI4 of flux_rs_vf and flux_src_rs_vf at j = 1/2, 3/2
                if (weno_order == 5) 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)
 
 
# 561 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 561 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 561 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc parallel loop collapse(4) gang vector default(present) private(i, j, r, k) 
# 561 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 561 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 561 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 561 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 561 "/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) 
# 561 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
                    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
 
# 575 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 575 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc end parallel loop
# 575 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 575 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 575 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$omp end target teams loop
# 575 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
 
 
# 577 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 577 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 577 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc parallel loop collapse(4) gang vector default(present) private(i, j, r, k) 
# 577 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 577 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 577 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 577 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 577 "/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) 
# 577 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
                    do i = eqn_idx%adv%beg, eqn_idx%adv%end
                        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
 
# 592 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 592 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc end parallel loop
# 592 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 592 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 592 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$omp end target teams loop
# 592 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
                end if
 
                ! FD2 or FD4 of RHS at j = 0
 
# 596 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 596 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 596 "/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) 
# 596 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 596 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 596 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 596 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 596 "/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) 
# 596 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
# 601 "/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
 
# 604 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 604 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc loop seq 
# 604 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 604 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 604 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
                        do i = 1, eqn_idx%cont%end
                            alpha_rho(i) = q_prim_rsx_vf(0, k, r, i)
                        end do
 
 
# 609 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 609 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc loop seq 
# 609 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 609 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 609 "/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, eqn_idx%cont%end + i)
                        end do
 
                        vel_k_sum = 0._wp
 
# 615 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 615 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc loop seq 
# 615 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 615 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 615 "/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, eqn_idx%E)
 
 
# 622 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 622 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc loop seq 
# 622 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 622 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 622 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
                        do i = 1, eqn_idx%adv%end - eqn_idx%E
                            adv_local(i) = q_prim_rsx_vf(0, k, r, eqn_idx%E + i)
                        end do
 
                        call s_convert_species_to_mixture_variables_acc(rho, gamma, pi_inf, qv, adv_local, alpha_rho, re_cbc)
 
 
# 629 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 629 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc loop seq 
# 629 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 629 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 629 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
                        do i = 1, eqn_idx%cont%end
                            mf(i) = alpha_rho(i)/rho
                        end do
 
                        if (chemistry) then
 
# 635 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 635 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc loop seq 
# 635 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 635 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 635 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
                            do i = eqn_idx%species%beg, eqn_idx%species%end
                                ys(i - eqn_idx%species%beg + 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
 
 
# 668 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 668 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc loop seq 
# 668 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 668 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 668 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
                        do i = 1, eqn_idx%cont%end
                            dalpha_rho_ds(i) = 0._wp
                        end do
 
 
# 673 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 673 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc loop seq 
# 673 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 673 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 673 "/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
 
# 679 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 679 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc loop seq 
# 679 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 679 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 679 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
                        do i = 1, eqn_idx%adv%end - eqn_idx%E
                            dadv_ds(i) = 0._wp
                        end do
 
                        if (chemistry) then
 
# 685 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 685 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc loop seq 
# 685 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 685 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 685 "/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
 
 
# 691 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 691 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc loop seq 
# 691 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 691 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 691 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
                        do j = 0, buff_size
 
# 693 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 693 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc loop seq 
# 693 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 693 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 693 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
                            do i = 1, eqn_idx%cont%end
                                dalpha_rho_ds(i) = q_prim_rsx_vf(j, k, r, i)*fd_coef_x(j, cbc_loc) + dalpha_rho_ds(i)
                            end do
 
# 697 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 697 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc loop seq 
# 697 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 697 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 697 "/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, eqn_idx%cont%end + i)*fd_coef_x(j, &
                                        & cbc_loc) + dvel_ds(i)
                            end do
 
                            dpres_ds = q_prim_rsx_vf(j, k, r, eqn_idx%E)*fd_coef_x(j, cbc_loc) + dpres_ds
 
# 704 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 704 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc loop seq 
# 704 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 704 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 704 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
                            do i = 1, eqn_idx%adv%end - eqn_idx%E
                                dadv_ds(i) = q_prim_rsx_vf(j, k, r, eqn_idx%E + i)*fd_coef_x(j, cbc_loc) + dadv_ds(i)
                            end do
 
                            if (chemistry) then
 
# 710 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 710 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc loop seq 
# 710 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 710 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 710 "/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, eqn_idx%species%beg - 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. bc_x%beg == bc_char_slip_wall) .or. (cbc_loc == 1 &
                            & .and. bc_x%end == 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. bc_x%beg == bc_char_nr_sub_buffer) .or. (cbc_loc == 1 &
                                 & .and. bc_x%end == 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. bc_x%beg == bc_char_nr_sub_inflow) .or. (cbc_loc == 1 &
                                 & .and. bc_x%end == 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
 
# 737 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 737 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc loop seq 
# 737 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 737 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 737 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
                                do i = 2, eqn_idx%mom%beg
                                    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(eqn_idx%mom%beg + 1) = c*ma*(vel(dir_idx(2)) - vel_in(1, &
                                      & dir_idx(2)))/del_in(1)
                                    if (p > 0) then
                                        l(eqn_idx%mom%beg + 2) = c*ma*(vel(dir_idx(3)) - vel_in(1, &
                                          & dir_idx(3)))/del_in(1)
                                    end if
                                end if
 
# 750 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 750 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc loop seq 
# 750 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 750 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 750 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
                                do i = eqn_idx%E, eqn_idx%adv%end - 1
                                    l(i) = c*ma*(adv_local(i + 1 - eqn_idx%E) - alpha_in(i + 1 - eqn_idx%E, &
                                      & 1))/del_in(1)
                                end do
                                l(eqn_idx%adv%end) = 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. bc_x%beg == bc_char_nr_sub_outflow) .or. (cbc_loc == 1 &
                                 & .and. bc_x%end == 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(eqn_idx%adv%end) = 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(eqn_idx%adv%end) = l(eqn_idx%adv%end) + 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. bc_x%beg == bc_char_ff_sub_outflow) .or. (cbc_loc == 1 &
                                 & .and. bc_x%end == 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. bc_x%beg == bc_char_cp_sub_outflow) .or. (cbc_loc == 1 &
                                 & .and. bc_x%end == 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. bc_x%beg == bc_char_sup_inflow) .or. (cbc_loc == 1 &
                                 & .and. bc_x%end == bc_char_sup_inflow)) then
                            call s_compute_supersonic_inflow_l(l)
                        else if ((cbc_loc == -1 .and. bc_x%beg == bc_char_sup_outflow) .or. (cbc_loc == 1 &
                                 & .and. bc_x%end == 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(eqn_idx%adv%end) + l(1)) + rho*c*c*vel(dir_idx(1))/y_cc(n)
                        else
                            dpres_dt = -5.e-1_wp*(l(eqn_idx%adv%end) + l(1))
                        end if
 
 
# 797 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 797 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc loop seq 
# 797 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 797 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 797 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
                        do i = 1, eqn_idx%cont%end
                            dalpha_rho_dt(i) = -(l(i + 1) - mf(i)*dpres_dt)/(c*c)
                        end do
 
 
# 802 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 802 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc loop seq 
# 802 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 802 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 802 "/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(eqn_idx%adv%end))/(2._wp*rho*c) &
                                    & + (dir_flg(dir_idx(i)) - 1._wp)*l(eqn_idx%mom%beg + i - 1)
                        end do
 
                        vel_dv_dt_sum = 0._wp
 
# 809 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 809 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc loop seq 
# 809 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 809 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 809 "/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
 
# 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, num_species
                                dys_dt(i) = -1._wp*l(eqn_idx%species%beg + 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
 
# 823 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 823 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc loop seq 
# 823 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 823 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 823 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
                            do i = 1, eqn_idx%adv%end - eqn_idx%E
                                dadv_dt(i) = -l(eqn_idx%mom%end + i)  ! + adv_local(i) * vel(dir_idx(1))/y_cc(n)
                            end do
                        else
 
# 828 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 828 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc loop seq 
# 828 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 828 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 828 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
                            do i = 1, eqn_idx%adv%end - eqn_idx%E
                                dadv_dt(i) = -l(eqn_idx%mom%end + 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 == model_eqns_gamma_law) then
                            drho_dt = dalpha_rho_dt(1)
                            dgamma_dt = dadv_dt(1)
# 840 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
                                dpi_inf_dt = dadv_dt(2)
# 842 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
                        else
 
# 843 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 843 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc loop seq 
# 843 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 843 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 843 "/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
 
# 853 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 853 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc loop seq 
# 853 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 853 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 853 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
                        do i = 1, eqn_idx%cont%end
                            flux_rsx_vf_l(-1, k, r, i) = flux_rsx_vf_l(0, k, r, i) + ds(0)*dalpha_rho_dt(i)
                        end do
 
 
# 858 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 858 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc loop seq 
# 858 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 858 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 858 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
                        do i = eqn_idx%mom%beg, eqn_idx%mom%end
                            flux_rsx_vf_l(-1, k, r, i) = flux_rsx_vf_l(0, k, r, &
                                                & i) + ds(0)*(vel(i - eqn_idx%cont%end)*drho_dt + rho*dvel_dt(i - eqn_idx%cont%end))
                        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
 
# 869 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 869 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc loop seq 
# 869 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 869 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 869 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
                            do i = 1, num_species
                                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)
                            end do
                            flux_rsx_vf_l(-1, k, r, eqn_idx%E) = flux_rsx_vf_l(0, k, r, &
                                                & eqn_idx%E) + ds(0)*((e/rho + pres/rho)*drho_dt + rho*vel_dv_dt_sum + cp*t*l(2) &
                                                & /(c*c) + sum_enthalpies)
 
# 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 i = 1, num_species
                                flux_rsx_vf_l(-1, k, r, i - 1 + eqn_idx%species%beg) = flux_rsx_vf_l(0, k, r, &
                                                    & eqn_idx%species%beg + i - 1) + ds(0)*(drho_dt*ys(i) + rho*dys_dt(i))
                            end do
                        else
                            flux_rsx_vf_l(-1, k, r, eqn_idx%E) = flux_rsx_vf_l(0, k, r, &
                                                & eqn_idx%E) + 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 == riemann_solver_hll) then
 
# 889 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 889 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc loop seq 
# 889 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 889 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 889 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
                            do i = eqn_idx%adv%beg, eqn_idx%adv%end
                                flux_rsx_vf_l(-1, k, r, i) = 0._wp
                            end do
 
 
# 894 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 894 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc loop seq 
# 894 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 894 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 894 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
                            do i = eqn_idx%adv%beg, eqn_idx%adv%end
                                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 - eqn_idx%E))
                            end do
                        else
 
# 902 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 902 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc loop seq 
# 902 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 902 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 902 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
                            do i = eqn_idx%adv%beg, eqn_idx%adv%end
                                flux_rsx_vf_l(-1, k, r, i) = flux_rsx_vf_l(0, k, r, i) + ds(0)*dadv_dt(i - eqn_idx%E)
                            end do
 
 
# 907 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 907 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc loop seq 
# 907 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 907 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 907 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
                            do i = eqn_idx%adv%beg, eqn_idx%adv%end
                                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
 
# 915 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 915 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc end parallel loop
# 915 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 915 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 915 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$omp end target teams loop
# 915 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
            end if
# 527 "/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) 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)
 
 
# 533 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 533 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 533 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc parallel loop collapse(3) gang vector default(present) private(i, r, k) 
# 533 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 533 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 533 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 533 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 533 "/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) 
# 533 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
                    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
 
# 542 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 542 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc end parallel loop
# 542 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 542 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 542 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$omp end target teams loop
# 542 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
 
 
# 544 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 544 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 544 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc parallel loop collapse(3) gang vector default(present) private(i, r, k) 
# 544 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 544 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 544 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 544 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 544 "/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) 
# 544 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
                    do i = eqn_idx%adv%beg, eqn_idx%adv%end
                        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
 
# 553 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 553 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc end parallel loop
# 553 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 553 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 553 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$omp end target teams loop
# 553 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
                end if
 
                ! PI4 of flux_rs_vf and flux_src_rs_vf at j = 1/2, 3/2
                if (weno_order == 5) 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)
 
 
# 561 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 561 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 561 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc parallel loop collapse(4) gang vector default(present) private(i, j, r, k) 
# 561 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 561 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 561 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 561 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 561 "/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) 
# 561 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
                    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
 
# 575 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 575 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc end parallel loop
# 575 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 575 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 575 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$omp end target teams loop
# 575 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
 
 
# 577 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 577 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 577 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc parallel loop collapse(4) gang vector default(present) private(i, j, r, k) 
# 577 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 577 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 577 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 577 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 577 "/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) 
# 577 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
                    do i = eqn_idx%adv%beg, eqn_idx%adv%end
                        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
 
# 592 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 592 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc end parallel loop
# 592 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 592 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 592 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$omp end target teams loop
# 592 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
                end if
 
                ! FD2 or FD4 of RHS at j = 0
 
# 596 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 596 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 596 "/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) 
# 596 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 596 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 596 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 596 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 596 "/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) 
# 596 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
# 601 "/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
 
# 604 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 604 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc loop seq 
# 604 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 604 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 604 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
                        do i = 1, eqn_idx%cont%end
                            alpha_rho(i) = q_prim_rsy_vf(0, k, r, i)
                        end do
 
 
# 609 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 609 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc loop seq 
# 609 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 609 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 609 "/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, eqn_idx%cont%end + i)
                        end do
 
                        vel_k_sum = 0._wp
 
# 615 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 615 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc loop seq 
# 615 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 615 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 615 "/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, eqn_idx%E)
 
 
# 622 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 622 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc loop seq 
# 622 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 622 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 622 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
                        do i = 1, eqn_idx%adv%end - eqn_idx%E
                            adv_local(i) = q_prim_rsy_vf(0, k, r, eqn_idx%E + i)
                        end do
 
                        call s_convert_species_to_mixture_variables_acc(rho, gamma, pi_inf, qv, adv_local, alpha_rho, re_cbc)
 
 
# 629 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 629 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc loop seq 
# 629 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 629 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 629 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
                        do i = 1, eqn_idx%cont%end
                            mf(i) = alpha_rho(i)/rho
                        end do
 
                        if (chemistry) then
 
# 635 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 635 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc loop seq 
# 635 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 635 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 635 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
                            do i = eqn_idx%species%beg, eqn_idx%species%end
                                ys(i - eqn_idx%species%beg + 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
 
 
# 668 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 668 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc loop seq 
# 668 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 668 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 668 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
                        do i = 1, eqn_idx%cont%end
                            dalpha_rho_ds(i) = 0._wp
                        end do
 
 
# 673 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 673 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc loop seq 
# 673 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 673 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 673 "/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
 
# 679 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 679 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc loop seq 
# 679 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 679 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 679 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
                        do i = 1, eqn_idx%adv%end - eqn_idx%E
                            dadv_ds(i) = 0._wp
                        end do
 
                        if (chemistry) then
 
# 685 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 685 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc loop seq 
# 685 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 685 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 685 "/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
 
 
# 691 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 691 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc loop seq 
# 691 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 691 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 691 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
                        do j = 0, buff_size
 
# 693 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 693 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc loop seq 
# 693 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 693 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 693 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
                            do i = 1, eqn_idx%cont%end
                                dalpha_rho_ds(i) = q_prim_rsy_vf(j, k, r, i)*fd_coef_y(j, cbc_loc) + dalpha_rho_ds(i)
                            end do
 
# 697 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 697 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc loop seq 
# 697 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 697 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 697 "/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, eqn_idx%cont%end + i)*fd_coef_y(j, &
                                        & cbc_loc) + dvel_ds(i)
                            end do
 
                            dpres_ds = q_prim_rsy_vf(j, k, r, eqn_idx%E)*fd_coef_y(j, cbc_loc) + dpres_ds
 
# 704 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 704 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc loop seq 
# 704 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 704 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 704 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
                            do i = 1, eqn_idx%adv%end - eqn_idx%E
                                dadv_ds(i) = q_prim_rsy_vf(j, k, r, eqn_idx%E + i)*fd_coef_y(j, cbc_loc) + dadv_ds(i)
                            end do
 
                            if (chemistry) then
 
# 710 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 710 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc loop seq 
# 710 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 710 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 710 "/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, eqn_idx%species%beg - 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. bc_y%beg == bc_char_slip_wall) .or. (cbc_loc == 1 &
                            & .and. bc_y%end == 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. bc_y%beg == bc_char_nr_sub_buffer) .or. (cbc_loc == 1 &
                                 & .and. bc_y%end == 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. bc_y%beg == bc_char_nr_sub_inflow) .or. (cbc_loc == 1 &
                                 & .and. bc_y%end == 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
 
# 737 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 737 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc loop seq 
# 737 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 737 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 737 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
                                do i = 2, eqn_idx%mom%beg
                                    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(eqn_idx%mom%beg + 1) = c*ma*(vel(dir_idx(2)) - vel_in(2, &
                                      & dir_idx(2)))/del_in(2)
                                    if (p > 0) then
                                        l(eqn_idx%mom%beg + 2) = c*ma*(vel(dir_idx(3)) - vel_in(2, &
                                          & dir_idx(3)))/del_in(2)
                                    end if
                                end if
 
# 750 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 750 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc loop seq 
# 750 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 750 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 750 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
                                do i = eqn_idx%E, eqn_idx%adv%end - 1
                                    l(i) = c*ma*(adv_local(i + 1 - eqn_idx%E) - alpha_in(i + 1 - eqn_idx%E, &
                                      & 2))/del_in(2)
                                end do
                                l(eqn_idx%adv%end) = 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. bc_y%beg == bc_char_nr_sub_outflow) .or. (cbc_loc == 1 &
                                 & .and. bc_y%end == 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(eqn_idx%adv%end) = 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(eqn_idx%adv%end) = l(eqn_idx%adv%end) + 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. bc_y%beg == bc_char_ff_sub_outflow) .or. (cbc_loc == 1 &
                                 & .and. bc_y%end == 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. bc_y%beg == bc_char_cp_sub_outflow) .or. (cbc_loc == 1 &
                                 & .and. bc_y%end == 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. bc_y%beg == bc_char_sup_inflow) .or. (cbc_loc == 1 &
                                 & .and. bc_y%end == bc_char_sup_inflow)) then
                            call s_compute_supersonic_inflow_l(l)
                        else if ((cbc_loc == -1 .and. bc_y%beg == bc_char_sup_outflow) .or. (cbc_loc == 1 &
                                 & .and. bc_y%end == 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(eqn_idx%adv%end) + l(1)) + rho*c*c*vel(dir_idx(1))/y_cc(n)
                        else
                            dpres_dt = -5.e-1_wp*(l(eqn_idx%adv%end) + l(1))
                        end if
 
 
# 797 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 797 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc loop seq 
# 797 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 797 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 797 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
                        do i = 1, eqn_idx%cont%end
                            dalpha_rho_dt(i) = -(l(i + 1) - mf(i)*dpres_dt)/(c*c)
                        end do
 
 
# 802 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 802 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc loop seq 
# 802 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 802 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 802 "/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(eqn_idx%adv%end))/(2._wp*rho*c) &
                                    & + (dir_flg(dir_idx(i)) - 1._wp)*l(eqn_idx%mom%beg + i - 1)
                        end do
 
                        vel_dv_dt_sum = 0._wp
 
# 809 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 809 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc loop seq 
# 809 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 809 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 809 "/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
 
# 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, num_species
                                dys_dt(i) = -1._wp*l(eqn_idx%species%beg + 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
 
# 823 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 823 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc loop seq 
# 823 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 823 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 823 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
                            do i = 1, eqn_idx%adv%end - eqn_idx%E
                                dadv_dt(i) = -l(eqn_idx%mom%end + i)  ! + adv_local(i) * vel(dir_idx(1))/y_cc(n)
                            end do
                        else
 
# 828 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 828 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc loop seq 
# 828 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 828 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 828 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
                            do i = 1, eqn_idx%adv%end - eqn_idx%E
                                dadv_dt(i) = -l(eqn_idx%mom%end + 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 == model_eqns_gamma_law) then
                            drho_dt = dalpha_rho_dt(1)
                            dgamma_dt = dadv_dt(1)
# 840 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
                                dpi_inf_dt = dadv_dt(2)
# 842 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
                        else
 
# 843 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 843 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc loop seq 
# 843 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 843 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 843 "/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
 
# 853 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 853 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc loop seq 
# 853 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 853 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 853 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
                        do i = 1, eqn_idx%cont%end
                            flux_rsy_vf_l(-1, k, r, i) = flux_rsy_vf_l(0, k, r, i) + ds(0)*dalpha_rho_dt(i)
                        end do
 
 
# 858 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 858 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc loop seq 
# 858 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 858 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 858 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
                        do i = eqn_idx%mom%beg, eqn_idx%mom%end
                            flux_rsy_vf_l(-1, k, r, i) = flux_rsy_vf_l(0, k, r, &
                                                & i) + ds(0)*(vel(i - eqn_idx%cont%end)*drho_dt + rho*dvel_dt(i - eqn_idx%cont%end))
                        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
 
# 869 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 869 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc loop seq 
# 869 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 869 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 869 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
                            do i = 1, num_species
                                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)
                            end do
                            flux_rsy_vf_l(-1, k, r, eqn_idx%E) = flux_rsy_vf_l(0, k, r, &
                                                & eqn_idx%E) + ds(0)*((e/rho + pres/rho)*drho_dt + rho*vel_dv_dt_sum + cp*t*l(2) &
                                                & /(c*c) + sum_enthalpies)
 
# 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 i = 1, num_species
                                flux_rsy_vf_l(-1, k, r, i - 1 + eqn_idx%species%beg) = flux_rsy_vf_l(0, k, r, &
                                                    & eqn_idx%species%beg + i - 1) + ds(0)*(drho_dt*ys(i) + rho*dys_dt(i))
                            end do
                        else
                            flux_rsy_vf_l(-1, k, r, eqn_idx%E) = flux_rsy_vf_l(0, k, r, &
                                                & eqn_idx%E) + 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 == riemann_solver_hll) then
 
# 889 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 889 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc loop seq 
# 889 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 889 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 889 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
                            do i = eqn_idx%adv%beg, eqn_idx%adv%end
                                flux_rsy_vf_l(-1, k, r, i) = 0._wp
                            end do
 
 
# 894 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 894 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc loop seq 
# 894 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 894 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 894 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
                            do i = eqn_idx%adv%beg, eqn_idx%adv%end
                                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 - eqn_idx%E))
                            end do
                        else
 
# 902 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 902 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc loop seq 
# 902 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 902 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 902 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
                            do i = eqn_idx%adv%beg, eqn_idx%adv%end
                                flux_rsy_vf_l(-1, k, r, i) = flux_rsy_vf_l(0, k, r, i) + ds(0)*dadv_dt(i - eqn_idx%E)
                            end do
 
 
# 907 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 907 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc loop seq 
# 907 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 907 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 907 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
                            do i = eqn_idx%adv%beg, eqn_idx%adv%end
                                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
 
# 915 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 915 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc end parallel loop
# 915 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 915 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 915 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$omp end target teams loop
# 915 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
            end if
# 527 "/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) 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)
 
 
# 533 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 533 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 533 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc parallel loop collapse(3) gang vector default(present) private(i, r, k) 
# 533 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 533 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 533 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 533 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 533 "/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) 
# 533 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
                    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
 
# 542 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 542 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc end parallel loop
# 542 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 542 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 542 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$omp end target teams loop
# 542 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
 
 
# 544 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 544 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 544 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc parallel loop collapse(3) gang vector default(present) private(i, r, k) 
# 544 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 544 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 544 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 544 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 544 "/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) 
# 544 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
                    do i = eqn_idx%adv%beg, eqn_idx%adv%end
                        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
 
# 553 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 553 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc end parallel loop
# 553 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 553 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 553 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$omp end target teams loop
# 553 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
                end if
 
                ! PI4 of flux_rs_vf and flux_src_rs_vf at j = 1/2, 3/2
                if (weno_order == 5) 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)
 
 
# 561 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 561 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 561 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc parallel loop collapse(4) gang vector default(present) private(i, j, r, k) 
# 561 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 561 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 561 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 561 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 561 "/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) 
# 561 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
                    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
 
# 575 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 575 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc end parallel loop
# 575 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 575 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 575 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$omp end target teams loop
# 575 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
 
 
# 577 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 577 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 577 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc parallel loop collapse(4) gang vector default(present) private(i, j, r, k) 
# 577 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 577 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 577 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 577 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 577 "/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) 
# 577 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
                    do i = eqn_idx%adv%beg, eqn_idx%adv%end
                        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
 
# 592 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 592 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc end parallel loop
# 592 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 592 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 592 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$omp end target teams loop
# 592 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
                end if
 
                ! FD2 or FD4 of RHS at j = 0
 
# 596 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 596 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 596 "/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) 
# 596 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 596 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 596 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 596 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 596 "/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) 
# 596 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
# 601 "/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
 
# 604 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 604 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc loop seq 
# 604 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 604 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 604 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
                        do i = 1, eqn_idx%cont%end
                            alpha_rho(i) = q_prim_rsz_vf(0, k, r, i)
                        end do
 
 
# 609 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 609 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc loop seq 
# 609 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 609 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 609 "/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, eqn_idx%cont%end + i)
                        end do
 
                        vel_k_sum = 0._wp
 
# 615 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 615 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc loop seq 
# 615 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 615 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 615 "/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, eqn_idx%E)
 
 
# 622 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 622 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc loop seq 
# 622 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 622 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 622 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
                        do i = 1, eqn_idx%adv%end - eqn_idx%E
                            adv_local(i) = q_prim_rsz_vf(0, k, r, eqn_idx%E + i)
                        end do
 
                        call s_convert_species_to_mixture_variables_acc(rho, gamma, pi_inf, qv, adv_local, alpha_rho, re_cbc)
 
 
# 629 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 629 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc loop seq 
# 629 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 629 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 629 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
                        do i = 1, eqn_idx%cont%end
                            mf(i) = alpha_rho(i)/rho
                        end do
 
                        if (chemistry) then
 
# 635 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 635 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc loop seq 
# 635 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 635 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 635 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
                            do i = eqn_idx%species%beg, eqn_idx%species%end
                                ys(i - eqn_idx%species%beg + 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
 
 
# 668 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 668 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc loop seq 
# 668 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 668 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 668 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
                        do i = 1, eqn_idx%cont%end
                            dalpha_rho_ds(i) = 0._wp
                        end do
 
 
# 673 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 673 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc loop seq 
# 673 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 673 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 673 "/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
 
# 679 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 679 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc loop seq 
# 679 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 679 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 679 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
                        do i = 1, eqn_idx%adv%end - eqn_idx%E
                            dadv_ds(i) = 0._wp
                        end do
 
                        if (chemistry) then
 
# 685 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 685 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc loop seq 
# 685 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 685 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 685 "/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
 
 
# 691 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 691 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc loop seq 
# 691 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 691 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 691 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
                        do j = 0, buff_size
 
# 693 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 693 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc loop seq 
# 693 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 693 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 693 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
                            do i = 1, eqn_idx%cont%end
                                dalpha_rho_ds(i) = q_prim_rsz_vf(j, k, r, i)*fd_coef_z(j, cbc_loc) + dalpha_rho_ds(i)
                            end do
 
# 697 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 697 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc loop seq 
# 697 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 697 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 697 "/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, eqn_idx%cont%end + i)*fd_coef_z(j, &
                                        & cbc_loc) + dvel_ds(i)
                            end do
 
                            dpres_ds = q_prim_rsz_vf(j, k, r, eqn_idx%E)*fd_coef_z(j, cbc_loc) + dpres_ds
 
# 704 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 704 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc loop seq 
# 704 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 704 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 704 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
                            do i = 1, eqn_idx%adv%end - eqn_idx%E
                                dadv_ds(i) = q_prim_rsz_vf(j, k, r, eqn_idx%E + i)*fd_coef_z(j, cbc_loc) + dadv_ds(i)
                            end do
 
                            if (chemistry) then
 
# 710 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 710 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc loop seq 
# 710 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 710 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 710 "/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, eqn_idx%species%beg - 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. bc_z%beg == bc_char_slip_wall) .or. (cbc_loc == 1 &
                            & .and. bc_z%end == 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. bc_z%beg == bc_char_nr_sub_buffer) .or. (cbc_loc == 1 &
                                 & .and. bc_z%end == 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. bc_z%beg == bc_char_nr_sub_inflow) .or. (cbc_loc == 1 &
                                 & .and. bc_z%end == 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
 
# 737 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 737 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc loop seq 
# 737 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 737 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 737 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
                                do i = 2, eqn_idx%mom%beg
                                    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(eqn_idx%mom%beg + 1) = c*ma*(vel(dir_idx(2)) - vel_in(3, &
                                      & dir_idx(2)))/del_in(3)
                                    if (p > 0) then
                                        l(eqn_idx%mom%beg + 2) = c*ma*(vel(dir_idx(3)) - vel_in(3, &
                                          & dir_idx(3)))/del_in(3)
                                    end if
                                end if
 
# 750 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 750 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc loop seq 
# 750 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 750 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 750 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
                                do i = eqn_idx%E, eqn_idx%adv%end - 1
                                    l(i) = c*ma*(adv_local(i + 1 - eqn_idx%E) - alpha_in(i + 1 - eqn_idx%E, &
                                      & 3))/del_in(3)
                                end do
                                l(eqn_idx%adv%end) = 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. bc_z%beg == bc_char_nr_sub_outflow) .or. (cbc_loc == 1 &
                                 & .and. bc_z%end == 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(eqn_idx%adv%end) = 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(eqn_idx%adv%end) = l(eqn_idx%adv%end) + 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. bc_z%beg == bc_char_ff_sub_outflow) .or. (cbc_loc == 1 &
                                 & .and. bc_z%end == 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. bc_z%beg == bc_char_cp_sub_outflow) .or. (cbc_loc == 1 &
                                 & .and. bc_z%end == 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. bc_z%beg == bc_char_sup_inflow) .or. (cbc_loc == 1 &
                                 & .and. bc_z%end == bc_char_sup_inflow)) then
                            call s_compute_supersonic_inflow_l(l)
                        else if ((cbc_loc == -1 .and. bc_z%beg == bc_char_sup_outflow) .or. (cbc_loc == 1 &
                                 & .and. bc_z%end == 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(eqn_idx%adv%end) + l(1)) + rho*c*c*vel(dir_idx(1))/y_cc(n)
                        else
                            dpres_dt = -5.e-1_wp*(l(eqn_idx%adv%end) + l(1))
                        end if
 
 
# 797 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 797 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc loop seq 
# 797 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 797 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 797 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
                        do i = 1, eqn_idx%cont%end
                            dalpha_rho_dt(i) = -(l(i + 1) - mf(i)*dpres_dt)/(c*c)
                        end do
 
 
# 802 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 802 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc loop seq 
# 802 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 802 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 802 "/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(eqn_idx%adv%end))/(2._wp*rho*c) &
                                    & + (dir_flg(dir_idx(i)) - 1._wp)*l(eqn_idx%mom%beg + i - 1)
                        end do
 
                        vel_dv_dt_sum = 0._wp
 
# 809 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 809 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc loop seq 
# 809 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 809 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 809 "/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
 
# 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, num_species
                                dys_dt(i) = -1._wp*l(eqn_idx%species%beg + 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
 
# 823 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 823 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc loop seq 
# 823 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 823 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 823 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
                            do i = 1, eqn_idx%adv%end - eqn_idx%E
                                dadv_dt(i) = -l(eqn_idx%mom%end + i)  ! + adv_local(i) * vel(dir_idx(1))/y_cc(n)
                            end do
                        else
 
# 828 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 828 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc loop seq 
# 828 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 828 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 828 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
                            do i = 1, eqn_idx%adv%end - eqn_idx%E
                                dadv_dt(i) = -l(eqn_idx%mom%end + 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 == model_eqns_gamma_law) then
                            drho_dt = dalpha_rho_dt(1)
                            dgamma_dt = dadv_dt(1)
# 840 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
                                dpi_inf_dt = dadv_dt(2)
# 842 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
                        else
 
# 843 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 843 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc loop seq 
# 843 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 843 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 843 "/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
 
# 853 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 853 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc loop seq 
# 853 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 853 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 853 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
                        do i = 1, eqn_idx%cont%end
                            flux_rsz_vf_l(-1, k, r, i) = flux_rsz_vf_l(0, k, r, i) + ds(0)*dalpha_rho_dt(i)
                        end do
 
 
# 858 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 858 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc loop seq 
# 858 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 858 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 858 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
                        do i = eqn_idx%mom%beg, eqn_idx%mom%end
                            flux_rsz_vf_l(-1, k, r, i) = flux_rsz_vf_l(0, k, r, &
                                                & i) + ds(0)*(vel(i - eqn_idx%cont%end)*drho_dt + rho*dvel_dt(i - eqn_idx%cont%end))
                        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
 
# 869 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 869 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc loop seq 
# 869 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 869 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 869 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
                            do i = 1, num_species
                                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)
                            end do
                            flux_rsz_vf_l(-1, k, r, eqn_idx%E) = flux_rsz_vf_l(0, k, r, &
                                                & eqn_idx%E) + ds(0)*((e/rho + pres/rho)*drho_dt + rho*vel_dv_dt_sum + cp*t*l(2) &
                                                & /(c*c) + sum_enthalpies)
 
# 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 i = 1, num_species
                                flux_rsz_vf_l(-1, k, r, i - 1 + eqn_idx%species%beg) = flux_rsz_vf_l(0, k, r, &
                                                    & eqn_idx%species%beg + i - 1) + ds(0)*(drho_dt*ys(i) + rho*dys_dt(i))
                            end do
                        else
                            flux_rsz_vf_l(-1, k, r, eqn_idx%E) = flux_rsz_vf_l(0, k, r, &
                                                & eqn_idx%E) + 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 == riemann_solver_hll) then
 
# 889 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 889 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc loop seq 
# 889 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 889 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 889 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
                            do i = eqn_idx%adv%beg, eqn_idx%adv%end
                                flux_rsz_vf_l(-1, k, r, i) = 0._wp
                            end do
 
 
# 894 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 894 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc loop seq 
# 894 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 894 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 894 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
                            do i = eqn_idx%adv%beg, eqn_idx%adv%end
                                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 - eqn_idx%E))
                            end do
                        else
 
# 902 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 902 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc loop seq 
# 902 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 902 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 902 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
                            do i = eqn_idx%adv%beg, eqn_idx%adv%end
                                flux_rsz_vf_l(-1, k, r, i) = flux_rsz_vf_l(0, k, r, i) + ds(0)*dadv_dt(i - eqn_idx%E)
                            end do
 
 
# 907 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 907 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc loop seq 
# 907 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 907 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 907 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
                            do i = eqn_idx%adv%beg, eqn_idx%adv%end
                                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
 
# 915 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 915 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc end parallel loop
# 915 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 915 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 915 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$omp end target teams loop
# 915 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
            end if
# 918 "/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
 
    !> Set up the selected CBC for the current boundary
    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/)
        else if (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)
 
# 952 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 952 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc update device(is1, is2, is3, dj) 
# 952 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 952 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$omp target update to(is1, is2, is3, dj) 
# 952 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
 
# 953 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 953 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc update device(dir_idx, dir_flg) 
# 953 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 953 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$omp target update to(dir_idx, dir_flg) 
# 953 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
 
        ! Reshaping Inputted Data in x-direction
        if (cbc_dir == 1) then
 
# 957 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 957 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 957 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc parallel loop collapse(4) gang vector default(present) private(i, j, k, r) 
# 957 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 957 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 957 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 957 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 957 "/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) 
# 957 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
            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
 
# 967 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 967 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc end parallel loop
# 967 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 967 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 967 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$omp end target teams loop
# 967 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
 
 
# 969 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 969 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 969 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc parallel loop collapse(3) gang vector default(present) private(j, k, r) 
# 969 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 969 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 969 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 969 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 969 "/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) 
# 969 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
            do r = is3%beg, is3%end
                do k = is2%beg, is2%end
                    do j = 0, buff_size
                        q_prim_rsx_vf(j, k, r, eqn_idx%mom%beg) = q_prim_vf(eqn_idx%mom%beg)%sf(dj*(m - 2*j) + j, k, &
                                      & r)*sign(1._wp, -1._wp*cbc_loc)
                    end do
                end do
            end do
 
# 978 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 978 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc end parallel loop
# 978 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 978 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 978 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$omp end target teams loop
# 978 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
 
 
# 980 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 980 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 980 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc parallel loop collapse(4) gang vector default(present) private(i, j, k, r) 
# 980 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 980 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 980 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 980 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 980 "/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) 
# 980 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
            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
 
# 990 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 990 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc end parallel loop
# 990 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 990 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 990 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$omp end target teams loop
# 990 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
 
 
# 992 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 992 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 992 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc parallel loop collapse(3) gang vector default(present) private(j, k, r) 
# 992 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 992 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 992 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 992 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 992 "/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) 
# 992 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
            do r = is3%beg, is3%end
                do k = is2%beg, is2%end
                    do j = -1, buff_size
                        flux_rsx_vf_l(j, k, r, eqn_idx%mom%beg) = flux_vf(eqn_idx%mom%beg)%sf(dj*((m - 1) - 2*j) + j, k, r)
                    end do
                end do
            end do
 
# 1000 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 1000 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc end parallel loop
# 1000 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 1000 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 1000 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$omp end target teams loop
# 1000 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
 
            if (riemann_solver == riemann_solver_hll) then
 
# 1003 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 1003 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 1003 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc parallel loop collapse(4) gang vector default(present) private(i, j, k, r) 
# 1003 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 1003 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 1003 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 1003 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 1003 "/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) 
# 1003 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
                do i = eqn_idx%adv%beg, eqn_idx%adv%end
                    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
 
# 1013 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 1013 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc end parallel loop
# 1013 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 1013 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 1013 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$omp end target teams loop
# 1013 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
            else
 
# 1015 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 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 parallel loop collapse(3) gang vector default(present) private(j, k, r) 
# 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"
 
# 1015 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 1015 "/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) 
# 1015 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
                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, eqn_idx%adv%beg) = flux_src_vf(eqn_idx%adv%beg)%sf(dj*((m - 1) - 2*j) + j, &
                                              & k, r)*sign(1._wp, -1._wp*cbc_loc)
                        end do
                    end do
                end do
 
# 1024 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 1024 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc end parallel loop
# 1024 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 1024 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 1024 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$omp end target teams loop
# 1024 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
            end if
 
            ! END: Reshaping Inputted Data in x-direction
 
            ! Reshaping Inputted Data in y-direction
        else if (cbc_dir == 2) then
 
# 1031 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 1031 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 1031 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc parallel loop collapse(4) gang vector default(present) private(i, j, k, r) 
# 1031 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 1031 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 1031 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 1031 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 1031 "/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) 
# 1031 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
            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
 
# 1041 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 1041 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc end parallel loop
# 1041 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 1041 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 1041 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$omp end target teams loop
# 1041 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
 
 
# 1043 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 1043 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 1043 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc parallel loop collapse(3) gang vector default(present) private(j, k, r) 
# 1043 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 1043 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 1043 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 1043 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 1043 "/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) 
# 1043 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
            do r = is3%beg, is3%end
                do k = is2%beg, is2%end
                    do j = 0, buff_size
                        q_prim_rsy_vf(j, k, r, eqn_idx%mom%beg + 1) = q_prim_vf(eqn_idx%mom%beg + 1)%sf(k, dj*(n - 2*j) + j, &
                                      & r)*sign(1._wp, -1._wp*cbc_loc)
                    end do
                end do
            end do
 
# 1052 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 1052 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc end parallel loop
# 1052 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 1052 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 1052 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$omp end target teams loop
# 1052 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
 
 
# 1054 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 1054 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 1054 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc parallel loop collapse(4) gang vector default(present) private(i, j, k, r) 
# 1054 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 1054 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 1054 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 1054 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 1054 "/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) 
# 1054 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
            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
 
# 1064 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 1064 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc end parallel loop
# 1064 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 1064 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 1064 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$omp end target teams loop
# 1064 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
 
 
# 1066 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 1066 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 1066 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc parallel loop collapse(3) gang vector default(present) private(j, k, r) 
# 1066 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 1066 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 1066 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 1066 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 1066 "/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) 
# 1066 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
            do r = is3%beg, is3%end
                do k = is2%beg, is2%end
                    do j = -1, buff_size
                        flux_rsy_vf_l(j, k, r, eqn_idx%mom%beg + 1) = flux_vf(eqn_idx%mom%beg + 1)%sf(k, dj*((n - 1) - 2*j) + j, r)
                    end do
                end do
            end do
 
# 1074 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 1074 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc end parallel loop
# 1074 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 1074 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 1074 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$omp end target teams loop
# 1074 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
 
            if (riemann_solver == riemann_solver_hll) then
 
# 1077 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 1077 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 1077 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc parallel loop collapse(4) gang vector default(present) private(i, j, k, r) 
# 1077 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 1077 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 1077 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 1077 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 1077 "/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) 
# 1077 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
                do i = eqn_idx%adv%beg, eqn_idx%adv%end
                    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
 
# 1087 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 1087 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc end parallel loop
# 1087 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 1087 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 1087 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$omp end target teams loop
# 1087 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
            else
 
# 1089 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 1089 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 1089 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc parallel loop collapse(3) gang vector default(present) private(j, k, r) 
# 1089 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 1089 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 1089 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 1089 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 1089 "/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) 
# 1089 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
                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, eqn_idx%adv%beg) = flux_src_vf(eqn_idx%adv%beg)%sf(k, &
                                              & dj*((n - 1) - 2*j) + j, r)*sign(1._wp, -1._wp*cbc_loc)
                        end do
                    end do
                end do
 
# 1098 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 1098 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc end parallel loop
# 1098 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 1098 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 1098 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$omp end target teams loop
# 1098 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
            end if
 
            ! END: Reshaping Inputted Data in y-direction
 
            ! Reshaping Inputted Data in z-direction
        else
 
# 1105 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 1105 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 1105 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc parallel loop collapse(4) gang vector default(present) private(i, j, k, r) 
# 1105 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 1105 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 1105 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 1105 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 1105 "/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) 
# 1105 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
            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
 
# 1115 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 1115 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc end parallel loop
# 1115 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 1115 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 1115 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$omp end target teams loop
# 1115 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
 
 
# 1117 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 1117 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 1117 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc parallel loop collapse(3) gang vector default(present) private(j, k, r) 
# 1117 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 1117 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 1117 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 1117 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 1117 "/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) 
# 1117 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
            do r = is3%beg, is3%end
                do k = is2%beg, is2%end
                    do j = 0, buff_size
                        q_prim_rsz_vf(j, k, r, eqn_idx%mom%end) = q_prim_vf(eqn_idx%mom%end)%sf(r, k, &
                                      & dj*(p - 2*j) + j)*sign(1._wp, -1._wp*cbc_loc)
                    end do
                end do
            end do
 
# 1126 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 1126 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc end parallel loop
# 1126 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 1126 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 1126 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$omp end target teams loop
# 1126 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
 
 
# 1128 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 1128 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 1128 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc parallel loop collapse(4) gang vector default(present) private(i, j, k, r) 
# 1128 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 1128 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 1128 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 1128 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 1128 "/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) 
# 1128 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
            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
 
# 1138 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 1138 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc end parallel loop
# 1138 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 1138 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 1138 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$omp end target teams loop
# 1138 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
 
 
# 1140 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 1140 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 1140 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc parallel loop collapse(3) gang vector default(present) private(j, k, r) 
# 1140 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 1140 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 1140 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 1140 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 1140 "/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) 
# 1140 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
            do r = is3%beg, is3%end
                do k = is2%beg, is2%end
                    do j = -1, buff_size
                        flux_rsz_vf_l(j, k, r, eqn_idx%mom%end) = flux_vf(eqn_idx%mom%end)%sf(r, k, dj*((p - 1) - 2*j) + j)
                    end do
                end do
            end do
 
# 1148 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 1148 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc end parallel loop
# 1148 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 1148 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 1148 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$omp end target teams loop
# 1148 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
 
            if (riemann_solver == riemann_solver_hll) then
 
# 1151 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 1151 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 1151 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc parallel loop collapse(4) gang vector default(present) private(i, j, k, r) 
# 1151 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 1151 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 1151 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 1151 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 1151 "/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) 
# 1151 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
                do i = eqn_idx%adv%beg, eqn_idx%adv%end
                    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
 
# 1161 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 1161 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc end parallel loop
# 1161 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 1161 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 1161 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$omp end target teams loop
# 1161 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
            else
 
# 1163 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 1163 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 1163 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc parallel loop collapse(3) gang vector default(present) private(j, k, r) 
# 1163 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 1163 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 1163 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 1163 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 1163 "/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) 
# 1163 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
                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, eqn_idx%adv%beg) = flux_src_vf(eqn_idx%adv%beg)%sf(r, k, &
                                              & dj*((p - 1) - 2*j) + j)*sign(1._wp, -1._wp*cbc_loc)
                        end do
                    end do
                end do
 
# 1172 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 1172 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc end parallel loop
# 1172 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 1172 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 1172 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$omp end target teams loop
# 1172 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
            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
    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)
 
# 1190 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 1190 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc update device(dj) 
# 1190 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 1190 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$omp target update to(dj) 
# 1190 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
 
        ! Reshaping Outputted Data in x-direction
        if (cbc_dir == 1) then
 
# 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(4) gang vector default(present) private(i, 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(4) defaultmap(tofrom:aggregate) defaultmap(tofrom:allocatable) defaultmap(tofrom:pointer) private(i, j, k, r) 
# 1194 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
            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
 
# 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"
!$omp end target teams loop
# 1204 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
 
# 1205 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 1205 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 1205 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc parallel loop collapse(3) gang vector default(present) private(j, k, r) 
# 1205 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 1205 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 1205 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 1205 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 1205 "/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) 
# 1205 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
            do r = is3%beg, is3%end
                do k = is2%beg, is2%end
                    do j = -1, buff_size
                        flux_vf(eqn_idx%mom%beg)%sf(dj*((m - 1) - 2*j) + j, k, r) = flux_rsx_vf_l(j, k, r, eqn_idx%mom%beg)
                    end do
                end do
            end do
 
# 1213 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 1213 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc end parallel loop
# 1213 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 1213 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 1213 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$omp end target teams loop
# 1213 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
 
            if (riemann_solver == riemann_solver_hll) then
 
# 1216 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 1216 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 1216 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc parallel loop collapse(4) gang vector default(present) private(i, j, k, r) 
# 1216 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 1216 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 1216 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 1216 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 1216 "/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) 
# 1216 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
                do i = eqn_idx%adv%beg, eqn_idx%adv%end
                    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
 
# 1226 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 1226 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc end parallel loop
# 1226 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 1226 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 1226 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$omp end target teams loop
# 1226 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
            else
 
# 1228 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 1228 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 1228 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc parallel loop collapse(3) gang vector default(present) private(j, k, r) 
# 1228 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 1228 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 1228 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 1228 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 1228 "/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) 
# 1228 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
                do r = is3%beg, is3%end
                    do k = is2%beg, is2%end
                        do j = -1, buff_size
                            flux_src_vf(eqn_idx%adv%beg)%sf(dj*((m - 1) - 2*j) + j, k, r) = flux_src_rsx_vf_l(j, k, r, &
                                        & eqn_idx%adv%beg)*sign(1._wp, -1._wp*cbc_loc)
                        end do
                    end do
                end do
 
# 1237 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 1237 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc end parallel loop
# 1237 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 1237 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 1237 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$omp end target teams loop
# 1237 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
            end if
            ! END: Reshaping Outputted Data in x-direction
 
            ! Reshaping Outputted Data in y-direction
        else if (cbc_dir == 2) then
 
# 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 parallel loop collapse(4) gang vector default(present) private(i, j, k, r) 
# 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"
 
# 1243 "/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) 
# 1243 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
            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
 
# 1253 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 1253 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc end parallel loop
# 1253 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 1253 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 1253 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$omp end target teams loop
# 1253 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
 
 
# 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 parallel loop collapse(3) gang vector default(present) private(j, k, r) 
# 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"
 
# 1255 "/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) 
# 1255 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
            do r = is3%beg, is3%end
                do k = is2%beg, is2%end
                    do j = -1, buff_size
                        flux_vf(eqn_idx%mom%beg + 1)%sf(k, dj*((n - 1) - 2*j) + j, r) = flux_rsy_vf_l(j, k, r, eqn_idx%mom%beg + 1)
                    end do
                end do
            end do
 
# 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 end parallel loop
# 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"
!$omp end target teams loop
# 1263 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
 
            if (riemann_solver == riemann_solver_hll) then
 
# 1266 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 1266 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 1266 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc parallel loop collapse(4) gang vector default(present) private(i, j, k, r) 
# 1266 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 1266 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 1266 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 1266 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 1266 "/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) 
# 1266 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
                do i = eqn_idx%adv%beg, eqn_idx%adv%end
                    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
 
# 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 end parallel loop
# 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"
!$omp end target teams loop
# 1276 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
            else
 
# 1278 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 1278 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 1278 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc parallel loop collapse(3) gang vector default(present) private(j, k, r) 
# 1278 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 1278 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 1278 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 1278 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 1278 "/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) 
# 1278 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
                do r = is3%beg, is3%end
                    do k = is2%beg, is2%end
                        do j = -1, buff_size
                            flux_src_vf(eqn_idx%adv%beg)%sf(k, dj*((n - 1) - 2*j) + j, r) = flux_src_rsy_vf_l(j, k, r, &
                                        & eqn_idx%adv%beg)*sign(1._wp, -1._wp*cbc_loc)
                        end do
                    end do
                end do
 
# 1287 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 1287 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc end parallel loop
# 1287 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 1287 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 1287 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$omp end target teams loop
# 1287 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
            end if
 
            ! END: Reshaping Outputted Data in y-direction
 
            ! Reshaping Outputted Data in z-direction
        else
 
# 1294 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 1294 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 1294 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc parallel loop collapse(4) gang vector default(present) private(i, j, k, r) 
# 1294 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 1294 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 1294 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 1294 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 1294 "/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) 
# 1294 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
            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
 
# 1304 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 1304 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc end parallel loop
# 1304 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 1304 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 1304 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$omp end target teams loop
# 1304 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
 
 
# 1306 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 1306 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 1306 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc parallel loop collapse(3) gang vector default(present) private(j, k, r) 
# 1306 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 1306 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 1306 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 1306 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 1306 "/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) 
# 1306 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
            do r = is3%beg, is3%end
                do k = is2%beg, is2%end
                    do j = -1, buff_size
                        flux_vf(eqn_idx%mom%end)%sf(r, k, dj*((p - 1) - 2*j) + j) = flux_rsz_vf_l(j, k, r, eqn_idx%mom%end)
                    end do
                end do
            end do
 
# 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 end parallel loop
# 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"
!$omp end target teams loop
# 1314 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
 
            if (riemann_solver == riemann_solver_hll) then
 
# 1317 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 1317 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 1317 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc parallel loop collapse(4) gang vector default(present) private(i, j, k, r) 
# 1317 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 1317 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 1317 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 1317 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 1317 "/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) 
# 1317 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
                do i = eqn_idx%adv%beg, eqn_idx%adv%end
                    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
 
# 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 end parallel loop
# 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"
!$omp end target teams loop
# 1327 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
            else
 
# 1329 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 1329 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 1329 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc parallel loop collapse(3) gang vector default(present) private(j, k, r) 
# 1329 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 1329 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 1329 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 1329 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 1329 "/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) 
# 1329 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
                do r = is3%beg, is3%end
                    do k = is2%beg, is2%end
                        do j = -1, buff_size
                            flux_src_vf(eqn_idx%adv%beg)%sf(r, k, dj*((p - 1) - 2*j) + j) = flux_src_rsz_vf_l(j, k, r, &
                                        & eqn_idx%adv%beg)*sign(1._wp, -1._wp*cbc_loc)
                        end do
                    end do
                end do
 
# 1338 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 1338 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc end parallel loop
# 1338 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 1338 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 1338 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$omp end target teams loop
# 1338 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
            end if
        end if
        ! END: Reshaping Outputted Data in z-direction
 
    end subroutine s_finalize_cbc
 
    !> Detect whether any domain boundary uses characteristic boundary conditions
    elemental subroutine s_any_cbc_boundaries(toggle)
 
        logical, intent(inout) :: toggle
 
        toggle = .false.
 
# 1353 "/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
# 1353 "/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
# 1353 "/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
# 1353 "/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
# 1353 "/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
# 1353 "/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
# 1353 "/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
# 1353 "/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
# 1353 "/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
# 1357 "/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
# 1370 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
    block
# 1370 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
        use iso_fortran_env, only: output_unit
# 1370 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 1370 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
        print *, 'm_cbc.fpp:1370: ', '@:DEALLOCATE(q_prim_rsx_vf)'
# 1370 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 1370 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
        call flush (output_unit)
# 1370 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
    end block
# 1370 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
# 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 exit data delete(q_prim_rsx_vf) 
# 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"
!$omp target exit data map(release:q_prim_rsx_vf) 
# 1370 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
# 1370 "/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
# 1372 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
    block
# 1372 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
        use iso_fortran_env, only: output_unit
# 1372 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 1372 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
        print *, 'm_cbc.fpp:1372: ', '@:DEALLOCATE(F_rsx_vf, F_src_rsx_vf)'
# 1372 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 1372 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
        call flush (output_unit)
# 1372 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
    end block
# 1372 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
# 1372 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 1372 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 1372 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc exit data delete(F_rsx_vf, F_src_rsx_vf) 
# 1372 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 1372 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$omp target exit data map(release:F_rsx_vf, F_src_rsx_vf) 
# 1372 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
# 1372 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
    deallocate (f_rsx_vf, f_src_rsx_vf)
        end if
#ifdef MFC_DEBUG
# 1374 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
    block
# 1374 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
        use iso_fortran_env, only: output_unit
# 1374 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 1374 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
        print *, 'm_cbc.fpp:1374: ', '@:DEALLOCATE(flux_rsx_vf_l, flux_src_rsx_vf_l)'
# 1374 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 1374 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
        call flush (output_unit)
# 1374 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
    end block
# 1374 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
# 1374 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 1374 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 1374 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc exit data delete(flux_rsx_vf_l, flux_src_rsx_vf_l) 
# 1374 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 1374 "/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) 
# 1374 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
# 1374 "/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
# 1377 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
    block
# 1377 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
        use iso_fortran_env, only: output_unit
# 1377 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 1377 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
        print *, 'm_cbc.fpp:1377: ', '@:DEALLOCATE(q_prim_rsy_vf)'
# 1377 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 1377 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
        call flush (output_unit)
# 1377 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
    end block
# 1377 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
# 1377 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 1377 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 1377 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc exit data delete(q_prim_rsy_vf) 
# 1377 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 1377 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$omp target exit data map(release:q_prim_rsy_vf) 
# 1377 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
# 1377 "/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
# 1379 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
    block
# 1379 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
        use iso_fortran_env, only: output_unit
# 1379 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 1379 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
        print *, 'm_cbc.fpp:1379: ', '@:DEALLOCATE(F_rsy_vf, F_src_rsy_vf)'
# 1379 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 1379 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
        call flush (output_unit)
# 1379 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
    end block
# 1379 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
# 1379 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 1379 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 1379 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc exit data delete(F_rsy_vf, F_src_rsy_vf) 
# 1379 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 1379 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$omp target exit data map(release:F_rsy_vf, F_src_rsy_vf) 
# 1379 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
# 1379 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
    deallocate (f_rsy_vf, f_src_rsy_vf)
            end if
#ifdef MFC_DEBUG
# 1381 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
    block
# 1381 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
        use iso_fortran_env, only: output_unit
# 1381 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 1381 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
        print *, 'm_cbc.fpp:1381: ', '@:DEALLOCATE(flux_rsy_vf_l, flux_src_rsy_vf_l)'
# 1381 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 1381 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
        call flush (output_unit)
# 1381 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
    end block
# 1381 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
# 1381 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 1381 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 1381 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc exit data delete(flux_rsy_vf_l, flux_src_rsy_vf_l) 
# 1381 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 1381 "/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) 
# 1381 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
# 1381 "/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
# 1384 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
    block
# 1384 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
        use iso_fortran_env, only: output_unit
# 1384 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 1384 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
        print *, 'm_cbc.fpp:1384: ', '@:DEALLOCATE(q_prim_rsz_vf)'
# 1384 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 1384 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
        call flush (output_unit)
# 1384 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
    end block
# 1384 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
# 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 exit data delete(q_prim_rsz_vf) 
# 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"
!$omp target exit data map(release:q_prim_rsz_vf) 
# 1384 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
# 1384 "/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
# 1386 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
    block
# 1386 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
        use iso_fortran_env, only: output_unit
# 1386 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 1386 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
        print *, 'm_cbc.fpp:1386: ', '@:DEALLOCATE(F_rsz_vf, F_src_rsz_vf)'
# 1386 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 1386 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
        call flush (output_unit)
# 1386 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
    end block
# 1386 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
# 1386 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 1386 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 1386 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc exit data delete(F_rsz_vf, F_src_rsz_vf) 
# 1386 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 1386 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$omp target exit data map(release:F_rsz_vf, F_src_rsz_vf) 
# 1386 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
# 1386 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
    deallocate (f_rsz_vf, f_src_rsz_vf)
            end if
#ifdef MFC_DEBUG
# 1388 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
    block
# 1388 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
        use iso_fortran_env, only: output_unit
# 1388 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 1388 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
        print *, 'm_cbc.fpp:1388: ', '@:DEALLOCATE(flux_rsz_vf_l, flux_src_rsz_vf_l)'
# 1388 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 1388 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
        call flush (output_unit)
# 1388 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
    end block
# 1388 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
# 1388 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 1388 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 1388 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc exit data delete(flux_rsz_vf_l, flux_src_rsz_vf_l) 
# 1388 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 1388 "/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) 
# 1388 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
# 1388 "/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
# 1392 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
    block
# 1392 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
        use iso_fortran_env, only: output_unit
# 1392 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 1392 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
        print *, 'm_cbc.fpp:1392: ', '@:DEALLOCATE(ds)'
# 1392 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 1392 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
        call flush (output_unit)
# 1392 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
    end block
# 1392 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
# 1392 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 1392 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 1392 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc exit data delete(ds) 
# 1392 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 1392 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$omp target exit data map(release:ds) 
# 1392 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
# 1392 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
    deallocate (ds)
 
        ! Deallocating GRCBC inputs
#ifdef MFC_DEBUG
# 1395 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
    block
# 1395 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
        use iso_fortran_env, only: output_unit
# 1395 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 1395 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
        print *, 'm_cbc.fpp:1395: ', '@:DEALLOCATE(vel_in, vel_out, pres_in, pres_out, Del_in, Del_out, alpha_rho_in, alpha_in)'
# 1395 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 1395 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
        call flush (output_unit)
# 1395 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
    end block
# 1395 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
# 1395 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 1395 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 1395 "/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) 
# 1395 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 1395 "/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) 
# 1395 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
# 1395 "/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
# 1400 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
    block
# 1400 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
        use iso_fortran_env, only: output_unit
# 1400 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 1400 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
        print *, 'm_cbc.fpp:1400: ', '@:DEALLOCATE(fd_coef_x)'
# 1400 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 1400 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
        call flush (output_unit)
# 1400 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
    end block
# 1400 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
# 1400 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 1400 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 1400 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc exit data delete(fd_coef_x) 
# 1400 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 1400 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$omp target exit data map(release:fd_coef_x) 
# 1400 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
# 1400 "/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
# 1402 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
    block
# 1402 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
        use iso_fortran_env, only: output_unit
# 1402 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 1402 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
        print *, 'm_cbc.fpp:1402: ', '@:DEALLOCATE(pi_coef_x)'
# 1402 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 1402 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
        call flush (output_unit)
# 1402 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
    end block
# 1402 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
# 1402 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 1402 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 1402 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc exit data delete(pi_coef_x) 
# 1402 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 1402 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$omp target exit data map(release:pi_coef_x) 
# 1402 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
# 1402 "/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
# 1410 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
    block
# 1410 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
        use iso_fortran_env, only: output_unit
# 1410 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 1410 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
        print *, 'm_cbc.fpp:1410: ', '@:DEALLOCATE(fd_coef_y)'
# 1410 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 1410 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
        call flush (output_unit)
# 1410 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
    end block
# 1410 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
# 1410 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 1410 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 1410 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc exit data delete(fd_coef_y) 
# 1410 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 1410 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$omp target exit data map(release:fd_coef_y) 
# 1410 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
# 1410 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
    deallocate (fd_coef_y)
                if (weno_order > 1) then
#ifdef MFC_DEBUG
# 1412 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
    block
# 1412 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
        use iso_fortran_env, only: output_unit
# 1412 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 1412 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
        print *, 'm_cbc.fpp:1412: ', '@:DEALLOCATE(pi_coef_y)'
# 1412 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 1412 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
        call flush (output_unit)
# 1412 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
    end block
# 1412 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
# 1412 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 1412 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 1412 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc exit data delete(pi_coef_y) 
# 1412 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 1412 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$omp target exit data map(release:pi_coef_y) 
# 1412 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
# 1412 "/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
# 1421 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
    block
# 1421 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
        use iso_fortran_env, only: output_unit
# 1421 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 1421 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
        print *, 'm_cbc.fpp:1421: ', '@:DEALLOCATE(fd_coef_z)'
# 1421 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 1421 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
        call flush (output_unit)
# 1421 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
    end block
# 1421 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
# 1421 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 1421 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 1421 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc exit data delete(fd_coef_z) 
# 1421 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 1421 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$omp target exit data map(release:fd_coef_z) 
# 1421 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
# 1421 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
    deallocate (fd_coef_z)
                if (weno_order > 1) then
#ifdef MFC_DEBUG
# 1423 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
    block
# 1423 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
        use iso_fortran_env, only: output_unit
# 1423 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 1423 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
        print *, 'm_cbc.fpp:1423: ', '@:DEALLOCATE(pi_coef_z)'
# 1423 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 1423 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
        call flush (output_unit)
# 1423 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
    end block
# 1423 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
# 1423 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 1423 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 1423 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc exit data delete(pi_coef_z) 
# 1423 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 1423 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$omp target exit data map(release:pi_coef_z) 
# 1423 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
# 1423 "/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