m_cbc.fpp.f90

Go to the documentation of this file.

# 1 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!>
!! @file
!! @brief Contains module m_cbc
 
!> @brief Characteristic boundary conditions (CBC) for slip walls, non-reflecting subsonic inflow/outflow, and supersonic boundaries
# 1 "/home/runner/work/MFC/MFC/src/common/include/case.fpp" 1
! This file exists so that Fypp can be run without generating case.fpp files for
! each target. This is useful when generating documentation, for example. This
! should also let MFC be built with CMake directly, without invoking mfc.sh.
 
! For pre-process.
# 9 "/home/runner/work/MFC/MFC/src/common/include/case.fpp"
 
! For moving immersed boundaries in simulation
# 14 "/home/runner/work/MFC/MFC/src/common/include/case.fpp"
# 7 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp" 2
# 1 "/home/runner/work/MFC/MFC/src/common/include/macros.fpp" 1
# 1 "/home/runner/work/MFC/MFC/src/common/include/parallel_macros.fpp" 1
# 1 "/home/runner/work/MFC/MFC/src/common/include/shared_parallel_macros.fpp" 1
# 2 "/home/runner/work/MFC/MFC/src/common/include/shared_parallel_macros.fpp"
# 3 "/home/runner/work/MFC/MFC/src/common/include/shared_parallel_macros.fpp"
# 4 "/home/runner/work/MFC/MFC/src/common/include/shared_parallel_macros.fpp"
# 5 "/home/runner/work/MFC/MFC/src/common/include/shared_parallel_macros.fpp"
# 6 "/home/runner/work/MFC/MFC/src/common/include/shared_parallel_macros.fpp"
 
# 8 "/home/runner/work/MFC/MFC/src/common/include/shared_parallel_macros.fpp"
# 9 "/home/runner/work/MFC/MFC/src/common/include/shared_parallel_macros.fpp"
# 10 "/home/runner/work/MFC/MFC/src/common/include/shared_parallel_macros.fpp"
 
# 17 "/home/runner/work/MFC/MFC/src/common/include/shared_parallel_macros.fpp"
 
# 46 "/home/runner/work/MFC/MFC/src/common/include/shared_parallel_macros.fpp"
 
# 58 "/home/runner/work/MFC/MFC/src/common/include/shared_parallel_macros.fpp"
 
# 68 "/home/runner/work/MFC/MFC/src/common/include/shared_parallel_macros.fpp"
 
# 98 "/home/runner/work/MFC/MFC/src/common/include/shared_parallel_macros.fpp"
 
# 110 "/home/runner/work/MFC/MFC/src/common/include/shared_parallel_macros.fpp"
 
# 120 "/home/runner/work/MFC/MFC/src/common/include/shared_parallel_macros.fpp"
! New line at end of file is required for FYPP
# 2 "/home/runner/work/MFC/MFC/src/common/include/parallel_macros.fpp" 2
# 1 "/home/runner/work/MFC/MFC/src/common/include/omp_macros.fpp" 1
# 1 "/home/runner/work/MFC/MFC/src/common/include/shared_parallel_macros.fpp" 1
# 2 "/home/runner/work/MFC/MFC/src/common/include/shared_parallel_macros.fpp"
# 3 "/home/runner/work/MFC/MFC/src/common/include/shared_parallel_macros.fpp"
# 4 "/home/runner/work/MFC/MFC/src/common/include/shared_parallel_macros.fpp"
# 5 "/home/runner/work/MFC/MFC/src/common/include/shared_parallel_macros.fpp"
# 6 "/home/runner/work/MFC/MFC/src/common/include/shared_parallel_macros.fpp"
 
# 8 "/home/runner/work/MFC/MFC/src/common/include/shared_parallel_macros.fpp"
# 9 "/home/runner/work/MFC/MFC/src/common/include/shared_parallel_macros.fpp"
# 10 "/home/runner/work/MFC/MFC/src/common/include/shared_parallel_macros.fpp"
 
# 17 "/home/runner/work/MFC/MFC/src/common/include/shared_parallel_macros.fpp"
 
# 46 "/home/runner/work/MFC/MFC/src/common/include/shared_parallel_macros.fpp"
 
# 58 "/home/runner/work/MFC/MFC/src/common/include/shared_parallel_macros.fpp"
 
# 68 "/home/runner/work/MFC/MFC/src/common/include/shared_parallel_macros.fpp"
 
# 98 "/home/runner/work/MFC/MFC/src/common/include/shared_parallel_macros.fpp"
 
# 110 "/home/runner/work/MFC/MFC/src/common/include/shared_parallel_macros.fpp"
 
# 120 "/home/runner/work/MFC/MFC/src/common/include/shared_parallel_macros.fpp"
! New line at end of file is required for FYPP
# 2 "/home/runner/work/MFC/MFC/src/common/include/omp_macros.fpp" 2
 
# 4 "/home/runner/work/MFC/MFC/src/common/include/omp_macros.fpp"
# 5 "/home/runner/work/MFC/MFC/src/common/include/omp_macros.fpp"
# 6 "/home/runner/work/MFC/MFC/src/common/include/omp_macros.fpp"
# 7 "/home/runner/work/MFC/MFC/src/common/include/omp_macros.fpp"
# 8 "/home/runner/work/MFC/MFC/src/common/include/omp_macros.fpp"
 
# 20 "/home/runner/work/MFC/MFC/src/common/include/omp_macros.fpp"
 
# 43 "/home/runner/work/MFC/MFC/src/common/include/omp_macros.fpp"
 
# 48 "/home/runner/work/MFC/MFC/src/common/include/omp_macros.fpp"
 
# 53 "/home/runner/work/MFC/MFC/src/common/include/omp_macros.fpp"
 
# 58 "/home/runner/work/MFC/MFC/src/common/include/omp_macros.fpp"
 
# 63 "/home/runner/work/MFC/MFC/src/common/include/omp_macros.fpp"
 
# 68 "/home/runner/work/MFC/MFC/src/common/include/omp_macros.fpp"
 
# 76 "/home/runner/work/MFC/MFC/src/common/include/omp_macros.fpp"
 
# 81 "/home/runner/work/MFC/MFC/src/common/include/omp_macros.fpp"
 
# 86 "/home/runner/work/MFC/MFC/src/common/include/omp_macros.fpp"
 
# 91 "/home/runner/work/MFC/MFC/src/common/include/omp_macros.fpp"
 
# 96 "/home/runner/work/MFC/MFC/src/common/include/omp_macros.fpp"
 
# 101 "/home/runner/work/MFC/MFC/src/common/include/omp_macros.fpp"
 
# 106 "/home/runner/work/MFC/MFC/src/common/include/omp_macros.fpp"
 
# 111 "/home/runner/work/MFC/MFC/src/common/include/omp_macros.fpp"
 
# 116 "/home/runner/work/MFC/MFC/src/common/include/omp_macros.fpp"
 
# 121 "/home/runner/work/MFC/MFC/src/common/include/omp_macros.fpp"
 
# 151 "/home/runner/work/MFC/MFC/src/common/include/omp_macros.fpp"
 
# 192 "/home/runner/work/MFC/MFC/src/common/include/omp_macros.fpp"
 
# 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
 
# 22 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
    implicit none
 
    private; public :: s_initialize_cbc_module, s_cbc, s_finalize_cbc_module
 
    ! The cell-average primitive variables. They are obtained by reshaping (RS) q_prim_vf in the coordinate direction normal to the
    ! domain boundary along which the CBC is applied.
 
    real(wp), allocatable, dimension(:,:,:,:) :: q_prim_rsx_vf
    real(wp), allocatable, dimension(:,:,:,:) :: q_prim_rsy_vf
    real(wp), allocatable, dimension(:,:,:,:) :: q_prim_rsz_vf
 
# 33 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 33 "/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) 
# 33 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 33 "/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) 
# 33 "/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
 
# 41 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 41 "/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) 
# 41 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 41 "/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) 
# 41 "/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
 
# 50 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 50 "/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) 
# 50 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 50 "/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) 
# 50 "/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
 
# 63 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 63 "/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) 
# 63 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 63 "/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) 
# 63 "/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
 
# 69 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 69 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc declare create(is1, is2, is3) 
# 69 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 69 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$omp declare target (is1, is2, is3) 
# 69 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
 
    integer :: dj
    integer :: bcxb, bcxe, bcyb, bcye, bczb, bcze
    integer :: cbc_dir, cbc_loc
    integer :: flux_cbc_index
 
# 75 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 75 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc declare create(dj, bcxb, bcxe, bcyb, bcye, bczb, bcze) 
# 75 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 75 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$omp declare target (dj, bcxb, bcxe, bcyb, bcye, bczb, bcze) 
# 75 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
 
# 76 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 76 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc declare create(cbc_dir, cbc_loc, flux_cbc_index) 
# 76 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 76 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$omp declare target (cbc_dir, cbc_loc, flux_cbc_index) 
# 76 "/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
 
# 84 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 84 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc declare create(pres_in, pres_out, Del_in, Del_out) 
# 84 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 84 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$omp declare target (pres_in, pres_out, Del_in, Del_out) 
# 84 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
 
# 85 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 85 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc declare create(vel_in, vel_out) 
# 85 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 85 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$omp declare target (vel_in, vel_out) 
# 85 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
 
# 86 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 86 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc declare create(alpha_rho_in, alpha_in) 
# 86 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 86 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$omp declare target (alpha_rho_in, alpha_in) 
# 86 "/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 = adv_idx%end
        end if
 
# 102 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 102 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc update device(flux_cbc_index) 
# 102 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 102 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$omp target update to(flux_cbc_index) 
# 102 "/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
# 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(q_prim_rsx_vf(0:buff_size, is2%beg:is2%end, is3%beg:is3%end, 1:sys_size))'
# 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 (q_prim_rsx_vf(0:buff_size, is2%beg:is2%end, is3%beg:is3%end, 1:sys_size))
# 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(q_prim_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:q_prim_rsx_vf) 
# 123 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
 
        if (weno_order > 1 .or. muscl_order > 1) then
#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(F_rsx_vf(0: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 (f_rsx_vf(0: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(F_rsx_vf) 
# 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:F_rsx_vf) 
# 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(F_src_rsx_vf(0:buff_size, is2%beg:is2%end, is3%beg:is3%end, adv_idx%beg:adv_idx%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 (f_src_rsx_vf(0:buff_size, is2%beg:is2%end, is3%beg:is3%end, adv_idx%beg:adv_idx%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(F_src_rsx_vf) 
# 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:F_src_rsx_vf) 
# 128 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
        end if
 
#ifdef MFC_DEBUG
# 131 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
    block
# 131 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
        use iso_fortran_env, only: output_unit
# 131 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 131 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
        print *, 'm_cbc.fpp:131: ', '@:ALLOCATE(flux_rsx_vf_l(-1:buff_size, is2%beg:is2%end, is3%beg:is3%end, 1:flux_cbc_index))'
# 131 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 131 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
        call flush (output_unit)
# 131 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
    end block
# 131 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
# 131 "/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))
# 131 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 131 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 131 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 131 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc enter data create(flux_rsx_vf_l) 
# 131 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 131 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$omp target enter data map(always,alloc:flux_rsx_vf_l) 
# 131 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
 
#ifdef MFC_DEBUG
# 133 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
    block
# 133 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
        use iso_fortran_env, only: output_unit
# 133 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 133 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
        print *, 'm_cbc.fpp:133: ', '@:ALLOCATE(flux_src_rsx_vf_l(-1:buff_size, is2%beg:is2%end, is3%beg:is3%end, adv_idx%beg:adv_idx%end))'
# 133 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 133 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
        call flush (output_unit)
# 133 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
    end block
# 133 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
# 133 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
    allocate (flux_src_rsx_vf_l(-1:buff_size, is2%beg:is2%end, is3%beg:is3%end, adv_idx%beg:adv_idx%end))
# 133 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 133 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 133 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 133 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc enter data create(flux_src_rsx_vf_l) 
# 133 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 133 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$omp target enter data map(always,alloc:flux_src_rsx_vf_l) 
# 133 "/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
# 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(q_prim_rsy_vf(0:buff_size, is2%beg:is2%end, is3%beg:is3%end, 1:sys_size))'
# 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 (q_prim_rsy_vf(0:buff_size, is2%beg:is2%end, is3%beg:is3%end, 1:sys_size))
# 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(q_prim_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:q_prim_rsy_vf) 
# 151 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
 
            if (weno_order > 1 .or. muscl_order > 1) then
#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(F_rsy_vf(0: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 (f_rsy_vf(0: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(F_rsy_vf) 
# 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:F_rsy_vf) 
# 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(F_src_rsy_vf(0:buff_size, is2%beg:is2%end, is3%beg:is3%end, adv_idx%beg:adv_idx%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 (f_src_rsy_vf(0:buff_size, is2%beg:is2%end, is3%beg:is3%end, adv_idx%beg:adv_idx%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(F_src_rsy_vf) 
# 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:F_src_rsy_vf) 
# 156 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
            end if
 
#ifdef MFC_DEBUG
# 159 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
    block
# 159 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
        use iso_fortran_env, only: output_unit
# 159 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 159 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
        print *, 'm_cbc.fpp:159: ', '@:ALLOCATE(flux_rsy_vf_l(-1:buff_size, is2%beg:is2%end, is3%beg:is3%end, 1:flux_cbc_index))'
# 159 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 159 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
        call flush (output_unit)
# 159 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
    end block
# 159 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
# 159 "/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))
# 159 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 159 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 159 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 159 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc enter data create(flux_rsy_vf_l) 
# 159 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 159 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$omp target enter data map(always,alloc:flux_rsy_vf_l) 
# 159 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
 
#ifdef MFC_DEBUG
# 161 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
    block
# 161 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
        use iso_fortran_env, only: output_unit
# 161 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 161 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
        print *, 'm_cbc.fpp:161: ', '@:ALLOCATE(flux_src_rsy_vf_l(-1:buff_size, is2%beg:is2%end, is3%beg:is3%end, adv_idx%beg:adv_idx%end))'
# 161 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 161 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
        call flush (output_unit)
# 161 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
    end block
# 161 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
# 161 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
    allocate (flux_src_rsy_vf_l(-1:buff_size, is2%beg:is2%end, is3%beg:is3%end, adv_idx%beg:adv_idx%end))
# 161 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 161 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 161 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 161 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc enter data create(flux_src_rsy_vf_l) 
# 161 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 161 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$omp target enter data map(always,alloc:flux_src_rsy_vf_l) 
# 161 "/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
# 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(q_prim_rsz_vf(0:buff_size, is2%beg:is2%end, is3%beg:is3%end, 1:sys_size))'
# 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 (q_prim_rsz_vf(0:buff_size, is2%beg:is2%end, is3%beg:is3%end, 1:sys_size))
# 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(q_prim_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:q_prim_rsz_vf) 
# 180 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
 
            if (weno_order > 1 .or. muscl_order > 1) then
