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_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
 
# 29 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 29 "/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) 
# 29 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 29 "/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) 
# 29 "/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
 
# 37 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 37 "/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) 
# 37 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 37 "/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) 
# 37 "/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
 
# 46 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 46 "/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) 
# 46 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 46 "/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) 
# 46 "/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
 
# 59 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 59 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc declare create(ds, fd_coef_x, fd_coef_y, fd_coef_z, pi_coef_x, pi_coef_y, pi_coef_z) 
# 59 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 59 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$omp declare target (ds, fd_coef_x, fd_coef_y, fd_coef_z, pi_coef_x, pi_coef_y, pi_coef_z) 
# 59 "/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
 
# 65 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 65 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc declare create(is1, is2, is3) 
# 65 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 65 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$omp declare target (is1, is2, is3) 
# 65 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
 
    integer :: dj
    integer :: cbc_dir, cbc_loc
    integer :: flux_cbc_index
 
# 70 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 70 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc declare create(dj) 
# 70 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 70 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$omp declare target (dj) 
# 70 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
 
# 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(cbc_dir, cbc_loc, flux_cbc_index) 
# 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 (cbc_dir, cbc_loc, flux_cbc_index) 
# 71 "/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
 
# 79 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 79 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc declare create(pres_in, pres_out, Del_in, Del_out) 
# 79 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 79 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$omp declare target (pres_in, pres_out, Del_in, Del_out) 
# 79 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
 
# 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(vel_in, vel_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 (vel_in, vel_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(alpha_rho_in, alpha_in) 
# 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 (alpha_rho_in, alpha_in) 
# 81 "/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
 
# 97 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 97 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc update device(flux_cbc_index) 
# 97 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 97 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$omp target update to(flux_cbc_index) 
# 97 "/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
# 118 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
    block
# 118 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
        use iso_fortran_env, only: output_unit
# 118 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 118 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
        print *, 'm_cbc.fpp:118: ', '@:ALLOCATE(q_prim_rsx_vf(0:buff_size, is2%beg:is2%end, is3%beg:is3%end, 1:sys_size))'
# 118 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 118 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
        call flush (output_unit)
# 118 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
    end block
# 118 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
# 118 "/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))
# 118 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 118 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 118 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 118 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc enter data create(q_prim_rsx_vf) 
# 118 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 118 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$omp target enter data map(always,alloc:q_prim_rsx_vf) 
# 118 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
 
        if (weno_order > 1 .or. muscl_order > 1) then
#ifdef MFC_DEBUG
# 121 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
    block
# 121 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
        use iso_fortran_env, only: output_unit
# 121 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 121 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
        print *, 'm_cbc.fpp:121: ', '@:ALLOCATE(F_rsx_vf(0:buff_size, is2%beg:is2%end, is3%beg:is3%end, 1:flux_cbc_index))'
# 121 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 121 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
        call flush (output_unit)
# 121 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
    end block
# 121 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
# 121 "/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))
# 121 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 121 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 121 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 121 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc enter data create(F_rsx_vf) 
# 121 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 121 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$omp target enter data map(always,alloc:F_rsx_vf) 
# 121 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
 
#ifdef MFC_DEBUG
# 123 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
    block
# 123 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
        use iso_fortran_env, only: output_unit
# 123 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 123 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
        print *, 'm_cbc.fpp:123: ', '@:ALLOCATE(F_src_rsx_vf(0:buff_size, is2%beg:is2%end, is3%beg:is3%end, eqn_idx%adv%beg:eqn_idx%adv%end))'
# 123 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 123 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
        call flush (output_unit)
# 123 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
    end block
# 123 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
# 123 "/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))
# 123 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 123 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 123 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 123 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc enter data create(F_src_rsx_vf) 
# 123 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 123 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$omp target enter data map(always,alloc:F_src_rsx_vf) 
# 123 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
        end if
 
#ifdef MFC_DEBUG
# 126 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
    block
# 126 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
        use iso_fortran_env, only: output_unit
# 126 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 126 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
        print *, 'm_cbc.fpp:126: ', '@:ALLOCATE(flux_rsx_vf_l(-1:buff_size, is2%beg:is2%end, is3%beg:is3%end, 1:flux_cbc_index))'
# 126 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 126 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
        call flush (output_unit)
# 126 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
    end block
# 126 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
# 126 "/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))
# 126 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 126 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 126 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 126 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc enter data create(flux_rsx_vf_l) 
# 126 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 126 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$omp target enter data map(always,alloc:flux_rsx_vf_l) 
# 126 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
 
#ifdef MFC_DEBUG
# 128 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
    block
# 128 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
        use iso_fortran_env, only: output_unit
# 128 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 128 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
        print *, 'm_cbc.fpp:128: ', '@: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))'
# 128 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 128 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
        call flush (output_unit)
# 128 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
    end block
# 128 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
# 128 "/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))
# 128 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 128 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 128 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 128 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc enter data create(flux_src_rsx_vf_l) 
# 128 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 128 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$omp target enter data map(always,alloc:flux_src_rsx_vf_l) 
# 128 "/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
# 146 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
    block
# 146 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
        use iso_fortran_env, only: output_unit
# 146 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 146 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
        print *, 'm_cbc.fpp:146: ', '@:ALLOCATE(q_prim_rsy_vf(0:buff_size, is2%beg:is2%end, is3%beg:is3%end, 1:sys_size))'
# 146 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 146 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
        call flush (output_unit)
# 146 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
    end block
# 146 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
# 146 "/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))
# 146 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 146 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 146 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 146 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc enter data create(q_prim_rsy_vf) 
# 146 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 146 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$omp target enter data map(always,alloc:q_prim_rsy_vf) 
# 146 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
 
            if (weno_order > 1 .or. muscl_order > 1) then
#ifdef MFC_DEBUG
# 149 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
    block
# 149 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
        use iso_fortran_env, only: output_unit
# 149 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 149 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
        print *, 'm_cbc.fpp:149: ', '@:ALLOCATE(F_rsy_vf(0:buff_size, is2%beg:is2%end, is3%beg:is3%end, 1:flux_cbc_index))'
# 149 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 149 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
        call flush (output_unit)
# 149 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
    end block
# 149 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
# 149 "/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))
# 149 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 149 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 149 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 149 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc enter data create(F_rsy_vf) 
# 149 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 149 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$omp target enter data map(always,alloc:F_rsy_vf) 
# 149 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
 
#ifdef MFC_DEBUG
# 151 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
    block
# 151 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
        use iso_fortran_env, only: output_unit
# 151 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 151 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
        print *, 'm_cbc.fpp:151: ', '@:ALLOCATE(F_src_rsy_vf(0:buff_size, is2%beg:is2%end, is3%beg:is3%end, eqn_idx%adv%beg:eqn_idx%adv%end))'
# 151 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 151 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
        call flush (output_unit)
# 151 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
    end block
# 151 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
# 151 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
    allocate (f_src_rsy_vf(0:buff_size, is2%beg:is2%end, is3%beg:is3%end, eqn_idx%adv%beg:eqn_idx%adv%end))
# 151 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 151 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 151 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 151 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc enter data create(F_src_rsy_vf) 
# 151 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 151 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$omp target enter data map(always,alloc:F_src_rsy_vf) 
# 151 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
            end if
 
#ifdef MFC_DEBUG
# 154 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
    block
# 154 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
        use iso_fortran_env, only: output_unit
# 154 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 154 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
        print *, 'm_cbc.fpp:154: ', '@:ALLOCATE(flux_rsy_vf_l(-1:buff_size, is2%beg:is2%end, is3%beg:is3%end, 1:flux_cbc_index))'
# 154 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 154 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
        call flush (output_unit)
# 154 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
    end block
# 154 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
# 154 "/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))
# 154 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 154 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 154 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 154 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc enter data create(flux_rsy_vf_l) 
# 154 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 154 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$omp target enter data map(always,alloc:flux_rsy_vf_l) 
# 154 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
 
#ifdef MFC_DEBUG
# 156 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
    block
# 156 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
        use iso_fortran_env, only: output_unit
# 156 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 156 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
        print *, 'm_cbc.fpp:156: ', '@: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))'
# 156 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 156 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
        call flush (output_unit)
# 156 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
    end block
# 156 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
# 156 "/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))
# 156 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 156 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 156 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 156 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc enter data create(flux_src_rsy_vf_l) 
# 156 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 156 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$omp target enter data map(always,alloc:flux_src_rsy_vf_l) 
# 156 "/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
# 175 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
    block
# 175 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
        use iso_fortran_env, only: output_unit
# 175 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 175 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
        print *, 'm_cbc.fpp:175: ', '@:ALLOCATE(q_prim_rsz_vf(0:buff_size, is2%beg:is2%end, is3%beg:is3%end, 1:sys_size))'
# 175 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 175 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
        call flush (output_unit)
# 175 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
    end block
# 175 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
# 175 "/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))
# 175 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 175 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 175 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 175 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc enter data create(q_prim_rsz_vf) 
# 175 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 175 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$omp target enter data map(always,alloc:q_prim_rsz_vf) 
# 175 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
 
            if (weno_order > 1 .or. muscl_order > 1) then
#ifdef MFC_DEBUG
# 178 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
    block
# 178 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
        use iso_fortran_env, only: output_unit
# 178 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 178 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
        print *, 'm_cbc.fpp:178: ', '@:ALLOCATE(F_rsz_vf(0:buff_size, is2%beg:is2%end, is3%beg:is3%end, 1:flux_cbc_index))'
# 178 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 178 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
        call flush (output_unit)
# 178 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
    end block
# 178 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
# 178 "/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))
# 178 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 178 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 178 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 178 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc enter data create(F_rsz_vf) 
# 178 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 178 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$omp target enter data map(always,alloc:F_rsz_vf) 
# 178 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
 
#ifdef MFC_DEBUG
# 180 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
    block
# 180 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
        use iso_fortran_env, only: output_unit
# 180 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 180 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
        print *, 'm_cbc.fpp:180: ', '@:ALLOCATE(F_src_rsz_vf(0:buff_size, is2%beg:is2%end, is3%beg:is3%end, eqn_idx%adv%beg:eqn_idx%adv%end))'
# 180 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 180 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
        call flush (output_unit)
# 180 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
    end block
# 180 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
# 180 "/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))
# 180 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 180 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 180 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 180 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc enter data create(F_src_rsz_vf) 
# 180 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 180 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$omp target enter data map(always,alloc:F_src_rsz_vf) 
# 180 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
            end if
 
#ifdef MFC_DEBUG
# 183 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
    block
# 183 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
        use iso_fortran_env, only: output_unit
# 183 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 183 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
        print *, 'm_cbc.fpp:183: ', '@:ALLOCATE(flux_rsz_vf_l(-1:buff_size, is2%beg:is2%end, is3%beg:is3%end, 1:flux_cbc_index))'
# 183 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 183 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
        call flush (output_unit)
# 183 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
    end block
# 183 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
# 183 "/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))
# 183 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 183 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 183 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 183 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc enter data create(flux_rsz_vf_l) 
# 183 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 183 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$omp target enter data map(always,alloc:flux_rsz_vf_l) 
# 183 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
 
#ifdef MFC_DEBUG
# 185 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
    block
# 185 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
        use iso_fortran_env, only: output_unit
# 185 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 185 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
        print *, 'm_cbc.fpp:185: ', '@: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))'
# 185 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 185 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
        call flush (output_unit)
# 185 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
    end block
# 185 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
# 185 "/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))
# 185 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 185 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 185 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 185 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc enter data create(flux_src_rsz_vf_l) 
# 185 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 185 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$omp target enter data map(always,alloc:flux_src_rsz_vf_l) 
# 185 "/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
# 189 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
    block
# 189 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
        use iso_fortran_env, only: output_unit
# 189 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 189 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
        print *, 'm_cbc.fpp:189: ', '@:ALLOCATE(ds(0:buff_size))'
# 189 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 189 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
        call flush (output_unit)
# 189 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
    end block
# 189 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
# 189 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
    allocate (ds(0:buff_size))
# 189 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 189 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 189 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 189 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc enter data create(ds) 
# 189 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 189 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$omp target enter data map(always,alloc:ds) 
# 189 "/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
# 204 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
    block
# 204 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
        use iso_fortran_env, only: output_unit
# 204 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 204 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
        print *, 'm_cbc.fpp:204: ', '@:ALLOCATE(fd_coef_x(0:buff_size, -1:1))'
# 204 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 204 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
        call flush (output_unit)
# 204 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
    end block
# 204 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
# 204 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
    allocate (fd_coef_x(0:buff_size, -1:1))
# 204 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 204 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 204 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 204 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc enter data create(fd_coef_x) 
# 204 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 204 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$omp target enter data map(always,alloc:fd_coef_x) 
# 204 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
 
            if (weno_order > 1 .or. muscl_order > 1) then
#ifdef MFC_DEBUG
# 207 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
    block
# 207 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
        use iso_fortran_env, only: output_unit
# 207 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 207 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
        print *, 'm_cbc.fpp:207: ', '@:ALLOCATE(pi_coef_x(idx1%beg:idx1%end, idx2%beg:idx2%end, -1:1))'
# 207 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 207 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
        call flush (output_unit)
# 207 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
    end block
# 207 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
# 207 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
    allocate (pi_coef_x(idx1%beg:idx1%end, idx2%beg:idx2%end, -1:1))
# 207 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 207 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 207 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 207 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc enter data create(pi_coef_x) 
# 207 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 207 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$omp target enter data map(always,alloc:pi_coef_x) 
# 207 "/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
# 213 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
    block
# 213 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
        use iso_fortran_env, only: output_unit
# 213 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 213 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
        print *, 'm_cbc.fpp:213: ', '@:ALLOCATE(fd_coef_x(0:buff_size, -1:-1))'
# 213 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 213 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
        call flush (output_unit)
# 213 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
    end block
# 213 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
# 213 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
    allocate (fd_coef_x(0:buff_size, -1:-1))
# 213 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 213 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 213 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 213 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc enter data create(fd_coef_x) 
# 213 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 213 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$omp target enter data map(always,alloc:fd_coef_x) 
# 213 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
 
            if (weno_order > 1 .or. muscl_order > 1) then
#ifdef MFC_DEBUG
# 216 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
    block
# 216 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
        use iso_fortran_env, only: output_unit
# 216 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 216 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
        print *, 'm_cbc.fpp:216: ', '@:ALLOCATE(pi_coef_x(idx1%beg:idx1%end, idx2%beg:idx2%end, -1:-1))'
# 216 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 216 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
        call flush (output_unit)
# 216 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
    end block
# 216 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
# 216 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
    allocate (pi_coef_x(idx1%beg:idx1%end, idx2%beg:idx2%end, -1:-1))
# 216 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 216 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 216 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 216 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc enter data create(pi_coef_x) 
# 216 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 216 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$omp target enter data map(always,alloc:pi_coef_x) 
# 216 "/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
# 221 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
    block
# 221 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
        use iso_fortran_env, only: output_unit
# 221 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 221 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
        print *, 'm_cbc.fpp:221: ', '@:ALLOCATE(fd_coef_x(0:buff_size, 1:1))'
# 221 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 221 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
        call flush (output_unit)
# 221 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
    end block
# 221 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
# 221 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
    allocate (fd_coef_x(0:buff_size, 1:1))
# 221 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 221 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 221 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 221 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc enter data create(fd_coef_x) 
# 221 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 221 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$omp target enter data map(always,alloc:fd_coef_x) 
# 221 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
 
            if (weno_order > 1 .or. muscl_order > 1) then
#ifdef MFC_DEBUG
# 224 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
    block
# 224 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
        use iso_fortran_env, only: output_unit
# 224 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 224 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
        print *, 'm_cbc.fpp:224: ', '@:ALLOCATE(pi_coef_x(idx1%beg:idx1%end, idx2%beg:idx2%end, 1:1))'