#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(F_rsz_vf(0: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 (f_rsz_vf(0: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(F_rsz_vf) 
# 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:F_rsz_vf) 
# 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(F_src_rsz_vf(0:buff_size, is2%beg:is2%end, is3%beg:is3%end, adv_idx%beg:adv_idx%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 (f_src_rsz_vf(0:buff_size, is2%beg:is2%end, is3%beg:is3%end, adv_idx%beg:adv_idx%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(F_src_rsz_vf) 
# 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:F_src_rsz_vf) 
# 185 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
            end if
 
#ifdef MFC_DEBUG
# 188 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
    block
# 188 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
        use iso_fortran_env, only: output_unit
# 188 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 188 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
        print *, 'm_cbc.fpp:188: ', '@:ALLOCATE(flux_rsz_vf_l(-1:buff_size, is2%beg:is2%end, is3%beg:is3%end, 1:flux_cbc_index))'
# 188 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 188 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
        call flush (output_unit)
# 188 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
    end block
# 188 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
# 188 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
    allocate (flux_rsz_vf_l(-1:buff_size, is2%beg:is2%end, is3%beg:is3%end, 1:flux_cbc_index))
# 188 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 188 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 188 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 188 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc enter data create(flux_rsz_vf_l) 
# 188 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 188 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$omp target enter data map(always,alloc:flux_rsz_vf_l) 
# 188 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
 
#ifdef MFC_DEBUG
# 190 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
    block
# 190 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
        use iso_fortran_env, only: output_unit
# 190 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 190 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
        print *, 'm_cbc.fpp:190: ', '@:ALLOCATE(flux_src_rsz_vf_l(-1:buff_size, is2%beg:is2%end, is3%beg:is3%end, adv_idx%beg:adv_idx%end))'
# 190 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 190 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
        call flush (output_unit)
# 190 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
    end block
# 190 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
# 190 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
    allocate (flux_src_rsz_vf_l(-1:buff_size, is2%beg:is2%end, is3%beg:is3%end, adv_idx%beg:adv_idx%end))
# 190 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 190 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 190 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 190 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc enter data create(flux_src_rsz_vf_l) 
# 190 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 190 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$omp target enter data map(always,alloc:flux_src_rsz_vf_l) 
# 190 "/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
# 194 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
    block
# 194 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
        use iso_fortran_env, only: output_unit
# 194 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 194 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
        print *, 'm_cbc.fpp:194: ', '@:ALLOCATE(ds(0:buff_size))'
# 194 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 194 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
        call flush (output_unit)
# 194 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
    end block
# 194 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
# 194 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
    allocate (ds(0:buff_size))
# 194 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 194 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 194 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 194 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc enter data create(ds) 
# 194 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 194 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$omp target enter data map(always,alloc:ds) 
# 194 "/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
# 209 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
    block
# 209 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
        use iso_fortran_env, only: output_unit
# 209 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 209 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
        print *, 'm_cbc.fpp:209: ', '@:ALLOCATE(fd_coef_x(0:buff_size, -1:1))'
# 209 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 209 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
        call flush (output_unit)
# 209 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
    end block
# 209 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
# 209 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
    allocate (fd_coef_x(0:buff_size, -1:1))
# 209 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 209 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 209 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 209 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc enter data create(fd_coef_x) 
# 209 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 209 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$omp target enter data map(always,alloc:fd_coef_x) 
# 209 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
 
            if (weno_order > 1 .or. muscl_order > 1) then
#ifdef MFC_DEBUG
# 212 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
    block
# 212 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
        use iso_fortran_env, only: output_unit
# 212 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 212 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
        print *, 'm_cbc.fpp:212: ', '@:ALLOCATE(pi_coef_x(idx1%beg:idx1%end, idx2%beg:idx2%end, -1:1))'
# 212 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 212 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
        call flush (output_unit)
# 212 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
    end block
# 212 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
# 212 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
    allocate (pi_coef_x(idx1%beg:idx1%end, idx2%beg:idx2%end, -1:1))
# 212 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 212 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 212 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 212 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc enter data create(pi_coef_x) 
# 212 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 212 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$omp target enter data map(always,alloc:pi_coef_x) 
# 212 "/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
# 218 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
    block
# 218 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
        use iso_fortran_env, only: output_unit
# 218 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 218 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
        print *, 'm_cbc.fpp:218: ', '@:ALLOCATE(fd_coef_x(0:buff_size, -1:-1))'
# 218 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 218 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
        call flush (output_unit)
# 218 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
    end block
# 218 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
# 218 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
    allocate (fd_coef_x(0:buff_size, -1:-1))