# 224 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 224 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
        call flush (output_unit)
# 224 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
    end block
# 224 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
# 224 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
    allocate (pi_coef_x(idx1%beg:idx1%end, idx2%beg:idx2%end, 1:1))
# 224 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 224 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 224 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 224 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc enter data create(pi_coef_x) 
# 224 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 224 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$omp target enter data map(always,alloc:pi_coef_x) 
# 224 "/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
# 233 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
    block
# 233 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
        use iso_fortran_env, only: output_unit
# 233 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 233 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
        print *, 'm_cbc.fpp:233: ', '@:ALLOCATE(fd_coef_y(0:buff_size, -1:1))'
# 233 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 233 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
        call flush (output_unit)
# 233 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
    end block
# 233 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
# 233 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
    allocate (fd_coef_y(0:buff_size, -1:1))
# 233 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 233 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 233 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 233 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc enter data create(fd_coef_y) 
# 233 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 233 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$omp target enter data map(always,alloc:fd_coef_y) 
# 233 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
 
                if (weno_order > 1 .or. muscl_order > 1) then
#ifdef MFC_DEBUG
# 236 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
    block
# 236 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
        use iso_fortran_env, only: output_unit
# 236 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 236 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
        print *, 'm_cbc.fpp:236: ', '@:ALLOCATE(pi_coef_y(idx1%beg:idx1%end, idx2%beg:idx2%end, -1:1))'
# 236 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 236 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
        call flush (output_unit)
# 236 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
    end block
# 236 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
# 236 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
    allocate (pi_coef_y(idx1%beg:idx1%end, idx2%beg:idx2%end, -1:1))
# 236 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 236 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 236 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 236 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc enter data create(pi_coef_y) 
# 236 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 236 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$omp target enter data map(always,alloc:pi_coef_y) 
# 236 "/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
# 242 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
    block
# 242 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
        use iso_fortran_env, only: output_unit
# 242 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 242 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
        print *, 'm_cbc.fpp:242: ', '@:ALLOCATE(fd_coef_y(0:buff_size, -1:-1))'
# 242 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 242 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
        call flush (output_unit)
# 242 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
    end block
# 242 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
# 242 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
    allocate (fd_coef_y(0:buff_size, -1:-1))
# 242 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 242 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 242 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 242 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc enter data create(fd_coef_y) 
# 242 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 242 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$omp target enter data map(always,alloc:fd_coef_y) 
# 242 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
 
                if (weno_order > 1 .or. muscl_order > 1) then
#ifdef MFC_DEBUG
# 245 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
    block
# 245 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
        use iso_fortran_env, only: output_unit
# 245 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 245 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
        print *, 'm_cbc.fpp:245: ', '@:ALLOCATE(pi_coef_y(idx1%beg:idx1%end, idx2%beg:idx2%end, -1:-1))'
# 245 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 245 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
        call flush (output_unit)
# 245 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
    end block
# 245 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
# 245 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
    allocate (pi_coef_y(idx1%beg:idx1%end, idx2%beg:idx2%end, -1:-1))
# 245 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 245 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 245 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 245 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc enter data create(pi_coef_y) 
# 245 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 245 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$omp target enter data map(always,alloc:pi_coef_y) 
# 245 "/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
# 250 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
    block
# 250 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
        use iso_fortran_env, only: output_unit
# 250 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 250 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
        print *, 'm_cbc.fpp:250: ', '@:ALLOCATE(fd_coef_y(0:buff_size, 1:1))'
# 250 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 250 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
        call flush (output_unit)
# 250 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
    end block
# 250 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
# 250 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
    allocate (fd_coef_y(0:buff_size, 1:1))
# 250 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 250 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 250 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 250 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc enter data create(fd_coef_y) 
# 250 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 250 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$omp target enter data map(always,alloc:fd_coef_y) 
# 250 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
 
                if (weno_order > 1 .or. muscl_order > 1) then
#ifdef MFC_DEBUG
# 253 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
    block
# 253 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
        use iso_fortran_env, only: output_unit
# 253 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 253 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
        print *, 'm_cbc.fpp:253: ', '@:ALLOCATE(pi_coef_y(idx1%beg:idx1%end, idx2%beg:idx2%end, 1:1))'
# 253 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 253 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
        call flush (output_unit)
# 253 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
    end block
# 253 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
# 253 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
    allocate (pi_coef_y(idx1%beg:idx1%end, idx2%beg:idx2%end, 1:1))
# 253 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 253 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 253 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 253 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc enter data create(pi_coef_y) 
# 253 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 253 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$omp target enter data map(always,alloc:pi_coef_y) 
# 253 "/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
# 263 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
    block
# 263 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
        use iso_fortran_env, only: output_unit
# 263 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 263 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
        print *, 'm_cbc.fpp:263: ', '@:ALLOCATE(fd_coef_z(0:buff_size, -1:1))'
# 263 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 263 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
        call flush (output_unit)
# 263 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
    end block
# 263 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
# 263 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
    allocate (fd_coef_z(0:buff_size, -1:1))
# 263 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 263 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 263 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 263 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc enter data create(fd_coef_z) 
# 263 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 263 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$omp target enter data map(always,alloc:fd_coef_z) 
# 263 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
 
                if (weno_order > 1 .or. muscl_order > 1) then
#ifdef MFC_DEBUG
# 266 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
    block
# 266 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
        use iso_fortran_env, only: output_unit
# 266 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 266 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
        print *, 'm_cbc.fpp:266: ', '@:ALLOCATE(pi_coef_z(idx1%beg:idx1%end, idx2%beg:idx2%end, -1:1))'
# 266 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 266 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
        call flush (output_unit)
# 266 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
    end block
# 266 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
# 266 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
    allocate (pi_coef_z(idx1%beg:idx1%end, idx2%beg:idx2%end, -1:1))
# 266 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 266 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 266 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 266 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc enter data create(pi_coef_z) 
# 266 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 266 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$omp target enter data map(always,alloc:pi_coef_z) 
# 266 "/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
# 272 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
    block
# 272 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
        use iso_fortran_env, only: output_unit
# 272 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 272 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
        print *, 'm_cbc.fpp:272: ', '@:ALLOCATE(fd_coef_z(0:buff_size, -1:-1))'
# 272 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 272 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
        call flush (output_unit)
# 272 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
    end block
# 272 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
# 272 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
    allocate (fd_coef_z(0:buff_size, -1:-1))
# 272 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 272 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 272 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 272 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc enter data create(fd_coef_z) 
# 272 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 272 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$omp target enter data map(always,alloc:fd_coef_z) 
# 272 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
 
                if (weno_order > 1 .or. muscl_order > 1) then
#ifdef MFC_DEBUG
# 275 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
    block
# 275 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
        use iso_fortran_env, only: output_unit
# 275 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 275 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
        print *, 'm_cbc.fpp:275: ', '@:ALLOCATE(pi_coef_z(idx1%beg:idx1%end, idx2%beg:idx2%end, -1:-1))'
# 275 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 275 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
        call flush (output_unit)
# 275 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
    end block
# 275 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
# 275 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
    allocate (pi_coef_z(idx1%beg:idx1%end, idx2%beg:idx2%end, -1:-1))
# 275 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 275 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 275 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 275 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc enter data create(pi_coef_z) 
# 275 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 275 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$omp target enter data map(always,alloc:pi_coef_z) 
# 275 "/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
# 280 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
    block
# 280 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
        use iso_fortran_env, only: output_unit
# 280 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 280 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
        print *, 'm_cbc.fpp:280: ', '@:ALLOCATE(fd_coef_z(0:buff_size, 1:1))'
# 280 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 280 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
        call flush (output_unit)
# 280 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
    end block
# 280 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
# 280 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
    allocate (fd_coef_z(0:buff_size, 1:1))
# 280 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 280 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 280 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 280 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc enter data create(fd_coef_z) 
# 280 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 280 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$omp target enter data map(always,alloc:fd_coef_z) 
# 280 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
 
                if (weno_order > 1 .or. muscl_order > 1) then
#ifdef MFC_DEBUG
# 283 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
    block
# 283 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
        use iso_fortran_env, only: output_unit
# 283 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 283 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
        print *, 'm_cbc.fpp:283: ', '@:ALLOCATE(pi_coef_z(idx1%beg:idx1%end, idx2%beg:idx2%end, 1:1))'
# 283 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 283 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
        call flush (output_unit)
# 283 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
    end block
# 283 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
# 283 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
    allocate (pi_coef_z(idx1%beg:idx1%end, idx2%beg:idx2%end, 1:1))
# 283 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 283 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 283 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 283 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc enter data create(pi_coef_z) 
# 283 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 283 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$omp target enter data map(always,alloc:pi_coef_z) 
# 283 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
                end if
 
                call s_compute_cbc_coefficients(3, 1)
            end if
        end if
 
 
# 290 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 290 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc update device(fd_coef_x, fd_coef_y, fd_coef_z, pi_coef_x, pi_coef_y, pi_coef_z) 
# 290 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 290 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$omp target update to(fd_coef_x, fd_coef_y, fd_coef_z, pi_coef_x, pi_coef_y, pi_coef_z) 
# 290 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
 
        ! Allocate GRCBC inputs
#ifdef MFC_DEBUG
# 293 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
    block
# 293 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
        use iso_fortran_env, only: output_unit
# 293 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 293 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
        print *, 'm_cbc.fpp:293: ', '@:ALLOCATE(pres_in(1:num_dims), pres_out(1:num_dims))'
# 293 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 293 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
        call flush (output_unit)
# 293 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
    end block
# 293 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
# 293 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
    allocate (pres_in(1:num_dims), pres_out(1:num_dims))
# 293 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 293 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 293 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 293 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 293 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc enter data create(pres_in, pres_out) 
# 293 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 293 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$omp target enter data map(always,alloc:pres_in, pres_out) 
# 293 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
#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(Del_in(1:num_dims), Del_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 (del_in(1:num_dims), del_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(Del_in, Del_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:Del_in, Del_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(vel_in(1:num_dims, 1:num_dims), vel_out(1:num_dims, 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 (vel_in(1:num_dims, 1:num_dims), vel_out(1:num_dims, 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(vel_in, vel_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:vel_in, vel_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(alpha_rho_in(1:num_fluids, 1:num_dims), alpha_in(1:num_fluids, 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 (alpha_rho_in(1:num_fluids, 1:num_dims), alpha_in(1:num_fluids, 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(alpha_rho_in, alpha_in) 
# 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:alpha_rho_in, alpha_in) 
# 296 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
 
        ! Assign and update GRCBC inputs
# 300 "/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
# 300 "/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
# 300 "/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
# 321 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 321 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 321 "/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) 
# 321 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 321 "/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) 
# 321 "/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
# 352 "/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
# 352 "/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
# 352 "/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
# 402 "/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
 
 
# 458 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 458 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc update device(ds) 
# 458 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 458 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$omp target update to(ds) 
# 458 "/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
 
# 479 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
            real(wp), dimension(sys_size) :: l
# 481 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
# 490 "/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
# 498 "/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
 
 
# 519 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 519 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc update device(cbc_dir, cbc_loc) 
# 519 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 519 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$omp target update to(cbc_dir, cbc_loc) 
# 519 "/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)
 
# 526 "/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)
 
 
# 532 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 532 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 532 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc parallel loop collapse(3) gang vector default(present) private(i, r, k) 
# 532 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 532 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 532 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 532 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 532 "/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) 
# 532 "/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
 
# 541 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 541 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc end parallel loop
# 541 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 541 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 541 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$omp end target teams loop
# 541 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
 
 
# 543 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 543 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 543 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc parallel loop collapse(3) gang vector default(present) private(i, r, k) 
# 543 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 543 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 543 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 543 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 543 "/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) 
# 543 "/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
 
# 552 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 552 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc end parallel loop
# 552 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 552 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 552 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$omp end target teams loop
# 552 "/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)
 
 
# 560 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 560 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 560 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc parallel loop collapse(4) gang vector default(present) private(i, j, r, k) 
# 560 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 560 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 560 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 560 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 560 "/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) 
# 560 "/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
 
# 574 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 574 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc end parallel loop
# 574 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 574 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 574 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$omp end target teams loop
# 574 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
 
 
# 576 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 576 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 576 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc parallel loop collapse(4) gang vector default(present) private(i, j, r, k) 
# 576 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 576 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 576 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 576 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 576 "/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) 
# 576 "/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
 
# 591 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 591 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc end parallel loop
# 591 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 591 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 591 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$omp end target teams loop
# 591 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
                end if
 
                ! FD2 or FD4 of RHS at j = 0
 
# 595 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 595 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 595 "/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) 
# 595 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 595 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 595 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 595 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 595 "/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) 
# 595 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
# 600 "/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
 
# 603 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 603 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc loop seq 
# 603 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 603 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 603 "/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
 
 
# 608 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 608 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc loop seq 
# 608 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 608 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 608 "/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
 
# 614 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 614 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc loop seq 
# 614 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 614 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 614 "/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)
 
 
# 621 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 621 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc loop seq 
# 621 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 621 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 621 "/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)
 
 
# 628 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 628 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc loop seq 
# 628 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 628 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 628 "/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
 
# 634 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 634 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc loop seq 
# 634 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 634 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 634 "/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
 
 
# 667 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 667 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc loop seq 
# 667 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 667 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 667 "/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
 
 
# 672 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 672 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc loop seq 
# 672 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 672 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 672 "/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
 
# 678 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 678 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc loop seq 
# 678 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 678 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 678 "/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
 
# 684 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 684 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc loop seq 
# 684 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 684 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 684 "/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
 
 
# 690 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 690 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc loop seq 
# 690 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 690 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 690 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
                        do j = 0, buff_size
 
# 692 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 692 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc loop seq 
# 692 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 692 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 692 "/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
 
# 696 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 696 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc loop seq 
# 696 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 696 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 696 "/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
 
# 703 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 703 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc loop seq 
# 703 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 703 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 703 "/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
 
# 709 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 709 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc loop seq 
# 709 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 709 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 709 "/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
 
# 736 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 736 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc loop seq 
# 736 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 736 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 736 "/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
 
# 749 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 749 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc loop seq 
# 749 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 749 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 749 "/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
 
 
# 796 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 796 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc loop seq 
# 796 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 796 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 796 "/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
 
 
# 801 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 801 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc loop seq 
# 801 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 801 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 801 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
                        do i = 1, num_dims
                            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
 
# 808 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 808 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc loop seq 
# 808 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 808 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 808 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
                        do i = 1, num_dims
                            vel_dv_dt_sum = vel_dv_dt_sum + vel(i)*dvel_dt(i)
                        end do
 
                        if (chemistry) then
 
# 814 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 814 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc loop seq 
# 814 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 814 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 814 "/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
 
# 822 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 822 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc loop seq 
# 822 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 822 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 822 "/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
 
# 827 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 827 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc loop seq 
# 827 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 827 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 827 "/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 == 1) then
                            drho_dt = dalpha_rho_dt(1)
                            dgamma_dt = dadv_dt(1)
# 839 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
                                dpi_inf_dt = dadv_dt(2)
# 841 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
                        else
 
# 842 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 842 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc loop seq 
# 842 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 842 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 842 "/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
 
# 852 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 852 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc loop seq 
# 852 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 852 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 852 "/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
 
 
# 857 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 857 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc loop seq 
# 857 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 857 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 857 "/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
 
# 868 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 868 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc loop seq 
# 868 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 868 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 868 "/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)
 
# 876 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 876 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc loop seq 
# 876 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 876 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 876 "/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 == 1) then
 
# 888 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 888 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc loop seq 
# 888 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 888 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 888 "/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
 
 
# 893 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 893 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc loop seq 
# 893 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 893 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 893 "/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
 