# 218 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 218 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 218 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 218 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc enter data create(fd_coef_x) 
# 218 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 218 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$omp target enter data map(always,alloc:fd_coef_x) 
# 218 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
 
            if (weno_order > 1 .or. muscl_order > 1) 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(pi_coef_x(idx1%beg:idx1%end, idx2%beg:idx2%end, -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 (pi_coef_x(idx1%beg:idx1%end, idx2%beg:idx2%end, -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(pi_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:pi_coef_x) 
# 221 "/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
# 226 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
    block
# 226 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
        use iso_fortran_env, only: output_unit
# 226 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 226 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
        print *, 'm_cbc.fpp:226: ', '@:ALLOCATE(fd_coef_x(0:buff_size, 1:1))'
# 226 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 226 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
        call flush (output_unit)
# 226 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
    end block
# 226 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
# 226 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
    allocate (fd_coef_x(0:buff_size, 1:1))
# 226 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 226 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 226 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 226 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc enter data create(fd_coef_x) 
# 226 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 226 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$omp target enter data map(always,alloc:fd_coef_x) 
# 226 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
 
            if (weno_order > 1 .or. muscl_order > 1) then
#ifdef MFC_DEBUG
# 229 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
    block
# 229 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
        use iso_fortran_env, only: output_unit
# 229 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 229 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
        print *, 'm_cbc.fpp:229: ', '@:ALLOCATE(pi_coef_x(idx1%beg:idx1%end, idx2%beg:idx2%end, 1:1))'
# 229 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 229 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
        call flush (output_unit)
# 229 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
    end block
# 229 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
# 229 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
    allocate (pi_coef_x(idx1%beg:idx1%end, idx2%beg:idx2%end, 1:1))
# 229 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 229 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 229 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 229 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc enter data create(pi_coef_x) 
# 229 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 229 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$omp target enter data map(always,alloc:pi_coef_x) 
# 229 "/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
# 238 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
    block
# 238 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
        use iso_fortran_env, only: output_unit
# 238 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 238 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
        print *, 'm_cbc.fpp:238: ', '@:ALLOCATE(fd_coef_y(0:buff_size, -1:1))'
# 238 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 238 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
        call flush (output_unit)
# 238 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
    end block
# 238 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
# 238 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
    allocate (fd_coef_y(0:buff_size, -1:1))
# 238 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 238 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 238 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 238 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc enter data create(fd_coef_y) 
# 238 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 238 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$omp target enter data map(always,alloc:fd_coef_y) 
# 238 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
 
                if (weno_order > 1 .or. muscl_order > 1) then
#ifdef MFC_DEBUG
# 241 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
    block
# 241 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
        use iso_fortran_env, only: output_unit
# 241 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 241 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
        print *, 'm_cbc.fpp:241: ', '@:ALLOCATE(pi_coef_y(idx1%beg:idx1%end, idx2%beg:idx2%end, -1:1))'
# 241 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 241 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
        call flush (output_unit)
# 241 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
    end block
# 241 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
# 241 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
    allocate (pi_coef_y(idx1%beg:idx1%end, idx2%beg:idx2%end, -1:1))
# 241 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 241 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 241 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 241 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc enter data create(pi_coef_y) 
# 241 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 241 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$omp target enter data map(always,alloc:pi_coef_y) 
# 241 "/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
# 247 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
    block
# 247 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
        use iso_fortran_env, only: output_unit
# 247 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 247 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
        print *, 'm_cbc.fpp:247: ', '@:ALLOCATE(fd_coef_y(0:buff_size, -1:-1))'
# 247 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 247 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
        call flush (output_unit)
# 247 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
    end block
# 247 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
# 247 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
    allocate (fd_coef_y(0:buff_size, -1:-1))
# 247 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 247 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 247 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 247 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc enter data create(fd_coef_y) 
# 247 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 247 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$omp target enter data map(always,alloc:fd_coef_y) 
# 247 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
 
                if (weno_order > 1 .or. muscl_order > 1) 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(pi_coef_y(idx1%beg:idx1%end, idx2%beg:idx2%end, -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 (pi_coef_y(idx1%beg:idx1%end, idx2%beg:idx2%end, -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(pi_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:pi_coef_y) 
# 250 "/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
# 255 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
    block
# 255 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
        use iso_fortran_env, only: output_unit
# 255 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 255 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
        print *, 'm_cbc.fpp:255: ', '@:ALLOCATE(fd_coef_y(0:buff_size, 1:1))'
# 255 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 255 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
        call flush (output_unit)
# 255 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
    end block
# 255 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
# 255 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
    allocate (fd_coef_y(0:buff_size, 1:1))
# 255 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 255 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 255 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 255 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc enter data create(fd_coef_y) 
# 255 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 255 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$omp target enter data map(always,alloc:fd_coef_y) 
# 255 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
 
                if (weno_order > 1 .or. muscl_order > 1) then
#ifdef MFC_DEBUG
# 258 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
    block
# 258 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
        use iso_fortran_env, only: output_unit
# 258 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 258 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
        print *, 'm_cbc.fpp:258: ', '@:ALLOCATE(pi_coef_y(idx1%beg:idx1%end, idx2%beg:idx2%end, 1:1))'
# 258 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 258 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
        call flush (output_unit)
# 258 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
    end block
# 258 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
# 258 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
    allocate (pi_coef_y(idx1%beg:idx1%end, idx2%beg:idx2%end, 1:1))
# 258 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 258 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 258 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 258 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc enter data create(pi_coef_y) 
# 258 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 258 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$omp target enter data map(always,alloc:pi_coef_y) 
# 258 "/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
# 268 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
    block
# 268 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
        use iso_fortran_env, only: output_unit
# 268 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 268 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
        print *, 'm_cbc.fpp:268: ', '@:ALLOCATE(fd_coef_z(0:buff_size, -1:1))'
# 268 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 268 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
        call flush (output_unit)
# 268 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
    end block
# 268 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
# 268 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
    allocate (fd_coef_z(0:buff_size, -1:1))
# 268 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 268 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 268 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 268 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc enter data create(fd_coef_z) 
# 268 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 268 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$omp target enter data map(always,alloc:fd_coef_z) 
# 268 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
 
                if (weno_order > 1 .or. muscl_order > 1) then
#ifdef MFC_DEBUG
# 271 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
    block
# 271 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
        use iso_fortran_env, only: output_unit
# 271 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 271 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
        print *, 'm_cbc.fpp:271: ', '@:ALLOCATE(pi_coef_z(idx1%beg:idx1%end, idx2%beg:idx2%end, -1:1))'
# 271 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 271 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
        call flush (output_unit)
# 271 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
    end block
# 271 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
# 271 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
    allocate (pi_coef_z(idx1%beg:idx1%end, idx2%beg:idx2%end, -1:1))
# 271 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 271 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 271 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 271 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc enter data create(pi_coef_z) 
# 271 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 271 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$omp target enter data map(always,alloc:pi_coef_z) 
# 271 "/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
# 277 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
    block
# 277 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
        use iso_fortran_env, only: output_unit
# 277 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 277 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
        print *, 'm_cbc.fpp:277: ', '@:ALLOCATE(fd_coef_z(0:buff_size, -1:-1))'
# 277 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 277 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
        call flush (output_unit)
# 277 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
    end block
# 277 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
# 277 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
    allocate (fd_coef_z(0:buff_size, -1:-1))
# 277 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 277 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 277 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 277 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc enter data create(fd_coef_z) 
# 277 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 277 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$omp target enter data map(always,alloc:fd_coef_z) 
# 277 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
 
                if (weno_order > 1 .or. muscl_order > 1) 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(pi_coef_z(idx1%beg:idx1%end, idx2%beg:idx2%end, -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 (pi_coef_z(idx1%beg:idx1%end, idx2%beg:idx2%end, -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(pi_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:pi_coef_z) 
# 280 "/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
# 285 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
    block
# 285 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
        use iso_fortran_env, only: output_unit
# 285 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 285 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
        print *, 'm_cbc.fpp:285: ', '@:ALLOCATE(fd_coef_z(0:buff_size, 1:1))'
# 285 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 285 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
        call flush (output_unit)
# 285 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
    end block
# 285 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
# 285 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
    allocate (fd_coef_z(0:buff_size, 1:1))
# 285 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 285 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 285 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 285 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc enter data create(fd_coef_z) 
# 285 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 285 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$omp target enter data map(always,alloc:fd_coef_z) 
# 285 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
 
                if (weno_order > 1 .or. muscl_order > 1) then
#ifdef MFC_DEBUG
# 288 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
    block
# 288 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
        use iso_fortran_env, only: output_unit
# 288 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 288 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
        print *, 'm_cbc.fpp:288: ', '@:ALLOCATE(pi_coef_z(idx1%beg:idx1%end, idx2%beg:idx2%end, 1:1))'
# 288 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 288 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
        call flush (output_unit)
# 288 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
    end block
# 288 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
# 288 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
    allocate (pi_coef_z(idx1%beg:idx1%end, idx2%beg:idx2%end, 1:1))
# 288 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 288 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 288 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 288 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc enter data create(pi_coef_z) 
# 288 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 288 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$omp target enter data map(always,alloc:pi_coef_z) 
# 288 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
                end if
 
                call s_compute_cbc_coefficients(3, 1)
            end if
        end if
 
 
# 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 update device(fd_coef_x, fd_coef_y, fd_coef_z, pi_coef_x, pi_coef_y, pi_coef_z) 
# 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 update to(fd_coef_x, fd_coef_y, fd_coef_z, pi_coef_x, pi_coef_y, pi_coef_z) 
# 295 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
 
        ! Associating the procedural pointer to the appropriate subroutine that will be utilized in the conversion to the mixture
        ! variables
 
        bcxb = bc_x%beg
        bcxe = bc_x%end
 
 
# 303 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 303 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc update device(bcxb, bcxe) 
# 303 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 303 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$omp target update to(bcxb, bcxe) 
# 303 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
 
        if (n > 0) then
            bcyb = bc_y%beg
            bcye = bc_y%end
 
 
# 309 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 309 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc update device(bcyb, bcye) 
# 309 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 309 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$omp target update to(bcyb, bcye) 
# 309 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
        end if
 
        if (p > 0) then
            bczb = bc_z%beg
            bcze = bc_z%end
 
 
# 316 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 316 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc update device(bczb, bcze) 
# 316 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 316 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$omp target update to(bczb, bcze) 
# 316 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
        end if
 
        ! Allocate GRCBC inputs
#ifdef MFC_DEBUG
# 320 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
    block
# 320 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
        use iso_fortran_env, only: output_unit
# 320 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 320 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
        print *, 'm_cbc.fpp:320: ', '@:ALLOCATE(pres_in(1:num_dims), pres_out(1:num_dims))'
# 320 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 320 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
        call flush (output_unit)
# 320 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
    end block
# 320 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
# 320 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
    allocate (pres_in(1:num_dims), pres_out(1:num_dims))
# 320 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 320 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 320 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 320 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 320 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc enter data create(pres_in, pres_out) 
# 320 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 320 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$omp target enter data map(always,alloc:pres_in, pres_out) 
# 320 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
#ifdef MFC_DEBUG
# 321 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
    block
# 321 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
        use iso_fortran_env, only: output_unit
# 321 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 321 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
        print *, 'm_cbc.fpp:321: ', '@:ALLOCATE(Del_in(1:num_dims), Del_out(1:num_dims))'
# 321 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 321 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
        call flush (output_unit)
# 321 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
    end block
# 321 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
# 321 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
    allocate (del_in(1:num_dims), del_out(1:num_dims))
# 321 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 321 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 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 enter data create(Del_in, Del_out) 
# 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 enter data map(always,alloc:Del_in, Del_out) 
# 321 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
#ifdef MFC_DEBUG
# 322 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
    block
# 322 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
        use iso_fortran_env, only: output_unit
# 322 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 322 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
        print *, 'm_cbc.fpp:322: ', '@:ALLOCATE(vel_in(1:num_dims, 1:num_dims), vel_out(1:num_dims, 1:num_dims))'
# 322 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 322 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
        call flush (output_unit)
# 322 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
    end block
# 322 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
# 322 "/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))
# 322 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 322 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 322 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 322 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 322 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc enter data create(vel_in, vel_out) 
# 322 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 322 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$omp target enter data map(always,alloc:vel_in, vel_out) 
# 322 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
#ifdef MFC_DEBUG
# 323 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
    block
# 323 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
        use iso_fortran_env, only: output_unit
# 323 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 323 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
        print *, 'm_cbc.fpp:323: ', '@:ALLOCATE(alpha_rho_in(1:num_fluids, 1:num_dims), alpha_in(1:num_fluids, 1:num_dims))'
# 323 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 323 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
        call flush (output_unit)
# 323 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
    end block
# 323 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
# 323 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
    allocate (alpha_rho_in(1:num_fluids, 1:num_dims), alpha_in(1:num_fluids, 1:num_dims))
# 323 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 323 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 323 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 323 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 323 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc enter data create(alpha_rho_in, alpha_in) 
# 323 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 323 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$omp target enter data map(always,alloc:alpha_rho_in, alpha_in) 
# 323 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
 
        ! Assign and update GRCBC inputs
# 327 "/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
# 327 "/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
# 327 "/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
# 348 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 348 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 348 "/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) 
# 348 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 348 "/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) 
# 348 "/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
# 379 "/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
# 379 "/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
# 379 "/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
# 429 "/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
 
 
# 485 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 485 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc update device(ds) 
# 485 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 485 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$omp target update to(ds) 
# 485 "/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
 
# 506 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
            real(wp), dimension(sys_size) :: l
# 508 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
# 517 "/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
# 525 "/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
 
 
# 546 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 546 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc update device(cbc_dir, cbc_loc) 
# 546 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 546 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$omp target update to(cbc_dir, cbc_loc) 
# 546 "/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)
 
# 553 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
            if (cbc_dir == 1 .and. recon_type == weno_type) then
                ! PI2 of flux_rs_vf and flux_src_rs_vf at j = 1/2
                if (weno_order == 3 .or. dummy) then
                    call s_convert_primitive_to_flux_variables(q_prim_rsx_vf, f_rsx_vf, f_src_rsx_vf, is1, is2, &
                        & is3, idwbuff(2)%beg, idwbuff(3)%beg)
 
 
# 559 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 559 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 559 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc parallel loop collapse(3) gang vector default(present) private(i, r, k) 
# 559 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 559 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 559 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 559 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 559 "/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) 
# 559 "/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
 
# 568 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 568 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc end parallel loop
# 568 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 568 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 568 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$omp end target teams loop
# 568 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
 
 
# 570 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 570 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 570 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc parallel loop collapse(3) gang vector default(present) private(i, r, k) 
# 570 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 570 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 570 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 570 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 570 "/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) 
# 570 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
                    do i = advxb, advxe
                        do r = is3%beg, is3%end
                            do k = is2%beg, is2%end
                                flux_src_rsx_vf_l(0, k, r, i) = f_src_rsx_vf(0, k, r, i) + (f_src_rsx_vf(1, k, &
                                                        & r, i) - f_src_rsx_vf(0, k, r, i))*pi_coef_x(0, 0, cbc_loc)
                            end do
                        end do
                    end do
 
# 579 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 579 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc end parallel loop
# 579 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 579 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 579 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$omp end target teams loop
# 579 "/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 .or. dummy) then
                    call s_convert_primitive_to_flux_variables(q_prim_rsx_vf, f_rsx_vf, f_src_rsx_vf, is1, is2, &
                        & is3, idwbuff(2)%beg, idwbuff(3)%beg)
 
 
# 587 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 587 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 587 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc parallel loop collapse(4) gang vector default(present) private(i, j, r, k) 
# 587 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 587 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 587 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 587 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 587 "/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) 
# 587 "/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
 
# 601 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 601 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc end parallel loop
# 601 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 601 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 601 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$omp end target teams loop
# 601 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
 
 
# 603 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 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 parallel loop collapse(4) gang vector default(present) private(i, j, r, k) 
# 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"
 
# 603 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 603 "/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) 
# 603 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
                    do i = advxb, advxe
                        do j = 0, 1
                            do r = is3%beg, is3%end
                                do k = is2%beg, is2%end
                                    flux_src_rsx_vf_l(j, k, r, i) = f_src_rsx_vf(j, k, r, i) + (f_src_rsx_vf(3, &
                                                            & k, r, i) - f_src_rsx_vf(2, k, r, i))*pi_coef_x(j, 0, &
                                                            & cbc_loc) + (f_src_rsx_vf(2, k, r, i) - f_src_rsx_vf(1, &
                                                            & k, r, i))*pi_coef_x(j, 1, cbc_loc) + (f_src_rsx_vf(1, &
                                                            & k, r, i) - f_src_rsx_vf(0, k, r, i))*pi_coef_x(j, 2, &
                                                            & cbc_loc)
                                end do
                            end do
                        end do
                    end do
 
# 618 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 618 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc end parallel loop
# 618 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 618 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 618 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$omp end target teams loop
# 618 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
                end if
 
                ! FD2 or FD4 of RHS at j = 0
 
# 622 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 622 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 622 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc 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) 
# 622 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 622 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 622 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 622 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 622 "/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) 
# 622 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
# 627 "/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
 
# 630 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 630 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc loop seq 
# 630 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 630 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 630 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
                        do i = 1, contxe
                            alpha_rho(i) = q_prim_rsx_vf(0, k, r, i)
                        end do
 
 
# 635 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 635 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc loop seq 
# 635 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 635 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 635 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
                        do i = 1, num_dims
                            vel(i) = q_prim_rsx_vf(0, k, r, contxe + i)
                        end do
 
                        vel_k_sum = 0._wp
 
# 641 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 641 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc loop seq 
# 641 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 641 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 641 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
                        do i = 1, num_dims
                            vel_k_sum = vel_k_sum + vel(i)**2._wp
                        end do
 
                        pres = q_prim_rsx_vf(0, k, r, e_idx)
 
 
# 648 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 648 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc loop seq 
# 648 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 648 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 648 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
                        do i = 1, advxe - e_idx
                            adv_local(i) = q_prim_rsx_vf(0, k, r, e_idx + i)
                        end do
 
                        call s_convert_species_to_mixture_variables_acc(rho, gamma, pi_inf, qv, adv_local, alpha_rho, re_cbc)
 
 
# 655 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 655 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc loop seq 
# 655 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 655 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 655 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
                        do i = 1, contxe
                            mf(i) = alpha_rho(i)/rho
                        end do
 
                        if (chemistry) then
 
# 661 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 661 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc loop seq 
# 661 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 661 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 661 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
                            do i = chemxb, chemxe
                                ys(i - chemxb + 1) = q_prim_rsx_vf(0, k, r, i)
                            end do
 
                            call get_mixture_molecular_weight(ys, mw)
                            r_gas = gas_constant/mw
                            t = pres/rho/r_gas
                            call get_mixture_specific_heat_cp_mass(t, ys, cp)
                            call get_mixture_energy_mass(t, ys, e_mix)
                            e = rho*e_mix + 5.e-1_wp*rho*vel_k_sum
                            if (chem_params%gamma_method == 1) then
                                !> gamma_method = 1: Ref. Section 2.3.1 Formulation of doi:10.7907/ZKW8-ES97.
                                call get_mole_fractions(mw, ys, xs)
                                call get_species_specific_heats_r(t, cp_i)
                                gamma_i = cp_i/(cp_i - 1.0_wp)
                                gamma = sum(xs(:)/(gamma_i(:) - 1.0_wp))
                            else if (chem_params%gamma_method == 2) then
                                !> gamma_method = 2: c_p / c_v where c_p, c_v are specific heats.
                                call get_mixture_specific_heat_cv_mass(t, ys, cv)
                                gamma = 1.0_wp/(cp/cv - 1.0_wp)
                            end if
                        else
                            e = gamma*pres + pi_inf + 5.e-1_wp*rho*vel_k_sum
                        end if
 
                        h = (e + pres)/rho
 
                        ! Compute mixture sound speed
                        call s_compute_speed_of_sound(pres, rho, gamma, pi_inf, h, adv_local, vel_k_sum, 0._wp, c, qv)
 
                        ! First-Order Spatial Derivatives of Primitive Variables
 
 
# 694 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 694 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc loop seq 
# 694 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 694 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 694 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
                        do i = 1, contxe
                            dalpha_rho_ds(i) = 0._wp
                        end do
 
 
# 699 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 699 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc loop seq 
# 699 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 699 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 699 "/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
 
# 705 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 705 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc loop seq 
# 705 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 705 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 705 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
                        do i = 1, advxe - e_idx
                            dadv_ds(i) = 0._wp
                        end do
 
                        if (chemistry) then
 
# 711 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 711 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc loop seq 
# 711 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 711 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 711 "/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
 
 
# 717 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 717 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc loop seq 
# 717 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 717 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 717 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
                        do j = 0, buff_size
 
# 719 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 719 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc loop seq 
# 719 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 719 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 719 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
                            do i = 1, contxe
                                dalpha_rho_ds(i) = q_prim_rsx_vf(j, k, r, i)*fd_coef_x(j, cbc_loc) + dalpha_rho_ds(i)
                            end do
 
# 723 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 723 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc loop seq 
# 723 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 723 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 723 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
                            do i = 1, num_dims
                                dvel_ds(i) = q_prim_rsx_vf(j, k, r, contxe + i)*fd_coef_x(j, cbc_loc) + dvel_ds(i)
                            end do
 
                            dpres_ds = q_prim_rsx_vf(j, k, r, e_idx)*fd_coef_x(j, cbc_loc) + dpres_ds
 
# 729 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 729 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc loop seq 
# 729 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 729 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 729 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
                            do i = 1, advxe - e_idx
                                dadv_ds(i) = q_prim_rsx_vf(j, k, r, e_idx + i)*fd_coef_x(j, cbc_loc) + dadv_ds(i)
                            end do
 
                            if (chemistry) then
 
# 735 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 735 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc loop seq 
# 735 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 735 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 735 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
                                do i = 1, num_species
                                    dys_ds(i) = q_prim_rsx_vf(j, k, r, chemxb - 1 + i)*fd_coef_x(j, &
                                           & cbc_loc) + dys_ds(i)
                                end do
                            end if
                        end do
 
                        ! First-Order Temporal Derivatives of Primitive Variables
                        lambda(1) = vel(dir_idx(1)) - c
                        lambda(2) = vel(dir_idx(1))
                        lambda(3) = vel(dir_idx(1)) + c
 
                        ma = vel(dir_idx(1))/c
 
                        if ((cbc_loc == -1 .and. bcxb == bc_char_slip_wall) &
                            & .or. (cbc_loc == 1 .and. bcxe == bc_char_slip_wall)) then
                            call s_compute_slip_wall_l(lambda, l, rho, c, dpres_ds, dvel_ds)
                        else if ((cbc_loc == -1 .and. bcxb == bc_char_nr_sub_buffer) &
                                 & .or. (cbc_loc == 1 .and. bcxe == bc_char_nr_sub_buffer)) then
                            call s_compute_nonreflecting_subsonic_buffer_l(lambda, l, rho, c, mf, dalpha_rho_ds, dpres_ds, &
                                & dvel_ds, dadv_ds, dys_ds)
                        else if ((cbc_loc == -1 .and. bcxb == bc_char_nr_sub_inflow) &
                                 & .or. (cbc_loc == 1 .and. bcxe == bc_char_nr_sub_inflow)) then
                            call s_compute_nonreflecting_subsonic_inflow_l(lambda, l, rho, c, dpres_ds, dvel_ds)
                            ! Add GRCBC for Subsonic Inflow
                            if (bc_x%grcbc_in) then
 
# 762 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 762 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc loop seq 
# 762 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 762 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 762 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
                                do i = 2, momxb
                                    l(i) = c**3._wp*ma*(alpha_rho(i - 1) - alpha_rho_in(i - 1, &
                                      & 1))/del_in(1) - c*ma*(pres - pres_in(1))/del_in(1)
                                end do
                                if (n > 0) then
                                    l(momxb + 1) = c*ma*(vel(dir_idx(2)) - vel_in(1, dir_idx(2)))/del_in(1)
                                    if (p > 0) then
                                        l(momxb + 2) = c*ma*(vel(dir_idx(3)) - vel_in(1, dir_idx(3)))/del_in(1)
                                    end if
                                end if
 
# 773 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 773 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc loop seq 
# 773 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 773 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 773 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
                                do i = e_idx, advxe - 1
                                    l(i) = c*ma*(adv_local(i + 1 - e_idx) - alpha_in(i + 1 - e_idx, &
                                      & 1))/del_in(1)
                                end do
                                l(advxe) = rho*c**2._wp*(1._wp + ma)*(vel(dir_idx(1)) + vel_in(1, dir_idx(1))*sign(1, &
                                  & cbc_loc))/del_in(1) + c*(1._wp + ma)*(pres - pres_in(1))/del_in(1)
                            end if
                        else if ((cbc_loc == -1 .and. bcxb == bc_char_nr_sub_outflow) &
                                 & .or. (cbc_loc == 1 .and. bcxe == bc_char_nr_sub_outflow)) then
                            call s_compute_nonreflecting_subsonic_outflow_l(lambda, l, rho, c, mf, dalpha_rho_ds, dpres_ds, &
                                & dvel_ds, dadv_ds, dys_ds)
                            ! Add GRCBC for Subsonic Outflow (Pressure)
                            if (bc_x%grcbc_out) then
                                l(advxe) = c*(1._wp - ma)*(pres - pres_out(1))/del_out(1)
 
                                ! Add GRCBC for Subsonic Outflow (Normal Velocity)
                                if (bc_x%grcbc_vel_out) then
                                    l(advxe) = l(advxe) + rho*c**2._wp*(1._wp - ma)*(vel(dir_idx(1)) + vel_out(1, &
                                      & dir_idx(1))*sign(1, cbc_loc))/del_out(1)
                                end if
                            end if
                        else if ((cbc_loc == -1 .and. bcxb == bc_char_ff_sub_outflow) &
                                 & .or. (cbc_loc == 1 .and. bcxe == bc_char_ff_sub_outflow)) then
                            call s_compute_force_free_subsonic_outflow_l(lambda, l, rho, c, mf, dalpha_rho_ds, dpres_ds, dvel_ds, &
                                & dadv_ds)
                        else if ((cbc_loc == -1 .and. bcxb == bc_char_cp_sub_outflow) &
                                 & .or. (cbc_loc == 1 .and. bcxe == bc_char_cp_sub_outflow)) then
                            call s_compute_constant_pressure_subsonic_outflow_l(lambda, l, rho, c, mf, dalpha_rho_ds, dpres_ds, &
                                & dvel_ds, dadv_ds)
                        else if ((cbc_loc == -1 .and. bcxb == bc_char_sup_inflow) &
                                 & .or. (cbc_loc == 1 .and. bcxe == bc_char_sup_inflow)) then
                            call s_compute_supersonic_inflow_l(l)
                        else if ((cbc_loc == -1 .and. bcxb == bc_char_sup_outflow) &
                                 & .or. (cbc_loc == 1 .and. bcxe == bc_char_sup_outflow)) then
                            call s_compute_supersonic_outflow_l(lambda, l, rho, c, mf, dalpha_rho_ds, dpres_ds, dvel_ds, dadv_ds, &
                                                                & dys_ds)
                        end if
 
                        ! Be careful about the cylindrical coordinate!
                        if (cyl_coord .and. cbc_dir == 2 .and. cbc_loc == 1) then
                            dpres_dt = -5.e-1_wp*(l(advxe) + l(1)) + rho*c*c*vel(dir_idx(1))/y_cc(n)
                        else
                            dpres_dt = -5.e-1_wp*(l(advxe) + l(1))
                        end if
 
 
# 819 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 819 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc loop seq 
# 819 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 819 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 819 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
                        do i = 1, contxe
                            dalpha_rho_dt(i) = -(l(i + 1) - mf(i)*dpres_dt)/(c*c)
                        end do
 
 
# 824 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 824 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc loop seq 
# 824 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 824 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 824 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
                        do i = 1, num_dims
                            dvel_dt(dir_idx(i)) = dir_flg(dir_idx(i))*(l(1) - l(advxe))/(2._wp*rho*c) + (dir_flg(dir_idx(i)) &
                                    & - 1._wp)*l(momxb + i - 1)
                        end do
 
                        vel_dv_dt_sum = 0._wp
 
# 831 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 831 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc loop seq 
# 831 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 831 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 831 "/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
 
# 837 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 837 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc loop seq 
# 837 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 837 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 837 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
                            do i = 1, num_species
                                dys_dt(i) = -1._wp*l(chemxb + i - 1)
                            end do
                        end if
 
                        ! The treatment of void fraction source is unclear
                        if (cyl_coord .and. cbc_dir == 2 .and. cbc_loc == 1) then
 
# 845 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 845 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc loop seq 
# 845 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 845 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 845 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
                            do i = 1, advxe - e_idx
                                dadv_dt(i) = -l(momxe + i)  ! + adv_local(i) * vel(dir_idx(1))/y_cc(n)
                            end do
                        else
 
# 850 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 850 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc loop seq 
# 850 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 850 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 850 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
                            do i = 1, advxe - e_idx
                                dadv_dt(i) = -l(momxe + i)
                            end do
                        end if
 
                        drho_dt = 0._wp; dgamma_dt = 0._wp; dpi_inf_dt = 0._wp; dqv_dt = 0._wp
 
                        if (model_eqns == 1) then
                            drho_dt = dalpha_rho_dt(1)
                            dgamma_dt = dadv_dt(1)
# 862 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
                                dpi_inf_dt = dadv_dt(2)
# 864 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
                        else
 
# 865 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 865 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc loop seq 
# 865 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 865 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 865 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
                            do i = 1, 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
 
# 875 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 875 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc loop seq 
# 875 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 875 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 875 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
                        do i = 1, contxe
                            flux_rsx_vf_l(-1, k, r, i) = flux_rsx_vf_l(0, k, r, i) + ds(0)*dalpha_rho_dt(i)
                        end do
 
 
# 880 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 880 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc loop seq 
# 880 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 880 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 880 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
                        do i = momxb, momxe
                            flux_rsx_vf_l(-1, k, r, i) = flux_rsx_vf_l(0, k, r, &
                                                & i) + ds(0)*(vel(i - contxe)*drho_dt + rho*dvel_dt(i - contxe))
                        end do
 
                        if (chemistry) then
                            ! Evolution of LODI equation of energy for real gases adjusted to perfect gas,
                            ! doi:10.1006/jcph.2002.6990
                            call get_species_enthalpies_rt(t, h_k)
                            sum_enthalpies = 0._wp
 
# 891 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 891 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc loop seq 
# 891 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 891 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 891 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
                            do i = 1, num_species
# 898 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
                                    h_k(i) = h_k(i)*gas_constant/molecular_weights(i)*t
                                    sum_enthalpies = sum_enthalpies + (rho*h_k(i) - pres*mw/molecular_weights(i)*cp/r_gas)*dys_dt(i)
# 901 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
                            end do
                            flux_rsx_vf_l(-1, k, r, e_idx) = flux_rsx_vf_l(0, k, r, &
                                                & e_idx) + ds(0)*((e/rho + pres/rho)*drho_dt + rho*vel_dv_dt_sum + cp*t*l(2)/(c*c) &
                                                & + sum_enthalpies)
 
# 905 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 905 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc loop seq 
# 905 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 905 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 905 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
                            do i = 1, num_species
                                flux_rsx_vf_l(-1, k, r, i - 1 + chemxb) = flux_rsx_vf_l(0, k, r, &
                                                    & chemxb + i - 1) + ds(0)*(drho_dt*ys(i) + rho*dys_dt(i))
                            end do
                        else
                            flux_rsx_vf_l(-1, k, r, e_idx) = flux_rsx_vf_l(0, k, r, &
                                                & e_idx) + ds(0)*(pres*dgamma_dt + gamma*dpres_dt + dpi_inf_dt + dqv_dt &
                                                & + rho*vel_dv_dt_sum + 5.e-1_wp*drho_dt*vel_k_sum)
                        end if
 
                        if (riemann_solver == 1) then
 
# 917 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 917 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc loop seq 
# 917 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 917 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 917 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
                            do i = advxb, advxe
                                flux_rsx_vf_l(-1, k, r, i) = 0._wp
                            end do
 
 
# 922 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 922 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc loop seq 
# 922 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 922 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 922 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
                            do i = advxb, advxe
                                flux_src_rsx_vf_l(-1, k, r, i) = 1._wp/max(abs(vel(dir_idx(1))), sgm_eps)*sign(1._wp, &
                                                        & vel(dir_idx(1)))*(flux_rsx_vf_l(0, k, r, &
                                                        & i) + vel(dir_idx(1))*flux_src_rsx_vf_l(0, k, r, &
                                                        & i) + ds(0)*dadv_dt(i - e_idx))
                            end do
                        else
 
# 930 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 930 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc loop seq 
# 930 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 930 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 930 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
                            do i = advxb, advxe
                                flux_rsx_vf_l(-1, k, r, i) = flux_rsx_vf_l(0, k, r, i) + ds(0)*dadv_dt(i - e_idx)
                            end do
 
 
# 935 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 935 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc loop seq 
# 935 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 935 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 935 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
                            do i = advxb, advxe
                                flux_src_rsx_vf_l(-1, k, r, i) = flux_src_rsx_vf_l(0, k, r, i)
                            end do
                        end if
                        ! END: flux_rs_vf_l and flux_src_rs_vf_l at j = -1/2
                    end do
                end do
 
# 943 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 943 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc end parallel loop
# 943 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 943 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 943 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$omp end target teams loop
# 943 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
            end if
# 553 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
            if (cbc_dir == 2 .and. recon_type == weno_type) then
                ! PI2 of flux_rs_vf and flux_src_rs_vf at j = 1/2
                if (weno_order == 3 .or. dummy) then
                    call s_convert_primitive_to_flux_variables(q_prim_rsy_vf, f_rsy_vf, f_src_rsy_vf, is1, is2, &
                        & is3, idwbuff(2)%beg, idwbuff(3)%beg)
 
 
# 559 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 559 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 559 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc parallel loop collapse(3) gang vector default(present) private(i, r, k) 
# 559 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 559 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 559 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 559 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 559 "/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) 
# 559 "/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
 
# 568 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 568 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc end parallel loop
# 568 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 568 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 568 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$omp end target teams loop
# 568 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
 
 
# 570 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 570 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 570 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc parallel loop collapse(3) gang vector default(present) private(i, r, k) 
# 570 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 570 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 570 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 570 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 570 "/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) 
# 570 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
                    do i = advxb, advxe
                        do r = is3%beg, is3%end
                            do k = is2%beg, is2%end
                                flux_src_rsy_vf_l(0, k, r, i) = f_src_rsy_vf(0, k, r, i) + (f_src_rsy_vf(1, k, &
                                                        & r, i) - f_src_rsy_vf(0, k, r, i))*pi_coef_y(0, 0, cbc_loc)
                            end do
                        end do
                    end do
 
# 579 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 579 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc end parallel loop
# 579 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 579 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 579 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$omp end target teams loop
# 579 "/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 .or. dummy) then
                    call s_convert_primitive_to_flux_variables(q_prim_rsy_vf, f_rsy_vf, f_src_rsy_vf, is1, is2, &
                        & is3, idwbuff(2)%beg, idwbuff(3)%beg)
 
 
# 587 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 587 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 587 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc parallel loop collapse(4) gang vector default(present) private(i, j, r, k) 
# 587 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 587 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 587 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 587 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 587 "/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) 
# 587 "/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
 
# 601 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 601 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc end parallel loop
# 601 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 601 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 601 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$omp end target teams loop
# 601 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
 
 
# 603 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 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 parallel loop collapse(4) gang vector default(present) private(i, j, r, k) 
# 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"
 
# 603 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 603 "/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) 
# 603 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
                    do i = advxb, advxe
                        do j = 0, 1
                            do r = is3%beg, is3%end
                                do k = is2%beg, is2%end
                                    flux_src_rsy_vf_l(j, k, r, i) = f_src_rsy_vf(j, k, r, i) + (f_src_rsy_vf(3, &
                                                            & k, r, i) - f_src_rsy_vf(2, k, r, i))*pi_coef_y(j, 0, &
                                                            & cbc_loc) + (f_src_rsy_vf(2, k, r, i) - f_src_rsy_vf(1, &
                                                            & k, r, i))*pi_coef_y(j, 1, cbc_loc) + (f_src_rsy_vf(1, &
                                                            & k, r, i) - f_src_rsy_vf(0, k, r, i))*pi_coef_y(j, 2, &
                                                            & cbc_loc)
                                end do
                            end do
                        end do
                    end do
 
# 618 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 618 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc end parallel loop
# 618 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 618 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 618 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$omp end target teams loop
# 618 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
                end if
 
                ! FD2 or FD4 of RHS at j = 0
 
# 622 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 622 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 622 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc 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) 
# 622 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 622 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 622 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 622 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 622 "/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) 
# 622 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
# 627 "/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
 
# 630 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 630 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc loop seq 
# 630 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 630 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 630 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
                        do i = 1, contxe
                            alpha_rho(i) = q_prim_rsy_vf(0, k, r, i)
                        end do
 
 
# 635 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 635 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc loop seq 
# 635 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 635 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 635 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
                        do i = 1, num_dims
                            vel(i) = q_prim_rsy_vf(0, k, r, contxe + i)
                        end do
 
                        vel_k_sum = 0._wp
 
# 641 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 641 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc loop seq 
# 641 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 641 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 641 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
                        do i = 1, num_dims
                            vel_k_sum = vel_k_sum + vel(i)**2._wp
                        end do
 
                        pres = q_prim_rsy_vf(0, k, r, e_idx)
 
 
# 648 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 648 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc loop seq 
# 648 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 648 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 648 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
                        do i = 1, advxe - e_idx
                            adv_local(i) = q_prim_rsy_vf(0, k, r, e_idx + i)
                        end do
 
                        call s_convert_species_to_mixture_variables_acc(rho, gamma, pi_inf, qv, adv_local, alpha_rho, re_cbc)
 
 
# 655 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 655 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc loop seq 
# 655 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 655 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 655 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
                        do i = 1, contxe
                            mf(i) = alpha_rho(i)/rho
                        end do
 
                        if (chemistry) then
 
# 661 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 661 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc loop seq 
# 661 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 661 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 661 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
                            do i = chemxb, chemxe
                                ys(i - chemxb + 1) = q_prim_rsy_vf(0, k, r, i)
                            end do
 
                            call get_mixture_molecular_weight(ys, mw)
                            r_gas = gas_constant/mw
                            t = pres/rho/r_gas
                            call get_mixture_specific_heat_cp_mass(t, ys, cp)
                            call get_mixture_energy_mass(t, ys, e_mix)
                            e = rho*e_mix + 5.e-1_wp*rho*vel_k_sum
                            if (chem_params%gamma_method == 1) then
                                !> gamma_method = 1: Ref. Section 2.3.1 Formulation of doi:10.7907/ZKW8-ES97.
                                call get_mole_fractions(mw, ys, xs)
                                call get_species_specific_heats_r(t, cp_i)
                                gamma_i = cp_i/(cp_i - 1.0_wp)
                                gamma = sum(xs(:)/(gamma_i(:) - 1.0_wp))
                            else if (chem_params%gamma_method == 2) then
                                !> gamma_method = 2: c_p / c_v where c_p, c_v are specific heats.
                                call get_mixture_specific_heat_cv_mass(t, ys, cv)
                                gamma = 1.0_wp/(cp/cv - 1.0_wp)
                            end if
                        else
                            e = gamma*pres + pi_inf + 5.e-1_wp*rho*vel_k_sum
                        end if
 
                        h = (e + pres)/rho
 
                        ! Compute mixture sound speed
                        call s_compute_speed_of_sound(pres, rho, gamma, pi_inf, h, adv_local, vel_k_sum, 0._wp, c, qv)
 
                        ! First-Order Spatial Derivatives of Primitive Variables
 
 
# 694 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 694 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc loop seq 
# 694 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 694 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 694 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
                        do i = 1, contxe
                            dalpha_rho_ds(i) = 0._wp
                        end do
 
 
# 699 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 699 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc loop seq 
# 699 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 699 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 699 "/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
 
# 705 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 705 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc loop seq 
# 705 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 705 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 705 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
                        do i = 1, advxe - e_idx
                            dadv_ds(i) = 0._wp
                        end do
 
                        if (chemistry) then
 
# 711 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 711 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc loop seq 
# 711 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 711 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 711 "/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
 
 
# 717 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 717 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc loop seq 
# 717 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 717 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 717 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
                        do j = 0, buff_size
 
# 719 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 719 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc loop seq 
# 719 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 719 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 719 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
                            do i = 1, contxe
                                dalpha_rho_ds(i) = q_prim_rsy_vf(j, k, r, i)*fd_coef_y(j, cbc_loc) + dalpha_rho_ds(i)
                            end do
 
# 723 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 723 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc loop seq 
# 723 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 723 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 723 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
                            do i = 1, num_dims
                                dvel_ds(i) = q_prim_rsy_vf(j, k, r, contxe + i)*fd_coef_y(j, cbc_loc) + dvel_ds(i)
                            end do
 
                            dpres_ds = q_prim_rsy_vf(j, k, r, e_idx)*fd_coef_y(j, cbc_loc) + dpres_ds
 
# 729 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 729 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc loop seq 
# 729 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 729 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 729 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
                            do i = 1, advxe - e_idx
                                dadv_ds(i) = q_prim_rsy_vf(j, k, r, e_idx + i)*fd_coef_y(j, cbc_loc) + dadv_ds(i)
                            end do
 
                            if (chemistry) then
 
# 735 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 735 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc loop seq 
# 735 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 735 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 735 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
                                do i = 1, num_species
                                    dys_ds(i) = q_prim_rsy_vf(j, k, r, chemxb - 1 + i)*fd_coef_y(j, &
                                           & cbc_loc) + dys_ds(i)
                                end do
                            end if
                        end do
 
                        ! First-Order Temporal Derivatives of Primitive Variables
                        lambda(1) = vel(dir_idx(1)) - c
                        lambda(2) = vel(dir_idx(1))
                        lambda(3) = vel(dir_idx(1)) + c
 
                        ma = vel(dir_idx(1))/c
 
                        if ((cbc_loc == -1 .and. bcyb == bc_char_slip_wall) &
                            & .or. (cbc_loc == 1 .and. bcye == bc_char_slip_wall)) then
                            call s_compute_slip_wall_l(lambda, l, rho, c, dpres_ds, dvel_ds)
                        else if ((cbc_loc == -1 .and. bcyb == bc_char_nr_sub_buffer) &
                                 & .or. (cbc_loc == 1 .and. bcye == bc_char_nr_sub_buffer)) then
                            call s_compute_nonreflecting_subsonic_buffer_l(lambda, l, rho, c, mf, dalpha_rho_ds, dpres_ds, &
                                & dvel_ds, dadv_ds, dys_ds)
                        else if ((cbc_loc == -1 .and. bcyb == bc_char_nr_sub_inflow) &
                                 & .or. (cbc_loc == 1 .and. bcye == bc_char_nr_sub_inflow)) then
                            call s_compute_nonreflecting_subsonic_inflow_l(lambda, l, rho, c, dpres_ds, dvel_ds)
                            ! Add GRCBC for Subsonic Inflow
                            if (bc_y%grcbc_in) then
 
# 762 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 762 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc loop seq 
# 762 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 762 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 762 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
                                do i = 2, momxb
                                    l(i) = c**3._wp*ma*(alpha_rho(i - 1) - alpha_rho_in(i - 1, &
                                      & 2))/del_in(2) - c*ma*(pres - pres_in(2))/del_in(2)
                                end do
                                if (n > 0) then
                                    l(momxb + 1) = c*ma*(vel(dir_idx(2)) - vel_in(2, dir_idx(2)))/del_in(2)
                                    if (p > 0) then
                                        l(momxb + 2) = c*ma*(vel(dir_idx(3)) - vel_in(2, dir_idx(3)))/del_in(2)
                                    end if
                                end if
 
# 773 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 773 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc loop seq 
# 773 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 773 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 773 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
                                do i = e_idx, advxe - 1
                                    l(i) = c*ma*(adv_local(i + 1 - e_idx) - alpha_in(i + 1 - e_idx, &
                                      & 2))/del_in(2)
                                end do
                                l(advxe) = rho*c**2._wp*(1._wp + ma)*(vel(dir_idx(1)) + vel_in(2, dir_idx(1))*sign(1, &
                                  & cbc_loc))/del_in(2) + c*(1._wp + ma)*(pres - pres_in(2))/del_in(2)
                            end if
                        else if ((cbc_loc == -1 .and. bcyb == bc_char_nr_sub_outflow) &
                                 & .or. (cbc_loc == 1 .and. bcye == bc_char_nr_sub_outflow)) then
                            call s_compute_nonreflecting_subsonic_outflow_l(lambda, l, rho, c, mf, dalpha_rho_ds, dpres_ds, &
                                & dvel_ds, dadv_ds, dys_ds)
                            ! Add GRCBC for Subsonic Outflow (Pressure)
                            if (bc_y%grcbc_out) then
                                l(advxe) = c*(1._wp - ma)*(pres - pres_out(2))/del_out(2)
 
                                ! Add GRCBC for Subsonic Outflow (Normal Velocity)
                                if (bc_y%grcbc_vel_out) then
                                    l(advxe) = l(advxe) + rho*c**2._wp*(1._wp - ma)*(vel(dir_idx(1)) + vel_out(2, &
                                      & dir_idx(1))*sign(1, cbc_loc))/del_out(2)
                                end if
                            end if
                        else if ((cbc_loc == -1 .and. bcyb == bc_char_ff_sub_outflow) &
                                 & .or. (cbc_loc == 1 .and. bcye == bc_char_ff_sub_outflow)) then
                            call s_compute_force_free_subsonic_outflow_l(lambda, l, rho, c, mf, dalpha_rho_ds, dpres_ds, dvel_ds, &
                                & dadv_ds)
                        else if ((cbc_loc == -1 .and. bcyb == bc_char_cp_sub_outflow) &
                                 & .or. (cbc_loc == 1 .and. bcye == bc_char_cp_sub_outflow)) then
                            call s_compute_constant_pressure_subsonic_outflow_l(lambda, l, rho, c, mf, dalpha_rho_ds, dpres_ds, &
                                & dvel_ds, dadv_ds)
                        else if ((cbc_loc == -1 .and. bcyb == bc_char_sup_inflow) &
                                 & .or. (cbc_loc == 1 .and. bcye == bc_char_sup_inflow)) then
                            call s_compute_supersonic_inflow_l(l)
                        else if ((cbc_loc == -1 .and. bcyb == bc_char_sup_outflow) &
                                 & .or. (cbc_loc == 1 .and. bcye == bc_char_sup_outflow)) then
                            call s_compute_supersonic_outflow_l(lambda, l, rho, c, mf, dalpha_rho_ds, dpres_ds, dvel_ds, dadv_ds, &
                                                                & dys_ds)
                        end if
 
                        ! Be careful about the cylindrical coordinate!
                        if (cyl_coord .and. cbc_dir == 2 .and. cbc_loc == 1) then
                            dpres_dt = -5.e-1_wp*(l(advxe) + l(1)) + rho*c*c*vel(dir_idx(1))/y_cc(n)
                        else
                            dpres_dt = -5.e-1_wp*(l(advxe) + l(1))
                        end if
 
 
# 819 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 819 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc loop seq 
# 819 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 819 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 819 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
                        do i = 1, contxe
                            dalpha_rho_dt(i) = -(l(i + 1) - mf(i)*dpres_dt)/(c*c)
                        end do
 
 
# 824 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 824 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc loop seq 
# 824 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 824 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 824 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
                        do i = 1, num_dims
                            dvel_dt(dir_idx(i)) = dir_flg(dir_idx(i))*(l(1) - l(advxe))/(2._wp*rho*c) + (dir_flg(dir_idx(i)) &
                                    & - 1._wp)*l(momxb + i - 1)
                        end do
 
                        vel_dv_dt_sum = 0._wp
 
# 831 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 831 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc loop seq 
# 831 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 831 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 831 "/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
 
# 837 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 837 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc loop seq 
# 837 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 837 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 837 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
                            do i = 1, num_species
                                dys_dt(i) = -1._wp*l(chemxb + i - 1)
                            end do
                        end if
 
                        ! The treatment of void fraction source is unclear
                        if (cyl_coord .and. cbc_dir == 2 .and. cbc_loc == 1) then
 
# 845 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 845 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc loop seq 
# 845 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 845 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 845 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
                            do i = 1, advxe - e_idx
                                dadv_dt(i) = -l(momxe + i)  ! + adv_local(i) * vel(dir_idx(1))/y_cc(n)
                            end do
                        else
 
# 850 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 850 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc loop seq 
# 850 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 850 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 850 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
                            do i = 1, advxe - e_idx
                                dadv_dt(i) = -l(momxe + i)
                            end do
                        end if
 
                        drho_dt = 0._wp; dgamma_dt = 0._wp; dpi_inf_dt = 0._wp; dqv_dt = 0._wp
 
                        if (model_eqns == 1) then
                            drho_dt = dalpha_rho_dt(1)
                            dgamma_dt = dadv_dt(1)
# 862 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
                                dpi_inf_dt = dadv_dt(2)
# 864 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
                        else
 
# 865 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 865 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc loop seq 
# 865 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 865 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 865 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
                            do i = 1, 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
 
# 875 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 875 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc loop seq 
# 875 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 875 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 875 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
                        do i = 1, contxe
                            flux_rsy_vf_l(-1, k, r, i) = flux_rsy_vf_l(0, k, r, i) + ds(0)*dalpha_rho_dt(i)
                        end do
 
 
# 880 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 880 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc loop seq 
# 880 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 880 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 880 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
                        do i = momxb, momxe
                            flux_rsy_vf_l(-1, k, r, i) = flux_rsy_vf_l(0, k, r, &
                                                & i) + ds(0)*(vel(i - contxe)*drho_dt + rho*dvel_dt(i - contxe))
                        end do
 
                        if (chemistry) then
                            ! Evolution of LODI equation of energy for real gases adjusted to perfect gas,
                            ! doi:10.1006/jcph.2002.6990
                            call get_species_enthalpies_rt(t, h_k)
                            sum_enthalpies = 0._wp
 
# 891 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 891 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc loop seq 
# 891 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 891 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 891 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
                            do i = 1, num_species
# 898 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
                                    h_k(i) = h_k(i)*gas_constant/molecular_weights(i)*t
                                    sum_enthalpies = sum_enthalpies + (rho*h_k(i) - pres*mw/molecular_weights(i)*cp/r_gas)*dys_dt(i)
# 901 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
                            end do
                            flux_rsy_vf_l(-1, k, r, e_idx) = flux_rsy_vf_l(0, k, r, &
                                                & e_idx) + ds(0)*((e/rho + pres/rho)*drho_dt + rho*vel_dv_dt_sum + cp*t*l(2)/(c*c) &
                                                & + sum_enthalpies)
 
# 905 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 905 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc loop seq 
# 905 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 905 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 905 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
                            do i = 1, num_species
                                flux_rsy_vf_l(-1, k, r, i - 1 + chemxb) = flux_rsy_vf_l(0, k, r, &
                                                    & chemxb + i - 1) + ds(0)*(drho_dt*ys(i) + rho*dys_dt(i))
                            end do
                        else
                            flux_rsy_vf_l(-1, k, r, e_idx) = flux_rsy_vf_l(0, k, r, &
                                                & e_idx) + ds(0)*(pres*dgamma_dt + gamma*dpres_dt + dpi_inf_dt + dqv_dt &
                                                & + rho*vel_dv_dt_sum + 5.e-1_wp*drho_dt*vel_k_sum)
                        end if
 
                        if (riemann_solver == 1) then
 
# 917 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 917 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc loop seq 
# 917 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 917 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 917 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
                            do i = advxb, advxe
                                flux_rsy_vf_l(-1, k, r, i) = 0._wp
                            end do
 
 
# 922 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 922 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc loop seq 
# 922 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 922 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 922 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
                            do i = advxb, advxe
                                flux_src_rsy_vf_l(-1, k, r, i) = 1._wp/max(abs(vel(dir_idx(1))), sgm_eps)*sign(1._wp, &
                                                        & vel(dir_idx(1)))*(flux_rsy_vf_l(0, k, r, &
                                                        & i) + vel(dir_idx(1))*flux_src_rsy_vf_l(0, k, r, &
                                                        & i) + ds(0)*dadv_dt(i - e_idx))
                            end do
                        else
 
# 930 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 930 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc loop seq 
# 930 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 930 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 930 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
                            do i = advxb, advxe
                                flux_rsy_vf_l(-1, k, r, i) = flux_rsy_vf_l(0, k, r, i) + ds(0)*dadv_dt(i - e_idx)
                            end do
 
 
# 935 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 935 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc loop seq 
# 935 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 935 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 935 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
                            do i = advxb, advxe
                                flux_src_rsy_vf_l(-1, k, r, i) = flux_src_rsy_vf_l(0, k, r, i)
                            end do
                        end if
                        ! END: flux_rs_vf_l and flux_src_rs_vf_l at j = -1/2
                    end do
                end do
 
# 943 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 943 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc end parallel loop
# 943 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 943 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 943 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$omp end target teams loop
# 943 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
            end if
# 553 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
            if (cbc_dir == 3 .and. recon_type == weno_type) then
                ! PI2 of flux_rs_vf and flux_src_rs_vf at j = 1/2
                if (weno_order == 3 .or. dummy) then
                    call s_convert_primitive_to_flux_variables(q_prim_rsz_vf, f_rsz_vf, f_src_rsz_vf, is1, is2, &
                        & is3, idwbuff(2)%beg, idwbuff(3)%beg)
 
 
# 559 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 559 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 559 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc parallel loop collapse(3) gang vector default(present) private(i, r, k) 
# 559 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 559 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 559 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 559 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 559 "/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) 
# 559 "/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
 
# 568 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 568 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc end parallel loop
# 568 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 568 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 568 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$omp end target teams loop
# 568 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
 
 
# 570 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 570 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 570 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc parallel loop collapse(3) gang vector default(present) private(i, r, k) 
# 570 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 570 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 570 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 570 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 570 "/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) 
# 570 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
                    do i = advxb, advxe
                        do r = is3%beg, is3%end
                            do k = is2%beg, is2%end
                                flux_src_rsz_vf_l(0, k, r, i) = f_src_rsz_vf(0, k, r, i) + (f_src_rsz_vf(1, k, &
                                                        & r, i) - f_src_rsz_vf(0, k, r, i))*pi_coef_z(0, 0, cbc_loc)
                            end do
                        end do
                    end do
 
# 579 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 579 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc end parallel loop
# 579 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 579 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 579 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$omp end target teams loop
# 579 "/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 .or. dummy) then
                    call s_convert_primitive_to_flux_variables(q_prim_rsz_vf, f_rsz_vf, f_src_rsz_vf, is1, is2, &
                        & is3, idwbuff(2)%beg, idwbuff(3)%beg)
 
 
# 587 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 587 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 587 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc parallel loop collapse(4) gang vector default(present) private(i, j, r, k) 
# 587 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 587 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 587 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 587 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 587 "/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) 
# 587 "/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
 
# 601 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 601 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc end parallel loop
# 601 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 601 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 601 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$omp end target teams loop
# 601 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
 
 
# 603 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 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 parallel loop collapse(4) gang vector default(present) private(i, j, r, k) 
# 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"
 
# 603 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 603 "/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) 
# 603 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
                    do i = advxb, advxe
                        do j = 0, 1
                            do r = is3%beg, is3%end
                                do k = is2%beg, is2%end
                                    flux_src_rsz_vf_l(j, k, r, i) = f_src_rsz_vf(j, k, r, i) + (f_src_rsz_vf(3, &
                                                            & k, r, i) - f_src_rsz_vf(2, k, r, i))*pi_coef_z(j, 0, &
                                                            & cbc_loc) + (f_src_rsz_vf(2, k, r, i) - f_src_rsz_vf(1, &
                                                            & k, r, i))*pi_coef_z(j, 1, cbc_loc) + (f_src_rsz_vf(1, &
                                                            & k, r, i) - f_src_rsz_vf(0, k, r, i))*pi_coef_z(j, 2, &
                                                            & cbc_loc)
                                end do
                            end do
                        end do
                    end do
 
# 618 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 618 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc end parallel loop
# 618 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 618 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 618 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$omp end target teams loop
# 618 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
                end if
 
                ! FD2 or FD4 of RHS at j = 0
 
# 622 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 622 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 622 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc 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) 
# 622 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 622 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 622 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 622 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 622 "/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) 
# 622 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
# 627 "/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
 
# 630 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 630 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc loop seq 
# 630 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 630 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 630 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
                        do i = 1, contxe
                            alpha_rho(i) = q_prim_rsz_vf(0, k, r, i)
                        end do
 
 
# 635 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 635 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc loop seq 
# 635 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 635 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 635 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
                        do i = 1, num_dims
                            vel(i) = q_prim_rsz_vf(0, k, r, contxe + i)
                        end do
 
                        vel_k_sum = 0._wp
 
# 641 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 641 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc loop seq 
# 641 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 641 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 641 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
                        do i = 1, num_dims
                            vel_k_sum = vel_k_sum + vel(i)**2._wp
                        end do
 
                        pres = q_prim_rsz_vf(0, k, r, e_idx)
 
 
# 648 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 648 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc loop seq 
# 648 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 648 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 648 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
                        do i = 1, advxe - e_idx
                            adv_local(i) = q_prim_rsz_vf(0, k, r, e_idx + i)
                        end do
 
                        call s_convert_species_to_mixture_variables_acc(rho, gamma, pi_inf, qv, adv_local, alpha_rho, re_cbc)
 
 
# 655 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 655 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc loop seq 
# 655 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 655 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 655 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
                        do i = 1, contxe
                            mf(i) = alpha_rho(i)/rho
                        end do
 
                        if (chemistry) then
 
# 661 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 661 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc loop seq 
# 661 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 661 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 661 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
                            do i = chemxb, chemxe
                                ys(i - chemxb + 1) = q_prim_rsz_vf(0, k, r, i)
                            end do
 
                            call get_mixture_molecular_weight(ys, mw)
                            r_gas = gas_constant/mw
                            t = pres/rho/r_gas
                            call get_mixture_specific_heat_cp_mass(t, ys, cp)
                            call get_mixture_energy_mass(t, ys, e_mix)
                            e = rho*e_mix + 5.e-1_wp*rho*vel_k_sum
                            if (chem_params%gamma_method == 1) then
                                !> gamma_method = 1: Ref. Section 2.3.1 Formulation of doi:10.7907/ZKW8-ES97.
                                call get_mole_fractions(mw, ys, xs)
                                call get_species_specific_heats_r(t, cp_i)
                                gamma_i = cp_i/(cp_i - 1.0_wp)
                                gamma = sum(xs(:)/(gamma_i(:) - 1.0_wp))
                            else if (chem_params%gamma_method == 2) then
                                !> gamma_method = 2: c_p / c_v where c_p, c_v are specific heats.
                                call get_mixture_specific_heat_cv_mass(t, ys, cv)
                                gamma = 1.0_wp/(cp/cv - 1.0_wp)
                            end if
                        else
                            e = gamma*pres + pi_inf + 5.e-1_wp*rho*vel_k_sum
                        end if
 
                        h = (e + pres)/rho
 
                        ! Compute mixture sound speed
                        call s_compute_speed_of_sound(pres, rho, gamma, pi_inf, h, adv_local, vel_k_sum, 0._wp, c, qv)
 
                        ! First-Order Spatial Derivatives of Primitive Variables
 
 
# 694 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 694 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc loop seq 
# 694 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 694 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 694 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
                        do i = 1, contxe
                            dalpha_rho_ds(i) = 0._wp
                        end do
 
 
# 699 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 699 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc loop seq 
# 699 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 699 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 699 "/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
 
# 705 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 705 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc loop seq 
# 705 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 705 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 705 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
                        do i = 1, advxe - e_idx
                            dadv_ds(i) = 0._wp
                        end do
 
                        if (chemistry) then
 
# 711 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 711 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc loop seq 
# 711 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 711 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 711 "/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
 
 
# 717 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 717 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc loop seq 
# 717 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 717 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 717 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
                        do j = 0, buff_size
 
# 719 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 719 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc loop seq 
# 719 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 719 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 719 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
                            do i = 1, contxe
                                dalpha_rho_ds(i) = q_prim_rsz_vf(j, k, r, i)*fd_coef_z(j, cbc_loc) + dalpha_rho_ds(i)
                            end do
 
# 723 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 723 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc loop seq 
# 723 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 723 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 723 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
                            do i = 1, num_dims
                                dvel_ds(i) = q_prim_rsz_vf(j, k, r, contxe + i)*fd_coef_z(j, cbc_loc) + dvel_ds(i)
                            end do
 
                            dpres_ds = q_prim_rsz_vf(j, k, r, e_idx)*fd_coef_z(j, cbc_loc) + dpres_ds
 
# 729 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 729 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc loop seq 
# 729 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 729 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 729 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
                            do i = 1, advxe - e_idx
                                dadv_ds(i) = q_prim_rsz_vf(j, k, r, e_idx + i)*fd_coef_z(j, cbc_loc) + dadv_ds(i)
                            end do
 
                            if (chemistry) then
 
# 735 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 735 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc loop seq 
# 735 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 735 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 735 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
                                do i = 1, num_species
                                    dys_ds(i) = q_prim_rsz_vf(j, k, r, chemxb - 1 + i)*fd_coef_z(j, &
                                           & cbc_loc) + dys_ds(i)
                                end do
                            end if
                        end do
 
                        ! First-Order Temporal Derivatives of Primitive Variables
                        lambda(1) = vel(dir_idx(1)) - c
                        lambda(2) = vel(dir_idx(1))
                        lambda(3) = vel(dir_idx(1)) + c
 
                        ma = vel(dir_idx(1))/c
 
                        if ((cbc_loc == -1 .and. bczb == bc_char_slip_wall) &
                            & .or. (cbc_loc == 1 .and. bcze == bc_char_slip_wall)) then
                            call s_compute_slip_wall_l(lambda, l, rho, c, dpres_ds, dvel_ds)
                        else if ((cbc_loc == -1 .and. bczb == bc_char_nr_sub_buffer) &
                                 & .or. (cbc_loc == 1 .and. bcze == bc_char_nr_sub_buffer)) then
                            call s_compute_nonreflecting_subsonic_buffer_l(lambda, l, rho, c, mf, dalpha_rho_ds, dpres_ds, &
                                & dvel_ds, dadv_ds, dys_ds)
                        else if ((cbc_loc == -1 .and. bczb == bc_char_nr_sub_inflow) &
                                 & .or. (cbc_loc == 1 .and. bcze == bc_char_nr_sub_inflow)) then
                            call s_compute_nonreflecting_subsonic_inflow_l(lambda, l, rho, c, dpres_ds, dvel_ds)
                            ! Add GRCBC for Subsonic Inflow
                            if (bc_z%grcbc_in) then
 
# 762 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 762 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc loop seq 
# 762 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 762 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 762 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
                                do i = 2, momxb
                                    l(i) = c**3._wp*ma*(alpha_rho(i - 1) - alpha_rho_in(i - 1, &
                                      & 3))/del_in(3) - c*ma*(pres - pres_in(3))/del_in(3)
                                end do
                                if (n > 0) then
                                    l(momxb + 1) = c*ma*(vel(dir_idx(2)) - vel_in(3, dir_idx(2)))/del_in(3)
                                    if (p > 0) then
                                        l(momxb + 2) = c*ma*(vel(dir_idx(3)) - vel_in(3, dir_idx(3)))/del_in(3)
                                    end if
                                end if
 
# 773 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 773 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc loop seq 
# 773 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 773 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 773 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
                                do i = e_idx, advxe - 1
                                    l(i) = c*ma*(adv_local(i + 1 - e_idx) - alpha_in(i + 1 - e_idx, &
                                      & 3))/del_in(3)
                                end do
                                l(advxe) = rho*c**2._wp*(1._wp + ma)*(vel(dir_idx(1)) + vel_in(3, dir_idx(1))*sign(1, &
                                  & cbc_loc))/del_in(3) + c*(1._wp + ma)*(pres - pres_in(3))/del_in(3)
                            end if
                        else if ((cbc_loc == -1 .and. bczb == bc_char_nr_sub_outflow) &
                                 & .or. (cbc_loc == 1 .and. bcze == bc_char_nr_sub_outflow)) then
                            call s_compute_nonreflecting_subsonic_outflow_l(lambda, l, rho, c, mf, dalpha_rho_ds, dpres_ds, &
                                & dvel_ds, dadv_ds, dys_ds)
                            ! Add GRCBC for Subsonic Outflow (Pressure)
                            if (bc_z%grcbc_out) then
                                l(advxe) = c*(1._wp - ma)*(pres - pres_out(3))/del_out(3)
 
                                ! Add GRCBC for Subsonic Outflow (Normal Velocity)
                                if (bc_z%grcbc_vel_out) then
                                    l(advxe) = l(advxe) + rho*c**2._wp*(1._wp - ma)*(vel(dir_idx(1)) + vel_out(3, &
                                      & dir_idx(1))*sign(1, cbc_loc))/del_out(3)
                                end if
                            end if
                        else if ((cbc_loc == -1 .and. bczb == bc_char_ff_sub_outflow) &
                                 & .or. (cbc_loc == 1 .and. bcze == bc_char_ff_sub_outflow)) then
                            call s_compute_force_free_subsonic_outflow_l(lambda, l, rho, c, mf, dalpha_rho_ds, dpres_ds, dvel_ds, &
                                & dadv_ds)
                        else if ((cbc_loc == -1 .and. bczb == bc_char_cp_sub_outflow) &
                                 & .or. (cbc_loc == 1 .and. bcze == bc_char_cp_sub_outflow)) then
                            call s_compute_constant_pressure_subsonic_outflow_l(lambda, l, rho, c, mf, dalpha_rho_ds, dpres_ds, &
                                & dvel_ds, dadv_ds)
                        else if ((cbc_loc == -1 .and. bczb == bc_char_sup_inflow) &
                                 & .or. (cbc_loc == 1 .and. bcze == bc_char_sup_inflow)) then
                            call s_compute_supersonic_inflow_l(l)
                        else if ((cbc_loc == -1 .and. bczb == bc_char_sup_outflow) &
                                 & .or. (cbc_loc == 1 .and. bcze == bc_char_sup_outflow)) then
                            call s_compute_supersonic_outflow_l(lambda, l, rho, c, mf, dalpha_rho_ds, dpres_ds, dvel_ds, dadv_ds, &
                                                                & dys_ds)
                        end if
 
                        ! Be careful about the cylindrical coordinate!
                        if (cyl_coord .and. cbc_dir == 2 .and. cbc_loc == 1) then
                            dpres_dt = -5.e-1_wp*(l(advxe) + l(1)) + rho*c*c*vel(dir_idx(1))/y_cc(n)
                        else
                            dpres_dt = -5.e-1_wp*(l(advxe) + l(1))
                        end if
 
 
# 819 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 819 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc loop seq 
# 819 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 819 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 819 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
                        do i = 1, contxe
                            dalpha_rho_dt(i) = -(l(i + 1) - mf(i)*dpres_dt)/(c*c)
                        end do
 
 
# 824 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 824 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc loop seq 
# 824 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 824 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 824 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
                        do i = 1, num_dims
                            dvel_dt(dir_idx(i)) = dir_flg(dir_idx(i))*(l(1) - l(advxe))/(2._wp*rho*c) + (dir_flg(dir_idx(i)) &
                                    & - 1._wp)*l(momxb + i - 1)
                        end do
 
                        vel_dv_dt_sum = 0._wp
 
# 831 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 831 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc loop seq 
# 831 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 831 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 831 "/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
 
# 837 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 837 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc loop seq 
# 837 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 837 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 837 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
                            do i = 1, num_species
                                dys_dt(i) = -1._wp*l(chemxb + i - 1)
                            end do
                        end if
 
                        ! The treatment of void fraction source is unclear
                        if (cyl_coord .and. cbc_dir == 2 .and. cbc_loc == 1) then
 
# 845 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 845 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc loop seq 
# 845 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 845 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 845 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
                            do i = 1, advxe - e_idx
                                dadv_dt(i) = -l(momxe + i)  ! + adv_local(i) * vel(dir_idx(1))/y_cc(n)
                            end do
                        else
 
# 850 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 850 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc loop seq 
# 850 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 850 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 850 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
                            do i = 1, advxe - e_idx
                                dadv_dt(i) = -l(momxe + i)
                            end do
                        end if
 
                        drho_dt = 0._wp; dgamma_dt = 0._wp; dpi_inf_dt = 0._wp; dqv_dt = 0._wp
 
                        if (model_eqns == 1) then
                            drho_dt = dalpha_rho_dt(1)
                            dgamma_dt = dadv_dt(1)
# 862 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
                                dpi_inf_dt = dadv_dt(2)
# 864 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
                        else
 
# 865 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 865 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc loop seq 
# 865 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 865 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 865 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
                            do i = 1, 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
 
# 875 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 875 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc loop seq 
# 875 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 875 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 875 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
                        do i = 1, contxe
                            flux_rsz_vf_l(-1, k, r, i) = flux_rsz_vf_l(0, k, r, i) + ds(0)*dalpha_rho_dt(i)
                        end do
 
 
# 880 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 880 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc loop seq 
# 880 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 880 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 880 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
                        do i = momxb, momxe
                            flux_rsz_vf_l(-1, k, r, i) = flux_rsz_vf_l(0, k, r, &
                                                & i) + ds(0)*(vel(i - contxe)*drho_dt + rho*dvel_dt(i - contxe))
                        end do
 
                        if (chemistry) then
                            ! Evolution of LODI equation of energy for real gases adjusted to perfect gas,
                            ! doi:10.1006/jcph.2002.6990
                            call get_species_enthalpies_rt(t, h_k)
                            sum_enthalpies = 0._wp
 
# 891 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 891 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc loop seq 
# 891 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 891 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 891 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
                            do i = 1, num_species
# 898 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
                                    h_k(i) = h_k(i)*gas_constant/molecular_weights(i)*t
                                    sum_enthalpies = sum_enthalpies + (rho*h_k(i) - pres*mw/molecular_weights(i)*cp/r_gas)*dys_dt(i)
# 901 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
                            end do
                            flux_rsz_vf_l(-1, k, r, e_idx) = flux_rsz_vf_l(0, k, r, &
                                                & e_idx) + ds(0)*((e/rho + pres/rho)*drho_dt + rho*vel_dv_dt_sum + cp*t*l(2)/(c*c) &
                                                & + sum_enthalpies)
 
# 905 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 905 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc loop seq 
# 905 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 905 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 905 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
                            do i = 1, num_species
                                flux_rsz_vf_l(-1, k, r, i - 1 + chemxb) = flux_rsz_vf_l(0, k, r, &
                                                    & chemxb + i - 1) + ds(0)*(drho_dt*ys(i) + rho*dys_dt(i))
                            end do
                        else
                            flux_rsz_vf_l(-1, k, r, e_idx) = flux_rsz_vf_l(0, k, r, &
                                                & e_idx) + ds(0)*(pres*dgamma_dt + gamma*dpres_dt + dpi_inf_dt + dqv_dt &
                                                & + rho*vel_dv_dt_sum + 5.e-1_wp*drho_dt*vel_k_sum)
                        end if
 
                        if (riemann_solver == 1) then
 
# 917 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 917 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc loop seq 
# 917 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 917 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 917 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
                            do i = advxb, advxe
                                flux_rsz_vf_l(-1, k, r, i) = 0._wp
                            end do
 
 
# 922 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 922 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc loop seq 
# 922 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 922 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 922 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
                            do i = advxb, advxe
                                flux_src_rsz_vf_l(-1, k, r, i) = 1._wp/max(abs(vel(dir_idx(1))), sgm_eps)*sign(1._wp, &
                                                        & vel(dir_idx(1)))*(flux_rsz_vf_l(0, k, r, &
                                                        & i) + vel(dir_idx(1))*flux_src_rsz_vf_l(0, k, r, &
                                                        & i) + ds(0)*dadv_dt(i - e_idx))
                            end do
                        else
 
# 930 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 930 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc loop seq 
# 930 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 930 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 930 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
                            do i = advxb, advxe
                                flux_rsz_vf_l(-1, k, r, i) = flux_rsz_vf_l(0, k, r, i) + ds(0)*dadv_dt(i - e_idx)
                            end do
 
 
# 935 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 935 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc loop seq 
# 935 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 935 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 935 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
                            do i = advxb, advxe
                                flux_src_rsz_vf_l(-1, k, r, i) = flux_src_rsz_vf_l(0, k, r, i)
                            end do
                        end if
                        ! END: flux_rs_vf_l and flux_src_rs_vf_l at j = -1/2
                    end do
                end do
 
# 943 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 943 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc end parallel loop
# 943 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 943 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 943 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$omp end target teams loop
# 943 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
            end if
# 946 "/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)
 
# 980 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 980 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc update device(is1, is2, is3, dj) 
# 980 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 980 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$omp target update to(is1, is2, is3, dj) 
# 980 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
 
# 981 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 981 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc update device(dir_idx, dir_flg) 
# 981 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 981 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$omp target update to(dir_idx, dir_flg) 
# 981 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
 
        ! Reshaping Inputted Data in x-direction
        if (cbc_dir == 1) then
 
# 985 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 985 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 985 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc parallel loop collapse(4) gang vector default(present) private(i, j, k, r) 
# 985 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 985 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 985 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 985 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 985 "/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) 
# 985 "/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
 
# 995 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 995 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc end parallel loop
# 995 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 995 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 995 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$omp end target teams loop
# 995 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
 
 
# 997 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 997 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 997 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc parallel loop collapse(3) gang vector default(present) private(j, k, r) 
# 997 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 997 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 997 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 997 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 997 "/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) 
# 997 "/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, momxb) = q_prim_vf(momxb)%sf(dj*(m - 2*j) + j, k, r)*sign(1._wp, -1._wp*cbc_loc)
                    end do
                end do
            end do
 
# 1005 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 1005 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc end parallel loop
# 1005 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 1005 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 1005 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$omp end target teams loop
# 1005 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
 
 
# 1007 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 1007 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 1007 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc parallel loop collapse(4) gang vector default(present) private(i, j, k, r) 
# 1007 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 1007 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 1007 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 1007 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 1007 "/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) 
# 1007 "/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
 
# 1017 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 1017 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc end parallel loop
# 1017 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 1017 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 1017 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$omp end target teams loop
# 1017 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
 
 
# 1019 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 1019 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 1019 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc parallel loop collapse(3) gang vector default(present) private(j, k, r) 
# 1019 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 1019 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 1019 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 1019 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 1019 "/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) 
# 1019 "/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, momxb) = flux_vf(momxb)%sf(dj*((m - 1) - 2*j) + j, k, r)
                    end do
                end do
            end do
 
# 1027 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 1027 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc end parallel loop
# 1027 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 1027 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 1027 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$omp end target teams loop
# 1027 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
 
            if (riemann_solver == 1) 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 = advxb, advxe
                    do r = is3%beg, is3%end
                        do k = is2%beg, is2%end
                            do j = -1, buff_size
                                flux_src_rsx_vf_l(j, k, r, i) = flux_src_vf(i)%sf(dj*((m - 1) - 2*j) + j, k, r)
                            end do
                        end do
                    end do
                end do
 
# 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
            else
 
# 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 = -1, buff_size
                            flux_src_rsx_vf_l(j, k, r, advxb) = flux_src_vf(advxb)%sf(dj*((m - 1) - 2*j) + j, k, r)*sign(1._wp, &
                                              & -1._wp*cbc_loc)
                        end do
                    end do
                end do
 
# 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
            end if
 
            ! END: Reshaping Inputted Data in x-direction
 
            ! Reshaping Inputted Data in y-direction
        else if (cbc_dir == 2) then
 
# 1058 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 1058 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 1058 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc parallel loop collapse(4) gang vector default(present) private(i, j, k, r) 
# 1058 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 1058 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 1058 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 1058 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 1058 "/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) 
# 1058 "/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
 
# 1068 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 1068 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc end parallel loop
# 1068 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 1068 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 1068 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$omp end target teams loop
# 1068 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
 
 
# 1070 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 1070 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 1070 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc parallel loop collapse(3) gang vector default(present) private(j, k, r) 
# 1070 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 1070 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 1070 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 1070 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 1070 "/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) 
# 1070 "/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, momxb + 1) = q_prim_vf(momxb + 1)%sf(k, dj*(n - 2*j) + j, r)*sign(1._wp, &
                                      & -1._wp*cbc_loc)
                    end do
                end do
            end do
 
# 1079 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 1079 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc end parallel loop
# 1079 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 1079 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 1079 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$omp end target teams loop
# 1079 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
 
 
# 1081 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 1081 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 1081 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc parallel loop collapse(4) gang vector default(present) private(i, j, k, r) 
# 1081 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 1081 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 1081 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 1081 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 1081 "/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) 
# 1081 "/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
 
# 1091 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 1091 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc end parallel loop
# 1091 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 1091 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 1091 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$omp end target teams loop
# 1091 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
 
 
# 1093 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 1093 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 1093 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc parallel loop collapse(3) gang vector default(present) private(j, k, r) 
# 1093 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 1093 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 1093 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 1093 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 1093 "/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) 
# 1093 "/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, momxb + 1) = flux_vf(momxb + 1)%sf(k, dj*((n - 1) - 2*j) + j, r)
                    end do
                end do
            end do
 
# 1101 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 1101 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc end parallel loop
# 1101 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 1101 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 1101 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$omp end target teams loop
# 1101 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
 
            if (riemann_solver == 1) then
 
# 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 = advxb, advxe
                    do r = is3%beg, is3%end
                        do k = is2%beg, is2%end
                            do j = -1, buff_size
                                flux_src_rsy_vf_l(j, k, r, i) = flux_src_vf(i)%sf(k, dj*((n - 1) - 2*j) + j, r)
                            end do
                        end do
                    end do
                end do
 
# 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
            else
 
# 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 = -1, buff_size
                            flux_src_rsy_vf_l(j, k, r, advxb) = flux_src_vf(advxb)%sf(k, dj*((n - 1) - 2*j) + j, r)*sign(1._wp, &
                                              & -1._wp*cbc_loc)
                        end do
                    end do
                end do
 
# 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
            end if
 
            ! END: Reshaping Inputted Data in y-direction
 
            ! Reshaping Inputted Data in z-direction
        else
 
# 1132 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 1132 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 1132 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc parallel loop collapse(4) gang vector default(present) private(i, j, k, r) 
# 1132 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 1132 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 1132 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 1132 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 1132 "/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) 
# 1132 "/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
 
# 1142 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 1142 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc end parallel loop
# 1142 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 1142 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 1142 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$omp end target teams loop
# 1142 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
 
 
# 1144 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 1144 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 1144 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc parallel loop collapse(3) gang vector default(present) private(j, k, r) 
# 1144 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 1144 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 1144 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 1144 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 1144 "/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) 
# 1144 "/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, momxe) = q_prim_vf(momxe)%sf(r, k, dj*(p - 2*j) + j)*sign(1._wp, -1._wp*cbc_loc)
                    end do
                end do
            end do
 
# 1152 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 1152 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc end parallel loop
# 1152 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 1152 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 1152 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$omp end target teams loop
# 1152 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
 
 
# 1154 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 1154 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 1154 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc parallel loop collapse(4) gang vector default(present) private(i, j, k, r) 
# 1154 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 1154 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 1154 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 1154 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 1154 "/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) 
# 1154 "/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
 
# 1164 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 1164 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc end parallel loop
# 1164 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 1164 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 1164 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$omp end target teams loop
# 1164 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
 
 
# 1166 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 1166 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 1166 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc parallel loop collapse(3) gang vector default(present) private(j, k, r) 
# 1166 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 1166 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 1166 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 1166 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 1166 "/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) 
# 1166 "/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, momxe) = flux_vf(momxe)%sf(r, k, dj*((p - 1) - 2*j) + j)
                    end do
                end do
            end do
 
# 1174 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 1174 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc end parallel loop
# 1174 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 1174 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 1174 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$omp end target teams loop
# 1174 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
 
            if (riemann_solver == 1) then
 
# 1177 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 1177 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 1177 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc parallel loop collapse(4) gang vector default(present) private(i, j, k, r) 
# 1177 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 1177 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 1177 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 1177 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 1177 "/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) 
# 1177 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
                do i = advxb, advxe
                    do r = is3%beg, is3%end
                        do k = is2%beg, is2%end
                            do j = -1, buff_size
                                flux_src_rsz_vf_l(j, k, r, i) = flux_src_vf(i)%sf(r, k, dj*((p - 1) - 2*j) + j)
                            end do
                        end do
                    end do
                end do
 
# 1187 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 1187 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc end parallel loop
# 1187 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 1187 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 1187 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$omp end target teams loop
# 1187 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
            else
 
# 1189 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 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 parallel loop collapse(3) gang vector default(present) private(j, k, r) 
# 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"
 
# 1189 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 1189 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 1189 "/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) 
# 1189 "/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, advxb) = flux_src_vf(advxb)%sf(r, k, dj*((p - 1) - 2*j) + j)*sign(1._wp, &
                                              & -1._wp*cbc_loc)
                        end do
                    end do
                end do
 
# 1198 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 1198 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc end parallel loop
# 1198 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 1198 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 1198 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$omp end target teams loop
# 1198 "/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)
 
# 1216 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 1216 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc update device(dj) 
# 1216 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 1216 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$omp target update to(dj) 
# 1216 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
 
        ! Reshaping Outputted Data in x-direction
        if (cbc_dir == 1) then
 
# 1220 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 1220 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 1220 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc parallel loop collapse(4) gang vector default(present) private(i, j, k, r) 
# 1220 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 1220 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 1220 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 1220 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 1220 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$omp target teams loop defaultmap(firstprivate:scalar) bind(teams,parallel) collapse(4) defaultmap(tofrom:aggregate) defaultmap(tofrom:allocatable) defaultmap(tofrom:pointer) private(i, j, k, r) 
# 1220 "/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
 
# 1230 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 1230 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc end parallel loop
# 1230 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 1230 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 1230 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$omp end target teams loop
# 1230 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
 
# 1231 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 1231 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 1231 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc parallel loop collapse(3) gang vector default(present) private(j, k, r) 
# 1231 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 1231 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 1231 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 1231 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 1231 "/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) 
# 1231 "/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(momxb)%sf(dj*((m - 1) - 2*j) + j, k, r) = flux_rsx_vf_l(j, k, r, momxb)
                    end do
                end do
            end do
 
# 1239 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 1239 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc end parallel loop
# 1239 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 1239 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 1239 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$omp end target teams loop
# 1239 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
 
            if (riemann_solver == 1) 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 = advxb, advxe
                    do r = is3%beg, is3%end
                        do k = is2%beg, is2%end
                            do j = -1, buff_size
                                flux_src_vf(i)%sf(dj*((m - 1) - 2*j) + j, k, r) = flux_src_rsx_vf_l(j, k, r, i)
                            end do
                        end do
                    end do
                end do
 
# 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
            else
 
# 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_src_vf(advxb)%sf(dj*((m - 1) - 2*j) + j, k, r) = flux_src_rsx_vf_l(j, k, r, advxb)*sign(1._wp, &
                                        & -1._wp*cbc_loc)
                        end do
                    end do
                end do
 
# 1263 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 1263 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc end parallel loop
# 1263 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 1263 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 1263 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$omp end target teams loop
# 1263 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
            end if
            ! END: Reshaping Outputted Data in x-direction
 
            ! Reshaping Outputted Data in y-direction
        else if (cbc_dir == 2) then
 
# 1269 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 1269 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 1269 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc parallel loop collapse(4) gang vector default(present) private(i, j, k, r) 
# 1269 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 1269 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 1269 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 1269 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 1269 "/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) 
# 1269 "/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
 
# 1279 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 1279 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc end parallel loop
# 1279 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 1279 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 1279 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$omp end target teams loop
# 1279 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
 
 
# 1281 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 1281 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 1281 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc parallel loop collapse(3) gang vector default(present) private(j, k, r) 
# 1281 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 1281 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 1281 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 1281 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 1281 "/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) 
# 1281 "/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(momxb + 1)%sf(k, dj*((n - 1) - 2*j) + j, r) = flux_rsy_vf_l(j, k, r, momxb + 1)
                    end do
                end do
            end do
 
# 1289 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 1289 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc end parallel loop
# 1289 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 1289 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 1289 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$omp end target teams loop
# 1289 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
 
            if (riemann_solver == 1) then
 
# 1292 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 1292 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 1292 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc parallel loop collapse(4) gang vector default(present) private(i, j, k, r) 
# 1292 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 1292 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 1292 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 1292 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 1292 "/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) 
# 1292 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
                do i = advxb, advxe
                    do r = is3%beg, is3%end
                        do k = is2%beg, is2%end
                            do j = -1, buff_size
                                flux_src_vf(i)%sf(k, dj*((n - 1) - 2*j) + j, r) = flux_src_rsy_vf_l(j, k, r, i)
                            end do
                        end do
                    end do
                end do
 
# 1302 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 1302 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc end parallel loop
# 1302 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 1302 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 1302 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$omp end target teams loop
# 1302 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
            else
 
# 1304 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 1304 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 1304 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc parallel loop collapse(3) gang vector default(present) private(j, k, r) 
# 1304 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 1304 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 1304 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 1304 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 1304 "/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) 
# 1304 "/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(advxb)%sf(k, dj*((n - 1) - 2*j) + j, r) = flux_src_rsy_vf_l(j, k, r, advxb)*sign(1._wp, &
                                        & -1._wp*cbc_loc)
                        end do
                    end do
                end do
 
# 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
            end if
 
            ! END: Reshaping Outputted Data in y-direction
 
            ! Reshaping Outputted Data in z-direction
        else
 
# 1320 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 1320 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 1320 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc parallel loop collapse(4) gang vector default(present) private(i, j, k, r) 
# 1320 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 1320 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 1320 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 1320 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 1320 "/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) 
# 1320 "/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
 
# 1330 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 1330 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc end parallel loop
# 1330 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 1330 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 1330 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$omp end target teams loop
# 1330 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
 
 
# 1332 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 1332 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 1332 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc parallel loop collapse(3) gang vector default(present) private(j, k, r) 
# 1332 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 1332 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 1332 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 1332 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 1332 "/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) 
# 1332 "/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(momxe)%sf(r, k, dj*((p - 1) - 2*j) + j) = flux_rsz_vf_l(j, k, r, momxe)
                    end do
                end do
            end do
 
# 1340 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 1340 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc end parallel loop
# 1340 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 1340 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 1340 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$omp end target teams loop
# 1340 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
 
            if (riemann_solver == 1) then
 
# 1343 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 1343 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 1343 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc parallel loop collapse(4) gang vector default(present) private(i, j, k, r) 
# 1343 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 1343 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 1343 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 1343 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 1343 "/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) 
# 1343 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
                do i = advxb, advxe
                    do r = is3%beg, is3%end
                        do k = is2%beg, is2%end
                            do j = -1, buff_size
                                flux_src_vf(i)%sf(r, k, dj*((p - 1) - 2*j) + j) = flux_src_rsz_vf_l(j, k, r, i)
                            end do
                        end do
                    end do
                end do
 
# 1353 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 1353 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc end parallel loop
# 1353 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 1353 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 1353 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$omp end target teams loop
# 1353 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
            else
 
# 1355 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 1355 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 1355 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc parallel loop collapse(3) gang vector default(present) private(j, k, r) 
# 1355 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 1355 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 1355 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 1355 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 1355 "/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) 
# 1355 "/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(advxb)%sf(r, k, dj*((p - 1) - 2*j) + j) = flux_src_rsz_vf_l(j, k, r, advxb)*sign(1._wp, &
                                        & -1._wp*cbc_loc)
                        end do
                    end do
                end do
 
# 1364 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 1364 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc end parallel loop
# 1364 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 1364 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 1364 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$omp end target teams loop
# 1364 "/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.
 
# 1379 "/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
# 1379 "/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
# 1379 "/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
# 1379 "/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
# 1379 "/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
# 1379 "/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
# 1379 "/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
# 1379 "/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
# 1379 "/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
# 1383 "/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
# 1396 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
    block
# 1396 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
        use iso_fortran_env, only: output_unit
# 1396 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 1396 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
        print *, 'm_cbc.fpp:1396: ', '@:DEALLOCATE(q_prim_rsx_vf)'
# 1396 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 1396 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
        call flush (output_unit)
# 1396 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
    end block
# 1396 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
# 1396 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 1396 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 1396 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc exit data delete(q_prim_rsx_vf) 
# 1396 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 1396 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$omp target exit data map(release:q_prim_rsx_vf) 
# 1396 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
# 1396 "/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
# 1398 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
    block
# 1398 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
        use iso_fortran_env, only: output_unit
# 1398 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 1398 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
        print *, 'm_cbc.fpp:1398: ', '@:DEALLOCATE(F_rsx_vf, F_src_rsx_vf)'
# 1398 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 1398 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
        call flush (output_unit)
# 1398 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
    end block
# 1398 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
# 1398 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 1398 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 1398 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc exit data delete(F_rsx_vf, F_src_rsx_vf) 
# 1398 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 1398 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$omp target exit data map(release:F_rsx_vf, F_src_rsx_vf) 
# 1398 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
# 1398 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
    deallocate (f_rsx_vf, f_src_rsx_vf)
        end if
#ifdef MFC_DEBUG
# 1400 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
    block
# 1400 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
        use iso_fortran_env, only: output_unit
# 1400 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 1400 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
        print *, 'm_cbc.fpp:1400: ', '@:DEALLOCATE(flux_rsx_vf_l, flux_src_rsx_vf_l)'
# 1400 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 1400 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
        call flush (output_unit)
# 1400 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
    end block
# 1400 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
# 1400 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 1400 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 1400 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc exit data delete(flux_rsx_vf_l, flux_src_rsx_vf_l) 
# 1400 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 1400 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$omp target exit data map(release:flux_rsx_vf_l, flux_src_rsx_vf_l) 
# 1400 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
# 1400 "/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
# 1403 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
    block
# 1403 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
        use iso_fortran_env, only: output_unit
# 1403 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 1403 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
        print *, 'm_cbc.fpp:1403: ', '@:DEALLOCATE(q_prim_rsy_vf)'
# 1403 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 1403 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
        call flush (output_unit)
# 1403 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
    end block
# 1403 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
# 1403 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 1403 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 1403 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc exit data delete(q_prim_rsy_vf) 
# 1403 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 1403 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$omp target exit data map(release:q_prim_rsy_vf) 
# 1403 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
# 1403 "/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
# 1405 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
    block
# 1405 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
        use iso_fortran_env, only: output_unit
# 1405 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 1405 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
        print *, 'm_cbc.fpp:1405: ', '@:DEALLOCATE(F_rsy_vf, F_src_rsy_vf)'
# 1405 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 1405 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
        call flush (output_unit)
# 1405 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
    end block
# 1405 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
# 1405 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 1405 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 1405 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc exit data delete(F_rsy_vf, F_src_rsy_vf) 
# 1405 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 1405 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$omp target exit data map(release:F_rsy_vf, F_src_rsy_vf) 
# 1405 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
# 1405 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
    deallocate (f_rsy_vf, f_src_rsy_vf)
            end if
#ifdef MFC_DEBUG
# 1407 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
    block
# 1407 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
        use iso_fortran_env, only: output_unit
# 1407 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 1407 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
        print *, 'm_cbc.fpp:1407: ', '@:DEALLOCATE(flux_rsy_vf_l, flux_src_rsy_vf_l)'
# 1407 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 1407 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
        call flush (output_unit)
# 1407 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
    end block
# 1407 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
# 1407 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 1407 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 1407 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc exit data delete(flux_rsy_vf_l, flux_src_rsy_vf_l) 
# 1407 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 1407 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$omp target exit data map(release:flux_rsy_vf_l, flux_src_rsy_vf_l) 
# 1407 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
# 1407 "/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
# 1410 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
    block
# 1410 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
        use iso_fortran_env, only: output_unit
# 1410 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 1410 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
        print *, 'm_cbc.fpp:1410: ', '@:DEALLOCATE(q_prim_rsz_vf)'
# 1410 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 1410 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
        call flush (output_unit)
# 1410 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
    end block
# 1410 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
# 1410 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 1410 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 1410 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc exit data delete(q_prim_rsz_vf) 
# 1410 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 1410 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$omp target exit data map(release:q_prim_rsz_vf) 
# 1410 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
# 1410 "/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
# 1412 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
    block
# 1412 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
        use iso_fortran_env, only: output_unit
# 1412 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 1412 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
        print *, 'm_cbc.fpp:1412: ', '@:DEALLOCATE(F_rsz_vf, F_src_rsz_vf)'
# 1412 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 1412 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
        call flush (output_unit)
# 1412 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
    end block
# 1412 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
# 1412 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 1412 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 1412 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc exit data delete(F_rsz_vf, F_src_rsz_vf) 
# 1412 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 1412 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$omp target exit data map(release:F_rsz_vf, F_src_rsz_vf) 
# 1412 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
# 1412 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
    deallocate (f_rsz_vf, f_src_rsz_vf)
            end if
#ifdef MFC_DEBUG
# 1414 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
    block
# 1414 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
        use iso_fortran_env, only: output_unit
# 1414 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 1414 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
        print *, 'm_cbc.fpp:1414: ', '@:DEALLOCATE(flux_rsz_vf_l, flux_src_rsz_vf_l)'
# 1414 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 1414 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
        call flush (output_unit)
# 1414 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
    end block
# 1414 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
# 1414 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 1414 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 1414 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc exit data delete(flux_rsz_vf_l, flux_src_rsz_vf_l) 
# 1414 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 1414 "/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) 
# 1414 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
# 1414 "/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
# 1418 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
    block
# 1418 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
        use iso_fortran_env, only: output_unit
# 1418 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 1418 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
        print *, 'm_cbc.fpp:1418: ', '@:DEALLOCATE(ds)'
# 1418 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 1418 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
        call flush (output_unit)
# 1418 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
    end block
# 1418 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
# 1418 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 1418 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 1418 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc exit data delete(ds) 
# 1418 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 1418 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$omp target exit data map(release:ds) 
# 1418 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
# 1418 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
    deallocate (ds)
 
        ! Deallocating GRCBC inputs
#ifdef MFC_DEBUG
# 1421 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
    block
# 1421 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
        use iso_fortran_env, only: output_unit
# 1421 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 1421 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
        print *, 'm_cbc.fpp:1421: ', '@:DEALLOCATE(vel_in, vel_out, pres_in, pres_out, Del_in, Del_out, alpha_rho_in, alpha_in)'
# 1421 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 1421 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
        call flush (output_unit)
# 1421 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
    end block
# 1421 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
# 1421 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 1421 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 1421 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc exit data delete(vel_in, vel_out, pres_in, pres_out, Del_in, Del_out, alpha_rho_in, alpha_in) 
# 1421 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 1421 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$omp target exit data map(release:vel_in, vel_out, pres_in, pres_out, Del_in, Del_out, alpha_rho_in, alpha_in) 
# 1421 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
# 1421 "/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
# 1426 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
    block
# 1426 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
        use iso_fortran_env, only: output_unit
# 1426 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 1426 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
        print *, 'm_cbc.fpp:1426: ', '@:DEALLOCATE(fd_coef_x)'
# 1426 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 1426 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
        call flush (output_unit)
# 1426 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
    end block
# 1426 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
# 1426 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 1426 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 1426 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc exit data delete(fd_coef_x) 
# 1426 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 1426 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$omp target exit data map(release:fd_coef_x) 
# 1426 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
# 1426 "/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
# 1428 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
    block
# 1428 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
        use iso_fortran_env, only: output_unit
# 1428 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 1428 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
        print *, 'm_cbc.fpp:1428: ', '@:DEALLOCATE(pi_coef_x)'
# 1428 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 1428 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
        call flush (output_unit)
# 1428 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
    end block
# 1428 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
# 1428 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 1428 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 1428 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc exit data delete(pi_coef_x) 
# 1428 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 1428 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$omp target exit data map(release:pi_coef_x) 
# 1428 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
# 1428 "/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
# 1436 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
    block
# 1436 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
        use iso_fortran_env, only: output_unit
# 1436 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 1436 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
        print *, 'm_cbc.fpp:1436: ', '@:DEALLOCATE(fd_coef_y)'
# 1436 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 1436 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
        call flush (output_unit)
# 1436 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
    end block
# 1436 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
# 1436 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 1436 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 1436 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc exit data delete(fd_coef_y) 
# 1436 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 1436 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$omp target exit data map(release:fd_coef_y) 
# 1436 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
# 1436 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
    deallocate (fd_coef_y)
                if (weno_order > 1) then
#ifdef MFC_DEBUG
# 1438 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
    block
# 1438 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
        use iso_fortran_env, only: output_unit
# 1438 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 1438 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
        print *, 'm_cbc.fpp:1438: ', '@:DEALLOCATE(pi_coef_y)'
# 1438 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 1438 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
        call flush (output_unit)
# 1438 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
    end block
# 1438 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
# 1438 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 1438 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 1438 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc exit data delete(pi_coef_y) 
# 1438 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 1438 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$omp target exit data map(release:pi_coef_y) 
# 1438 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
# 1438 "/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
# 1447 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
    block
# 1447 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
        use iso_fortran_env, only: output_unit
# 1447 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 1447 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
        print *, 'm_cbc.fpp:1447: ', '@:DEALLOCATE(fd_coef_z)'
# 1447 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 1447 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
        call flush (output_unit)
# 1447 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
    end block
# 1447 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
# 1447 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 1447 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 1447 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc exit data delete(fd_coef_z) 
# 1447 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 1447 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$omp target exit data map(release:fd_coef_z) 
# 1447 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
# 1447 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
    deallocate (fd_coef_z)
                if (weno_order > 1) then
#ifdef MFC_DEBUG
# 1449 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
    block
# 1449 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
        use iso_fortran_env, only: output_unit
# 1449 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 1449 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
        print *, 'm_cbc.fpp:1449: ', '@:DEALLOCATE(pi_coef_z)'
# 1449 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 1449 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
        call flush (output_unit)
# 1449 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
    end block
# 1449 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
# 1449 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
 
# 1449 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#if defined(MFC_OpenACC)
# 1449 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$acc exit data delete(pi_coef_z) 
# 1449 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#elif defined(MFC_OpenMP)
# 1449 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
!$omp target exit data map(release:pi_coef_z) 
# 1449 "/home/runner/work/MFC/MFC/src/simulation/m_cbc.fpp"
#endif
# 1449 "/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