# 901 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 901 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc loop seq 
# 901 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 901 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 901 "/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
 
 
# 906 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 906 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc loop seq 
# 906 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 906 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 906 "/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
 
# 914 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 914 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc end parallel loop
# 914 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 914 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 914 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$omp end target teams loop
# 914 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
            end if
# 526 "/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)
 
 
# 532 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 532 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 532 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc parallel loop collapse(3) gang vector default(present) private(i, r, k) 
# 532 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 532 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 532 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 532 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 532 "/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) 
# 532 "/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
 
# 541 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 541 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc end parallel loop
# 541 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 541 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 541 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$omp end target teams loop
# 541 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
 
 
# 543 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 543 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 543 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc parallel loop collapse(3) gang vector default(present) private(i, r, k) 
# 543 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 543 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 543 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 543 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 543 "/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) 
# 543 "/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
 
# 552 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 552 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc end parallel loop
# 552 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 552 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 552 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$omp end target teams loop
# 552 "/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)
 
 
# 560 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 560 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 560 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc parallel loop collapse(4) gang vector default(present) private(i, j, r, k) 
# 560 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 560 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 560 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 560 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 560 "/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) 
# 560 "/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
 
# 574 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 574 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc end parallel loop
# 574 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 574 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 574 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$omp end target teams loop
# 574 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
 
 
# 576 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 576 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 576 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc parallel loop collapse(4) gang vector default(present) private(i, j, r, k) 
# 576 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 576 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 576 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 576 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 576 "/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) 
# 576 "/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
 
# 591 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 591 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc end parallel loop
# 591 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 591 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 591 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$omp end target teams loop
# 591 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
                end if
 
                ! FD2 or FD4 of RHS at j = 0
 
# 595 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 595 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 595 "/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) 
# 595 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 595 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 595 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 595 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 595 "/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) 
# 595 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
# 600 "/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
 
# 603 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 603 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc loop seq 
# 603 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 603 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 603 "/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
 
 
# 608 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 608 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc loop seq 
# 608 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 608 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 608 "/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
 
# 614 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 614 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc loop seq 
# 614 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 614 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 614 "/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)
 
 
# 621 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 621 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc loop seq 
# 621 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 621 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 621 "/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)
 
 
# 628 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 628 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc loop seq 
# 628 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 628 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 628 "/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
 
# 634 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 634 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc loop seq 
# 634 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 634 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 634 "/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
 
 
# 667 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 667 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc loop seq 
# 667 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 667 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 667 "/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
 
 
# 672 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 672 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc loop seq 
# 672 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 672 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 672 "/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
 
# 678 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 678 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc loop seq 
# 678 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 678 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 678 "/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
 
# 684 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 684 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc loop seq 
# 684 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 684 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 684 "/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
 
 
# 690 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 690 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc loop seq 
# 690 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 690 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 690 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
                        do j = 0, buff_size
 
# 692 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 692 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc loop seq 
# 692 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 692 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 692 "/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
 
# 696 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 696 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc loop seq 
# 696 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 696 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 696 "/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
 
# 703 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 703 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc loop seq 
# 703 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 703 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 703 "/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
 
# 709 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 709 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc loop seq 
# 709 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 709 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 709 "/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
 
# 736 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 736 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc loop seq 
# 736 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 736 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 736 "/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
 
# 749 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 749 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc loop seq 
# 749 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 749 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 749 "/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
 
 
# 796 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 796 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc loop seq 
# 796 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 796 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 796 "/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
 
 
# 801 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 801 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc loop seq 
# 801 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 801 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 801 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
                        do i = 1, num_dims
                            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
 
# 808 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 808 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc loop seq 
# 808 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 808 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 808 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
                        do i = 1, num_dims
                            vel_dv_dt_sum = vel_dv_dt_sum + vel(i)*dvel_dt(i)
                        end do
 
                        if (chemistry) then
 
# 814 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 814 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc loop seq 
# 814 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 814 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 814 "/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
 
# 822 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 822 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc loop seq 
# 822 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 822 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 822 "/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
 
# 827 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 827 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc loop seq 
# 827 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 827 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 827 "/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 == 1) then
                            drho_dt = dalpha_rho_dt(1)
                            dgamma_dt = dadv_dt(1)
# 839 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
                                dpi_inf_dt = dadv_dt(2)
# 841 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
                        else
 
# 842 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 842 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc loop seq 
# 842 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 842 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 842 "/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
 
# 852 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 852 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc loop seq 
# 852 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 852 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 852 "/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
 
 
# 857 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 857 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc loop seq 
# 857 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 857 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 857 "/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
 
# 868 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 868 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc loop seq 
# 868 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 868 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 868 "/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)
 
# 876 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 876 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc loop seq 
# 876 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 876 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 876 "/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 == 1) then
 
# 888 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 888 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc loop seq 
# 888 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 888 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 888 "/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
 
 
# 893 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 893 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc loop seq 
# 893 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 893 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 893 "/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
 
# 901 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 901 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc loop seq 
# 901 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 901 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 901 "/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
 
 
# 906 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 906 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc loop seq 
# 906 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 906 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 906 "/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
 
# 914 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 914 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc end parallel loop
# 914 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 914 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 914 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$omp end target teams loop
# 914 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
            end if
# 526 "/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)
 
 
# 532 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 532 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 532 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc parallel loop collapse(3) gang vector default(present) private(i, r, k) 
# 532 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 532 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 532 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 532 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 532 "/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) 
# 532 "/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
 
# 541 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 541 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc end parallel loop
# 541 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 541 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 541 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$omp end target teams loop
# 541 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
 
 
# 543 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 543 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 543 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc parallel loop collapse(3) gang vector default(present) private(i, r, k) 
# 543 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 543 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 543 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 543 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 543 "/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) 
# 543 "/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
 
# 552 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 552 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc end parallel loop
# 552 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 552 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 552 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$omp end target teams loop
# 552 "/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)
 
 
# 560 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 560 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 560 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc parallel loop collapse(4) gang vector default(present) private(i, j, r, k) 
# 560 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 560 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 560 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 560 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 560 "/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) 
# 560 "/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
 
# 574 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 574 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc end parallel loop
# 574 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 574 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 574 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$omp end target teams loop
# 574 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
 
 
# 576 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 576 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 576 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc parallel loop collapse(4) gang vector default(present) private(i, j, r, k) 
# 576 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 576 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 576 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 576 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 576 "/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) 
# 576 "/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
 
# 591 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 591 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc end parallel loop
# 591 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 591 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 591 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$omp end target teams loop
# 591 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
                end if
 
                ! FD2 or FD4 of RHS at j = 0
 
# 595 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 595 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 595 "/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) 
# 595 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 595 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 595 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 595 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 595 "/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) 
# 595 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
# 600 "/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
 
# 603 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 603 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc loop seq 
# 603 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 603 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 603 "/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
 
 
# 608 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 608 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc loop seq 
# 608 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 608 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 608 "/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
 
# 614 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 614 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc loop seq 
# 614 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 614 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 614 "/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)
 
 
# 621 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 621 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc loop seq 
# 621 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 621 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 621 "/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)
 
 
# 628 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 628 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc loop seq 
# 628 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 628 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 628 "/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
 
# 634 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 634 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc loop seq 
# 634 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 634 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 634 "/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
 
 
# 667 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 667 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc loop seq 
# 667 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 667 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 667 "/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
 
 
# 672 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 672 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc loop seq 
# 672 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 672 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 672 "/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
 
# 678 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 678 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc loop seq 
# 678 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 678 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 678 "/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
 
# 684 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 684 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc loop seq 
# 684 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 684 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 684 "/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
 
 
# 690 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 690 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc loop seq 
# 690 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 690 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 690 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
                        do j = 0, buff_size
 
# 692 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 692 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc loop seq 
# 692 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 692 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 692 "/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
 
# 696 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 696 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc loop seq 
# 696 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 696 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 696 "/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
 
# 703 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 703 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc loop seq 
# 703 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 703 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 703 "/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
 
# 709 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 709 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc loop seq 
# 709 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 709 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 709 "/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
 
# 736 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 736 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc loop seq 
# 736 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 736 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 736 "/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
 
# 749 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 749 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc loop seq 
# 749 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 749 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 749 "/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
 
 
# 796 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 796 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc loop seq 
# 796 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 796 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 796 "/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
 
 
# 801 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 801 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc loop seq 
# 801 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 801 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 801 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
                        do i = 1, num_dims
                            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
 
# 808 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 808 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc loop seq 
# 808 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 808 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 808 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
                        do i = 1, num_dims
                            vel_dv_dt_sum = vel_dv_dt_sum + vel(i)*dvel_dt(i)
                        end do
 
                        if (chemistry) then
 
# 814 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 814 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc loop seq 
# 814 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 814 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 814 "/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
 
# 822 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 822 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc loop seq 
# 822 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 822 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 822 "/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
 
# 827 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 827 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc loop seq 
# 827 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 827 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 827 "/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 == 1) then
                            drho_dt = dalpha_rho_dt(1)
                            dgamma_dt = dadv_dt(1)
# 839 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
                                dpi_inf_dt = dadv_dt(2)
# 841 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
                        else
 
# 842 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 842 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc loop seq 
# 842 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 842 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 842 "/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
 
# 852 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 852 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc loop seq 
# 852 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 852 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 852 "/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
 
 
# 857 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 857 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc loop seq 
# 857 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 857 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 857 "/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
 
# 868 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 868 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc loop seq 
# 868 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 868 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 868 "/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)
 
# 876 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 876 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc loop seq 
# 876 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 876 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 876 "/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 == 1) then
 
# 888 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 888 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc loop seq 
# 888 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 888 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 888 "/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
 
 
# 893 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 893 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc loop seq 
# 893 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 893 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 893 "/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
 
# 901 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 901 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc loop seq 
# 901 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 901 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 901 "/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
 
 
# 906 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 906 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc loop seq 
# 906 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 906 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 906 "/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
 
# 914 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 914 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc end parallel loop
# 914 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 914 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 914 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$omp end target teams loop
# 914 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
            end if
# 917 "/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)
 
# 951 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 951 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc update device(is1, is2, is3, dj) 
# 951 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 951 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$omp target update to(is1, is2, is3, dj) 
# 951 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
 
# 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(dir_idx, dir_flg) 
# 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(dir_idx, dir_flg) 
# 952 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
 
        ! Reshaping Inputted Data in x-direction
        if (cbc_dir == 1) then
 
# 956 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 956 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 956 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc parallel loop collapse(4) gang vector default(present) private(i, j, k, r) 
# 956 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 956 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 956 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 956 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 956 "/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) 
# 956 "/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
 
# 966 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 966 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc end parallel loop
# 966 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 966 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 966 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$omp end target teams loop
# 966 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
 
 
# 968 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 968 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 968 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc parallel loop collapse(3) gang vector default(present) private(j, k, r) 
# 968 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 968 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 968 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 968 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 968 "/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) 
# 968 "/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
 
# 977 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 977 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc end parallel loop
# 977 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 977 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 977 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$omp end target teams loop
# 977 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
 
 
# 979 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 979 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 979 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc parallel loop collapse(4) gang vector default(present) private(i, j, k, r) 
# 979 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 979 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 979 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 979 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 979 "/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) 
# 979 "/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
 
# 989 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 989 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc end parallel loop
# 989 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 989 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 989 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$omp end target teams loop
# 989 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
 
 
# 991 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 991 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 991 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc parallel loop collapse(3) gang vector default(present) private(j, k, r) 
# 991 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 991 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 991 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 991 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 991 "/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) 
# 991 "/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
 
# 999 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 999 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc end parallel loop
# 999 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 999 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 999 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$omp end target teams loop
# 999 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
 
            if (riemann_solver == 1) then
 
# 1002 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 1002 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 1002 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc parallel loop collapse(4) gang vector default(present) private(i, j, k, r) 
# 1002 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 1002 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 1002 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 1002 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 1002 "/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) 
# 1002 "/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
 
# 1012 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 1012 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc end parallel loop
# 1012 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 1012 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 1012 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$omp end target teams loop
# 1012 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
            else
 
# 1014 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 1014 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 1014 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc parallel loop collapse(3) gang vector default(present) private(j, k, r) 
# 1014 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 1014 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 1014 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 1014 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 1014 "/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) 
# 1014 "/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
 
# 1023 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 1023 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc end parallel loop
# 1023 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 1023 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 1023 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$omp end target teams loop
# 1023 "/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
 
# 1030 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 1030 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 1030 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc parallel loop collapse(4) gang vector default(present) private(i, j, k, r) 
# 1030 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 1030 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 1030 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 1030 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 1030 "/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) 
# 1030 "/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
 
# 1040 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 1040 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc end parallel loop
# 1040 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 1040 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 1040 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$omp end target teams loop
# 1040 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
 
 
# 1042 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 1042 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 1042 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc parallel loop collapse(3) gang vector default(present) private(j, k, r) 
# 1042 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 1042 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 1042 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 1042 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 1042 "/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) 
# 1042 "/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
 
# 1051 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 1051 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc end parallel loop
# 1051 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 1051 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 1051 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$omp end target teams loop
# 1051 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
 
 
# 1053 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 1053 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 1053 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc parallel loop collapse(4) gang vector default(present) private(i, j, k, r) 
# 1053 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 1053 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 1053 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 1053 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 1053 "/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) 
# 1053 "/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
 
# 1063 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 1063 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc end parallel loop
# 1063 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 1063 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 1063 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$omp end target teams loop
# 1063 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
 
 
# 1065 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 1065 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 1065 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc parallel loop collapse(3) gang vector default(present) private(j, k, r) 
# 1065 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 1065 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 1065 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 1065 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 1065 "/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) 
# 1065 "/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
 
# 1073 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 1073 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc end parallel loop
# 1073 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 1073 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 1073 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$omp end target teams loop
# 1073 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
 
            if (riemann_solver == 1) then
 
# 1076 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 1076 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 1076 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc parallel loop collapse(4) gang vector default(present) private(i, j, k, r) 
# 1076 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 1076 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 1076 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 1076 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 1076 "/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) 
# 1076 "/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
 
# 1086 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 1086 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc end parallel loop
# 1086 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 1086 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 1086 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$omp end target teams loop
# 1086 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
            else
 
# 1088 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 1088 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 1088 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc parallel loop collapse(3) gang vector default(present) private(j, k, r) 
# 1088 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 1088 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 1088 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 1088 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 1088 "/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) 
# 1088 "/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
 
# 1097 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 1097 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc end parallel loop
# 1097 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 1097 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 1097 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$omp end target teams loop
# 1097 "/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
 
# 1104 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 1104 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 1104 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc parallel loop collapse(4) gang vector default(present) private(i, j, k, r) 
# 1104 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 1104 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 1104 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 1104 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 1104 "/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) 
# 1104 "/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
 
# 1114 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 1114 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc end parallel loop
# 1114 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 1114 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 1114 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$omp end target teams loop
# 1114 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
 
 
# 1116 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 1116 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 1116 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc parallel loop collapse(3) gang vector default(present) private(j, k, r) 
# 1116 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 1116 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 1116 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 1116 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 1116 "/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) 
# 1116 "/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
 
# 1125 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 1125 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc end parallel loop
# 1125 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 1125 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 1125 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$omp end target teams loop
# 1125 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
 
 
# 1127 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 1127 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 1127 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc parallel loop collapse(4) gang vector default(present) private(i, j, k, r) 
# 1127 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 1127 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 1127 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 1127 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 1127 "/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) 
# 1127 "/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
 
# 1137 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 1137 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc end parallel loop
# 1137 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 1137 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 1137 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$omp end target teams loop
# 1137 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
 
 
# 1139 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 1139 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 1139 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc parallel loop collapse(3) gang vector default(present) private(j, k, r) 
# 1139 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 1139 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 1139 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 1139 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 1139 "/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) 
# 1139 "/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
 
# 1147 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 1147 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc end parallel loop
# 1147 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 1147 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 1147 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$omp end target teams loop
# 1147 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
 
            if (riemann_solver == 1) then
 
# 1150 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 1150 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 1150 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc parallel loop collapse(4) gang vector default(present) private(i, j, k, r) 
# 1150 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 1150 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 1150 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 1150 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 1150 "/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) 
# 1150 "/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
 
# 1160 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 1160 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc end parallel loop
# 1160 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 1160 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 1160 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$omp end target teams loop
# 1160 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
            else
 
# 1162 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 1162 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 1162 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc parallel loop collapse(3) gang vector default(present) private(j, k, r) 
# 1162 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 1162 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 1162 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 1162 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 1162 "/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) 
# 1162 "/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
 
# 1171 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 1171 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc end parallel loop
# 1171 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 1171 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 1171 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$omp end target teams loop
# 1171 "/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)
 
# 1189 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 1189 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc update device(dj) 
# 1189 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 1189 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$omp target update to(dj) 
# 1189 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
 
        ! Reshaping Outputted Data in x-direction
        if (cbc_dir == 1) then
 
# 1193 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 1193 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 1193 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc parallel loop collapse(4) gang vector default(present) private(i, j, k, r) 
# 1193 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 1193 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 1193 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 1193 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 1193 "/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) 
# 1193 "/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
 
# 1203 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 1203 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc end parallel loop
# 1203 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 1203 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 1203 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$omp end target teams loop
# 1203 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
 
# 1204 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 1204 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 1204 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc parallel loop collapse(3) gang vector default(present) private(j, k, r) 
# 1204 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 1204 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 1204 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 1204 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 1204 "/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) 
# 1204 "/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
 
# 1212 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 1212 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc end parallel loop
# 1212 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 1212 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 1212 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$omp end target teams loop
# 1212 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
 
            if (riemann_solver == 1) then
 
# 1215 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 1215 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 1215 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc parallel loop collapse(4) gang vector default(present) private(i, j, k, r) 
# 1215 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 1215 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 1215 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 1215 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 1215 "/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) 
# 1215 "/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
 
# 1225 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 1225 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc end parallel loop
# 1225 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 1225 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 1225 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$omp end target teams loop
# 1225 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
            else
 
# 1227 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 1227 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 1227 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc parallel loop collapse(3) gang vector default(present) private(j, k, r) 
# 1227 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 1227 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 1227 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 1227 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 1227 "/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) 
# 1227 "/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
 
# 1236 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 1236 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc end parallel loop
# 1236 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 1236 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 1236 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$omp end target teams loop
# 1236 "/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
 
# 1242 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 1242 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 1242 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc parallel loop collapse(4) gang vector default(present) private(i, j, k, r) 
# 1242 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 1242 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 1242 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 1242 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 1242 "/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) 
# 1242 "/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
 
# 1252 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 1252 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc end parallel loop
# 1252 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 1252 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 1252 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$omp end target teams loop
# 1252 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
 
 
# 1254 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 1254 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 1254 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc parallel loop collapse(3) gang vector default(present) private(j, k, r) 
# 1254 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 1254 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 1254 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 1254 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 1254 "/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) 
# 1254 "/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
 
# 1262 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 1262 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc end parallel loop
# 1262 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 1262 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 1262 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$omp end target teams loop
# 1262 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
 
            if (riemann_solver == 1) then
 
# 1265 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 1265 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 1265 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc parallel loop collapse(4) gang vector default(present) private(i, j, k, r) 
# 1265 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 1265 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 1265 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 1265 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 1265 "/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) 
# 1265 "/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
 
# 1275 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 1275 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc end parallel loop
# 1275 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 1275 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 1275 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$omp end target teams loop
# 1275 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
            else
 
# 1277 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 1277 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 1277 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc parallel loop collapse(3) gang vector default(present) private(j, k, r) 
# 1277 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 1277 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 1277 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 1277 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 1277 "/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) 
# 1277 "/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
 
# 1286 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 1286 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc end parallel loop
# 1286 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 1286 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 1286 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$omp end target teams loop
# 1286 "/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
 
# 1293 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 1293 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 1293 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc parallel loop collapse(4) gang vector default(present) private(i, j, k, r) 
# 1293 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 1293 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 1293 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 1293 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 1293 "/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) 
# 1293 "/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
 
# 1303 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 1303 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc end parallel loop
# 1303 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 1303 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 1303 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$omp end target teams loop
# 1303 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
 
 
# 1305 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 1305 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 1305 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc parallel loop collapse(3) gang vector default(present) private(j, k, r) 
# 1305 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 1305 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 1305 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 1305 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 1305 "/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) 
# 1305 "/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
 
# 1313 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 1313 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc end parallel loop
# 1313 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 1313 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 1313 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$omp end target teams loop
# 1313 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
 
            if (riemann_solver == 1) then
 
# 1316 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 1316 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 1316 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc parallel loop collapse(4) gang vector default(present) private(i, j, k, r) 
# 1316 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 1316 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 1316 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 1316 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 1316 "/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) 
# 1316 "/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
 
# 1326 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 1326 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc end parallel loop
# 1326 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 1326 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 1326 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$omp end target teams loop
# 1326 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
            else
 
# 1328 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 1328 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 1328 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc parallel loop collapse(3) gang vector default(present) private(j, k, r) 
# 1328 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 1328 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 1328 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 1328 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 1328 "/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) 
# 1328 "/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
 
# 1337 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 1337 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc end parallel loop
# 1337 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 1337 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 1337 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$omp end target teams loop
# 1337 "/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.
 
# 1352 "/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
# 1352 "/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
# 1352 "/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
# 1352 "/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
# 1352 "/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
# 1352 "/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
# 1352 "/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
# 1352 "/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
# 1352 "/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
# 1356 "/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
# 1369 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
    block
# 1369 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
        use iso_fortran_env, only: output_unit
# 1369 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 1369 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
        print *, 'm_cbc.fpp:1369: ', '@:DEALLOCATE(q_prim_rsx_vf)'
# 1369 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 1369 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
        call flush (output_unit)
# 1369 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
    end block
# 1369 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
# 1369 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 1369 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 1369 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc exit data delete(q_prim_rsx_vf) 
# 1369 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 1369 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$omp target exit data map(release:q_prim_rsx_vf) 
# 1369 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
# 1369 "/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
# 1371 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
    block
# 1371 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
        use iso_fortran_env, only: output_unit
# 1371 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 1371 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
        print *, 'm_cbc.fpp:1371: ', '@:DEALLOCATE(F_rsx_vf, F_src_rsx_vf)'
# 1371 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 1371 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
        call flush (output_unit)
# 1371 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
    end block
# 1371 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
# 1371 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 1371 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 1371 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc exit data delete(F_rsx_vf, F_src_rsx_vf) 
# 1371 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 1371 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$omp target exit data map(release:F_rsx_vf, F_src_rsx_vf) 
# 1371 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
# 1371 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
    deallocate (f_rsx_vf, f_src_rsx_vf)
        end if
#ifdef MFC_DEBUG
# 1373 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
    block
# 1373 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
        use iso_fortran_env, only: output_unit
# 1373 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 1373 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
        print *, 'm_cbc.fpp:1373: ', '@:DEALLOCATE(flux_rsx_vf_l, flux_src_rsx_vf_l)'
# 1373 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 1373 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
        call flush (output_unit)
# 1373 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
    end block
# 1373 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
# 1373 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 1373 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 1373 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc exit data delete(flux_rsx_vf_l, flux_src_rsx_vf_l) 
# 1373 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 1373 "/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) 
# 1373 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
# 1373 "/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
# 1376 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
    block
# 1376 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
        use iso_fortran_env, only: output_unit
# 1376 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 1376 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
        print *, 'm_cbc.fpp:1376: ', '@:DEALLOCATE(q_prim_rsy_vf)'
# 1376 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 1376 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
        call flush (output_unit)
# 1376 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
    end block
# 1376 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
# 1376 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 1376 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 1376 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc exit data delete(q_prim_rsy_vf) 
# 1376 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 1376 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$omp target exit data map(release:q_prim_rsy_vf) 
# 1376 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
# 1376 "/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
# 1378 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
    block
# 1378 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
        use iso_fortran_env, only: output_unit
# 1378 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 1378 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
        print *, 'm_cbc.fpp:1378: ', '@:DEALLOCATE(F_rsy_vf, F_src_rsy_vf)'
# 1378 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 1378 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
        call flush (output_unit)
# 1378 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
    end block
# 1378 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
# 1378 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 1378 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 1378 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc exit data delete(F_rsy_vf, F_src_rsy_vf) 
# 1378 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 1378 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$omp target exit data map(release:F_rsy_vf, F_src_rsy_vf) 
# 1378 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
# 1378 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
    deallocate (f_rsy_vf, f_src_rsy_vf)
            end if
#ifdef MFC_DEBUG
# 1380 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
    block
# 1380 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
        use iso_fortran_env, only: output_unit
# 1380 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 1380 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
        print *, 'm_cbc.fpp:1380: ', '@:DEALLOCATE(flux_rsy_vf_l, flux_src_rsy_vf_l)'
# 1380 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 1380 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
        call flush (output_unit)
# 1380 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
    end block
# 1380 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
# 1380 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 1380 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 1380 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc exit data delete(flux_rsy_vf_l, flux_src_rsy_vf_l) 
# 1380 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 1380 "/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) 
# 1380 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
# 1380 "/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
# 1383 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
    block
# 1383 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
        use iso_fortran_env, only: output_unit
# 1383 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 1383 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
        print *, 'm_cbc.fpp:1383: ', '@:DEALLOCATE(q_prim_rsz_vf)'
# 1383 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 1383 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
        call flush (output_unit)
# 1383 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
    end block
# 1383 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
# 1383 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 1383 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 1383 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc exit data delete(q_prim_rsz_vf) 
# 1383 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 1383 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$omp target exit data map(release:q_prim_rsz_vf) 
# 1383 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
# 1383 "/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
# 1385 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
    block
# 1385 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
        use iso_fortran_env, only: output_unit
# 1385 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 1385 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
        print *, 'm_cbc.fpp:1385: ', '@:DEALLOCATE(F_rsz_vf, F_src_rsz_vf)'
# 1385 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 1385 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
        call flush (output_unit)
# 1385 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
    end block
# 1385 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
# 1385 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 1385 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 1385 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc exit data delete(F_rsz_vf, F_src_rsz_vf) 
# 1385 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 1385 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$omp target exit data map(release:F_rsz_vf, F_src_rsz_vf) 
# 1385 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
# 1385 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
    deallocate (f_rsz_vf, f_src_rsz_vf)
            end if
#ifdef MFC_DEBUG
# 1387 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
    block
# 1387 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
        use iso_fortran_env, only: output_unit
# 1387 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 1387 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
        print *, 'm_cbc.fpp:1387: ', '@:DEALLOCATE(flux_rsz_vf_l, flux_src_rsz_vf_l)'
# 1387 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 1387 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
        call flush (output_unit)
# 1387 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
    end block
# 1387 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
# 1387 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 1387 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 1387 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc exit data delete(flux_rsz_vf_l, flux_src_rsz_vf_l) 
# 1387 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 1387 "/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) 
# 1387 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
# 1387 "/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
# 1391 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
    block
# 1391 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
        use iso_fortran_env, only: output_unit
# 1391 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 1391 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
        print *, 'm_cbc.fpp:1391: ', '@:DEALLOCATE(ds)'
# 1391 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 1391 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
        call flush (output_unit)
# 1391 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
    end block
# 1391 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
# 1391 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 1391 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 1391 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc exit data delete(ds) 
# 1391 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 1391 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$omp target exit data map(release:ds) 
# 1391 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
# 1391 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
    deallocate (ds)
 
        ! Deallocating GRCBC inputs
#ifdef MFC_DEBUG
# 1394 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
    block
# 1394 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
        use iso_fortran_env, only: output_unit
# 1394 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 1394 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
        print *, 'm_cbc.fpp:1394: ', '@:DEALLOCATE(vel_in, vel_out, pres_in, pres_out, Del_in, Del_out, alpha_rho_in, alpha_in)'
# 1394 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 1394 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
        call flush (output_unit)
# 1394 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
    end block
# 1394 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
# 1394 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 1394 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 1394 "/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) 
# 1394 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 1394 "/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) 
# 1394 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
# 1394 "/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
# 1399 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
    block
# 1399 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
        use iso_fortran_env, only: output_unit
# 1399 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 1399 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
        print *, 'm_cbc.fpp:1399: ', '@:DEALLOCATE(fd_coef_x)'
# 1399 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 1399 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
        call flush (output_unit)
# 1399 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
    end block
# 1399 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
# 1399 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 1399 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 1399 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc exit data delete(fd_coef_x) 
# 1399 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 1399 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$omp target exit data map(release:fd_coef_x) 
# 1399 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
# 1399 "/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
# 1401 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
    block
# 1401 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
        use iso_fortran_env, only: output_unit
# 1401 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 1401 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
        print *, 'm_cbc.fpp:1401: ', '@:DEALLOCATE(pi_coef_x)'
# 1401 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 1401 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
        call flush (output_unit)
# 1401 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
    end block
# 1401 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
# 1401 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 1401 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 1401 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc exit data delete(pi_coef_x) 
# 1401 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 1401 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$omp target exit data map(release:pi_coef_x) 
# 1401 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
# 1401 "/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
# 1409 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
    block
# 1409 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
        use iso_fortran_env, only: output_unit
# 1409 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 1409 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
        print *, 'm_cbc.fpp:1409: ', '@:DEALLOCATE(fd_coef_y)'
# 1409 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 1409 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
        call flush (output_unit)
# 1409 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
    end block
# 1409 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
# 1409 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 1409 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 1409 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc exit data delete(fd_coef_y) 
# 1409 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 1409 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$omp target exit data map(release:fd_coef_y) 
# 1409 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
# 1409 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
    deallocate (fd_coef_y)
                if (weno_order > 1) then
#ifdef MFC_DEBUG
# 1411 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
    block
# 1411 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
        use iso_fortran_env, only: output_unit
# 1411 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 1411 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
        print *, 'm_cbc.fpp:1411: ', '@:DEALLOCATE(pi_coef_y)'
# 1411 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 1411 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
        call flush (output_unit)
# 1411 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
    end block
# 1411 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
# 1411 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 1411 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 1411 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc exit data delete(pi_coef_y) 
# 1411 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 1411 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$omp target exit data map(release:pi_coef_y) 
# 1411 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
# 1411 "/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
# 1420 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
    block
# 1420 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
        use iso_fortran_env, only: output_unit
# 1420 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 1420 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
        print *, 'm_cbc.fpp:1420: ', '@:DEALLOCATE(fd_coef_z)'
# 1420 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 1420 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
        call flush (output_unit)
# 1420 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
    end block
# 1420 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
# 1420 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 1420 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 1420 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc exit data delete(fd_coef_z) 
# 1420 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 1420 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$omp target exit data map(release:fd_coef_z) 
# 1420 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
# 1420 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
    deallocate (fd_coef_z)
                if (weno_order > 1) then
#ifdef MFC_DEBUG
# 1422 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
    block
# 1422 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
        use iso_fortran_env, only: output_unit
# 1422 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 1422 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
        print *, 'm_cbc.fpp:1422: ', '@:DEALLOCATE(pi_coef_z)'
# 1422 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 1422 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
        call flush (output_unit)
# 1422 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
    end block
# 1422 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
# 1422 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 1422 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 1422 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc exit data delete(pi_coef_z) 
# 1422 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 1422 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$omp target exit data map(release:pi_coef_z) 
# 1422 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
# 1422 "/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