m_rhs.fpp.f90

Go to the documentation of this file.

# 1 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!>
!! @file
!! @brief Contains module m_rhs
 
# 1 "/home/runner/work/MFC/MFC/src/common/include/case.fpp" 1
! This file exists so that Fypp can be run without generating case.fpp files for
! each target. This is useful when generating documentation, for example. This
! should also let MFC be built with CMake directly, without invoking mfc.sh.
 
! For pre-process.
# 8 "/home/runner/work/MFC/MFC/src/common/include/case.fpp"
 
! For moving immersed boundaries in simulation
# 12 "/home/runner/work/MFC/MFC/src/common/include/case.fpp"
# 6 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.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"
 
# 145 "/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"
 
# 145 "/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"
 
# 145 "/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.
# 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
# 7 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp" 2
 
!> @brief Assemble the right-hand side of the governing equations using finite-volume flux differencing, Riemann solvers, and
!! physical source terms
module m_rhs
 
    use m_derived_types
    use m_global_parameters
    use m_mpi_proxy
    use m_variables_conversion
    use m_weno
    use m_constants, only: riemann_solver_hll, riemann_solver_hlld, model_eqns_6eq, int_comp_mthinc, recon_type_weno, &
        & recon_type_muscl
    use m_muscl
    use m_riemann_solvers
    use m_cbc
    use m_bubbles_ee
    use m_bubbles_el
    use m_qbmm
    use m_hypoelastic
    use m_hyperelastic
    use m_acoustic_src
    use m_viscous
    use m_ibm
    use m_nvtx
    use m_boundary_common
    use m_helper
    use m_surface_tension
    use m_body_forces
    use m_chemistry
    use m_reactive_burn
    use m_igr
    use m_thinc
    use m_pressure_relaxation
 
    implicit none
 
    private; public :: s_initialize_rhs_module, s_compute_rhs, s_finalize_rhs_module
 
    type(vector_field) :: q_cons_qp  !< WENO-reconstructed cell-average conservative variables at quadrature points
 
# 46 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 46 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc declare create(q_cons_qp) 
# 46 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 46 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp declare target (q_cons_qp) 
# 46 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
 
    type(vector_field) :: q_prim_qp  !< Primitive variables at cell-interior quadrature points
 
# 49 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 49 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc declare create(q_prim_qp) 
# 49 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 49 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp declare target (q_prim_qp) 
# 49 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
 
    !> @name The first-order spatial derivatives of the primitive variables at cell- interior Gaussian quadrature points. These are
    !! WENO-reconstructed from their respective cell-average values, obtained through the application of the divergence theorem on
    !! the integral-average cell-boundary values of the primitive variables, located in qK_prim_n, where K = L or R.
    !> @{
    type(vector_field), allocatable, dimension(:) :: dq_prim_dx_qp, dq_prim_dy_qp, dq_prim_dz_qp
 
# 56 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 56 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc declare create(dq_prim_dx_qp, dq_prim_dy_qp, dq_prim_dz_qp) 
# 56 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 56 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp declare target (dq_prim_dx_qp, dq_prim_dy_qp, dq_prim_dz_qp) 
# 56 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
    !> @}
 
    !> @name The left and right WENO-reconstructed cell-boundary values of the cell- average first-order spatial derivatives of the
    !! primitive variables. The cell-average of the first-order spatial derivatives may be found in the variables dq_prim_ds_qp,
    !! where s = x, y or z.
    !> @{
    type(vector_field), allocatable, dimension(:) :: dql_prim_dx_n, dql_prim_dy_n, dql_prim_dz_n
    type(vector_field), allocatable, dimension(:) :: dqr_prim_dx_n, dqr_prim_dy_n, dqr_prim_dz_n
#if defined(MFC_OpenACC)
 
# 66 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 66 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc declare create(dqL_prim_dx_n, dqL_prim_dy_n, dqL_prim_dz_n) 
# 66 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 66 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp declare target (dqL_prim_dx_n, dqL_prim_dy_n, dqL_prim_dz_n) 
# 66 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
 
# 67 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 67 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc declare create(dqR_prim_dx_n, dqR_prim_dy_n, dqR_prim_dz_n) 
# 67 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 67 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp declare target (dqR_prim_dx_n, dqR_prim_dy_n, dqR_prim_dz_n) 
# 67 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
#endif
    !> @}
 
    type(scalar_field), allocatable, dimension(:) :: tau_re_vf
 
# 72 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 72 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc declare create(tau_Re_vf) 
# 72 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 72 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp declare target (tau_Re_vf) 
# 72 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
 
    !> @name The cell-boundary values of the fluxes (src - source, gsrc - geometrical source). These are computed by applying the
    !! chosen Riemann problem solver on the left and right cell-boundary values of the primitive variables
    !> @{
    type(vector_field), allocatable, dimension(:) :: flux_n
    type(vector_field), allocatable, dimension(:) :: flux_src_n
    type(vector_field), allocatable, dimension(:) :: flux_gsrc_n
 
#if defined(MFC_OpenACC)
 
# 82 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 82 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc declare create(flux_n, flux_src_n, flux_gsrc_n) 
# 82 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 82 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp declare target (flux_n, flux_src_n, flux_gsrc_n) 
# 82 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
#endif
    !> @}
 
    type(vector_field), allocatable, dimension(:) :: ql_prim, qr_prim
#if defined(MFC_OpenACC)
 
# 88 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 88 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc declare create(qL_prim, qR_prim) 
# 88 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 88 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp declare target (qL_prim, qR_prim) 
# 88 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
#endif
 
    type(int_bounds_info) :: iv  !< Vector field indical bounds
 
# 92 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 92 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc declare create(iv) 
# 92 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 92 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp declare target (iv) 
# 92 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
 
    !> @name Indical bounds in the x-, y- and z-directions
    !> @{
    type(int_bounds_info) :: irx, iry, irz
 
# 97 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 97 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc declare create(irx, iry, irz) 
# 97 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 97 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp declare target (irx, iry, irz) 
# 97 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
 
    type(int_bounds_info) :: is1, is2, is3
    !> @}
 
# 101 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 101 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc declare create(is1, is2, is3) 
# 101 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 101 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp declare target (is1, is2, is3) 
# 101 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
 
    !> @name Saved fluxes for testing
    !> @{
    type(scalar_field) :: alf_sum
    !> @}
 
# 107 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 107 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc declare create(alf_sum) 
# 107 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 107 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp declare target (alf_sum) 
# 107 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
 
    real(wp), allocatable, dimension(:,:,:)   :: blkmod1, blkmod2, alpha1, alpha2, kterm
    real(wp), allocatable, dimension(:,:,:,:) :: ql_rsx_vf, qr_rsx_vf
    real(wp), allocatable, dimension(:,:,:,:) :: dql_rsx_vf, dqr_rsx_vf
 
# 112 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 112 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc declare create(blkmod1, blkmod2, alpha1, alpha2, Kterm) 
# 112 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 112 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp declare target (blkmod1, blkmod2, alpha1, alpha2, Kterm) 
# 112 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
 
# 113 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 113 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc declare create(qL_rsx_vf, qR_rsx_vf) 
# 113 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 113 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp declare target (qL_rsx_vf, qR_rsx_vf) 
# 113 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
 
# 114 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 114 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc declare create(dqL_rsx_vf, dqR_rsx_vf) 
# 114 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 114 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp declare target (dqL_rsx_vf, dqR_rsx_vf) 
# 114 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
 
    integer :: iglob
 
# 117 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 117 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc declare create(iglob) 
# 117 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 117 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp declare target (iglob) 
# 117 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
 
contains
 
    !> Initialize the RHS module
    impure subroutine s_initialize_rhs_module
 
        integer :: i, j, k, l, id  !< Generic loop iterators
 
 
# 126 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 126 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc enter data copyin(idwbuff) 
# 126 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 126 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp target enter data map(to:idwbuff) 
# 126 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
 
# 127 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 127 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc update device(idwbuff) 
# 127 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 127 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp target update to(idwbuff) 
# 127 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
 
#ifdef MFC_DEBUG
# 129 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    block
# 129 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        use iso_fortran_env, only: output_unit
# 129 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 129 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        print *, 'm_rhs.fpp:129: ', '@:ALLOCATE(q_cons_qp%vf(1:sys_size))'
# 129 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 129 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        call flush (output_unit)
# 129 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    end block
# 129 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 129 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    allocate (q_cons_qp%vf(1:sys_size))
# 129 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 129 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 129 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 129 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc enter data create(q_cons_qp%vf) 
# 129 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 129 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp target enter data map(always,alloc:q_cons_qp%vf) 
# 129 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
#ifdef MFC_DEBUG
# 130 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    block
# 130 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        use iso_fortran_env, only: output_unit
# 130 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 130 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        print *, 'm_rhs.fpp:130: ', '@:ALLOCATE(q_prim_qp%vf(1:sys_size))'
# 130 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 130 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        call flush (output_unit)
# 130 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    end block
# 130 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 130 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    allocate (q_prim_qp%vf(1:sys_size))
# 130 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 130 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 130 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 130 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc enter data create(q_prim_qp%vf) 
# 130 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 130 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp target enter data map(always,alloc:q_prim_qp%vf) 
# 130 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
 
        if (.not. igr) then
            do l = 1, sys_size
#ifdef MFC_DEBUG
# 134 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    block
# 134 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        use iso_fortran_env, only: output_unit
# 134 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 134 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        print *, 'm_rhs.fpp:134: ', '@:ALLOCATE(q_cons_qp%vf(l)%sf(idwbuff(1)%beg:idwbuff(1)%end, idwbuff(2)%beg:idwbuff(2)%end, idwbuff(3)%beg:idwbuff(3)%end))'
# 134 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 134 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        call flush (output_unit)
# 134 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    end block
# 134 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 134 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    allocate (q_cons_qp%vf(l)%sf(idwbuff(1)%beg:idwbuff(1)%end, idwbuff(2)%beg:idwbuff(2)%end,  idwbuff(3)%beg:idwbuff(3)%end))
# 134 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 134 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 134 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 134 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc enter data create(q_cons_qp%vf(l)%sf) 
# 134 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 134 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp target enter data map(always,alloc:q_cons_qp%vf(l)%sf) 
# 134 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 136 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
            end do
            do l = eqn_idx%mom%beg, eqn_idx%E
#ifdef MFC_DEBUG
# 138 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    block
# 138 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        use iso_fortran_env, only: output_unit
# 138 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 138 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        print *, 'm_rhs.fpp:138: ', '@:ALLOCATE(q_prim_qp%vf(l)%sf(idwbuff(1)%beg:idwbuff(1)%end, idwbuff(2)%beg:idwbuff(2)%end, idwbuff(3)%beg:idwbuff(3)%end))'
# 138 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 138 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        call flush (output_unit)
# 138 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    end block
# 138 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 138 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    allocate (q_prim_qp%vf(l)%sf(idwbuff(1)%beg:idwbuff(1)%end, idwbuff(2)%beg:idwbuff(2)%end,  idwbuff(3)%beg:idwbuff(3)%end))
# 138 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 138 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 138 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 138 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc enter data create(q_prim_qp%vf(l)%sf) 
# 138 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 138 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp target enter data map(always,alloc:q_prim_qp%vf(l)%sf) 
# 138 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 140 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
            end do
        end if
 
        if (surface_tension) then
            do l = eqn_idx%adv%end + 1, eqn_idx%c - 1
#ifdef MFC_DEBUG
# 145 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    block
# 145 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        use iso_fortran_env, only: output_unit
# 145 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 145 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        print *, 'm_rhs.fpp:145: ', '@:ALLOCATE(q_prim_qp%vf(l)%sf(idwbuff(1)%beg:idwbuff(1)%end, idwbuff(2)%beg:idwbuff(2)%end, idwbuff(3)%beg:idwbuff(3)%end))'
# 145 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 145 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        call flush (output_unit)
# 145 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    end block
# 145 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 145 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    allocate (q_prim_qp%vf(l)%sf(idwbuff(1)%beg:idwbuff(1)%end, idwbuff(2)%beg:idwbuff(2)%end,  idwbuff(3)%beg:idwbuff(3)%end))
# 145 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 145 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 145 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 145 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc enter data create(q_prim_qp%vf(l)%sf) 
# 145 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 145 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp target enter data map(always,alloc:q_prim_qp%vf(l)%sf) 
# 145 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 147 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
            end do
        else
            do l = eqn_idx%adv%end + 1, sys_size
#ifdef MFC_DEBUG
# 150 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    block
# 150 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        use iso_fortran_env, only: output_unit
# 150 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 150 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        print *, 'm_rhs.fpp:150: ', '@:ALLOCATE(q_prim_qp%vf(l)%sf(idwbuff(1)%beg:idwbuff(1)%end, idwbuff(2)%beg:idwbuff(2)%end, idwbuff(3)%beg:idwbuff(3)%end))'
# 150 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 150 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        call flush (output_unit)
# 150 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    end block
# 150 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 150 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    allocate (q_prim_qp%vf(l)%sf(idwbuff(1)%beg:idwbuff(1)%end, idwbuff(2)%beg:idwbuff(2)%end,  idwbuff(3)%beg:idwbuff(3)%end))
# 150 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 150 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 150 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 150 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc enter data create(q_prim_qp%vf(l)%sf) 
# 150 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 150 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp target enter data map(always,alloc:q_prim_qp%vf(l)%sf) 
# 150 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 152 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
            end do
        end if
 
        if (.not. igr) then
#ifdef _CRAYFTN
# 156 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    block
# 156 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        integer :: macros_setup_vfs_i
# 156 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 156 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#ifdef MFC_DEBUG
# 156 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    block
# 156 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        use iso_fortran_env, only: output_unit
# 156 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 156 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        print *, 'm_rhs.fpp:156: ', '@:ACC_SETUP_VFs(q_cons_qp, q_prim_qp)'
# 156 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 156 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        call flush (output_unit)
# 156 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    end block
# 156 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 156 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 156 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 156 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 156 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc enter data copyin(q_cons_qp) 
# 156 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 156 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp target enter data map(to:q_cons_qp) 
# 156 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 156 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 156 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 156 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc enter data copyin(q_cons_qp%vf) 
# 156 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 156 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp target enter data map(to:q_cons_qp%vf) 
# 156 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 156 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
            if (allocated(q_cons_qp%vf)) then
# 156 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
                do macros_setup_vfs_i = lbound(q_cons_qp%vf, 1), ubound(q_cons_qp%vf, 1)
# 156 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
                    if (associated(q_cons_qp%vf(macros_setup_vfs_i)%sf)) then
# 156 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 156 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 156 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc enter data copyin(q_cons_qp%vf(macros_setup_vfs_i)) 
# 156 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 156 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp target enter data map(to:q_cons_qp%vf(macros_setup_vfs_i)) 
# 156 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 156 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 156 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 156 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc enter data copyin(q_cons_qp%vf(macros_setup_vfs_i)%sf) 
# 156 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 156 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp target enter data map(to:q_cons_qp%vf(macros_setup_vfs_i)%sf) 
# 156 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 156 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
                    end if
# 156 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
                end do
# 156 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
            end if
# 156 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 156 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 156 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc enter data copyin(q_prim_qp) 
# 156 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 156 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp target enter data map(to:q_prim_qp) 
# 156 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 156 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 156 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 156 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc enter data copyin(q_prim_qp%vf) 
# 156 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 156 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp target enter data map(to:q_prim_qp%vf) 
# 156 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 156 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
            if (allocated(q_prim_qp%vf)) then
# 156 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
                do macros_setup_vfs_i = lbound(q_prim_qp%vf, 1), ubound(q_prim_qp%vf, 1)
# 156 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
                    if (associated(q_prim_qp%vf(macros_setup_vfs_i)%sf)) then
# 156 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 156 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 156 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc enter data copyin(q_prim_qp%vf(macros_setup_vfs_i)) 
# 156 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 156 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp target enter data map(to:q_prim_qp%vf(macros_setup_vfs_i)) 
# 156 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 156 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 156 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 156 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc enter data copyin(q_prim_qp%vf(macros_setup_vfs_i)%sf) 
# 156 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 156 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp target enter data map(to:q_prim_qp%vf(macros_setup_vfs_i)%sf) 
# 156 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 156 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
                    end if
# 156 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
                end do
# 156 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
            end if
# 156 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    end block
# 156 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
 
            do l = 1, eqn_idx%cont%end
                if (relativity) then
                    ! Cons and Prim densities are different for relativity
#ifdef MFC_DEBUG
# 161 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    block
# 161 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        use iso_fortran_env, only: output_unit
# 161 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 161 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        print *, 'm_rhs.fpp:161: ', '@:ALLOCATE(q_prim_qp%vf(l)%sf(idwbuff(1)%beg:idwbuff(1)%end, idwbuff(2)%beg:idwbuff(2)%end, idwbuff(3)%beg:idwbuff(3)%end))'
# 161 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 161 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        call flush (output_unit)
# 161 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    end block
# 161 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 161 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    allocate (q_prim_qp%vf(l)%sf(idwbuff(1)%beg:idwbuff(1)%end, idwbuff(2)%beg:idwbuff(2)%end,  idwbuff(3)%beg:idwbuff(3)%end))
# 161 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 161 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 161 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 161 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc enter data create(q_prim_qp%vf(l)%sf) 
# 161 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 161 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp target enter data map(always,alloc:q_prim_qp%vf(l)%sf) 
# 161 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 163 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
                else
                    q_prim_qp%vf(l)%sf => q_cons_qp%vf(l)%sf
 
# 165 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 165 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc enter data copyin(q_prim_qp%vf(l)%sf) 
# 165 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 165 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp target enter data map(to:q_prim_qp%vf(l)%sf) 
# 165 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
 
# 166 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 166 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc enter data attach(q_prim_qp%vf(l)%sf) 
# 166 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 166 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp target enter data map(always,to:q_prim_qp%vf(l)%sf) 
# 166 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
                end if
            end do
 
            do l = eqn_idx%adv%beg, eqn_idx%adv%end
                q_prim_qp%vf(l)%sf => q_cons_qp%vf(l)%sf
 
# 172 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 172 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc enter data copyin(q_prim_qp%vf(l)%sf) 
# 172 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 172 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp target enter data map(to:q_prim_qp%vf(l)%sf) 
# 172 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
 
# 173 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 173 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc enter data attach(q_prim_qp%vf(l)%sf) 
# 173 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 173 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp target enter data map(always,to:q_prim_qp%vf(l)%sf) 
# 173 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
            end do
        end if
 
        if (surface_tension) then
            q_prim_qp%vf(eqn_idx%c)%sf => q_cons_qp%vf(eqn_idx%c)%sf
 
# 179 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 179 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc enter data copyin(q_prim_qp%vf(eqn_idx%c)%sf) 
# 179 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 179 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp target enter data map(to:q_prim_qp%vf(eqn_idx%c)%sf) 
# 179 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
 
# 180 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 180 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc enter data attach(q_prim_qp%vf(eqn_idx%c)%sf) 
# 180 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 180 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp target enter data map(always,to:q_prim_qp%vf(eqn_idx%c)%sf) 
# 180 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
        end if
 
        if (hyper_cleaning) then
            q_prim_qp%vf(eqn_idx%psi)%sf => q_cons_qp%vf(eqn_idx%psi)%sf
 
# 185 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 185 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc enter data copyin(q_prim_qp%vf(eqn_idx%psi)%sf) 
# 185 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 185 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp target enter data map(to:q_prim_qp%vf(eqn_idx%psi)%sf) 
# 185 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
 
# 186 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 186 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc enter data attach(q_prim_qp%vf(eqn_idx%psi)%sf) 
# 186 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 186 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp target enter data map(always,to:q_prim_qp%vf(eqn_idx%psi)%sf) 
# 186 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
        end if
 
        if (.not. igr) then
#ifdef MFC_DEBUG
# 190 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    block
# 190 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        use iso_fortran_env, only: output_unit
# 190 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 190 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        print *, 'm_rhs.fpp:190: ', '@:ALLOCATE(flux_n(1:num_dims))'
# 190 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 190 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        call flush (output_unit)
# 190 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    end block
# 190 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 190 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    allocate (flux_n(1:num_dims))
# 190 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 190 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 190 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 190 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc enter data create(flux_n) 
# 190 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 190 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp target enter data map(always,alloc:flux_n) 
# 190 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
#ifdef MFC_DEBUG
# 191 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    block
# 191 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        use iso_fortran_env, only: output_unit
# 191 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 191 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        print *, 'm_rhs.fpp:191: ', '@:ALLOCATE(flux_src_n(1:num_dims))'
# 191 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 191 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        call flush (output_unit)
# 191 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    end block
# 191 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 191 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    allocate (flux_src_n(1:num_dims))
# 191 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 191 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 191 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 191 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc enter data create(flux_src_n) 
# 191 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 191 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp target enter data map(always,alloc:flux_src_n) 
# 191 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
#ifdef MFC_DEBUG
# 192 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    block
# 192 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        use iso_fortran_env, only: output_unit
# 192 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 192 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        print *, 'm_rhs.fpp:192: ', '@:ALLOCATE(flux_gsrc_n(1:num_dims))'
# 192 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 192 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        call flush (output_unit)
# 192 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    end block
# 192 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 192 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    allocate (flux_gsrc_n(1:num_dims))
# 192 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 192 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 192 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 192 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc enter data create(flux_gsrc_n) 
# 192 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 192 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp target enter data map(always,alloc:flux_gsrc_n) 
# 192 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
 
            do i = 1, num_dims
#ifdef MFC_DEBUG
# 195 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    block
# 195 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        use iso_fortran_env, only: output_unit
# 195 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 195 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        print *, 'm_rhs.fpp:195: ', '@:ALLOCATE(flux_n(i)%vf(1:sys_size))'
# 195 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 195 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        call flush (output_unit)
# 195 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    end block
# 195 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 195 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    allocate (flux_n(i)%vf(1:sys_size))
# 195 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 195 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 195 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 195 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc enter data create(flux_n(i)%vf) 
# 195 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 195 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp target enter data map(always,alloc:flux_n(i)%vf) 
# 195 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
#ifdef MFC_DEBUG
# 196 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    block
# 196 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        use iso_fortran_env, only: output_unit
# 196 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 196 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        print *, 'm_rhs.fpp:196: ', '@:ALLOCATE(flux_src_n(i)%vf(1:sys_size))'
# 196 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 196 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        call flush (output_unit)
# 196 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    end block
# 196 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 196 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    allocate (flux_src_n(i)%vf(1:sys_size))
# 196 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 196 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 196 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 196 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc enter data create(flux_src_n(i)%vf) 
# 196 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 196 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp target enter data map(always,alloc:flux_src_n(i)%vf) 
# 196 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
#ifdef MFC_DEBUG
# 197 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    block
# 197 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        use iso_fortran_env, only: output_unit
# 197 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 197 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        print *, 'm_rhs.fpp:197: ', '@:ALLOCATE(flux_gsrc_n(i)%vf(1:sys_size))'
# 197 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 197 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        call flush (output_unit)
# 197 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    end block
# 197 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 197 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    allocate (flux_gsrc_n(i)%vf(1:sys_size))
# 197 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 197 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 197 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 197 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc enter data create(flux_gsrc_n(i)%vf) 
# 197 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 197 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp target enter data map(always,alloc:flux_gsrc_n(i)%vf) 
# 197 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
 
                if (i == 1) then
                    do l = 1, sys_size
#ifdef MFC_DEBUG
# 201 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    block
# 201 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        use iso_fortran_env, only: output_unit
# 201 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 201 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        print *, 'm_rhs.fpp:201: ', '@:ALLOCATE(flux_n(i)%vf(l)%sf(idwbuff(1)%beg:idwbuff(1)%end, idwbuff(2)%beg:idwbuff(2)%end, idwbuff(3)%beg:idwbuff(3)%end))'
# 201 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 201 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        call flush (output_unit)
# 201 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    end block
# 201 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 201 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    allocate (flux_n(i)%vf(l)%sf(idwbuff(1)%beg:idwbuff(1)%end, idwbuff(2)%beg:idwbuff(2)%end,  idwbuff(3)%beg:idwbuff(3)%end))
# 201 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 201 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 201 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 201 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc enter data create(flux_n(i)%vf(l)%sf) 
# 201 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 201 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp target enter data map(always,alloc:flux_n(i)%vf(l)%sf) 
# 201 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 203 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#ifdef MFC_DEBUG
# 203 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    block
# 203 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        use iso_fortran_env, only: output_unit
# 203 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 203 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        print *, 'm_rhs.fpp:203: ', '@:ALLOCATE(flux_gsrc_n(i)%vf(l)%sf(idwbuff(1)%beg:idwbuff(1)%end, idwbuff(2)%beg:idwbuff(2)%end, idwbuff(3)%beg:idwbuff(3)%end))'
# 203 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 203 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        call flush (output_unit)
# 203 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    end block
# 203 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 203 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    allocate (flux_gsrc_n(i)%vf(l)%sf(idwbuff(1)%beg:idwbuff(1)%end, idwbuff(2)%beg:idwbuff(2)%end,  idwbuff(3)%beg:idwbuff(3)%end))
# 203 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 203 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 203 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 203 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc enter data create(flux_gsrc_n(i)%vf(l)%sf) 
# 203 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 203 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp target enter data map(always,alloc:flux_gsrc_n(i)%vf(l)%sf) 
# 203 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 205 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
                    end do
 
                    if (viscous .or. surface_tension) then
                        do l = eqn_idx%mom%beg, eqn_idx%E
#ifdef MFC_DEBUG
# 209 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    block
# 209 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        use iso_fortran_env, only: output_unit
# 209 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 209 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        print *, 'm_rhs.fpp:209: ', '@:ALLOCATE(flux_src_n(i)%vf(l)%sf(idwbuff(1)%beg:idwbuff(1)%end, idwbuff(2)%beg:idwbuff(2)%end, idwbuff(3)%beg:idwbuff(3)%end))'
# 209 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 209 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        call flush (output_unit)
# 209 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    end block
# 209 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 209 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    allocate (flux_src_n(i)%vf(l)%sf(idwbuff(1)%beg:idwbuff(1)%end, idwbuff(2)%beg:idwbuff(2)%end,  idwbuff(3)%beg:idwbuff(3)%end))
# 209 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 209 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 209 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 209 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc enter data create(flux_src_n(i)%vf(l)%sf) 
# 209 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 209 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp target enter data map(always,alloc:flux_src_n(i)%vf(l)%sf) 
# 209 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 211 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
                        end do
                    end if
 
#ifdef MFC_DEBUG
# 214 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    block
# 214 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        use iso_fortran_env, only: output_unit
# 214 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 214 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        print *, 'm_rhs.fpp:214: ', '@:ALLOCATE(flux_src_n(i)%vf(eqn_idx%adv%beg)%sf(idwbuff(1)%beg:idwbuff(1)%end, idwbuff(2)%beg:idwbuff(2)%end, idwbuff(3)%beg:idwbuff(3)%end))'
# 214 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 214 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        call flush (output_unit)
# 214 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    end block
# 214 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 214 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    allocate (flux_src_n(i)%vf(eqn_idx%adv%beg)%sf(idwbuff(1)%beg:idwbuff(1)%end, idwbuff(2)%beg:idwbuff(2)%end,  idwbuff(3)%beg:idwbuff(3)%end))
# 214 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 214 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 214 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 214 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc enter data create(flux_src_n(i)%vf(eqn_idx%adv%beg)%sf) 
# 214 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 214 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp target enter data map(always,alloc:flux_src_n(i)%vf(eqn_idx%adv%beg)%sf) 
# 214 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 216 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
                    if (riemann_solver == riemann_solver_hll .or. riemann_solver == riemann_solver_hlld) then
                        do l = eqn_idx%adv%beg + 1, eqn_idx%adv%end
#ifdef MFC_DEBUG
# 219 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    block
# 219 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        use iso_fortran_env, only: output_unit
# 219 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 219 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        print *, 'm_rhs.fpp:219: ', '@:ALLOCATE(flux_src_n(i)%vf(l)%sf(idwbuff(1)%beg:idwbuff(1)%end, idwbuff(2)%beg:idwbuff(2)%end, idwbuff(3)%beg:idwbuff(3)%end))'
# 219 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 219 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        call flush (output_unit)
# 219 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    end block
# 219 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 219 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    allocate (flux_src_n(i)%vf(l)%sf(idwbuff(1)%beg:idwbuff(1)%end, idwbuff(2)%beg:idwbuff(2)%end,  idwbuff(3)%beg:idwbuff(3)%end))
# 219 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 219 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 219 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 219 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc enter data create(flux_src_n(i)%vf(l)%sf) 
# 219 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 219 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp target enter data map(always,alloc:flux_src_n(i)%vf(l)%sf) 
# 219 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 221 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
                        end do
                    end if
 
                    if (chemistry) then
                        do l = eqn_idx%species%beg, eqn_idx%species%end
#ifdef MFC_DEBUG
# 226 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    block
# 226 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        use iso_fortran_env, only: output_unit
# 226 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 226 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        print *, 'm_rhs.fpp:226: ', '@:ALLOCATE(flux_src_n(i)%vf(l)%sf(idwbuff(1)%beg:idwbuff(1)%end, idwbuff(2)%beg:idwbuff(2)%end, idwbuff(3)%beg:idwbuff(3)%end))'
# 226 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 226 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        call flush (output_unit)
# 226 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    end block
# 226 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 226 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    allocate (flux_src_n(i)%vf(l)%sf(idwbuff(1)%beg:idwbuff(1)%end, idwbuff(2)%beg:idwbuff(2)%end,  idwbuff(3)%beg:idwbuff(3)%end))
# 226 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 226 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 226 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 226 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc enter data create(flux_src_n(i)%vf(l)%sf) 
# 226 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 226 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp target enter data map(always,alloc:flux_src_n(i)%vf(l)%sf) 
# 226 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 228 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
                        end do
                        if (chem_params%diffusion .and. .not. viscous) then
#ifdef MFC_DEBUG
# 230 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    block
# 230 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        use iso_fortran_env, only: output_unit
# 230 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 230 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        print *, 'm_rhs.fpp:230: ', '@:ALLOCATE(flux_src_n(i)%vf(eqn_idx%E)%sf(idwbuff(1)%beg:idwbuff(1)%end, idwbuff(2)%beg:idwbuff(2)%end, idwbuff(3)%beg:idwbuff(3)%end))'
# 230 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 230 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        call flush (output_unit)
# 230 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    end block
# 230 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 230 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    allocate (flux_src_n(i)%vf(eqn_idx%E)%sf(idwbuff(1)%beg:idwbuff(1)%end,  idwbuff(2)%beg:idwbuff(2)%end, idwbuff(3)%beg:idwbuff(3)%end))
# 230 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 230 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 230 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 230 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc enter data create(flux_src_n(i)%vf(eqn_idx%E)%sf) 
# 230 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 230 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp target enter data map(always,alloc:flux_src_n(i)%vf(eqn_idx%E)%sf) 
# 230 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 232 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
                        end if
                    end if
                else
                    do l = 1, sys_size
#ifdef MFC_DEBUG
# 236 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    block
# 236 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        use iso_fortran_env, only: output_unit
# 236 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 236 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        print *, 'm_rhs.fpp:236: ', '@:ALLOCATE(flux_gsrc_n(i)%vf(l)%sf(idwbuff(1)%beg:idwbuff(1)%end, idwbuff(2)%beg:idwbuff(2)%end, idwbuff(3)%beg:idwbuff(3)%end))'
# 236 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 236 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        call flush (output_unit)
# 236 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    end block
# 236 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 236 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    allocate (flux_gsrc_n(i)%vf(l)%sf(idwbuff(1)%beg:idwbuff(1)%end, idwbuff(2)%beg:idwbuff(2)%end,  idwbuff(3)%beg:idwbuff(3)%end))
# 236 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 236 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 236 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 236 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc enter data create(flux_gsrc_n(i)%vf(l)%sf) 
# 236 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 236 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp target enter data map(always,alloc:flux_gsrc_n(i)%vf(l)%sf) 
# 236 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 238 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
                    end do
                end if
 
#ifdef _CRAYFTN
# 241 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    block
# 241 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        integer :: macros_setup_vfs_i
# 241 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 241 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#ifdef MFC_DEBUG
# 241 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    block
# 241 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        use iso_fortran_env, only: output_unit
# 241 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 241 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        print *, 'm_rhs.fpp:241: ', '@:ACC_SETUP_VFs(flux_n(i))'
# 241 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 241 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        call flush (output_unit)
# 241 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    end block
# 241 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 241 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 241 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 241 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 241 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc enter data copyin(flux_n(i)) 
# 241 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 241 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp target enter data map(to:flux_n(i)) 
# 241 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 241 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 241 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 241 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc enter data copyin(flux_n(i)%vf) 
# 241 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 241 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp target enter data map(to:flux_n(i)%vf) 
# 241 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 241 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
            if (allocated(flux_n(i)%vf)) then
# 241 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
                do macros_setup_vfs_i = lbound(flux_n(i)%vf, 1), ubound(flux_n(i)%vf, 1)
# 241 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
                    if (associated(flux_n(i)%vf(macros_setup_vfs_i)%sf)) then
# 241 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 241 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 241 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc enter data copyin(flux_n(i)%vf(macros_setup_vfs_i)) 
# 241 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 241 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp target enter data map(to:flux_n(i)%vf(macros_setup_vfs_i)) 
# 241 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 241 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 241 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 241 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc enter data copyin(flux_n(i)%vf(macros_setup_vfs_i)%sf) 
# 241 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 241 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp target enter data map(to:flux_n(i)%vf(macros_setup_vfs_i)%sf) 
# 241 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 241 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
                    end if
# 241 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
                end do
# 241 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
            end if
# 241 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    end block
# 241 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
#ifdef _CRAYFTN
# 242 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    block
# 242 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        integer :: macros_setup_vfs_i
# 242 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 242 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#ifdef MFC_DEBUG
# 242 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    block
# 242 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        use iso_fortran_env, only: output_unit
# 242 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 242 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        print *, 'm_rhs.fpp:242: ', '@:ACC_SETUP_VFs(flux_src_n(i), flux_gsrc_n(i))'
# 242 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 242 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        call flush (output_unit)
# 242 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    end block
# 242 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 242 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 242 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 242 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 242 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc enter data copyin(flux_src_n(i)) 
# 242 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 242 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp target enter data map(to:flux_src_n(i)) 
# 242 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 242 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 242 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 242 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc enter data copyin(flux_src_n(i)%vf) 
# 242 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 242 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp target enter data map(to:flux_src_n(i)%vf) 
# 242 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 242 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
            if (allocated(flux_src_n(i)%vf)) then
# 242 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
                do macros_setup_vfs_i = lbound(flux_src_n(i)%vf, 1), ubound(flux_src_n(i)%vf, 1)
# 242 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
                    if (associated(flux_src_n(i)%vf(macros_setup_vfs_i)%sf)) then
# 242 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 242 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 242 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc enter data copyin(flux_src_n(i)%vf(macros_setup_vfs_i)) 
# 242 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 242 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp target enter data map(to:flux_src_n(i)%vf(macros_setup_vfs_i)) 
# 242 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 242 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 242 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 242 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc enter data copyin(flux_src_n(i)%vf(macros_setup_vfs_i)%sf) 
# 242 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 242 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp target enter data map(to:flux_src_n(i)%vf(macros_setup_vfs_i)%sf) 
# 242 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 242 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
                    end if
# 242 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
                end do
# 242 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
            end if
# 242 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 242 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 242 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc enter data copyin(flux_gsrc_n(i)) 
# 242 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 242 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp target enter data map(to:flux_gsrc_n(i)) 
# 242 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 242 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 242 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 242 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc enter data copyin(flux_gsrc_n(i)%vf) 
# 242 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 242 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp target enter data map(to:flux_gsrc_n(i)%vf) 
# 242 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 242 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
            if (allocated(flux_gsrc_n(i)%vf)) then
# 242 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
                do macros_setup_vfs_i = lbound(flux_gsrc_n(i)%vf, 1), ubound(flux_gsrc_n(i)%vf, 1)
# 242 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
                    if (associated(flux_gsrc_n(i)%vf(macros_setup_vfs_i)%sf)) then
# 242 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 242 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 242 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc enter data copyin(flux_gsrc_n(i)%vf(macros_setup_vfs_i)) 
# 242 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 242 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp target enter data map(to:flux_gsrc_n(i)%vf(macros_setup_vfs_i)) 
# 242 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 242 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 242 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 242 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc enter data copyin(flux_gsrc_n(i)%vf(macros_setup_vfs_i)%sf) 
# 242 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 242 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp target enter data map(to:flux_gsrc_n(i)%vf(macros_setup_vfs_i)%sf) 
# 242 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 242 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
                    end if
# 242 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
                end do
# 242 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
            end if
# 242 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    end block
# 242 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
 
                if (i == 1) then
                    if (riemann_solver /= riemann_solver_hll) then
                        do l = eqn_idx%adv%beg + 1, eqn_idx%adv%end
                            flux_src_n(i)%vf(l)%sf => flux_src_n(i)%vf(eqn_idx%adv%beg)%sf
 
# 248 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 248 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc enter data attach(flux_src_n(i)%vf(l)%sf) 
# 248 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 248 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp target enter data map(always,to:flux_src_n(i)%vf(l)%sf) 
# 248 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
                        end do
                    end if
                else
                    do l = 1, sys_size
                        flux_n(i)%vf(l)%sf => flux_n(1)%vf(l)%sf
 
# 254 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 254 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc enter data attach(flux_n(i)%vf(l)%sf) 
# 254 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 254 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp target enter data map(always,to:flux_n(i)%vf(l)%sf) 
# 254 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
                        flux_src_n(i)%vf(l)%sf => flux_src_n(1)%vf(l)%sf
 
# 256 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 256 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc enter data attach(flux_src_n(i)%vf(l)%sf) 
# 256 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 256 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp target enter data map(always,to:flux_src_n(i)%vf(l)%sf) 
# 256 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
                    end do
                end if
            end do
        end if
 
        if ((.not. igr)) then
#ifdef MFC_DEBUG
# 263 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    block
# 263 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        use iso_fortran_env, only: output_unit
# 263 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 263 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        print *, 'm_rhs.fpp:263: ', '@:ALLOCATE(dq_prim_dx_qp(1:1))'
# 263 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 263 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        call flush (output_unit)
# 263 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    end block
# 263 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 263 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    allocate (dq_prim_dx_qp(1:1))
# 263 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 263 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 263 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 263 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc enter data create(dq_prim_dx_qp) 
# 263 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 263 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp target enter data map(always,alloc:dq_prim_dx_qp) 
# 263 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
#ifdef MFC_DEBUG
# 264 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    block
# 264 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        use iso_fortran_env, only: output_unit
# 264 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 264 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        print *, 'm_rhs.fpp:264: ', '@:ALLOCATE(dq_prim_dy_qp(1:1))'
# 264 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 264 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        call flush (output_unit)
# 264 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    end block
# 264 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 264 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    allocate (dq_prim_dy_qp(1:1))
# 264 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 264 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 264 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 264 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc enter data create(dq_prim_dy_qp) 
# 264 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 264 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp target enter data map(always,alloc:dq_prim_dy_qp) 
# 264 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
#ifdef MFC_DEBUG
# 265 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    block
# 265 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        use iso_fortran_env, only: output_unit
# 265 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 265 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        print *, 'm_rhs.fpp:265: ', '@:ALLOCATE(dq_prim_dz_qp(1:1))'
# 265 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 265 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        call flush (output_unit)
# 265 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    end block
# 265 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 265 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    allocate (dq_prim_dz_qp(1:1))
# 265 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 265 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 265 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 265 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc enter data create(dq_prim_dz_qp) 
# 265 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 265 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp target enter data map(always,alloc:dq_prim_dz_qp) 
# 265 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
 
#ifdef MFC_DEBUG
# 267 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    block
# 267 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        use iso_fortran_env, only: output_unit
# 267 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 267 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        print *, 'm_rhs.fpp:267: ', '@:ALLOCATE(qL_prim(1:num_dims))'
# 267 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 267 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        call flush (output_unit)
# 267 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    end block
# 267 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 267 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    allocate (ql_prim(1:num_dims))
# 267 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 267 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 267 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 267 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc enter data create(qL_prim) 
# 267 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 267 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp target enter data map(always,alloc:qL_prim) 
# 267 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
#ifdef MFC_DEBUG
# 268 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    block
# 268 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        use iso_fortran_env, only: output_unit
# 268 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 268 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        print *, 'm_rhs.fpp:268: ', '@:ALLOCATE(qR_prim(1:num_dims))'
# 268 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 268 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        call flush (output_unit)
# 268 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    end block
# 268 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 268 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    allocate (qr_prim(1:num_dims))
# 268 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 268 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 268 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 268 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc enter data create(qR_prim) 
# 268 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 268 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp target enter data map(always,alloc:qR_prim) 
# 268 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
 
#ifdef MFC_DEBUG
# 270 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    block
# 270 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        use iso_fortran_env, only: output_unit
# 270 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 270 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        print *, 'm_rhs.fpp:270: ', '@:ALLOCATE(dqL_prim_dx_n(1:num_dims))'
# 270 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 270 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        call flush (output_unit)
# 270 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    end block
# 270 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 270 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    allocate (dql_prim_dx_n(1:num_dims))
# 270 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 270 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 270 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 270 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc enter data create(dqL_prim_dx_n) 
# 270 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 270 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp target enter data map(always,alloc:dqL_prim_dx_n) 
# 270 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
#ifdef MFC_DEBUG
# 271 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    block
# 271 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        use iso_fortran_env, only: output_unit
# 271 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 271 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        print *, 'm_rhs.fpp:271: ', '@:ALLOCATE(dqL_prim_dy_n(1:num_dims))'
# 271 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 271 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        call flush (output_unit)
# 271 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    end block
# 271 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 271 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    allocate (dql_prim_dy_n(1:num_dims))
# 271 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 271 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 271 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 271 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc enter data create(dqL_prim_dy_n) 
# 271 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 271 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp target enter data map(always,alloc:dqL_prim_dy_n) 
# 271 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
#ifdef MFC_DEBUG
# 272 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    block
# 272 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        use iso_fortran_env, only: output_unit
# 272 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 272 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        print *, 'm_rhs.fpp:272: ', '@:ALLOCATE(dqL_prim_dz_n(1:num_dims))'
# 272 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 272 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        call flush (output_unit)
# 272 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    end block
# 272 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 272 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    allocate (dql_prim_dz_n(1:num_dims))
# 272 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 272 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 272 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 272 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc enter data create(dqL_prim_dz_n) 
# 272 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 272 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp target enter data map(always,alloc:dqL_prim_dz_n) 
# 272 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
#ifdef MFC_DEBUG
# 273 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    block
# 273 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        use iso_fortran_env, only: output_unit
# 273 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 273 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        print *, 'm_rhs.fpp:273: ', '@:ALLOCATE(dqR_prim_dx_n(1:num_dims))'
# 273 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 273 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        call flush (output_unit)
# 273 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    end block
# 273 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 273 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    allocate (dqr_prim_dx_n(1:num_dims))
# 273 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 273 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 273 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 273 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc enter data create(dqR_prim_dx_n) 
# 273 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 273 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp target enter data map(always,alloc:dqR_prim_dx_n) 
# 273 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
#ifdef MFC_DEBUG
# 274 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    block
# 274 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        use iso_fortran_env, only: output_unit
# 274 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 274 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        print *, 'm_rhs.fpp:274: ', '@:ALLOCATE(dqR_prim_dy_n(1:num_dims))'
# 274 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 274 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        call flush (output_unit)
# 274 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    end block
# 274 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 274 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    allocate (dqr_prim_dy_n(1:num_dims))
# 274 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 274 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 274 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 274 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc enter data create(dqR_prim_dy_n) 
# 274 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 274 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp target enter data map(always,alloc:dqR_prim_dy_n) 
# 274 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
#ifdef MFC_DEBUG
# 275 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    block
# 275 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        use iso_fortran_env, only: output_unit
# 275 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 275 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        print *, 'm_rhs.fpp:275: ', '@:ALLOCATE(dqR_prim_dz_n(1:num_dims))'
# 275 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 275 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        call flush (output_unit)
# 275 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    end block
# 275 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 275 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    allocate (dqr_prim_dz_n(1:num_dims))
# 275 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 275 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 275 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 275 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc enter data create(dqR_prim_dz_n) 
# 275 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 275 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp target enter data map(always,alloc:dqR_prim_dz_n) 
# 275 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
 
            do i = 1, num_dims
#ifdef MFC_DEBUG
# 278 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    block
# 278 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        use iso_fortran_env, only: output_unit
# 278 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 278 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        print *, 'm_rhs.fpp:278: ', '@:ALLOCATE(qL_prim(i)%vf(1:sys_size))'
# 278 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 278 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        call flush (output_unit)
# 278 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    end block
# 278 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 278 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    allocate (ql_prim(i)%vf(1:sys_size))
# 278 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 278 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 278 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 278 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc enter data create(qL_prim(i)%vf) 
# 278 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 278 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp target enter data map(always,alloc:qL_prim(i)%vf) 
# 278 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
#ifdef MFC_DEBUG
# 279 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    block
# 279 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        use iso_fortran_env, only: output_unit
# 279 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 279 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        print *, 'm_rhs.fpp:279: ', '@:ALLOCATE(qR_prim(i)%vf(1:sys_size))'
# 279 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 279 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        call flush (output_unit)
# 279 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    end block
# 279 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 279 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    allocate (qr_prim(i)%vf(1:sys_size))
# 279 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 279 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 279 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 279 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc enter data create(qR_prim(i)%vf) 
# 279 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 279 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp target enter data map(always,alloc:qR_prim(i)%vf) 
# 279 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
                do l = eqn_idx%mom%beg, eqn_idx%mom%end
#ifdef MFC_DEBUG
# 281 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    block
# 281 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        use iso_fortran_env, only: output_unit
# 281 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 281 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        print *, 'm_rhs.fpp:281: ', '@:ALLOCATE(qL_prim(i)%vf(l)%sf(idwbuff(1)%beg:idwbuff(1)%end, idwbuff(2)%beg:idwbuff(2)%end, idwbuff(3)%beg:idwbuff(3)%end))'
# 281 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 281 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        call flush (output_unit)
# 281 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    end block
# 281 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 281 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    allocate (ql_prim(i)%vf(l)%sf(idwbuff(1)%beg:idwbuff(1)%end, idwbuff(2)%beg:idwbuff(2)%end,  idwbuff(3)%beg:idwbuff(3)%end))
# 281 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 281 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 281 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 281 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc enter data create(qL_prim(i)%vf(l)%sf) 
# 281 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 281 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp target enter data map(always,alloc:qL_prim(i)%vf(l)%sf) 
# 281 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 283 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#ifdef MFC_DEBUG
# 283 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    block
# 283 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        use iso_fortran_env, only: output_unit
# 283 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 283 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        print *, 'm_rhs.fpp:283: ', '@:ALLOCATE(qR_prim(i)%vf(l)%sf(idwbuff(1)%beg:idwbuff(1)%end, idwbuff(2)%beg:idwbuff(2)%end, idwbuff(3)%beg:idwbuff(3)%end))'
# 283 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 283 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        call flush (output_unit)
# 283 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    end block
# 283 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 283 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    allocate (qr_prim(i)%vf(l)%sf(idwbuff(1)%beg:idwbuff(1)%end, idwbuff(2)%beg:idwbuff(2)%end,  idwbuff(3)%beg:idwbuff(3)%end))
# 283 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 283 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 283 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 283 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc enter data create(qR_prim(i)%vf(l)%sf) 
# 283 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 283 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp target enter data map(always,alloc:qR_prim(i)%vf(l)%sf) 
# 283 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 285 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
                end do
#ifdef _CRAYFTN
# 286 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    block
# 286 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        integer :: macros_setup_vfs_i
# 286 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 286 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#ifdef MFC_DEBUG
# 286 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    block
# 286 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        use iso_fortran_env, only: output_unit
# 286 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 286 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        print *, 'm_rhs.fpp:286: ', '@:ACC_SETUP_VFs(qL_prim(i), qR_prim(i))'
# 286 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 286 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        call flush (output_unit)
# 286 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    end block
# 286 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 286 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 286 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 286 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 286 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc enter data copyin(qL_prim(i)) 
# 286 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 286 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp target enter data map(to:qL_prim(i)) 
# 286 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 286 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 286 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 286 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc enter data copyin(qL_prim(i)%vf) 
# 286 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 286 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp target enter data map(to:qL_prim(i)%vf) 
# 286 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 286 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
            if (allocated(ql_prim(i)%vf)) then
# 286 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
                do macros_setup_vfs_i = lbound(ql_prim(i)%vf, 1), ubound(ql_prim(i)%vf, 1)
# 286 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
                    if (associated(ql_prim(i)%vf(macros_setup_vfs_i)%sf)) then
# 286 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 286 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 286 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc enter data copyin(qL_prim(i)%vf(macros_setup_vfs_i)) 
# 286 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 286 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp target enter data map(to:qL_prim(i)%vf(macros_setup_vfs_i)) 
# 286 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 286 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 286 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 286 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc enter data copyin(qL_prim(i)%vf(macros_setup_vfs_i)%sf) 
# 286 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 286 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp target enter data map(to:qL_prim(i)%vf(macros_setup_vfs_i)%sf) 
# 286 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 286 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
                    end if
# 286 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
                end do
# 286 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
            end if
# 286 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 286 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 286 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc enter data copyin(qR_prim(i)) 
# 286 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 286 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp target enter data map(to:qR_prim(i)) 
# 286 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 286 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 286 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 286 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc enter data copyin(qR_prim(i)%vf) 
# 286 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 286 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp target enter data map(to:qR_prim(i)%vf) 
# 286 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 286 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
            if (allocated(qr_prim(i)%vf)) then
# 286 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
                do macros_setup_vfs_i = lbound(qr_prim(i)%vf, 1), ubound(qr_prim(i)%vf, 1)
# 286 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
                    if (associated(qr_prim(i)%vf(macros_setup_vfs_i)%sf)) then
# 286 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 286 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 286 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc enter data copyin(qR_prim(i)%vf(macros_setup_vfs_i)) 
# 286 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 286 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp target enter data map(to:qR_prim(i)%vf(macros_setup_vfs_i)) 
# 286 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 286 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 286 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 286 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc enter data copyin(qR_prim(i)%vf(macros_setup_vfs_i)%sf) 
# 286 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 286 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp target enter data map(to:qR_prim(i)%vf(macros_setup_vfs_i)%sf) 
# 286 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 286 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
                    end if
# 286 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
                end do
# 286 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
            end if
# 286 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    end block
# 286 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
            end do
 
#ifdef MFC_DEBUG
# 289 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    block
# 289 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        use iso_fortran_env, only: output_unit
# 289 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 289 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        print *, 'm_rhs.fpp:289: ', '@:ALLOCATE(qL_rsx_vf(idwbuff(1)%beg:idwbuff(1)%end, idwbuff(2)%beg:idwbuff(2)%end, idwbuff(3)%beg:idwbuff(3)%end, 1:sys_size))'
# 289 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 289 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        call flush (output_unit)
# 289 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    end block
# 289 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 289 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    allocate (ql_rsx_vf(idwbuff(1)%beg:idwbuff(1)%end, idwbuff(2)%beg:idwbuff(2)%end, idwbuff(3)%beg:idwbuff(3)%end,  1:sys_size))
# 289 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 289 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 289 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 289 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc enter data create(qL_rsx_vf) 
# 289 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 289 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp target enter data map(always,alloc:qL_rsx_vf) 
# 289 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 291 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#ifdef MFC_DEBUG
# 291 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    block
# 291 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        use iso_fortran_env, only: output_unit
# 291 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 291 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        print *, 'm_rhs.fpp:291: ', '@:ALLOCATE(qR_rsx_vf(idwbuff(1)%beg:idwbuff(1)%end, idwbuff(2)%beg:idwbuff(2)%end, idwbuff(3)%beg:idwbuff(3)%end, 1:sys_size))'
# 291 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 291 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        call flush (output_unit)
# 291 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    end block
# 291 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 291 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    allocate (qr_rsx_vf(idwbuff(1)%beg:idwbuff(1)%end, idwbuff(2)%beg:idwbuff(2)%end, idwbuff(3)%beg:idwbuff(3)%end,  1:sys_size))
# 291 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 291 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 291 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 291 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc enter data create(qR_rsx_vf) 
# 291 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 291 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp target enter data map(always,alloc:qR_rsx_vf) 
# 291 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 293 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
            if (.not. viscous) then
                do i = 1, num_dims
#ifdef MFC_DEBUG
# 296 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    block
# 296 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        use iso_fortran_env, only: output_unit
# 296 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 296 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        print *, 'm_rhs.fpp:296: ', '@:ALLOCATE(dqL_prim_dx_n(i)%vf(1:sys_size))'
# 296 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 296 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        call flush (output_unit)
# 296 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    end block
# 296 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 296 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    allocate (dql_prim_dx_n(i)%vf(1:sys_size))
# 296 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 296 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 296 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 296 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc enter data create(dqL_prim_dx_n(i)%vf) 
# 296 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 296 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp target enter data map(always,alloc:dqL_prim_dx_n(i)%vf) 
# 296 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
#ifdef MFC_DEBUG
# 297 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    block
# 297 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        use iso_fortran_env, only: output_unit
# 297 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 297 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        print *, 'm_rhs.fpp:297: ', '@:ALLOCATE(dqL_prim_dy_n(i)%vf(1:sys_size))'
# 297 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 297 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        call flush (output_unit)
# 297 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    end block
# 297 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 297 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    allocate (dql_prim_dy_n(i)%vf(1:sys_size))
# 297 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 297 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 297 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 297 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc enter data create(dqL_prim_dy_n(i)%vf) 
# 297 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 297 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp target enter data map(always,alloc:dqL_prim_dy_n(i)%vf) 
# 297 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
#ifdef MFC_DEBUG
# 298 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    block
# 298 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        use iso_fortran_env, only: output_unit
# 298 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 298 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        print *, 'm_rhs.fpp:298: ', '@:ALLOCATE(dqL_prim_dz_n(i)%vf(1:sys_size))'
# 298 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 298 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        call flush (output_unit)
# 298 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    end block
# 298 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 298 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    allocate (dql_prim_dz_n(i)%vf(1:sys_size))
# 298 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 298 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 298 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 298 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc enter data create(dqL_prim_dz_n(i)%vf) 
# 298 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 298 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp target enter data map(always,alloc:dqL_prim_dz_n(i)%vf) 
# 298 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
#ifdef MFC_DEBUG
# 299 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    block
# 299 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        use iso_fortran_env, only: output_unit
# 299 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 299 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        print *, 'm_rhs.fpp:299: ', '@:ALLOCATE(dqR_prim_dx_n(i)%vf(1:sys_size))'
# 299 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 299 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        call flush (output_unit)
# 299 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    end block
# 299 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 299 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    allocate (dqr_prim_dx_n(i)%vf(1:sys_size))
# 299 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 299 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 299 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 299 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc enter data create(dqR_prim_dx_n(i)%vf) 
# 299 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 299 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp target enter data map(always,alloc:dqR_prim_dx_n(i)%vf) 
# 299 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
#ifdef MFC_DEBUG
# 300 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    block
# 300 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        use iso_fortran_env, only: output_unit
# 300 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 300 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        print *, 'm_rhs.fpp:300: ', '@:ALLOCATE(dqR_prim_dy_n(i)%vf(1:sys_size))'
# 300 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 300 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        call flush (output_unit)
# 300 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    end block
# 300 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 300 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    allocate (dqr_prim_dy_n(i)%vf(1:sys_size))
# 300 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 300 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 300 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 300 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc enter data create(dqR_prim_dy_n(i)%vf) 
# 300 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 300 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp target enter data map(always,alloc:dqR_prim_dy_n(i)%vf) 
# 300 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
#ifdef MFC_DEBUG
# 301 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    block
# 301 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        use iso_fortran_env, only: output_unit
# 301 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 301 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        print *, 'm_rhs.fpp:301: ', '@:ALLOCATE(dqR_prim_dz_n(i)%vf(1:sys_size))'
# 301 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 301 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        call flush (output_unit)
# 301 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    end block
# 301 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 301 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    allocate (dqr_prim_dz_n(i)%vf(1:sys_size))
# 301 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 301 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 301 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 301 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc enter data create(dqR_prim_dz_n(i)%vf) 
# 301 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 301 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp target enter data map(always,alloc:dqR_prim_dz_n(i)%vf) 
# 301 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
 
                    do l = eqn_idx%mom%beg, eqn_idx%mom%end
#ifdef MFC_DEBUG
# 304 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    block
# 304 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        use iso_fortran_env, only: output_unit
# 304 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 304 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        print *, 'm_rhs.fpp:304: ', '@:ALLOCATE(dqL_prim_dx_n(i)%vf(l)%sf(1:1, 1:1, 1:1))'
# 304 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 304 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        call flush (output_unit)
# 304 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    end block
# 304 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 304 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    allocate (dql_prim_dx_n(i)%vf(l)%sf(1:1, 1:1, 1:1))
# 304 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 304 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 304 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 304 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc enter data create(dqL_prim_dx_n(i)%vf(l)%sf) 
# 304 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 304 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp target enter data map(always,alloc:dqL_prim_dx_n(i)%vf(l)%sf) 
# 304 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
#ifdef MFC_DEBUG
# 305 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    block
# 305 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        use iso_fortran_env, only: output_unit
# 305 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 305 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        print *, 'm_rhs.fpp:305: ', '@:ALLOCATE(dqL_prim_dy_n(i)%vf(l)%sf(1:1, 1:1, 1:1))'
# 305 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 305 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        call flush (output_unit)
# 305 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    end block
# 305 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 305 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    allocate (dql_prim_dy_n(i)%vf(l)%sf(1:1, 1:1, 1:1))
# 305 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 305 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 305 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 305 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc enter data create(dqL_prim_dy_n(i)%vf(l)%sf) 
# 305 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 305 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp target enter data map(always,alloc:dqL_prim_dy_n(i)%vf(l)%sf) 
# 305 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
#ifdef MFC_DEBUG
# 306 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    block
# 306 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        use iso_fortran_env, only: output_unit
# 306 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 306 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        print *, 'm_rhs.fpp:306: ', '@:ALLOCATE(dqL_prim_dz_n(i)%vf(l)%sf(1:1, 1:1, 1:1))'
# 306 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 306 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        call flush (output_unit)
# 306 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    end block
# 306 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 306 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    allocate (dql_prim_dz_n(i)%vf(l)%sf(1:1, 1:1, 1:1))
# 306 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 306 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 306 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 306 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc enter data create(dqL_prim_dz_n(i)%vf(l)%sf) 
# 306 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 306 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp target enter data map(always,alloc:dqL_prim_dz_n(i)%vf(l)%sf) 
# 306 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
#ifdef MFC_DEBUG
# 307 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    block
# 307 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        use iso_fortran_env, only: output_unit
# 307 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 307 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        print *, 'm_rhs.fpp:307: ', '@:ALLOCATE(dqR_prim_dx_n(i)%vf(l)%sf(1:1, 1:1, 1:1))'
# 307 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 307 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        call flush (output_unit)
# 307 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    end block
# 307 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 307 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    allocate (dqr_prim_dx_n(i)%vf(l)%sf(1:1, 1:1, 1:1))
# 307 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 307 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 307 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 307 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc enter data create(dqR_prim_dx_n(i)%vf(l)%sf) 
# 307 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 307 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp target enter data map(always,alloc:dqR_prim_dx_n(i)%vf(l)%sf) 
# 307 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
#ifdef MFC_DEBUG
# 308 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    block
# 308 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        use iso_fortran_env, only: output_unit
# 308 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 308 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        print *, 'm_rhs.fpp:308: ', '@:ALLOCATE(dqR_prim_dy_n(i)%vf(l)%sf(1:1, 1:1, 1:1))'
# 308 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 308 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        call flush (output_unit)
# 308 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    end block
# 308 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 308 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    allocate (dqr_prim_dy_n(i)%vf(l)%sf(1:1, 1:1, 1:1))
# 308 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 308 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 308 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 308 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc enter data create(dqR_prim_dy_n(i)%vf(l)%sf) 
# 308 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 308 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp target enter data map(always,alloc:dqR_prim_dy_n(i)%vf(l)%sf) 
# 308 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
#ifdef MFC_DEBUG
# 309 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    block
# 309 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        use iso_fortran_env, only: output_unit
# 309 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 309 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        print *, 'm_rhs.fpp:309: ', '@:ALLOCATE(dqR_prim_dz_n(i)%vf(l)%sf(1:1, 1:1, 1:1))'
# 309 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 309 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        call flush (output_unit)
# 309 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    end block
# 309 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 309 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    allocate (dqr_prim_dz_n(i)%vf(l)%sf(1:1, 1:1, 1:1))
# 309 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 309 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 309 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 309 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc enter data create(dqR_prim_dz_n(i)%vf(l)%sf) 
# 309 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 309 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp target enter data map(always,alloc:dqR_prim_dz_n(i)%vf(l)%sf) 
# 309 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
                    end do
#ifdef _CRAYFTN
# 311 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    block
# 311 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        integer :: macros_setup_vfs_i
# 311 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 311 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#ifdef MFC_DEBUG
# 311 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    block
# 311 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        use iso_fortran_env, only: output_unit
# 311 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 311 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        print *, 'm_rhs.fpp:311: ', '@:ACC_SETUP_VFs(dqL_prim_dx_n(i), dqL_prim_dy_n(i), dqL_prim_dz_n(i))'
# 311 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 311 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        call flush (output_unit)
# 311 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    end block
# 311 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 311 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 311 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 311 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 311 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc enter data copyin(dqL_prim_dx_n(i)) 
# 311 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 311 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp target enter data map(to:dqL_prim_dx_n(i)) 
# 311 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 311 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 311 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 311 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc enter data copyin(dqL_prim_dx_n(i)%vf) 
# 311 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 311 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp target enter data map(to:dqL_prim_dx_n(i)%vf) 
# 311 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 311 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
            if (allocated(dql_prim_dx_n(i)%vf)) then
# 311 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
                do macros_setup_vfs_i = lbound(dql_prim_dx_n(i)%vf, 1), ubound(dql_prim_dx_n(i)%vf, 1)
# 311 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
                    if (associated(dql_prim_dx_n(i)%vf(macros_setup_vfs_i)%sf)) then
# 311 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 311 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 311 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc enter data copyin(dqL_prim_dx_n(i)%vf(macros_setup_vfs_i)) 
# 311 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 311 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp target enter data map(to:dqL_prim_dx_n(i)%vf(macros_setup_vfs_i)) 
# 311 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 311 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 311 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 311 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc enter data copyin(dqL_prim_dx_n(i)%vf(macros_setup_vfs_i)%sf) 
# 311 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 311 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp target enter data map(to:dqL_prim_dx_n(i)%vf(macros_setup_vfs_i)%sf) 
# 311 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 311 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
                    end if
# 311 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
                end do
# 311 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
            end if
# 311 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 311 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 311 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc enter data copyin(dqL_prim_dy_n(i)) 
# 311 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 311 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp target enter data map(to:dqL_prim_dy_n(i)) 
# 311 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 311 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 311 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 311 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc enter data copyin(dqL_prim_dy_n(i)%vf) 
# 311 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 311 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp target enter data map(to:dqL_prim_dy_n(i)%vf) 
# 311 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 311 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
            if (allocated(dql_prim_dy_n(i)%vf)) then
# 311 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
                do macros_setup_vfs_i = lbound(dql_prim_dy_n(i)%vf, 1), ubound(dql_prim_dy_n(i)%vf, 1)
# 311 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
                    if (associated(dql_prim_dy_n(i)%vf(macros_setup_vfs_i)%sf)) then
# 311 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 311 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 311 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc enter data copyin(dqL_prim_dy_n(i)%vf(macros_setup_vfs_i)) 
# 311 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 311 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp target enter data map(to:dqL_prim_dy_n(i)%vf(macros_setup_vfs_i)) 
# 311 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 311 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 311 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 311 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc enter data copyin(dqL_prim_dy_n(i)%vf(macros_setup_vfs_i)%sf) 
# 311 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 311 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp target enter data map(to:dqL_prim_dy_n(i)%vf(macros_setup_vfs_i)%sf) 
# 311 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 311 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
                    end if
# 311 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
                end do
# 311 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
            end if
# 311 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 311 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 311 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc enter data copyin(dqL_prim_dz_n(i)) 
# 311 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 311 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp target enter data map(to:dqL_prim_dz_n(i)) 
# 311 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 311 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 311 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 311 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc enter data copyin(dqL_prim_dz_n(i)%vf) 
# 311 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 311 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp target enter data map(to:dqL_prim_dz_n(i)%vf) 
# 311 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 311 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
            if (allocated(dql_prim_dz_n(i)%vf)) then
# 311 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
                do macros_setup_vfs_i = lbound(dql_prim_dz_n(i)%vf, 1), ubound(dql_prim_dz_n(i)%vf, 1)
# 311 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
                    if (associated(dql_prim_dz_n(i)%vf(macros_setup_vfs_i)%sf)) then
# 311 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 311 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 311 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc enter data copyin(dqL_prim_dz_n(i)%vf(macros_setup_vfs_i)) 
# 311 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 311 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp target enter data map(to:dqL_prim_dz_n(i)%vf(macros_setup_vfs_i)) 
# 311 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 311 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 311 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 311 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc enter data copyin(dqL_prim_dz_n(i)%vf(macros_setup_vfs_i)%sf) 
# 311 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 311 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp target enter data map(to:dqL_prim_dz_n(i)%vf(macros_setup_vfs_i)%sf) 
# 311 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 311 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
                    end if
# 311 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
                end do
# 311 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
            end if
# 311 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    end block
# 311 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
#ifdef _CRAYFTN
# 312 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    block
# 312 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        integer :: macros_setup_vfs_i
# 312 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 312 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#ifdef MFC_DEBUG
# 312 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    block
# 312 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        use iso_fortran_env, only: output_unit
# 312 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 312 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        print *, 'm_rhs.fpp:312: ', '@:ACC_SETUP_VFs(dqR_prim_dx_n(i), dqR_prim_dy_n(i), dqR_prim_dz_n(i))'
# 312 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 312 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        call flush (output_unit)
# 312 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    end block
# 312 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 312 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 312 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 312 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 312 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc enter data copyin(dqR_prim_dx_n(i)) 
# 312 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 312 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp target enter data map(to:dqR_prim_dx_n(i)) 
# 312 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 312 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 312 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 312 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc enter data copyin(dqR_prim_dx_n(i)%vf) 
# 312 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 312 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp target enter data map(to:dqR_prim_dx_n(i)%vf) 
# 312 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 312 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
            if (allocated(dqr_prim_dx_n(i)%vf)) then
# 312 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
                do macros_setup_vfs_i = lbound(dqr_prim_dx_n(i)%vf, 1), ubound(dqr_prim_dx_n(i)%vf, 1)
# 312 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
                    if (associated(dqr_prim_dx_n(i)%vf(macros_setup_vfs_i)%sf)) then
# 312 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 312 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 312 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc enter data copyin(dqR_prim_dx_n(i)%vf(macros_setup_vfs_i)) 
# 312 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 312 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp target enter data map(to:dqR_prim_dx_n(i)%vf(macros_setup_vfs_i)) 
# 312 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 312 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 312 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 312 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc enter data copyin(dqR_prim_dx_n(i)%vf(macros_setup_vfs_i)%sf) 
# 312 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 312 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp target enter data map(to:dqR_prim_dx_n(i)%vf(macros_setup_vfs_i)%sf) 
# 312 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 312 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
                    end if
# 312 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
                end do
# 312 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
            end if
# 312 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 312 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 312 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc enter data copyin(dqR_prim_dy_n(i)) 
# 312 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 312 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp target enter data map(to:dqR_prim_dy_n(i)) 
# 312 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 312 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 312 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 312 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc enter data copyin(dqR_prim_dy_n(i)%vf) 
# 312 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 312 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp target enter data map(to:dqR_prim_dy_n(i)%vf) 
# 312 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 312 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
            if (allocated(dqr_prim_dy_n(i)%vf)) then
# 312 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
                do macros_setup_vfs_i = lbound(dqr_prim_dy_n(i)%vf, 1), ubound(dqr_prim_dy_n(i)%vf, 1)
# 312 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
                    if (associated(dqr_prim_dy_n(i)%vf(macros_setup_vfs_i)%sf)) then
# 312 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 312 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 312 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc enter data copyin(dqR_prim_dy_n(i)%vf(macros_setup_vfs_i)) 
# 312 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 312 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp target enter data map(to:dqR_prim_dy_n(i)%vf(macros_setup_vfs_i)) 
# 312 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 312 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 312 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 312 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc enter data copyin(dqR_prim_dy_n(i)%vf(macros_setup_vfs_i)%sf) 
# 312 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 312 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp target enter data map(to:dqR_prim_dy_n(i)%vf(macros_setup_vfs_i)%sf) 
# 312 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 312 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
                    end if
# 312 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
                end do
# 312 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
            end if
# 312 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 312 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 312 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc enter data copyin(dqR_prim_dz_n(i)) 
# 312 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 312 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp target enter data map(to:dqR_prim_dz_n(i)) 
# 312 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 312 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 312 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 312 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc enter data copyin(dqR_prim_dz_n(i)%vf) 
# 312 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 312 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp target enter data map(to:dqR_prim_dz_n(i)%vf) 
# 312 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 312 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
            if (allocated(dqr_prim_dz_n(i)%vf)) then
# 312 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
                do macros_setup_vfs_i = lbound(dqr_prim_dz_n(i)%vf, 1), ubound(dqr_prim_dz_n(i)%vf, 1)
# 312 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
                    if (associated(dqr_prim_dz_n(i)%vf(macros_setup_vfs_i)%sf)) then
# 312 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 312 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 312 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc enter data copyin(dqR_prim_dz_n(i)%vf(macros_setup_vfs_i)) 
# 312 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 312 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp target enter data map(to:dqR_prim_dz_n(i)%vf(macros_setup_vfs_i)) 
# 312 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 312 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 312 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 312 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc enter data copyin(dqR_prim_dz_n(i)%vf(macros_setup_vfs_i)%sf) 
# 312 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 312 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp target enter data map(to:dqR_prim_dz_n(i)%vf(macros_setup_vfs_i)%sf) 
# 312 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 312 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
                    end if
# 312 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
                end do
# 312 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
            end if
# 312 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    end block
# 312 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
                end do
            end if
 
            if (viscous) then
#ifdef MFC_DEBUG
# 317 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    block
# 317 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        use iso_fortran_env, only: output_unit
# 317 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 317 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        print *, 'm_rhs.fpp:317: ', '@:ALLOCATE(tau_Re_vf(1:sys_size))'
# 317 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 317 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        call flush (output_unit)
# 317 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    end block
# 317 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 317 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    allocate (tau_re_vf(1:sys_size))
# 317 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 317 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 317 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 317 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc enter data create(tau_Re_vf) 
# 317 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 317 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp target enter data map(always,alloc:tau_Re_vf) 
# 317 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
                do i = 1, num_dims
#ifdef MFC_DEBUG
# 319 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    block
# 319 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        use iso_fortran_env, only: output_unit
# 319 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 319 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        print *, 'm_rhs.fpp:319: ', '@:ALLOCATE(tau_Re_vf(eqn_idx%cont%end + i)%sf(idwbuff(1)%beg:idwbuff(1)%end, idwbuff(2)%beg:idwbuff(2)%end, idwbuff(3)%beg:idwbuff(3)%end))'
# 319 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 319 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        call flush (output_unit)
# 319 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    end block
# 319 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 319 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    allocate (tau_re_vf(eqn_idx%cont%end + i)%sf(idwbuff(1)%beg:idwbuff(1)%end, idwbuff(2)%beg:idwbuff(2)%end,  idwbuff(3)%beg:idwbuff(3)%end))
# 319 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 319 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 319 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 319 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc enter data create(tau_Re_vf(eqn_idx%cont%end + i)%sf) 
# 319 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 319 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp target enter data map(always,alloc:tau_Re_vf(eqn_idx%cont%end + i)%sf) 
# 319 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 321 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#ifdef _CRAYFTN
# 321 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    block
# 321 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#ifdef MFC_DEBUG
# 321 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    block
# 321 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        use iso_fortran_env, only: output_unit
# 321 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 321 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        print *, 'm_rhs.fpp:321: ', '@:ACC_SETUP_SFs(tau_Re_vf(eqn_idx%cont%end + i))'
# 321 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 321 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        call flush (output_unit)
# 321 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    end block
# 321 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 321 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 321 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 321 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 321 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc enter data copyin(tau_Re_vf(eqn_idx%cont%end + i)) 
# 321 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 321 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp target enter data map(to:tau_Re_vf(eqn_idx%cont%end + i)) 
# 321 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 321 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
            if (associated(tau_re_vf(eqn_idx%cont%end + i)%sf)) then
# 321 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 321 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 321 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc enter data copyin(tau_Re_vf(eqn_idx%cont%end + i)%sf) 
# 321 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 321 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp target enter data map(to:tau_Re_vf(eqn_idx%cont%end + i)%sf) 
# 321 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 321 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
            end if
# 321 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    end block
# 321 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
                end do
#ifdef MFC_DEBUG
# 323 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    block
# 323 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        use iso_fortran_env, only: output_unit
# 323 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 323 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        print *, 'm_rhs.fpp:323: ', '@:ALLOCATE(tau_Re_vf(eqn_idx%E)%sf(idwbuff(1)%beg:idwbuff(1)%end, idwbuff(2)%beg:idwbuff(2)%end, idwbuff(3)%beg:idwbuff(3)%end))'
# 323 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 323 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        call flush (output_unit)
# 323 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    end block
# 323 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 323 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    allocate (tau_re_vf(eqn_idx%E)%sf(idwbuff(1)%beg:idwbuff(1)%end, idwbuff(2)%beg:idwbuff(2)%end,  idwbuff(3)%beg:idwbuff(3)%end))
# 323 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 323 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 323 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 323 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc enter data create(tau_Re_vf(eqn_idx%E)%sf) 
# 323 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 323 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp target enter data map(always,alloc:tau_Re_vf(eqn_idx%E)%sf) 
# 323 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 325 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#ifdef _CRAYFTN
# 325 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    block
# 325 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#ifdef MFC_DEBUG
# 325 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    block
# 325 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        use iso_fortran_env, only: output_unit
# 325 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 325 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        print *, 'm_rhs.fpp:325: ', '@:ACC_SETUP_SFs(tau_Re_vf(eqn_idx%E))'
# 325 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 325 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        call flush (output_unit)
# 325 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    end block
# 325 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 325 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 325 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 325 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 325 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc enter data copyin(tau_Re_vf(eqn_idx%E)) 
# 325 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 325 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp target enter data map(to:tau_Re_vf(eqn_idx%E)) 
# 325 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 325 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
            if (associated(tau_re_vf(eqn_idx%E)%sf)) then
# 325 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 325 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 325 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc enter data copyin(tau_Re_vf(eqn_idx%E)%sf) 
# 325 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 325 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp target enter data map(to:tau_Re_vf(eqn_idx%E)%sf) 
# 325 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 325 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
            end if
# 325 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    end block
# 325 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
 
#ifdef MFC_DEBUG
# 327 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    block
# 327 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        use iso_fortran_env, only: output_unit
# 327 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 327 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        print *, 'm_rhs.fpp:327: ', '@:ALLOCATE(dq_prim_dx_qp(1)%vf(1:sys_size))'
# 327 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 327 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        call flush (output_unit)
# 327 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    end block
# 327 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 327 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    allocate (dq_prim_dx_qp(1)%vf(1:sys_size))
# 327 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 327 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 327 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 327 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc enter data create(dq_prim_dx_qp(1)%vf) 
# 327 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 327 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp target enter data map(always,alloc:dq_prim_dx_qp(1)%vf) 
# 327 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
#ifdef MFC_DEBUG
# 328 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    block
# 328 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        use iso_fortran_env, only: output_unit
# 328 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 328 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        print *, 'm_rhs.fpp:328: ', '@:ALLOCATE(dq_prim_dy_qp(1)%vf(1:sys_size))'
# 328 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 328 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        call flush (output_unit)
# 328 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    end block
# 328 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 328 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    allocate (dq_prim_dy_qp(1)%vf(1:sys_size))
# 328 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 328 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 328 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 328 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc enter data create(dq_prim_dy_qp(1)%vf) 
# 328 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 328 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp target enter data map(always,alloc:dq_prim_dy_qp(1)%vf) 
# 328 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
#ifdef MFC_DEBUG
# 329 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    block
# 329 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        use iso_fortran_env, only: output_unit
# 329 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 329 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        print *, 'm_rhs.fpp:329: ', '@:ALLOCATE(dq_prim_dz_qp(1)%vf(1:sys_size))'
# 329 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 329 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        call flush (output_unit)
# 329 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    end block
# 329 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 329 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    allocate (dq_prim_dz_qp(1)%vf(1:sys_size))
# 329 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 329 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 329 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 329 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc enter data create(dq_prim_dz_qp(1)%vf) 
# 329 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 329 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp target enter data map(always,alloc:dq_prim_dz_qp(1)%vf) 
# 329 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
 
                do l = eqn_idx%mom%beg, eqn_idx%mom%end
#ifdef MFC_DEBUG
# 332 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    block
# 332 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        use iso_fortran_env, only: output_unit
# 332 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 332 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        print *, 'm_rhs.fpp:332: ', '@:ALLOCATE(dq_prim_dx_qp(1)%vf(l)%sf(idwbuff(1)%beg:idwbuff(1)%end, idwbuff(2)%beg:idwbuff(2)%end, idwbuff(3)%beg:idwbuff(3)%end))'
# 332 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 332 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        call flush (output_unit)
# 332 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    end block
# 332 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 332 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    allocate (dq_prim_dx_qp(1)%vf(l)%sf(idwbuff(1)%beg:idwbuff(1)%end, idwbuff(2)%beg:idwbuff(2)%end,  idwbuff(3)%beg:idwbuff(3)%end))
# 332 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 332 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 332 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 332 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc enter data create(dq_prim_dx_qp(1)%vf(l)%sf) 
# 332 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 332 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp target enter data map(always,alloc:dq_prim_dx_qp(1)%vf(l)%sf) 
# 332 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 334 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
                end do
 
#ifdef _CRAYFTN
# 336 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    block
# 336 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        integer :: macros_setup_vfs_i
# 336 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 336 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#ifdef MFC_DEBUG
# 336 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    block
# 336 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        use iso_fortran_env, only: output_unit
# 336 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 336 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        print *, 'm_rhs.fpp:336: ', '@:ACC_SETUP_VFs(dq_prim_dx_qp(1))'
# 336 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 336 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        call flush (output_unit)
# 336 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    end block
# 336 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 336 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 336 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 336 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 336 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc enter data copyin(dq_prim_dx_qp(1)) 
# 336 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 336 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp target enter data map(to:dq_prim_dx_qp(1)) 
# 336 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 336 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 336 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 336 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc enter data copyin(dq_prim_dx_qp(1)%vf) 
# 336 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 336 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp target enter data map(to:dq_prim_dx_qp(1)%vf) 
# 336 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 336 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
            if (allocated(dq_prim_dx_qp(1)%vf)) then
# 336 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
                do macros_setup_vfs_i = lbound(dq_prim_dx_qp(1)%vf, 1), ubound(dq_prim_dx_qp(1)%vf, 1)
# 336 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
                    if (associated(dq_prim_dx_qp(1)%vf(macros_setup_vfs_i)%sf)) then
# 336 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 336 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 336 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc enter data copyin(dq_prim_dx_qp(1)%vf(macros_setup_vfs_i)) 
# 336 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 336 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp target enter data map(to:dq_prim_dx_qp(1)%vf(macros_setup_vfs_i)) 
# 336 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 336 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 336 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 336 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc enter data copyin(dq_prim_dx_qp(1)%vf(macros_setup_vfs_i)%sf) 
# 336 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 336 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp target enter data map(to:dq_prim_dx_qp(1)%vf(macros_setup_vfs_i)%sf) 
# 336 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 336 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
                    end if
# 336 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
                end do
# 336 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
            end if
# 336 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    end block
# 336 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
 
                if (n > 0) then
                    do l = eqn_idx%mom%beg, eqn_idx%mom%end
#ifdef MFC_DEBUG
# 340 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    block
# 340 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        use iso_fortran_env, only: output_unit
# 340 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 340 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        print *, 'm_rhs.fpp:340: ', '@:ALLOCATE(dq_prim_dy_qp(1)%vf(l)%sf(idwbuff(1)%beg:idwbuff(1)%end, idwbuff(2)%beg:idwbuff(2)%end, idwbuff(3)%beg:idwbuff(3)%end))'
# 340 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 340 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        call flush (output_unit)
# 340 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    end block
# 340 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 340 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    allocate (dq_prim_dy_qp(1)%vf(l)%sf(idwbuff(1)%beg:idwbuff(1)%end, idwbuff(2)%beg:idwbuff(2)%end,  idwbuff(3)%beg:idwbuff(3)%end))
# 340 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 340 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 340 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 340 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc enter data create(dq_prim_dy_qp(1)%vf(l)%sf) 
# 340 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 340 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp target enter data map(always,alloc:dq_prim_dy_qp(1)%vf(l)%sf) 
# 340 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 342 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
                    end do
 
#ifdef _CRAYFTN
# 344 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    block
# 344 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        integer :: macros_setup_vfs_i
# 344 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 344 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#ifdef MFC_DEBUG
# 344 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    block
# 344 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        use iso_fortran_env, only: output_unit
# 344 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 344 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        print *, 'm_rhs.fpp:344: ', '@:ACC_SETUP_VFs(dq_prim_dy_qp(1))'
# 344 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 344 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        call flush (output_unit)
# 344 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    end block
# 344 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 344 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 344 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 344 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 344 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc enter data copyin(dq_prim_dy_qp(1)) 
# 344 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 344 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp target enter data map(to:dq_prim_dy_qp(1)) 
# 344 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 344 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 344 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 344 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc enter data copyin(dq_prim_dy_qp(1)%vf) 
# 344 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 344 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp target enter data map(to:dq_prim_dy_qp(1)%vf) 
# 344 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 344 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
            if (allocated(dq_prim_dy_qp(1)%vf)) then
# 344 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
                do macros_setup_vfs_i = lbound(dq_prim_dy_qp(1)%vf, 1), ubound(dq_prim_dy_qp(1)%vf, 1)
# 344 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
                    if (associated(dq_prim_dy_qp(1)%vf(macros_setup_vfs_i)%sf)) then
# 344 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 344 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 344 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc enter data copyin(dq_prim_dy_qp(1)%vf(macros_setup_vfs_i)) 
# 344 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 344 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp target enter data map(to:dq_prim_dy_qp(1)%vf(macros_setup_vfs_i)) 
# 344 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 344 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 344 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 344 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc enter data copyin(dq_prim_dy_qp(1)%vf(macros_setup_vfs_i)%sf) 
# 344 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 344 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp target enter data map(to:dq_prim_dy_qp(1)%vf(macros_setup_vfs_i)%sf) 
# 344 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 344 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
                    end if
# 344 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
                end do
# 344 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
            end if
# 344 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    end block
# 344 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
 
                    if (p > 0) then
                        do l = eqn_idx%mom%beg, eqn_idx%mom%end
#ifdef MFC_DEBUG
# 348 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    block
# 348 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        use iso_fortran_env, only: output_unit
# 348 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 348 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        print *, 'm_rhs.fpp:348: ', '@:ALLOCATE(dq_prim_dz_qp(1)%vf(l)%sf(idwbuff(1)%beg:idwbuff(1)%end, idwbuff(2)%beg:idwbuff(2)%end, idwbuff(3)%beg:idwbuff(3)%end))'
# 348 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 348 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        call flush (output_unit)
# 348 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    end block
# 348 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 348 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    allocate (dq_prim_dz_qp(1)%vf(l)%sf(idwbuff(1)%beg:idwbuff(1)%end, idwbuff(2)%beg:idwbuff(2)%end,  idwbuff(3)%beg:idwbuff(3)%end))
# 348 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 348 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 348 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 348 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc enter data create(dq_prim_dz_qp(1)%vf(l)%sf) 
# 348 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 348 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp target enter data map(always,alloc:dq_prim_dz_qp(1)%vf(l)%sf) 
# 348 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 350 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
                        end do
#ifdef _CRAYFTN
# 351 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    block
# 351 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        integer :: macros_setup_vfs_i
# 351 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 351 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#ifdef MFC_DEBUG
# 351 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    block
# 351 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        use iso_fortran_env, only: output_unit
# 351 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 351 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        print *, 'm_rhs.fpp:351: ', '@:ACC_SETUP_VFs(dq_prim_dz_qp(1))'
# 351 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 351 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        call flush (output_unit)
# 351 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    end block
# 351 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 351 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 351 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 351 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 351 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc enter data copyin(dq_prim_dz_qp(1)) 
# 351 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 351 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp target enter data map(to:dq_prim_dz_qp(1)) 
# 351 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 351 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 351 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 351 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc enter data copyin(dq_prim_dz_qp(1)%vf) 
# 351 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 351 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp target enter data map(to:dq_prim_dz_qp(1)%vf) 
# 351 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 351 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
            if (allocated(dq_prim_dz_qp(1)%vf)) then
# 351 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
                do macros_setup_vfs_i = lbound(dq_prim_dz_qp(1)%vf, 1), ubound(dq_prim_dz_qp(1)%vf, 1)
# 351 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
                    if (associated(dq_prim_dz_qp(1)%vf(macros_setup_vfs_i)%sf)) then
# 351 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 351 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 351 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc enter data copyin(dq_prim_dz_qp(1)%vf(macros_setup_vfs_i)) 
# 351 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 351 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp target enter data map(to:dq_prim_dz_qp(1)%vf(macros_setup_vfs_i)) 
# 351 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 351 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 351 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 351 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc enter data copyin(dq_prim_dz_qp(1)%vf(macros_setup_vfs_i)%sf) 
# 351 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 351 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp target enter data map(to:dq_prim_dz_qp(1)%vf(macros_setup_vfs_i)%sf) 
# 351 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 351 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
                    end if
# 351 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
                end do
# 351 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
            end if
# 351 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    end block
# 351 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
                    end if
                end if
 
                do i = 1, num_dims
#ifdef MFC_DEBUG
# 356 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    block
# 356 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        use iso_fortran_env, only: output_unit
# 356 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 356 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        print *, 'm_rhs.fpp:356: ', '@:ALLOCATE(dqL_prim_dx_n(i)%vf(1:sys_size))'
# 356 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 356 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        call flush (output_unit)
# 356 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    end block
# 356 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 356 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    allocate (dql_prim_dx_n(i)%vf(1:sys_size))
# 356 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 356 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 356 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 356 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc enter data create(dqL_prim_dx_n(i)%vf) 
# 356 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 356 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp target enter data map(always,alloc:dqL_prim_dx_n(i)%vf) 
# 356 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
#ifdef MFC_DEBUG
# 357 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    block
# 357 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        use iso_fortran_env, only: output_unit
# 357 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 357 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        print *, 'm_rhs.fpp:357: ', '@:ALLOCATE(dqL_prim_dy_n(i)%vf(1:sys_size))'
# 357 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 357 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        call flush (output_unit)
# 357 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    end block
# 357 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 357 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    allocate (dql_prim_dy_n(i)%vf(1:sys_size))
# 357 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 357 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 357 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 357 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc enter data create(dqL_prim_dy_n(i)%vf) 
# 357 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 357 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp target enter data map(always,alloc:dqL_prim_dy_n(i)%vf) 
# 357 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
#ifdef MFC_DEBUG
# 358 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    block
# 358 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        use iso_fortran_env, only: output_unit
# 358 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 358 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        print *, 'm_rhs.fpp:358: ', '@:ALLOCATE(dqL_prim_dz_n(i)%vf(1:sys_size))'
# 358 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 358 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        call flush (output_unit)
# 358 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    end block
# 358 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 358 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    allocate (dql_prim_dz_n(i)%vf(1:sys_size))
# 358 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 358 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 358 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 358 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc enter data create(dqL_prim_dz_n(i)%vf) 
# 358 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 358 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp target enter data map(always,alloc:dqL_prim_dz_n(i)%vf) 
# 358 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
#ifdef MFC_DEBUG
# 359 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    block
# 359 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        use iso_fortran_env, only: output_unit
# 359 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 359 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        print *, 'm_rhs.fpp:359: ', '@:ALLOCATE(dqR_prim_dx_n(i)%vf(1:sys_size))'
# 359 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 359 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        call flush (output_unit)
# 359 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    end block
# 359 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 359 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    allocate (dqr_prim_dx_n(i)%vf(1:sys_size))
# 359 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 359 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 359 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 359 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc enter data create(dqR_prim_dx_n(i)%vf) 
# 359 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 359 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp target enter data map(always,alloc:dqR_prim_dx_n(i)%vf) 
# 359 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
#ifdef MFC_DEBUG
# 360 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    block
# 360 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        use iso_fortran_env, only: output_unit
# 360 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 360 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        print *, 'm_rhs.fpp:360: ', '@:ALLOCATE(dqR_prim_dy_n(i)%vf(1:sys_size))'
# 360 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 360 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        call flush (output_unit)
# 360 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    end block
# 360 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 360 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    allocate (dqr_prim_dy_n(i)%vf(1:sys_size))
# 360 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 360 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 360 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 360 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc enter data create(dqR_prim_dy_n(i)%vf) 
# 360 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 360 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp target enter data map(always,alloc:dqR_prim_dy_n(i)%vf) 
# 360 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
#ifdef MFC_DEBUG
# 361 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    block
# 361 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        use iso_fortran_env, only: output_unit
# 361 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 361 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        print *, 'm_rhs.fpp:361: ', '@:ALLOCATE(dqR_prim_dz_n(i)%vf(1:sys_size))'
# 361 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 361 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        call flush (output_unit)
# 361 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    end block
# 361 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 361 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    allocate (dqr_prim_dz_n(i)%vf(1:sys_size))
# 361 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 361 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 361 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 361 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc enter data create(dqR_prim_dz_n(i)%vf) 
# 361 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 361 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp target enter data map(always,alloc:dqR_prim_dz_n(i)%vf) 
# 361 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
                end do
 
                do i = 1, num_dims
                    do l = eqn_idx%mom%beg, eqn_idx%mom%end
#ifdef MFC_DEBUG
# 366 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    block
# 366 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        use iso_fortran_env, only: output_unit
# 366 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 366 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        print *, 'm_rhs.fpp:366: ', '@:ALLOCATE(dqL_prim_dx_n(i)%vf(l)%sf(idwbuff(1)%beg:idwbuff(1)%end, idwbuff(2)%beg:idwbuff(2)%end, idwbuff(3)%beg:idwbuff(3)%end))'
# 366 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 366 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        call flush (output_unit)
# 366 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    end block
# 366 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 366 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    allocate (dql_prim_dx_n(i)%vf(l)%sf(idwbuff(1)%beg:idwbuff(1)%end, idwbuff(2)%beg:idwbuff(2)%end,  idwbuff(3)%beg:idwbuff(3)%end))
# 366 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 366 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 366 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 366 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc enter data create(dqL_prim_dx_n(i)%vf(l)%sf) 
# 366 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 366 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp target enter data map(always,alloc:dqL_prim_dx_n(i)%vf(l)%sf) 
# 366 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 368 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#ifdef MFC_DEBUG
# 368 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    block
# 368 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        use iso_fortran_env, only: output_unit
# 368 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 368 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        print *, 'm_rhs.fpp:368: ', '@:ALLOCATE(dqR_prim_dx_n(i)%vf(l)%sf(idwbuff(1)%beg:idwbuff(1)%end, idwbuff(2)%beg:idwbuff(2)%end, idwbuff(3)%beg:idwbuff(3)%end))'
# 368 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 368 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        call flush (output_unit)
# 368 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    end block
# 368 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 368 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    allocate (dqr_prim_dx_n(i)%vf(l)%sf(idwbuff(1)%beg:idwbuff(1)%end, idwbuff(2)%beg:idwbuff(2)%end,  idwbuff(3)%beg:idwbuff(3)%end))
# 368 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 368 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 368 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 368 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc enter data create(dqR_prim_dx_n(i)%vf(l)%sf) 
# 368 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 368 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp target enter data map(always,alloc:dqR_prim_dx_n(i)%vf(l)%sf) 
# 368 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 370 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
                    end do
 
                    if (n > 0) then
                        do l = eqn_idx%mom%beg, eqn_idx%mom%end
#ifdef MFC_DEBUG
# 374 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    block
# 374 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        use iso_fortran_env, only: output_unit
# 374 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 374 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        print *, 'm_rhs.fpp:374: ', '@:ALLOCATE(dqL_prim_dy_n(i)%vf(l)%sf(idwbuff(1)%beg:idwbuff(1)%end, idwbuff(2)%beg:idwbuff(2)%end, idwbuff(3)%beg:idwbuff(3)%end))'
# 374 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 374 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        call flush (output_unit)
# 374 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    end block
# 374 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 374 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    allocate (dql_prim_dy_n(i)%vf(l)%sf(idwbuff(1)%beg:idwbuff(1)%end, idwbuff(2)%beg:idwbuff(2)%end,  idwbuff(3)%beg:idwbuff(3)%end))
# 374 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 374 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 374 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 374 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc enter data create(dqL_prim_dy_n(i)%vf(l)%sf) 
# 374 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 374 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp target enter data map(always,alloc:dqL_prim_dy_n(i)%vf(l)%sf) 
# 374 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 376 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#ifdef MFC_DEBUG
# 376 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    block
# 376 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        use iso_fortran_env, only: output_unit
# 376 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 376 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        print *, 'm_rhs.fpp:376: ', '@:ALLOCATE(dqR_prim_dy_n(i)%vf(l)%sf(idwbuff(1)%beg:idwbuff(1)%end, idwbuff(2)%beg:idwbuff(2)%end, idwbuff(3)%beg:idwbuff(3)%end))'
# 376 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 376 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        call flush (output_unit)
# 376 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    end block
# 376 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 376 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    allocate (dqr_prim_dy_n(i)%vf(l)%sf(idwbuff(1)%beg:idwbuff(1)%end, idwbuff(2)%beg:idwbuff(2)%end,  idwbuff(3)%beg:idwbuff(3)%end))
# 376 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 376 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 376 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 376 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc enter data create(dqR_prim_dy_n(i)%vf(l)%sf) 
# 376 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 376 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp target enter data map(always,alloc:dqR_prim_dy_n(i)%vf(l)%sf) 
# 376 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 378 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
                        end do
                    end if
 
                    if (p > 0) then
                        do l = eqn_idx%mom%beg, eqn_idx%mom%end
#ifdef MFC_DEBUG
# 383 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    block
# 383 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        use iso_fortran_env, only: output_unit
# 383 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 383 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        print *, 'm_rhs.fpp:383: ', '@:ALLOCATE(dqL_prim_dz_n(i)%vf(l)%sf(idwbuff(1)%beg:idwbuff(1)%end, idwbuff(2)%beg:idwbuff(2)%end, idwbuff(3)%beg:idwbuff(3)%end))'
# 383 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 383 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        call flush (output_unit)
# 383 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    end block
# 383 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 383 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    allocate (dql_prim_dz_n(i)%vf(l)%sf(idwbuff(1)%beg:idwbuff(1)%end, idwbuff(2)%beg:idwbuff(2)%end,  idwbuff(3)%beg:idwbuff(3)%end))
# 383 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 383 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 383 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 383 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc enter data create(dqL_prim_dz_n(i)%vf(l)%sf) 
# 383 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 383 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp target enter data map(always,alloc:dqL_prim_dz_n(i)%vf(l)%sf) 
# 383 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 385 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#ifdef MFC_DEBUG
# 385 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    block
# 385 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        use iso_fortran_env, only: output_unit
# 385 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 385 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        print *, 'm_rhs.fpp:385: ', '@:ALLOCATE(dqR_prim_dz_n(i)%vf(l)%sf(idwbuff(1)%beg:idwbuff(1)%end, idwbuff(2)%beg:idwbuff(2)%end, idwbuff(3)%beg:idwbuff(3)%end))'
# 385 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 385 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        call flush (output_unit)
# 385 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    end block
# 385 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 385 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    allocate (dqr_prim_dz_n(i)%vf(l)%sf(idwbuff(1)%beg:idwbuff(1)%end, idwbuff(2)%beg:idwbuff(2)%end,  idwbuff(3)%beg:idwbuff(3)%end))
# 385 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 385 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 385 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 385 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc enter data create(dqR_prim_dz_n(i)%vf(l)%sf) 
# 385 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 385 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp target enter data map(always,alloc:dqR_prim_dz_n(i)%vf(l)%sf) 
# 385 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 387 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
                        end do
                    end if
 
#ifdef _CRAYFTN
# 390 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    block
# 390 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        integer :: macros_setup_vfs_i
# 390 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 390 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#ifdef MFC_DEBUG
# 390 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    block
# 390 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        use iso_fortran_env, only: output_unit
# 390 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 390 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        print *, 'm_rhs.fpp:390: ', '@:ACC_SETUP_VFs(dqL_prim_dx_n(i), dqL_prim_dy_n(i), dqL_prim_dz_n(i))'
# 390 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 390 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        call flush (output_unit)
# 390 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    end block
# 390 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 390 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 390 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 390 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 390 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc enter data copyin(dqL_prim_dx_n(i)) 
# 390 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 390 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp target enter data map(to:dqL_prim_dx_n(i)) 
# 390 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 390 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 390 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 390 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc enter data copyin(dqL_prim_dx_n(i)%vf) 
# 390 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 390 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp target enter data map(to:dqL_prim_dx_n(i)%vf) 
# 390 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 390 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
            if (allocated(dql_prim_dx_n(i)%vf)) then
# 390 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
                do macros_setup_vfs_i = lbound(dql_prim_dx_n(i)%vf, 1), ubound(dql_prim_dx_n(i)%vf, 1)
# 390 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
                    if (associated(dql_prim_dx_n(i)%vf(macros_setup_vfs_i)%sf)) then
# 390 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 390 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 390 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc enter data copyin(dqL_prim_dx_n(i)%vf(macros_setup_vfs_i)) 
# 390 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 390 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp target enter data map(to:dqL_prim_dx_n(i)%vf(macros_setup_vfs_i)) 
# 390 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 390 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 390 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 390 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc enter data copyin(dqL_prim_dx_n(i)%vf(macros_setup_vfs_i)%sf) 
# 390 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 390 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp target enter data map(to:dqL_prim_dx_n(i)%vf(macros_setup_vfs_i)%sf) 
# 390 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 390 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
                    end if
# 390 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
                end do
# 390 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
            end if
# 390 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 390 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 390 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc enter data copyin(dqL_prim_dy_n(i)) 
# 390 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 390 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp target enter data map(to:dqL_prim_dy_n(i)) 
# 390 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 390 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 390 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 390 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc enter data copyin(dqL_prim_dy_n(i)%vf) 
# 390 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 390 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp target enter data map(to:dqL_prim_dy_n(i)%vf) 
# 390 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 390 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
            if (allocated(dql_prim_dy_n(i)%vf)) then
# 390 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
                do macros_setup_vfs_i = lbound(dql_prim_dy_n(i)%vf, 1), ubound(dql_prim_dy_n(i)%vf, 1)
# 390 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
                    if (associated(dql_prim_dy_n(i)%vf(macros_setup_vfs_i)%sf)) then
# 390 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 390 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 390 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc enter data copyin(dqL_prim_dy_n(i)%vf(macros_setup_vfs_i)) 
# 390 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 390 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp target enter data map(to:dqL_prim_dy_n(i)%vf(macros_setup_vfs_i)) 
# 390 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 390 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 390 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 390 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc enter data copyin(dqL_prim_dy_n(i)%vf(macros_setup_vfs_i)%sf) 
# 390 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 390 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp target enter data map(to:dqL_prim_dy_n(i)%vf(macros_setup_vfs_i)%sf) 
# 390 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 390 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
                    end if
# 390 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
                end do
# 390 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
            end if
# 390 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 390 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 390 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc enter data copyin(dqL_prim_dz_n(i)) 
# 390 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 390 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp target enter data map(to:dqL_prim_dz_n(i)) 
# 390 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 390 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 390 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 390 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc enter data copyin(dqL_prim_dz_n(i)%vf) 
# 390 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 390 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp target enter data map(to:dqL_prim_dz_n(i)%vf) 
# 390 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 390 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
            if (allocated(dql_prim_dz_n(i)%vf)) then
# 390 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
                do macros_setup_vfs_i = lbound(dql_prim_dz_n(i)%vf, 1), ubound(dql_prim_dz_n(i)%vf, 1)
# 390 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
                    if (associated(dql_prim_dz_n(i)%vf(macros_setup_vfs_i)%sf)) then
# 390 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 390 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 390 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc enter data copyin(dqL_prim_dz_n(i)%vf(macros_setup_vfs_i)) 
# 390 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 390 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp target enter data map(to:dqL_prim_dz_n(i)%vf(macros_setup_vfs_i)) 
# 390 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 390 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 390 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 390 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc enter data copyin(dqL_prim_dz_n(i)%vf(macros_setup_vfs_i)%sf) 
# 390 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 390 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp target enter data map(to:dqL_prim_dz_n(i)%vf(macros_setup_vfs_i)%sf) 
# 390 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 390 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
                    end if
# 390 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
                end do
# 390 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
            end if
# 390 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    end block
# 390 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
#ifdef _CRAYFTN
# 391 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    block
# 391 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        integer :: macros_setup_vfs_i
# 391 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 391 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#ifdef MFC_DEBUG
# 391 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    block
# 391 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        use iso_fortran_env, only: output_unit
# 391 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 391 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        print *, 'm_rhs.fpp:391: ', '@:ACC_SETUP_VFs(dqR_prim_dx_n(i), dqR_prim_dy_n(i), dqR_prim_dz_n(i))'
# 391 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 391 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        call flush (output_unit)
# 391 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    end block
# 391 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 391 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 391 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 391 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 391 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc enter data copyin(dqR_prim_dx_n(i)) 
# 391 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 391 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp target enter data map(to:dqR_prim_dx_n(i)) 
# 391 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 391 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 391 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 391 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc enter data copyin(dqR_prim_dx_n(i)%vf) 
# 391 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 391 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp target enter data map(to:dqR_prim_dx_n(i)%vf) 
# 391 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 391 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
            if (allocated(dqr_prim_dx_n(i)%vf)) then
# 391 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
                do macros_setup_vfs_i = lbound(dqr_prim_dx_n(i)%vf, 1), ubound(dqr_prim_dx_n(i)%vf, 1)
# 391 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
                    if (associated(dqr_prim_dx_n(i)%vf(macros_setup_vfs_i)%sf)) then
# 391 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 391 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 391 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc enter data copyin(dqR_prim_dx_n(i)%vf(macros_setup_vfs_i)) 
# 391 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 391 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp target enter data map(to:dqR_prim_dx_n(i)%vf(macros_setup_vfs_i)) 
# 391 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 391 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 391 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 391 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc enter data copyin(dqR_prim_dx_n(i)%vf(macros_setup_vfs_i)%sf) 
# 391 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 391 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp target enter data map(to:dqR_prim_dx_n(i)%vf(macros_setup_vfs_i)%sf) 
# 391 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 391 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
                    end if
# 391 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
                end do
# 391 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
            end if
# 391 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 391 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 391 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc enter data copyin(dqR_prim_dy_n(i)) 
# 391 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 391 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp target enter data map(to:dqR_prim_dy_n(i)) 
# 391 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 391 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 391 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 391 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc enter data copyin(dqR_prim_dy_n(i)%vf) 
# 391 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 391 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp target enter data map(to:dqR_prim_dy_n(i)%vf) 
# 391 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 391 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
            if (allocated(dqr_prim_dy_n(i)%vf)) then
# 391 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
                do macros_setup_vfs_i = lbound(dqr_prim_dy_n(i)%vf, 1), ubound(dqr_prim_dy_n(i)%vf, 1)
# 391 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
                    if (associated(dqr_prim_dy_n(i)%vf(macros_setup_vfs_i)%sf)) then
# 391 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 391 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 391 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc enter data copyin(dqR_prim_dy_n(i)%vf(macros_setup_vfs_i)) 
# 391 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 391 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp target enter data map(to:dqR_prim_dy_n(i)%vf(macros_setup_vfs_i)) 
# 391 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 391 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 391 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 391 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc enter data copyin(dqR_prim_dy_n(i)%vf(macros_setup_vfs_i)%sf) 
# 391 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 391 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp target enter data map(to:dqR_prim_dy_n(i)%vf(macros_setup_vfs_i)%sf) 
# 391 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 391 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
                    end if
# 391 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
                end do
# 391 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
            end if
# 391 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 391 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 391 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc enter data copyin(dqR_prim_dz_n(i)) 
# 391 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 391 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp target enter data map(to:dqR_prim_dz_n(i)) 
# 391 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 391 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 391 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 391 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc enter data copyin(dqR_prim_dz_n(i)%vf) 
# 391 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 391 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp target enter data map(to:dqR_prim_dz_n(i)%vf) 
# 391 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 391 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
            if (allocated(dqr_prim_dz_n(i)%vf)) then
# 391 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
                do macros_setup_vfs_i = lbound(dqr_prim_dz_n(i)%vf, 1), ubound(dqr_prim_dz_n(i)%vf, 1)
# 391 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
                    if (associated(dqr_prim_dz_n(i)%vf(macros_setup_vfs_i)%sf)) then
# 391 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 391 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 391 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc enter data copyin(dqR_prim_dz_n(i)%vf(macros_setup_vfs_i)) 
# 391 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 391 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp target enter data map(to:dqR_prim_dz_n(i)%vf(macros_setup_vfs_i)) 
# 391 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 391 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 391 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 391 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc enter data copyin(dqR_prim_dz_n(i)%vf(macros_setup_vfs_i)%sf) 
# 391 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 391 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp target enter data map(to:dqR_prim_dz_n(i)%vf(macros_setup_vfs_i)%sf) 
# 391 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 391 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
                    end if
# 391 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
                end do
# 391 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
            end if
# 391 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    end block
# 391 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
                end do
 
                if (weno_re_flux) then
#ifdef MFC_DEBUG
# 395 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    block
# 395 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        use iso_fortran_env, only: output_unit
# 395 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 395 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        print *, 'm_rhs.fpp:395: ', '@:ALLOCATE(dqL_rsx_vf(idwbuff(1)%beg:idwbuff(1)%end, idwbuff(2)%beg:idwbuff(2)%end, idwbuff(3)%beg:idwbuff(3)%end, eqn_idx%mom%beg:eqn_idx%mom%end))'
# 395 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 395 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        call flush (output_unit)
# 395 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    end block
# 395 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 395 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    allocate (dql_rsx_vf(idwbuff(1)%beg:idwbuff(1)%end, idwbuff(2)%beg:idwbuff(2)%end,  idwbuff(3)%beg:idwbuff(3)%end, eqn_idx%mom%beg:eqn_idx%mom%end))
# 395 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 395 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 395 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 395 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc enter data create(dqL_rsx_vf) 
# 395 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 395 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp target enter data map(always,alloc:dqL_rsx_vf) 
# 395 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 397 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#ifdef MFC_DEBUG
# 397 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    block
# 397 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        use iso_fortran_env, only: output_unit
# 397 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 397 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        print *, 'm_rhs.fpp:397: ', '@:ALLOCATE(dqR_rsx_vf(idwbuff(1)%beg:idwbuff(1)%end, idwbuff(2)%beg:idwbuff(2)%end, idwbuff(3)%beg:idwbuff(3)%end, eqn_idx%mom%beg:eqn_idx%mom%end))'
# 397 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 397 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        call flush (output_unit)
# 397 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    end block
# 397 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 397 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    allocate (dqr_rsx_vf(idwbuff(1)%beg:idwbuff(1)%end, idwbuff(2)%beg:idwbuff(2)%end,  idwbuff(3)%beg:idwbuff(3)%end, eqn_idx%mom%beg:eqn_idx%mom%end))
# 397 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 397 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 397 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 397 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc enter data create(dqR_rsx_vf) 
# 397 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 397 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp target enter data map(always,alloc:dqR_rsx_vf) 
# 397 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 399 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
                end if
            else
#ifdef MFC_DEBUG
# 401 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    block
# 401 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        use iso_fortran_env, only: output_unit
# 401 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 401 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        print *, 'm_rhs.fpp:401: ', '@:ALLOCATE(dq_prim_dx_qp(1)%vf(1:sys_size))'
# 401 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 401 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        call flush (output_unit)
# 401 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    end block
# 401 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 401 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    allocate (dq_prim_dx_qp(1)%vf(1:sys_size))
# 401 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 401 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 401 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 401 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc enter data create(dq_prim_dx_qp(1)%vf) 
# 401 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 401 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp target enter data map(always,alloc:dq_prim_dx_qp(1)%vf) 
# 401 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
#ifdef MFC_DEBUG
# 402 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    block
# 402 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        use iso_fortran_env, only: output_unit
# 402 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 402 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        print *, 'm_rhs.fpp:402: ', '@:ALLOCATE(dq_prim_dy_qp(1)%vf(1:sys_size))'
# 402 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 402 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        call flush (output_unit)
# 402 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    end block
# 402 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 402 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    allocate (dq_prim_dy_qp(1)%vf(1:sys_size))
# 402 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 402 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 402 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 402 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc enter data create(dq_prim_dy_qp(1)%vf) 
# 402 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 402 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp target enter data map(always,alloc:dq_prim_dy_qp(1)%vf) 
# 402 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
#ifdef MFC_DEBUG
# 403 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    block
# 403 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        use iso_fortran_env, only: output_unit
# 403 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 403 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        print *, 'm_rhs.fpp:403: ', '@:ALLOCATE(dq_prim_dz_qp(1)%vf(1:sys_size))'
# 403 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 403 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        call flush (output_unit)
# 403 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    end block
# 403 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 403 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    allocate (dq_prim_dz_qp(1)%vf(1:sys_size))
# 403 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 403 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 403 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 403 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc enter data create(dq_prim_dz_qp(1)%vf) 
# 403 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 403 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp target enter data map(always,alloc:dq_prim_dz_qp(1)%vf) 
# 403 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
 
                do l = eqn_idx%mom%beg, eqn_idx%mom%end
#ifdef MFC_DEBUG
# 406 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    block
# 406 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        use iso_fortran_env, only: output_unit
# 406 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 406 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        print *, 'm_rhs.fpp:406: ', '@:ALLOCATE(dq_prim_dx_qp(1)%vf(l)%sf(0, 0, 0))'
# 406 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 406 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        call flush (output_unit)
# 406 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    end block
# 406 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 406 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    allocate (dq_prim_dx_qp(1)%vf(l)%sf(0, 0, 0))
# 406 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 406 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 406 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 406 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc enter data create(dq_prim_dx_qp(1)%vf(l)%sf) 
# 406 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 406 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp target enter data map(always,alloc:dq_prim_dx_qp(1)%vf(l)%sf) 
# 406 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
#ifdef _CRAYFTN
# 407 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    block
# 407 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        integer :: macros_setup_vfs_i
# 407 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 407 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#ifdef MFC_DEBUG
# 407 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    block
# 407 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        use iso_fortran_env, only: output_unit
# 407 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 407 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        print *, 'm_rhs.fpp:407: ', '@:ACC_SETUP_VFs(dq_prim_dx_qp(1))'
# 407 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 407 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        call flush (output_unit)
# 407 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    end block
# 407 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 407 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 407 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 407 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 407 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc enter data copyin(dq_prim_dx_qp(1)) 
# 407 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 407 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp target enter data map(to:dq_prim_dx_qp(1)) 
# 407 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 407 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 407 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 407 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc enter data copyin(dq_prim_dx_qp(1)%vf) 
# 407 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 407 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp target enter data map(to:dq_prim_dx_qp(1)%vf) 
# 407 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 407 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
            if (allocated(dq_prim_dx_qp(1)%vf)) then
# 407 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
                do macros_setup_vfs_i = lbound(dq_prim_dx_qp(1)%vf, 1), ubound(dq_prim_dx_qp(1)%vf, 1)
# 407 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
                    if (associated(dq_prim_dx_qp(1)%vf(macros_setup_vfs_i)%sf)) then
# 407 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 407 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 407 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc enter data copyin(dq_prim_dx_qp(1)%vf(macros_setup_vfs_i)) 
# 407 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 407 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp target enter data map(to:dq_prim_dx_qp(1)%vf(macros_setup_vfs_i)) 
# 407 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 407 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 407 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 407 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc enter data copyin(dq_prim_dx_qp(1)%vf(macros_setup_vfs_i)%sf) 
# 407 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 407 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp target enter data map(to:dq_prim_dx_qp(1)%vf(macros_setup_vfs_i)%sf) 
# 407 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 407 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
                    end if
# 407 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
                end do
# 407 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
            end if
# 407 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    end block
# 407 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
                    if (n > 0) then
#ifdef MFC_DEBUG
# 409 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    block
# 409 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        use iso_fortran_env, only: output_unit
# 409 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 409 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        print *, 'm_rhs.fpp:409: ', '@:ALLOCATE(dq_prim_dy_qp(1)%vf(l)%sf(0, 0, 0))'
# 409 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 409 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        call flush (output_unit)
# 409 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    end block
# 409 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 409 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    allocate (dq_prim_dy_qp(1)%vf(l)%sf(0, 0, 0))
# 409 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 409 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 409 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 409 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc enter data create(dq_prim_dy_qp(1)%vf(l)%sf) 
# 409 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 409 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp target enter data map(always,alloc:dq_prim_dy_qp(1)%vf(l)%sf) 
# 409 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
#ifdef _CRAYFTN
# 410 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    block
# 410 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        integer :: macros_setup_vfs_i
# 410 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 410 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#ifdef MFC_DEBUG
# 410 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    block
# 410 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        use iso_fortran_env, only: output_unit
# 410 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 410 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        print *, 'm_rhs.fpp:410: ', '@:ACC_SETUP_VFs(dq_prim_dy_qp(1))'
# 410 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 410 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        call flush (output_unit)
# 410 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    end block
# 410 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 410 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 410 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 410 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 410 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc enter data copyin(dq_prim_dy_qp(1)) 
# 410 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 410 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp target enter data map(to:dq_prim_dy_qp(1)) 
# 410 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 410 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 410 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 410 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc enter data copyin(dq_prim_dy_qp(1)%vf) 
# 410 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 410 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp target enter data map(to:dq_prim_dy_qp(1)%vf) 
# 410 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 410 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
            if (allocated(dq_prim_dy_qp(1)%vf)) then
# 410 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
                do macros_setup_vfs_i = lbound(dq_prim_dy_qp(1)%vf, 1), ubound(dq_prim_dy_qp(1)%vf, 1)
# 410 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
                    if (associated(dq_prim_dy_qp(1)%vf(macros_setup_vfs_i)%sf)) then
# 410 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 410 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 410 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc enter data copyin(dq_prim_dy_qp(1)%vf(macros_setup_vfs_i)) 
# 410 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 410 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp target enter data map(to:dq_prim_dy_qp(1)%vf(macros_setup_vfs_i)) 
# 410 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 410 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 410 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 410 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc enter data copyin(dq_prim_dy_qp(1)%vf(macros_setup_vfs_i)%sf) 
# 410 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 410 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp target enter data map(to:dq_prim_dy_qp(1)%vf(macros_setup_vfs_i)%sf) 
# 410 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 410 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
                    end if
# 410 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
                end do
# 410 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
            end if
# 410 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    end block
# 410 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
                        if (p > 0) then
#ifdef MFC_DEBUG
# 412 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    block
# 412 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        use iso_fortran_env, only: output_unit
# 412 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 412 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        print *, 'm_rhs.fpp:412: ', '@:ALLOCATE(dq_prim_dz_qp(1)%vf(l)%sf(0, 0, 0))'
# 412 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 412 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        call flush (output_unit)
# 412 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    end block
# 412 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 412 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    allocate (dq_prim_dz_qp(1)%vf(l)%sf(0, 0, 0))
# 412 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 412 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 412 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 412 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc enter data create(dq_prim_dz_qp(1)%vf(l)%sf) 
# 412 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 412 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp target enter data map(always,alloc:dq_prim_dz_qp(1)%vf(l)%sf) 
# 412 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
#ifdef _CRAYFTN
# 413 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    block
# 413 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        integer :: macros_setup_vfs_i
# 413 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 413 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#ifdef MFC_DEBUG
# 413 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    block
# 413 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        use iso_fortran_env, only: output_unit
# 413 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 413 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        print *, 'm_rhs.fpp:413: ', '@:ACC_SETUP_VFs(dq_prim_dz_qp(1))'
# 413 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 413 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        call flush (output_unit)
# 413 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    end block
# 413 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 413 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 413 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 413 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 413 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc enter data copyin(dq_prim_dz_qp(1)) 
# 413 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 413 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp target enter data map(to:dq_prim_dz_qp(1)) 
# 413 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 413 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 413 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 413 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc enter data copyin(dq_prim_dz_qp(1)%vf) 
# 413 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 413 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp target enter data map(to:dq_prim_dz_qp(1)%vf) 
# 413 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 413 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
            if (allocated(dq_prim_dz_qp(1)%vf)) then
# 413 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
                do macros_setup_vfs_i = lbound(dq_prim_dz_qp(1)%vf, 1), ubound(dq_prim_dz_qp(1)%vf, 1)
# 413 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
                    if (associated(dq_prim_dz_qp(1)%vf(macros_setup_vfs_i)%sf)) then
# 413 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 413 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 413 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc enter data copyin(dq_prim_dz_qp(1)%vf(macros_setup_vfs_i)) 
# 413 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 413 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp target enter data map(to:dq_prim_dz_qp(1)%vf(macros_setup_vfs_i)) 
# 413 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 413 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 413 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 413 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc enter data copyin(dq_prim_dz_qp(1)%vf(macros_setup_vfs_i)%sf) 
# 413 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 413 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp target enter data map(to:dq_prim_dz_qp(1)%vf(macros_setup_vfs_i)%sf) 
# 413 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 413 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
                    end if
# 413 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
                end do
# 413 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
            end if
# 413 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    end block
# 413 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
                        end if
                    end if
                end do
            end if
 
 
# 419 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 419 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 419 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc parallel loop collapse(4) gang vector default(present) private(i, j, k, l, id)
# 419 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 419 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 419 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 419 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 419 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp target teams loop defaultmap(firstprivate:scalar) bind(teams,parallel) collapse(4) defaultmap(tofrom:aggregate) defaultmap(tofrom:allocatable) defaultmap(tofrom:pointer) private(i, j, k, l, id)
# 419 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
            do id = 1, num_dims
                do i = 1, sys_size
                    do l = idwbuff(3)%beg, idwbuff(3)%end
                        do k = idwbuff(2)%beg, idwbuff(2)%end
                            do j = idwbuff(1)%beg, idwbuff(1)%end
                                flux_gsrc_n(id)%vf(i)%sf(j, k, l) = 0._wp
                            end do
                        end do
                    end do
                end do
            end do
 
# 431 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 431 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc end parallel loop
# 431 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 431 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 431 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp end target teams loop
# 431 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
        end if
 
        if (qbmm) then
#ifdef MFC_DEBUG
# 435 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    block
# 435 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        use iso_fortran_env, only: output_unit
# 435 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 435 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        print *, 'm_rhs.fpp:435: ', '@:ALLOCATE(mom_sp(1:nmomsp), mom_3d(0:2, 0:2, nb))'
# 435 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 435 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        call flush (output_unit)
# 435 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    end block
# 435 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 435 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    allocate (mom_sp(1:nmomsp), mom_3d(0:2, 0:2, nb))
# 435 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 435 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 435 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 435 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 435 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc enter data create(mom_sp, mom_3d) 
# 435 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 435 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp target enter data map(always,alloc:mom_sp, mom_3d) 
# 435 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
 
            do i = 0, 2
                do j = 0, 2
                    do k = 1, nb
#ifdef MFC_DEBUG
# 440 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    block
# 440 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        use iso_fortran_env, only: output_unit
# 440 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 440 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        print *, 'm_rhs.fpp:440: ', '@:ALLOCATE(mom_3d(i, j, k)%sf(idwbuff(1)%beg:idwbuff(1)%end, idwbuff(2)%beg:idwbuff(2)%end, idwbuff(3)%beg:idwbuff(3)%end))'
# 440 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 440 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        call flush (output_unit)
# 440 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    end block
# 440 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 440 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    allocate (mom_3d(i, j, k)%sf(idwbuff(1)%beg:idwbuff(1)%end, idwbuff(2)%beg:idwbuff(2)%end,  idwbuff(3)%beg:idwbuff(3)%end))
# 440 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 440 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 440 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 440 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc enter data create(mom_3d(i, j, k)%sf) 
# 440 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 440 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp target enter data map(always,alloc:mom_3d(i, j, k)%sf) 
# 440 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 442 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#ifdef _CRAYFTN
# 442 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    block
# 442 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#ifdef MFC_DEBUG
# 442 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    block
# 442 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        use iso_fortran_env, only: output_unit
# 442 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 442 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        print *, 'm_rhs.fpp:442: ', '@:ACC_SETUP_SFs(mom_3d(i, j, k))'
# 442 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 442 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        call flush (output_unit)
# 442 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    end block
# 442 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 442 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 442 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 442 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 442 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc enter data copyin(mom_3d(i, j, k)) 
# 442 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 442 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp target enter data map(to:mom_3d(i, j, k)) 
# 442 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 442 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
            if (associated(mom_3d(i, j, k)%sf)) then
# 442 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 442 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 442 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc enter data copyin(mom_3d(i, j, k)%sf) 
# 442 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 442 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp target enter data map(to:mom_3d(i, j, k)%sf) 
# 442 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 442 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
            end if
# 442 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    end block
# 442 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
                    end do
                end do
            end do
 
            do i = 1, nmomsp
#ifdef MFC_DEBUG
# 448 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    block
# 448 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        use iso_fortran_env, only: output_unit
# 448 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 448 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        print *, 'm_rhs.fpp:448: ', '@:ALLOCATE(mom_sp(i)%sf(idwbuff(1)%beg:idwbuff(1)%end, idwbuff(2)%beg:idwbuff(2)%end, idwbuff(3)%beg:idwbuff(3)%end))'
# 448 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 448 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        call flush (output_unit)
# 448 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    end block
# 448 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 448 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    allocate (mom_sp(i)%sf(idwbuff(1)%beg:idwbuff(1)%end, idwbuff(2)%beg:idwbuff(2)%end,  idwbuff(3)%beg:idwbuff(3)%end))
# 448 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 448 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 448 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 448 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc enter data create(mom_sp(i)%sf) 
# 448 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 448 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp target enter data map(always,alloc:mom_sp(i)%sf) 
# 448 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 450 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#ifdef _CRAYFTN
# 450 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    block
# 450 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#ifdef MFC_DEBUG
# 450 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    block
# 450 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        use iso_fortran_env, only: output_unit
# 450 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 450 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        print *, 'm_rhs.fpp:450: ', '@:ACC_SETUP_SFs(mom_sp(i))'
# 450 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 450 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        call flush (output_unit)
# 450 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    end block
# 450 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 450 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 450 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 450 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 450 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc enter data copyin(mom_sp(i)) 
# 450 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 450 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp target enter data map(to:mom_sp(i)) 
# 450 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 450 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
            if (associated(mom_sp(i)%sf)) then
# 450 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 450 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 450 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc enter data copyin(mom_sp(i)%sf) 
# 450 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 450 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp target enter data map(to:mom_sp(i)%sf) 
# 450 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 450 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
            end if
# 450 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    end block
# 450 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
            end do
        end if
 
        if (mpp_lim .and. bubbles_euler) then
#ifdef MFC_DEBUG
# 455 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    block
# 455 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        use iso_fortran_env, only: output_unit
# 455 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 455 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        print *, 'm_rhs.fpp:455: ', '@:ALLOCATE(alf_sum%sf(idwbuff(1)%beg:idwbuff(1)%end, idwbuff(2)%beg:idwbuff(2)%end, idwbuff(3)%beg:idwbuff(3)%end))'
# 455 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 455 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        call flush (output_unit)
# 455 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    end block
# 455 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 455 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    allocate (alf_sum%sf(idwbuff(1)%beg:idwbuff(1)%end, idwbuff(2)%beg:idwbuff(2)%end, idwbuff(3)%beg:idwbuff(3)%end))
# 455 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 455 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 455 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 455 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc enter data create(alf_sum%sf) 
# 455 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 455 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp target enter data map(always,alloc:alf_sum%sf) 
# 455 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
        end if
        if (alt_soundspeed) then
#ifdef MFC_DEBUG
# 458 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    block
# 458 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        use iso_fortran_env, only: output_unit
# 458 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 458 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        print *, 'm_rhs.fpp:458: ', '@:ALLOCATE(blkmod1(0:m, 0:n, 0:p), blkmod2(0:m, 0:n, 0:p), alpha1(0:m, 0:n, 0:p), alpha2(0:m, 0:n, 0:p), Kterm(0:m, 0:n, 0:p))'
# 458 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 458 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        call flush (output_unit)
# 458 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    end block
# 458 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 458 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    allocate (blkmod1(0:m, 0:n, 0:p), blkmod2(0:m, 0:n, 0:p), alpha1(0:m, 0:n, 0:p), alpha2(0:m, 0:n, 0:p), kterm(0:m,  0:n, 0:p))
# 458 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 458 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 458 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 458 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 458 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 458 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 458 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 458 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc enter data create(blkmod1, blkmod2, alpha1, alpha2, Kterm) 
# 458 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 458 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp target enter data map(always,alloc:blkmod1, blkmod2, alpha1, alpha2, Kterm) 
# 458 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 460 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        end if
 
        call s_initialize_pressure_relaxation_module
 
        ! Spatial body force source arrays - sized to include ghost cells so the
        ! same indexing as q_*_vf is valid; iteration is restricted to interior
        ! cells via the `bounds` argument in m_body_forces. Only allocated when the
        ! feature is active (the write/read sites are likewise guarded).
        if (bf_spatial_support) then
            if (n > 0) then
                if (p > 0) then
#ifdef MFC_DEBUG
# 471 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    block
# 471 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        use iso_fortran_env, only: output_unit
# 471 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 471 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        print *, 'm_rhs.fpp:471: ', '@:ALLOCATE(spbf_source_x(-buff_size:buff_size + m, -buff_size:buff_size + n, -buff_size:buff_size + p))'
# 471 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 471 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        call flush (output_unit)
# 471 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    end block
# 471 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 471 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    allocate (spbf_source_x(-buff_size:buff_size + m, -buff_size:buff_size + n, -buff_size:buff_size + p))
# 471 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 471 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 471 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 471 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc enter data create(spbf_source_x) 
# 471 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 471 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp target enter data map(always,alloc:spbf_source_x) 
# 471 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
#ifdef MFC_DEBUG
# 472 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    block
# 472 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        use iso_fortran_env, only: output_unit
# 472 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 472 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        print *, 'm_rhs.fpp:472: ', '@:ALLOCATE(spbf_source_y(-buff_size:buff_size + m, -buff_size:buff_size + n, -buff_size:buff_size + p))'
# 472 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 472 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        call flush (output_unit)
# 472 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    end block
# 472 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 472 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    allocate (spbf_source_y(-buff_size:buff_size + m, -buff_size:buff_size + n, -buff_size:buff_size + p))
# 472 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 472 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 472 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 472 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc enter data create(spbf_source_y) 
# 472 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 472 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp target enter data map(always,alloc:spbf_source_y) 
# 472 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
                else
#ifdef MFC_DEBUG
# 474 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    block
# 474 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        use iso_fortran_env, only: output_unit
# 474 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 474 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        print *, 'm_rhs.fpp:474: ', '@:ALLOCATE(spbf_source_x(-buff_size:buff_size + m, -buff_size:buff_size + n, 0:0))'
# 474 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 474 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        call flush (output_unit)
# 474 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    end block
# 474 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 474 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    allocate (spbf_source_x(-buff_size:buff_size + m, -buff_size:buff_size + n, 0:0))
# 474 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 474 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 474 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 474 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc enter data create(spbf_source_x) 
# 474 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 474 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp target enter data map(always,alloc:spbf_source_x) 
# 474 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
#ifdef MFC_DEBUG
# 475 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    block
# 475 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        use iso_fortran_env, only: output_unit
# 475 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 475 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        print *, 'm_rhs.fpp:475: ', '@:ALLOCATE(spbf_source_y(-buff_size:buff_size + m, -buff_size:buff_size + n, 0:0))'
# 475 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 475 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        call flush (output_unit)
# 475 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    end block
# 475 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 475 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    allocate (spbf_source_y(-buff_size:buff_size + m, -buff_size:buff_size + n, 0:0))
# 475 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 475 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 475 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 475 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc enter data create(spbf_source_y) 
# 475 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 475 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp target enter data map(always,alloc:spbf_source_y) 
# 475 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
                end if
            else
#ifdef MFC_DEBUG
# 478 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    block
# 478 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        use iso_fortran_env, only: output_unit
# 478 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 478 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        print *, 'm_rhs.fpp:478: ', '@:ALLOCATE(spbf_source_x(-buff_size:buff_size + m, 0:0, 0:0))'
# 478 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 478 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        call flush (output_unit)
# 478 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    end block
# 478 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 478 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    allocate (spbf_source_x(-buff_size:buff_size + m, 0:0, 0:0))
# 478 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 478 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 478 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 478 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc enter data create(spbf_source_x) 
# 478 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 478 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp target enter data map(always,alloc:spbf_source_x) 
# 478 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
#ifdef MFC_DEBUG
# 479 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    block
# 479 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        use iso_fortran_env, only: output_unit
# 479 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 479 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        print *, 'm_rhs.fpp:479: ', '@:ALLOCATE(spbf_source_y(-buff_size:buff_size + m, 0:0, 0:0))'
# 479 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 479 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        call flush (output_unit)
# 479 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    end block
# 479 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 479 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    allocate (spbf_source_y(-buff_size:buff_size + m, 0:0, 0:0))
# 479 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 479 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 479 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 479 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc enter data create(spbf_source_y) 
# 479 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 479 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp target enter data map(always,alloc:spbf_source_y) 
# 479 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
            end if
#ifdef MFC_SIMULATION
# 481 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#ifdef __NVCOMPILER_GPU_UNIFIED_MEM
# 481 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    block
# 481 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        ! NVIDIA CUDA Fortran 25.3+: uses submodules (cuda_runtime_api, gpu_reductions, sort) See
# 481 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        ! https://docs.nvidia.com/hpc-sdk/compilers/cuda-fortran-prog-guide/index.html#fortran-host-modules
# 481 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if __NVCOMPILER_MAJOR__ < 25 || (__NVCOMPILER_MAJOR__ == 25 && __NVCOMPILER_MINOR__ < 3)
# 481 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        use cudafor, gpu_sum => sum, gpu_maxval => maxval, gpu_minval => minval
# 481 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#else
# 481 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        use cuda_runtime_api
# 481 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 481 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        integer :: istat
# 481 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 481 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        if (nv_uvm_pref_gpu) then
# 481 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
                ! print*, "Moving spbf_source_x to GPU => ", SHAPE(spbf_source_x) set preferred location GPU
# 481 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
                istat = cudamemadvise(c_devloc(spbf_source_x), sizeof(spbf_source_x), cudamemadvisesetpreferredlocation, 0)
# 481 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
                if (istat /= cudasuccess) then
# 481 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
                    write (*, "('Error code: ',I0, ': ')") istat
# 481 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
                    ! write(*,*) cudaGetErrorString(istat)
# 481 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
                end if
# 481 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
                ! set accessed by CPU
# 481 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
                istat = cudamemadvise(c_devloc(spbf_source_x), sizeof(spbf_source_x), cudamemadvisesetaccessedby, cudacpudeviceid)
# 481 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
                if (istat /= cudasuccess) then
# 481 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
                    write (*, "('Error code: ',I0, ': ')") istat
# 481 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
                    ! write(*,*) cudaGetErrorString(istat)
# 481 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
                end if
# 481 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
                ! prefetch to GPU - physically populate memory pages
# 481 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
                istat = cudamemprefetchasync(c_devloc(spbf_source_x), sizeof(spbf_source_x), 0, 0)
# 481 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
                if (istat /= cudasuccess) then
# 481 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
                    write (*, "('Error code: ',I0, ': ')") istat
# 481 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
                    ! write(*,*) cudaGetErrorString(istat)
# 481 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
                end if
# 481 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        end if
# 481 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    end block
# 481 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 481 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
#ifdef MFC_SIMULATION
# 482 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#ifdef __NVCOMPILER_GPU_UNIFIED_MEM
# 482 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    block
# 482 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        ! NVIDIA CUDA Fortran 25.3+: uses submodules (cuda_runtime_api, gpu_reductions, sort) See
# 482 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        ! https://docs.nvidia.com/hpc-sdk/compilers/cuda-fortran-prog-guide/index.html#fortran-host-modules
# 482 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if __NVCOMPILER_MAJOR__ < 25 || (__NVCOMPILER_MAJOR__ == 25 && __NVCOMPILER_MINOR__ < 3)
# 482 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        use cudafor, gpu_sum => sum, gpu_maxval => maxval, gpu_minval => minval
# 482 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#else
# 482 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        use cuda_runtime_api
# 482 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 482 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        integer :: istat
# 482 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 482 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        if (nv_uvm_pref_gpu) then
# 482 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
                ! print*, "Moving spbf_source_y to GPU => ", SHAPE(spbf_source_y) set preferred location GPU
# 482 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
                istat = cudamemadvise(c_devloc(spbf_source_y), sizeof(spbf_source_y), cudamemadvisesetpreferredlocation, 0)
# 482 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
                if (istat /= cudasuccess) then
# 482 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
                    write (*, "('Error code: ',I0, ': ')") istat
# 482 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
                    ! write(*,*) cudaGetErrorString(istat)
# 482 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
                end if
# 482 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
                ! set accessed by CPU
# 482 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
                istat = cudamemadvise(c_devloc(spbf_source_y), sizeof(spbf_source_y), cudamemadvisesetaccessedby, cudacpudeviceid)
# 482 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
                if (istat /= cudasuccess) then
# 482 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
                    write (*, "('Error code: ',I0, ': ')") istat
# 482 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
                    ! write(*,*) cudaGetErrorString(istat)
# 482 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
                end if
# 482 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
                ! prefetch to GPU - physically populate memory pages
# 482 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
                istat = cudamemprefetchasync(c_devloc(spbf_source_y), sizeof(spbf_source_y), 0, 0)
# 482 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
                if (istat /= cudasuccess) then
# 482 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
                    write (*, "('Error code: ',I0, ': ')") istat
# 482 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
                    ! write(*,*) cudaGetErrorString(istat)
# 482 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
                end if
# 482 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        end if
# 482 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    end block
# 482 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 482 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
 
            spbf_source_x = 0._wp
            spbf_source_y = 0._wp
 
# 486 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 486 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc update device(spbf_source_x, spbf_source_y) 
# 486 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 486 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp target update to(spbf_source_x, spbf_source_y) 
# 486 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
        end if
 
    end subroutine s_initialize_rhs_module
 
    !> Compute the right-hand side of the semi-discrete governing equations for a single time stage
    impure subroutine s_compute_rhs(q_cons_vf, q_T_sf, q_prim_vf, bc_type, rhs_vf, pb_in, rhs_pb, mv_in, rhs_mv, t_step, stage)
 
        type(scalar_field), dimension(sys_size), intent(inout)                                     :: q_cons_vf
        type(scalar_field), intent(inout)                                                          :: q_t_sf
        type(scalar_field), dimension(sys_size), intent(inout)                                     :: q_prim_vf
        type(integer_field), dimension(1:num_dims,1:2), intent(in)                                 :: bc_type
        type(scalar_field), dimension(sys_size), intent(inout)                                     :: rhs_vf
        real(stp), dimension(idwbuff(1)%beg:,idwbuff(2)%beg:,idwbuff(3)%beg:,1:,1:), intent(inout) :: pb_in
 
        ! TODO :: I think these other two variables need to be stp as well, but it doesn't compile like that right now
        real(wp), dimension(idwbuff(1)%beg:,idwbuff(2)%beg:,idwbuff(3)%beg:,1:,1:), intent(inout) :: rhs_pb
        real(stp), dimension(idwbuff(1)%beg:,idwbuff(2)%beg:,idwbuff(3)%beg:,1:,1:), intent(inout) :: mv_in
        real(wp), dimension(idwbuff(1)%beg:,idwbuff(2)%beg:,idwbuff(3)%beg:,1:,1:), intent(inout) :: rhs_mv
        integer, intent(in) :: t_step
        integer, intent(in) :: stage
        integer :: id
        integer(kind=8) :: i, j, k, l, q  !< Generic loop iterators
 
        ! RHS: halo exchange -> reconstruct -> Riemann solve -> flux difference -> source terms
 
        call nvtxstartrange("COMPUTE-RHS")
 
        if (.not. igr) then
            ! Association/Population of Working Variables
 
# 516 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 516 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 516 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc parallel loop collapse(4) gang vector default(present) private(i, j, k, l)
# 516 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 516 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 516 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 516 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 516 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp target teams loop defaultmap(firstprivate:scalar) bind(teams,parallel) collapse(4) defaultmap(tofrom:aggregate) defaultmap(tofrom:allocatable) defaultmap(tofrom:pointer) private(i, j, k, l)
# 516 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
            do i = 1, sys_size
                do l = idwbuff(3)%beg, idwbuff(3)%end
                    do k = idwbuff(2)%beg, idwbuff(2)%end
                        do j = idwbuff(1)%beg, idwbuff(1)%end
                            q_cons_qp%vf(i)%sf(j, k, l) = q_cons_vf(i)%sf(j, k, l)
                        end do
                    end do
                end do
            end do
 
# 526 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 526 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc end parallel loop
# 526 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 526 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 526 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp end target teams loop
# 526 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
 
            ! Converting Conservative to Primitive Variables
 
            if (mpp_lim .and. bubbles_euler) then
 
# 531 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 531 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 531 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc parallel loop collapse(3) gang vector default(present) private(j, k, l)
# 531 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 531 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 531 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 531 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 531 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp target teams loop defaultmap(firstprivate:scalar) bind(teams,parallel) collapse(3) defaultmap(tofrom:aggregate) defaultmap(tofrom:allocatable) defaultmap(tofrom:pointer) private(j, k, l)
# 531 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
                do l = idwbuff(3)%beg, idwbuff(3)%end
                    do k = idwbuff(2)%beg, idwbuff(2)%end
                        do j = idwbuff(1)%beg, idwbuff(1)%end
                            alf_sum%sf(j, k, l) = 0._wp
 
# 536 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 536 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc loop seq 
# 536 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 536 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 536 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
                            do i = eqn_idx%adv%beg, eqn_idx%adv%end - 1
                                alf_sum%sf(j, k, l) = alf_sum%sf(j, k, l) + q_cons_qp%vf(i)%sf(j, k, l)
                            end do
 
# 540 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 540 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc loop seq 
# 540 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 540 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 540 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
                            do i = eqn_idx%adv%beg, eqn_idx%adv%end - 1
                                q_cons_qp%vf(i)%sf(j, k, l) = q_cons_qp%vf(i)%sf(j, k, &
                                             & l)*(1._wp - q_cons_qp%vf(eqn_idx%alf)%sf(j, k, l))/alf_sum%sf(j, k, l)
                            end do
                        end do
                    end do
                end do
 
# 548 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 548 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc end parallel loop
# 548 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 548 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 548 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp end target teams loop
# 548 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
            end if
        end if
 
        if (igr) then
            call nvtxstartrange("RHS-COMMUNICATION")
            call s_populate_variables_buffers(bc_type, q_cons_vf, pb_in, mv_in, q_t_sf)
            call nvtxendrange
        end if
        if (.not. igr) then
            call nvtxstartrange("RHS-CONVERT")
            call s_convert_conservative_to_primitive_variables(q_cons_qp%vf, q_t_sf, q_prim_qp%vf, idwint)
            call nvtxendrange
 
            call nvtxstartrange("RHS-COMMUNICATION")
            call s_populate_variables_buffers(bc_type, q_prim_qp%vf, pb_in, mv_in, q_t_sf)
            call nvtxendrange
        end if
 
        call nvtxstartrange("RHS-ELASTIC")
        if (hyperelasticity) call s_hyperelastic_rmt_stress_update(q_cons_qp%vf, q_prim_qp%vf)
        call nvtxendrange
 
        if (cfl_dt) then
            if (mytime >= t_stop) return
        else
            if (t_step == t_step_stop) return
        end if
 
        if (qbmm) call s_mom_inv(q_cons_qp%vf, q_prim_qp%vf, mom_sp, mom_3d, pb_in, rhs_pb, mv_in, rhs_mv, idwbuff(1), &
            & idwbuff(2), idwbuff(3))
 
        if ((viscous .and. .not. igr)) then
            call nvtxstartrange("RHS-VISCOUS")
            call s_get_viscous(ql_rsx_vf, dql_prim_dx_n, dql_prim_dy_n, dql_prim_dz_n, ql_prim, qr_rsx_vf, dqr_prim_dx_n, &
                               & dqr_prim_dy_n, dqr_prim_dz_n, qr_prim, q_prim_qp, dq_prim_dx_qp, dq_prim_dy_qp, dq_prim_dz_qp, &
                               & idwbuff(1), idwbuff(2), idwbuff(3))
            call nvtxendrange
        end if
 
        if (surface_tension) then
            call nvtxstartrange("RHS-SURFACE-TENSION")
            call s_get_capillary(q_prim_qp%vf, bc_type)
            call nvtxendrange
        end if
 
        if (int_comp == int_comp_mthinc .and. n > 0) then
            call nvtxstartrange("RHS-COMPRESSION-NORMALS")
            call s_compute_mthinc_normals(q_prim_qp%vf)
            call nvtxendrange
        end if
 
        ! Loop over coordinate directions for dimensional splitting
        do id = 1, num_dims
            if (igr) then
                if (id == 1) then
 
# 604 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 604 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 604 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc parallel loop collapse(4) gang vector default(present) private(i, j, k, l)
# 604 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 604 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 604 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 604 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 604 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp target teams loop defaultmap(firstprivate:scalar) bind(teams,parallel) collapse(4) defaultmap(tofrom:aggregate) defaultmap(tofrom:allocatable) defaultmap(tofrom:pointer) private(i, j, k, l)
# 604 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
                    do l = -1, p + 1
                        do k = -1, n + 1
                            do j = -1, m + 1
                                do i = 1, sys_size
                                    rhs_vf(i)%sf(j, k, l) = 0._stp
                                end do
                            end do
                        end do
                    end do
 
# 614 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 614 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc end parallel loop
# 614 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 614 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 614 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp end target teams loop
# 614 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
                end if
 
                call nvtxstartrange("IGR_RIEMANN")
                call s_igr_riemann_solver(q_cons_vf, rhs_vf, id)
                call nvtxendrange
 
                if (id == 1) then
                    call nvtxstartrange("IGR_Jacobi")
                    call s_igr_iterative_solve(q_cons_vf, bc_type, t_step)
                    call nvtxendrange
 
                    call nvtxstartrange("IGR_SIGMA")
                    call s_igr_sigma_x(q_cons_vf, rhs_vf)
                    call nvtxendrange
                end if
            end if
            if (.not. igr) then
                ! Reconstructing Primitive/Conservative Variables
                call nvtxstartrange("RHS-RECONSTRUCTION")
 
                if (.not. surface_tension) then
                    if ((.not. weno_re_flux) .or. int_comp > 0) then
                        ! Reconstruct densitiess
                        iv%beg = 1; iv%end = sys_size
                        call s_reconstruct_cell_boundary_values(q_prim_qp%vf(1:sys_size), ql_rsx_vf, qr_rsx_vf, id)
                    else
                        iv%beg = 1; iv%end = eqn_idx%cont%end
                        call s_reconstruct_cell_boundary_values(q_prim_qp%vf(iv%beg:iv%end), ql_rsx_vf, qr_rsx_vf, id)
 
                        iv%beg = eqn_idx%mom%beg; iv%end = eqn_idx%mom%end; iglob = id
 
# 645 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 645 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc update device(iv, iglob) 
# 645 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 645 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp target update to(iv, iglob) 
# 645 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
 
 
# 647 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 647 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 647 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc parallel loop collapse(4) gang vector default(present) private(i, j, k, l)
# 647 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 647 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 647 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 647 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 647 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp target teams loop defaultmap(firstprivate:scalar) bind(teams,parallel) collapse(4) defaultmap(tofrom:aggregate) defaultmap(tofrom:allocatable) defaultmap(tofrom:pointer) private(i, j, k, l)
# 647 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
                        do i = iv%beg, iv%end
                            do l = idwbuff(3)%beg, idwbuff(3)%end
                                do k = idwbuff(2)%beg, idwbuff(2)%end
                                    do j = idwbuff(1)%beg, idwbuff(1)%end
                                        ql_rsx_vf(j, k, l, i) = ql_prim(iglob)%vf(i)%sf(j, k, l)
                                        qr_rsx_vf(j, k, l, i) = qr_prim(iglob)%vf(i)%sf(j, k, l)
                                    end do
                                end do
                            end do
                        end do
 
# 658 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 658 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc end parallel loop
# 658 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 658 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 658 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp end target teams loop
# 658 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
 
                        iv%beg = eqn_idx%E; iv%end = sys_size
                        call s_reconstruct_cell_boundary_values(q_prim_qp%vf(iv%beg:iv%end), ql_rsx_vf, qr_rsx_vf, id)
                    end if
                else
                    if (int_comp > 0) then
                        ! THINC reads cont and adv from v_rs_ws; must reconstruct full sys_size range to populate both
                        iv%beg = 1; iv%end = sys_size
                        call s_reconstruct_cell_boundary_values(q_prim_qp%vf(1:sys_size), ql_rsx_vf, qr_rsx_vf, id)
                        ! Surface tension requires first-order energy; overwrite the higher-order result from the full pass above
                        iv%beg = eqn_idx%E; iv%end = eqn_idx%E
                        call s_reconstruct_cell_boundary_values_first_order(q_prim_qp%vf(eqn_idx%E), ql_rsx_vf, qr_rsx_vf, id)
                    else if ((.not. weno_re_flux)) then
                        iv%beg = 1; iv%end = eqn_idx%E - 1
                        call s_reconstruct_cell_boundary_values(q_prim_qp%vf(iv%beg:iv%end), ql_rsx_vf, qr_rsx_vf, id)
 
                        iv%beg = eqn_idx%E; iv%end = eqn_idx%E
                        call s_reconstruct_cell_boundary_values_first_order(q_prim_qp%vf(eqn_idx%E), ql_rsx_vf, qr_rsx_vf, id)
 
                        iv%beg = eqn_idx%E + 1; iv%end = sys_size
                        call s_reconstruct_cell_boundary_values(q_prim_qp%vf(iv%beg:iv%end), ql_rsx_vf, qr_rsx_vf, id)
                    else
                        iv%beg = 1; iv%end = eqn_idx%cont%end
                        call s_reconstruct_cell_boundary_values(q_prim_qp%vf(iv%beg:iv%end), ql_rsx_vf, qr_rsx_vf, id)
 
                        iv%beg = eqn_idx%mom%beg; iv%end = eqn_idx%mom%end; iglob = id
 
# 685 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 685 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc update device(iv, iglob) 
# 685 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 685 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp target update to(iv, iglob) 
# 685 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
 
 
# 687 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 687 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 687 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc parallel loop collapse(4) gang vector default(present) private(i, j, k, l)
# 687 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 687 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 687 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 687 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 687 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp target teams loop defaultmap(firstprivate:scalar) bind(teams,parallel) collapse(4) defaultmap(tofrom:aggregate) defaultmap(tofrom:allocatable) defaultmap(tofrom:pointer) private(i, j, k, l)
# 687 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
                        do i = iv%beg, iv%end
                            do l = idwbuff(3)%beg, idwbuff(3)%end
                                do k = idwbuff(2)%beg, idwbuff(2)%end
                                    do j = idwbuff(1)%beg, idwbuff(1)%end
                                        ql_rsx_vf(j, k, l, i) = ql_prim(iglob)%vf(i)%sf(j, k, l)
                                        qr_rsx_vf(j, k, l, i) = qr_prim(iglob)%vf(i)%sf(j, k, l)
                                    end do
                                end do
                            end do
                        end do
 
# 698 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 698 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc end parallel loop
# 698 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 698 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 698 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp end target teams loop
# 698 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
 
                        iv%beg = eqn_idx%E; iv%end = eqn_idx%E
                        call s_reconstruct_cell_boundary_values_first_order(q_prim_qp%vf(eqn_idx%E), ql_rsx_vf, qr_rsx_vf, id)
 
                        iv%beg = eqn_idx%E + 1; iv%end = sys_size
                        call s_reconstruct_cell_boundary_values(q_prim_qp%vf(iv%beg:iv%end), ql_rsx_vf, qr_rsx_vf, id)
                    end if
                end if
 
                ! Reconstruct viscous derivatives for viscosity
                if (weno_re_flux) then
                    iv%beg = eqn_idx%mom%beg; iv%end = eqn_idx%mom%end
                    call s_reconstruct_cell_boundary_values_visc_deriv(dq_prim_dx_qp(1)%vf(iv%beg:iv%end), dql_rsx_vf, &
                        & dqr_rsx_vf, id, dql_prim_dx_n(id)%vf(iv%beg:iv%end), dqr_prim_dx_n(id)%vf(iv%beg:iv%end), idwbuff(1), &
                        & idwbuff(2), idwbuff(3))
                    if (n > 0) then
                        call s_reconstruct_cell_boundary_values_visc_deriv(dq_prim_dy_qp(1)%vf(iv%beg:iv%end), dql_rsx_vf, &
                            & dqr_rsx_vf, id, dql_prim_dy_n(id)%vf(iv%beg:iv%end), dqr_prim_dy_n(id)%vf(iv%beg:iv%end), &
                            & idwbuff(1), idwbuff(2), idwbuff(3))
                        if (p > 0) then
                            call s_reconstruct_cell_boundary_values_visc_deriv(dq_prim_dz_qp(1)%vf(iv%beg:iv%end), dql_rsx_vf, &
                                & dqr_rsx_vf, id, dql_prim_dz_n(id)%vf(iv%beg:iv%end), dqr_prim_dz_n(id)%vf(iv%beg:iv%end), &
                                & idwbuff(1), idwbuff(2), idwbuff(3))
                        end if
                    end if
                end if
 
                call nvtxendrange
 
                ! Configuring Coordinate Direction Indexes
                if (id == 1) then
                    irx%beg = -1; iry%beg = 0; irz%beg = 0
                else if (id == 2) then
                    irx%beg = 0; iry%beg = -1; irz%beg = 0
                else
                    irx%beg = 0; iry%beg = 0; irz%beg = -1
                end if
                irx%end = m; iry%end = n; irz%end = p
 
                ! Computing Riemann Solver Flux and Source Flux
                call nvtxstartrange("RHS-RIEMANN-SOLVER")
                call s_riemann_solver(qr_rsx_vf, dqr_prim_dx_n(id)%vf, dqr_prim_dy_n(id)%vf, dqr_prim_dz_n(id)%vf, &
                                      & qr_prim(id)%vf, ql_rsx_vf, dql_prim_dx_n(id)%vf, dql_prim_dy_n(id)%vf, &
                                      & dql_prim_dz_n(id)%vf, ql_prim(id)%vf, q_prim_qp%vf, flux_n(id)%vf, flux_src_n(id)%vf, &
                                      & flux_gsrc_n(id)%vf, id, irx, iry, irz)
                call nvtxendrange
 
                ! Additional physics and source terms RHS addition for advection source
                call nvtxstartrange("RHS-ADVECTION-SRC")
                call s_compute_advection_source_term(id, rhs_vf, q_cons_qp, q_prim_qp, flux_src_n(id))
                call nvtxendrange
 
                ! RHS additions for hypoelasticity
                call nvtxstartrange("RHS-HYPOELASTICITY")
                if (hypoelasticity) call s_compute_hypoelastic_rhs(id, q_prim_qp%vf, rhs_vf)
                call nvtxendrange
 
                ! RHS for diffusion
                if (chemistry .and. chem_params%diffusion) then
                    call nvtxstartrange("RHS-CHEM-DIFFUSION")
                    call s_compute_chemistry_diffusion_flux(id, q_prim_qp%vf, flux_src_n(id)%vf, irx, iry, irz, q_t_sf)
                    call nvtxendrange
                end if
 
                ! Viscous stress contribution to RHS
                if (viscous .or. surface_tension .or. chem_params%diffusion) then
                    call nvtxstartrange("RHS-ADD-PHYSICS")
                    call s_compute_additional_physics_rhs(id, q_prim_qp%vf, rhs_vf, flux_src_n(id)%vf, dq_prim_dx_qp(1)%vf, &
                                                          & dq_prim_dy_qp(1)%vf, dq_prim_dz_qp(1)%vf)
                    call nvtxendrange
                end if
 
                ! Bubble dynamics source terms
                if (bubbles_euler) then
                    call nvtxstartrange("RHS-BUBBLES-COMPUTE")
                    call s_compute_bubbles_ee_rhs(id, q_prim_qp%vf, divu)
                    call nvtxendrange
                end if
 
                ! RHS additions for qbmm bubbles
                if (qbmm) then
                    call nvtxstartrange("RHS-QBMM")
                    call s_compute_qbmm_rhs(id, q_cons_qp%vf, q_prim_qp%vf, rhs_vf, flux_n(id)%vf, pb_in, rhs_pb)
                    call nvtxendrange
                end if
                ! END: Additional physics and source terms
 
                if (hyper_cleaning) then
 
# 787 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 787 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 787 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc parallel loop collapse(3) gang vector default(present) private(j, k, l)
# 787 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 787 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 787 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 787 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 787 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp target teams loop defaultmap(firstprivate:scalar) bind(teams,parallel) collapse(3) defaultmap(tofrom:aggregate) defaultmap(tofrom:allocatable) defaultmap(tofrom:pointer) private(j, k, l)
# 787 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
                    do l = 0, p
                        do k = 0, n
                            do j = 0, m
                                rhs_vf(eqn_idx%psi)%sf(j, k, l) = rhs_vf(eqn_idx%psi)%sf(j, k, l) - q_prim_vf(eqn_idx%psi)%sf(j, &
                                       & k, l)/hyper_cleaning_tau
                            end do
                        end do
                    end do
 
# 796 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 796 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc end parallel loop
# 796 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 796 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 796 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp end target teams loop
# 796 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
                end if
 
                ! END: Additional physics and source terms
            end if
        end do
        ! END: Dimensional Splitting Loop
 
        if (ib) then
 
# 805 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 805 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 805 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc parallel loop collapse(3) gang vector default(present) private(i, j, k, l)
# 805 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 805 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 805 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 805 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 805 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp target teams loop defaultmap(firstprivate:scalar) bind(teams,parallel) collapse(3) defaultmap(tofrom:aggregate) defaultmap(tofrom:allocatable) defaultmap(tofrom:pointer) private(i, j, k, l)
# 805 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
            do l = 0, p
                do k = 0, n
                    do j = 0, m
                        if (ib_markers%sf(j, k, l) /= 0) then
                            do i = 1, sys_size
                                rhs_vf(i)%sf(j, k, l) = 0._wp
                            end do
                        end if
                    end do
                end do
            end do
 
# 817 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 817 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc end parallel loop
# 817 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 817 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 817 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp end target teams loop
# 817 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
        end if
 
        ! Additional Physics and Source Terms Additions for acoustic_source
        if (acoustic_source) then
            call nvtxstartrange("RHS-ACOUSTIC-SRC")
            call s_acoustic_src_calculations(q_cons_qp%vf(1:sys_size), q_prim_qp%vf(1:sys_size), rhs_vf)
            call nvtxendrange
        end if
 
        ! Add bubbles source term
        if (bubbles_euler .and. (.not. adap_dt) .and. (.not. qbmm)) then
            call nvtxstartrange("RHS-BUBBLES-SRC")
            call s_compute_bubble_ee_source(q_cons_qp%vf(1:sys_size), q_prim_qp%vf(1:sys_size), rhs_vf, divu)
            call nvtxendrange
        end if
 
        if (bubbles_lagrange) then
            if (.not. adap_dt) then
                call nvtxstartrange("RHS-EL-BUBBLES-DYN")
                call s_compute_bubble_el_dynamics(q_prim_qp%vf(1:sys_size), bc_type, stage)
                call nvtxendrange
            end if
 
            if (lag_params%solver_approach == 2) then
                call nvtxstartrange("RHS-EL-BUBBLES-SRC")
                call s_compute_bubbles_el_source(q_cons_qp%vf(1:sys_size), q_prim_qp%vf(1:sys_size), rhs_vf)
                call nvtxendrange
            end if
        end if
 
        ! When reaction_substeps > 0 the reaction source is integrated by operator splitting
        ! after the flow update (s_chemistry_reaction_substep), not added to the flow RHS here.
        if (chemistry .and. chem_params%reactions .and. chem_params%reaction_substeps == 0) then
            call nvtxstartrange("RHS-CHEM-REACTIONS")
            call s_compute_chemistry_reaction_flux(rhs_vf, q_cons_qp%vf, q_t_sf, q_prim_qp%vf, idwint)
            call nvtxendrange
        end if
 
        if (reactive_burn) then
            call nvtxstartrange("RHS-REACTIVE-BURN")
            call s_compute_reactive_burn(rhs_vf, q_cons_qp%vf, q_prim_qp%vf, idwint)
            call nvtxendrange
        end if
 
        if (cont_damage) call s_compute_damage_state(q_cons_qp%vf, rhs_vf)
 
        ! END: Additional physics and source terms
 
        if (run_time_info .or. probe_wrt .or. ib .or. bubbles_lagrange) then
            if (.not. igr) then
 
# 868 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 868 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 868 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc parallel loop collapse(4) gang vector default(present) private(i, j, k, l)
# 868 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 868 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 868 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 868 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 868 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp target teams loop defaultmap(firstprivate:scalar) bind(teams,parallel) collapse(4) defaultmap(tofrom:aggregate) defaultmap(tofrom:allocatable) defaultmap(tofrom:pointer) private(i, j, k, l)
# 868 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
                do i = 1, sys_size
                    do l = idwbuff(3)%beg, idwbuff(3)%end
                        do k = idwbuff(2)%beg, idwbuff(2)%end
                            do j = idwbuff(1)%beg, idwbuff(1)%end
                                q_prim_vf(i)%sf(j, k, l) = q_prim_qp%vf(i)%sf(j, k, l)
                            end do
                        end do
                    end do
                end do
 
# 878 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 878 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc end parallel loop
# 878 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 878 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 878 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp end target teams loop
# 878 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
            end if
        end if
 
        call nvtxendrange
 
    end subroutine s_compute_rhs
 
    !> Accumulate advection source contributions from a given coordinate direction into the RHS
    subroutine s_compute_advection_source_term(idir, rhs_vf, q_cons_vf, q_prim_vf, flux_src_n_vf)
 
        integer, intent(in) :: idir
        type(scalar_field), dimension(sys_size), intent(inout) :: rhs_vf
        type(vector_field), intent(inout) :: q_cons_vf
        type(vector_field), intent(inout) :: q_prim_vf
        type(vector_field), intent(inout) :: flux_src_n_vf
        integer :: j, k, l, q              !< Loop iterators from original, meaning varies
        integer :: k_loop, l_loop, q_loop  !< Standardized spatial loop iterators 0:m, 0:n, 0:p
        integer :: i_fluid_loop
        real(wp) :: inv_ds, flux_face1, flux_face2
        real(wp) :: advected_qty_val, pressure_val, velocity_val
 
        if (alt_soundspeed) then
 
# 901 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 901 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 901 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc parallel loop collapse(3) gang vector default(present) private(k_loop, l_loop, q_loop)
# 901 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 901 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 901 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 901 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 901 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp target teams loop defaultmap(firstprivate:scalar) bind(teams,parallel) collapse(3) defaultmap(tofrom:aggregate) defaultmap(tofrom:allocatable) defaultmap(tofrom:pointer) &
# 901 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp& private(k_loop, l_loop, q_loop)
# 901 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
            do q_loop = 0, p
                do l_loop = 0, n
                    do k_loop = 0, m
                        blkmod1(k_loop, l_loop, q_loop) = ((gammas(1) + 1._wp)*q_prim_vf%vf(eqn_idx%E)%sf(k_loop, l_loop, &
                                & q_loop) + pi_infs(1))/gammas(1)
                        blkmod2(k_loop, l_loop, q_loop) = ((gammas(2) + 1._wp)*q_prim_vf%vf(eqn_idx%E)%sf(k_loop, l_loop, &
                                & q_loop) + pi_infs(2))/gammas(2)
                        alpha1(k_loop, l_loop, q_loop) = q_cons_vf%vf(eqn_idx%adv%beg)%sf(k_loop, l_loop, q_loop)
 
                        if (bubbles_euler) then
                            alpha2(k_loop, l_loop, q_loop) = q_cons_vf%vf(eqn_idx%alf - 1)%sf(k_loop, l_loop, q_loop)
                        else
                            alpha2(k_loop, l_loop, q_loop) = q_cons_vf%vf(eqn_idx%adv%end)%sf(k_loop, l_loop, q_loop)
                        end if
 
                        kterm(k_loop, l_loop, q_loop) = alpha1(k_loop, l_loop, q_loop)*alpha2(k_loop, l_loop, &
                              & q_loop)*(blkmod2(k_loop, l_loop, q_loop) - blkmod1(k_loop, l_loop, q_loop))/(alpha1(k_loop, &
                              & l_loop, q_loop)*blkmod2(k_loop, l_loop, q_loop) + alpha2(k_loop, l_loop, q_loop)*blkmod1(k_loop, &
                              & l_loop, q_loop))
                    end do
                end do
            end do
 
# 924 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 924 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc end parallel loop
# 924 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 924 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 924 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp end target teams loop
# 924 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
        end if
 
        select case (idir)
        case (1)  ! x-direction
            if (bc_x%beg <= bc_char_slip_wall .and. bc_x%beg >= bc_char_sup_outflow) then
                call s_cbc(q_prim_vf%vf, flux_n(idir)%vf, flux_src_n_vf%vf, idir, -1, irx, iry, irz)
            end if
            if (bc_x%end <= bc_char_slip_wall .and. bc_x%end >= bc_char_sup_outflow) then
                call s_cbc(q_prim_vf%vf, flux_n(idir)%vf, flux_src_n_vf%vf, idir, 1, irx, iry, irz)
            end if
 
 
# 936 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 936 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 936 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc parallel loop collapse(4) gang vector default(present) private(j, k_loop, l_loop, q_loop, inv_ds, flux_face1, flux_face2)
# 936 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 936 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 936 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 936 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 936 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp target teams loop defaultmap(firstprivate:scalar) bind(teams,parallel) collapse(4) defaultmap(tofrom:aggregate) defaultmap(tofrom:allocatable) defaultmap(tofrom:pointer) &
# 936 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp& private(j, k_loop, l_loop, q_loop, inv_ds, flux_face1, flux_face2)
# 936 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
            do j = 1, sys_size
                do q_loop = 0, p
                    do l_loop = 0, n
                        do k_loop = 0, m
                            inv_ds = 1._wp/dx(k_loop)
                            flux_face1 = flux_n(1)%vf(j)%sf(k_loop - 1, l_loop, q_loop)
                            flux_face2 = flux_n(1)%vf(j)%sf(k_loop, l_loop, q_loop)
                            rhs_vf(j)%sf(k_loop, l_loop, q_loop) = inv_ds*(flux_face1 - flux_face2)
                        end do
                    end do
                end do
            end do
 
# 949 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 949 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc end parallel loop
# 949 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 949 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 949 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp end target teams loop
# 949 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
 
            if (model_eqns == model_eqns_6eq) then
 
# 952 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 952 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 952 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc parallel loop collapse(4) gang vector default(present) private(i_fluid_loop, k_loop, l_loop, q_loop, inv_ds, advected_qty_val, pressure_val, flux_face1, flux_face2)
# 952 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 952 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 952 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 952 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 952 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp target teams loop defaultmap(firstprivate:scalar) bind(teams,parallel) collapse(4) defaultmap(tofrom:aggregate) defaultmap(tofrom:allocatable) defaultmap(tofrom:pointer) &
# 952 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp& private(i_fluid_loop, k_loop, l_loop, q_loop, inv_ds, advected_qty_val, pressure_val, flux_face1, flux_face2)
# 952 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 954 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
                do q_loop = 0, p
                    do l_loop = 0, n
                        do k_loop = 0, m
                            do i_fluid_loop = 1, num_fluids
                                inv_ds = 1._wp/dx(k_loop)
                                advected_qty_val = q_cons_vf%vf(i_fluid_loop + eqn_idx%adv%beg - 1)%sf(k_loop, l_loop, q_loop)
                                pressure_val = q_prim_vf%vf(eqn_idx%E)%sf(k_loop, l_loop, q_loop)
                                flux_face1 = flux_src_n_vf%vf(eqn_idx%adv%beg)%sf(k_loop, l_loop, q_loop)
                                flux_face2 = flux_src_n_vf%vf(eqn_idx%adv%beg)%sf(k_loop - 1, l_loop, q_loop)
                                rhs_vf(i_fluid_loop + eqn_idx%int_en%beg - 1)%sf(k_loop, l_loop, &
                                       & q_loop) = rhs_vf(i_fluid_loop + eqn_idx%int_en%beg - 1)%sf(k_loop, l_loop, &
                                       & q_loop) - inv_ds*advected_qty_val*pressure_val*(flux_face1 - flux_face2)
                            end do
                        end do
                    end do
                end do
 
# 970 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 970 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc end parallel loop
# 970 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 970 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 970 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp end target teams loop
# 970 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
            end if
 
            call s_add_directional_advection_source_terms(idir, rhs_vf, q_cons_vf, q_prim_vf, flux_src_n_vf, kterm)
        case (2)  ! y-direction
            if (bc_y%beg <= bc_char_slip_wall .and. bc_y%beg >= bc_char_sup_outflow) then
                call s_cbc(q_prim_vf%vf, flux_n(idir)%vf, flux_src_n_vf%vf, idir, -1, irx, iry, irz)
            end if
            if (bc_y%end <= bc_char_slip_wall .and. bc_y%end >= bc_char_sup_outflow) then
                call s_cbc(q_prim_vf%vf, flux_n(idir)%vf, flux_src_n_vf%vf, idir, 1, irx, iry, irz)
            end if
 
 
# 982 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 982 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 982 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc parallel loop collapse(4) gang vector default(present) private(j, k, l, q, inv_ds, flux_face1, flux_face2)
# 982 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 982 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 982 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 982 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 982 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp target teams loop defaultmap(firstprivate:scalar) bind(teams,parallel) collapse(4) defaultmap(tofrom:aggregate) defaultmap(tofrom:allocatable) defaultmap(tofrom:pointer) &
# 982 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp& private(j, k, l, q, inv_ds, flux_face1, flux_face2)
# 982 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
            do j = 1, sys_size
                do l = 0, p
                    do k = 0, n
                        do q = 0, m
                            inv_ds = 1._wp/dy(k)
                            flux_face1 = flux_n(2)%vf(j)%sf(q, k - 1, l)
                            flux_face2 = flux_n(2)%vf(j)%sf(q, k, l)
                            rhs_vf(j)%sf(q, k, l) = rhs_vf(j)%sf(q, k, l) + inv_ds*(flux_face1 - flux_face2)
                        end do
                    end do
                end do
            end do
 
# 995 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 995 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc end parallel loop
# 995 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 995 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 995 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp end target teams loop
# 995 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
 
            if (model_eqns == model_eqns_6eq) then
 
# 998 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 998 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 998 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc parallel loop collapse(4) gang vector default(present) private(i_fluid_loop, k, l, q, inv_ds, advected_qty_val, pressure_val, flux_face1, flux_face2)
# 998 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 998 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 998 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 998 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 998 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp target teams loop defaultmap(firstprivate:scalar) bind(teams,parallel) collapse(4) defaultmap(tofrom:aggregate) defaultmap(tofrom:allocatable) defaultmap(tofrom:pointer) &
# 998 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp& private(i_fluid_loop, k, l, q, inv_ds, advected_qty_val, pressure_val, flux_face1, flux_face2)
# 998 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 1000 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
                do l = 0, p
                    do k = 0, n
                        do q = 0, m
                            do i_fluid_loop = 1, num_fluids
                                inv_ds = 1._wp/dy(k)
                                advected_qty_val = q_cons_vf%vf(i_fluid_loop + eqn_idx%adv%beg - 1)%sf(q, k, l)
                                pressure_val = q_prim_vf%vf(eqn_idx%E)%sf(q, k, l)
                                flux_face1 = flux_src_n_vf%vf(eqn_idx%adv%beg)%sf(q, k, l)
                                flux_face2 = flux_src_n_vf%vf(eqn_idx%adv%beg)%sf(q, k - 1, l)
                                rhs_vf(i_fluid_loop + eqn_idx%int_en%beg - 1)%sf(q, k, &
                                       & l) = rhs_vf(i_fluid_loop + eqn_idx%int_en%beg - 1)%sf(q, k, &
                                       & l) - inv_ds*advected_qty_val*pressure_val*(flux_face1 - flux_face2)
                                if (cyl_coord) then
                                    rhs_vf(i_fluid_loop + eqn_idx%int_en%beg - 1)%sf(q, k, &
                                           & l) = rhs_vf(i_fluid_loop + eqn_idx%int_en%beg - 1)%sf(q, k, &
                                           & l) - 5.e-1_wp/y_cc(k)*advected_qty_val*pressure_val*(flux_face1 + flux_face2)
                                end if
                            end do
                        end do
                    end do
                end do
 
# 1021 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 1021 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc end parallel loop
# 1021 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 1021 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1021 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp end target teams loop
# 1021 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
            end if
 
            if (cyl_coord) then
 
# 1025 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1025 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 1025 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc parallel loop collapse(4) gang vector default(present) private(j, k, l, q, flux_face1, flux_face2)
# 1025 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 1025 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1025 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1025 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1025 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp target teams loop defaultmap(firstprivate:scalar) bind(teams,parallel) collapse(4) defaultmap(tofrom:aggregate) defaultmap(tofrom:allocatable) defaultmap(tofrom:pointer) &
# 1025 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp& private(j, k, l, q, flux_face1, flux_face2)
# 1025 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
                do j = 1, sys_size
                    do l = 0, p
                        do k = 0, n
                            do q = 0, m
                                flux_face1 = flux_gsrc_n(2)%vf(j)%sf(q, k - 1, l)
                                flux_face2 = flux_gsrc_n(2)%vf(j)%sf(q, k, l)
                                rhs_vf(j)%sf(q, k, l) = rhs_vf(j)%sf(q, k, l) - 5.e-1_wp/y_cc(k)*(flux_face1 + flux_face2)
                            end do
                        end do
                    end do
                end do
 
# 1037 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 1037 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc end parallel loop
# 1037 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 1037 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1037 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp end target teams loop
# 1037 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
            end if
 
            call s_add_directional_advection_source_terms(idir, rhs_vf, q_cons_vf, q_prim_vf, flux_src_n_vf, kterm)
        case (3)  ! z-direction
            if (bc_z%beg <= bc_char_slip_wall .and. bc_z%beg >= bc_char_sup_outflow) then
                call s_cbc(q_prim_vf%vf, flux_n(idir)%vf, flux_src_n_vf%vf, idir, -1, irx, iry, irz)
            end if
            if (bc_z%end <= bc_char_slip_wall .and. bc_z%end >= bc_char_sup_outflow) then
                call s_cbc(q_prim_vf%vf, flux_n(idir)%vf, flux_src_n_vf%vf, idir, 1, irx, iry, irz)
            end if
 
            if (grid_geometry == 3) then  ! Cylindrical Coordinates
 
# 1050 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1050 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 1050 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc parallel loop collapse(4) gang vector default(present) private(j, k, l, q, inv_ds, velocity_val, flux_face1, flux_face2)
# 1050 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 1050 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1050 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1050 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1050 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp target teams loop defaultmap(firstprivate:scalar) bind(teams,parallel) collapse(4) defaultmap(tofrom:aggregate) defaultmap(tofrom:allocatable) defaultmap(tofrom:pointer) &
# 1050 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp& private(j, k, l, q, inv_ds, velocity_val, flux_face1, flux_face2)
# 1050 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
                do j = 1, sys_size
                    do k = 0, p
                        do q = 0, n
                            do l = 0, m
                                inv_ds = 1._wp/(dz(k)*y_cc(q))
                                velocity_val = q_prim_vf%vf(eqn_idx%cont%end + idir)%sf(l, q, k)
                                flux_face1 = flux_n(3)%vf(j)%sf(l, q, k - 1)
                                flux_face2 = flux_n(3)%vf(j)%sf(l, q, k)
                                rhs_vf(j)%sf(l, q, k) = rhs_vf(j)%sf(l, q, k) + inv_ds*velocity_val*(flux_face1 - flux_face2)
                            end do
                        end do
                    end do
                end do
 
# 1064 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 1064 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc end parallel loop
# 1064 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 1064 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1064 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp end target teams loop
# 1064 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
 
# 1065 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1065 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 1065 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc parallel loop collapse(4) gang vector default(present) private(j, k, l, q, flux_face1, flux_face2)
# 1065 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 1065 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1065 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1065 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1065 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp target teams loop defaultmap(firstprivate:scalar) bind(teams,parallel) collapse(4) defaultmap(tofrom:aggregate) defaultmap(tofrom:allocatable) defaultmap(tofrom:pointer) &
# 1065 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp& private(j, k, l, q, flux_face1, flux_face2)
# 1065 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
                do j = 1, sys_size
                    do k = 0, p
                        do q = 0, n
                            do l = 0, m
                                flux_face1 = flux_gsrc_n(3)%vf(j)%sf(l, q, k - 1)
                                flux_face2 = flux_gsrc_n(3)%vf(j)%sf(l, q, k)
                                rhs_vf(j)%sf(l, q, k) = rhs_vf(j)%sf(l, q, k) - 5.e-1_wp/y_cc(q)*(flux_face1 + flux_face2)
                            end do
                        end do
                    end do
                end do
 
# 1077 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 1077 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc end parallel loop
# 1077 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 1077 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1077 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp end target teams loop
# 1077 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
            else
 
# 1079 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1079 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 1079 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc parallel loop collapse(4) gang vector default(present) private(j, k, l, q, inv_ds, flux_face1, flux_face2)
# 1079 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 1079 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1079 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1079 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1079 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp target teams loop defaultmap(firstprivate:scalar) bind(teams,parallel) collapse(4) defaultmap(tofrom:aggregate) defaultmap(tofrom:allocatable) defaultmap(tofrom:pointer) &
# 1079 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp& private(j, k, l, q, inv_ds, flux_face1, flux_face2)
# 1079 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
                do j = 1, sys_size
                    do k = 0, p
                        do q = 0, n
                            do l = 0, m
                                inv_ds = 1._wp/dz(k)
                                flux_face1 = flux_n(3)%vf(j)%sf(l, q, k - 1)
                                flux_face2 = flux_n(3)%vf(j)%sf(l, q, k)
                                rhs_vf(j)%sf(l, q, k) = rhs_vf(j)%sf(l, q, k) + inv_ds*(flux_face1 - flux_face2)
                            end do
                        end do
                    end do
                end do
 
# 1092 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 1092 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc end parallel loop
# 1092 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 1092 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1092 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp end target teams loop
# 1092 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
            end if
 
            if (model_eqns == model_eqns_6eq) then
 
# 1096 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1096 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 1096 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc parallel loop collapse(4) gang vector default(present) private(i_fluid_loop, k, l, q, inv_ds, advected_qty_val, pressure_val, flux_face1, flux_face2)
# 1096 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 1096 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1096 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1096 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1096 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp target teams loop defaultmap(firstprivate:scalar) bind(teams,parallel) collapse(4) defaultmap(tofrom:aggregate) defaultmap(tofrom:allocatable) defaultmap(tofrom:pointer) &
# 1096 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp& private(i_fluid_loop, k, l, q, inv_ds, advected_qty_val, pressure_val, flux_face1, flux_face2)
# 1096 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 1098 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
                do k = 0, p
                    do q = 0, n
                        do l = 0, m
                            do i_fluid_loop = 1, num_fluids
                                inv_ds = 1._wp/dz(k)
                                advected_qty_val = q_cons_vf%vf(i_fluid_loop + eqn_idx%adv%beg - 1)%sf(l, q, k)
                                pressure_val = q_prim_vf%vf(eqn_idx%E)%sf(l, q, k)
                                flux_face1 = flux_src_n_vf%vf(eqn_idx%adv%beg)%sf(l, q, k)
                                flux_face2 = flux_src_n_vf%vf(eqn_idx%adv%beg)%sf(l, q, k - 1)
                                rhs_vf(i_fluid_loop + eqn_idx%int_en%beg - 1)%sf(l, q, &
                                       & k) = rhs_vf(i_fluid_loop + eqn_idx%int_en%beg - 1)%sf(l, q, &
                                       & k) - inv_ds*advected_qty_val*pressure_val*(flux_face1 - flux_face2)
                            end do
                        end do
                    end do
                end do
 
# 1114 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 1114 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc end parallel loop
# 1114 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 1114 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1114 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp end target teams loop
# 1114 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
            end if
 
            call s_add_directional_advection_source_terms(idir, rhs_vf, q_cons_vf, q_prim_vf, flux_src_n_vf, kterm)
        end select
 
    contains
 
        !> Add the advection source flux-difference terms for a single coordinate direction to the RHS
        subroutine s_add_directional_advection_source_terms(current_idir, rhs_vf_arg, q_cons_vf_arg, q_prim_vf_arg, &
            & flux_src_n_vf_arg, Kterm_arg)
            integer, intent(in)                                    :: current_idir
            type(scalar_field), dimension(sys_size), intent(inout) :: rhs_vf_arg
            type(vector_field), intent(in)                         :: q_cons_vf_arg
            type(vector_field), intent(in)                         :: q_prim_vf_arg
            type(vector_field), intent(in)                         :: flux_src_n_vf_arg
            ! CORRECTED DECLARATION FOR Kterm_arg:
            real(wp), allocatable, dimension(:,:,:), intent(in) :: Kterm_arg
            integer                                             :: j_adv, k_idx, l_idx, q_idx
            real(wp)                                            :: local_inv_ds, local_term_coeff, local_flux1, local_flux2
            real(wp)                                            :: local_q_cons_val, local_k_term_val
            logical                                             :: use_standard_riemann
 
            select case (current_idir)
            case (1)  ! x-direction
                use_standard_riemann = (riemann_solver == riemann_solver_hll .or. riemann_solver == riemann_solver_hlld)
                if (use_standard_riemann) then
 
# 1141 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1141 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 1141 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc parallel loop collapse(4) gang vector default(present) private(j_adv, k_idx, l_idx, q_idx, local_inv_ds, local_term_coeff, local_flux1, local_flux2)
# 1141 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 1141 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1141 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1141 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1141 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp target teams loop defaultmap(firstprivate:scalar) bind(teams,parallel) collapse(4) defaultmap(tofrom:aggregate) defaultmap(tofrom:allocatable) defaultmap(tofrom:pointer) &
# 1141 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp& private(j_adv, k_idx, l_idx, q_idx, local_inv_ds, local_term_coeff, local_flux1, local_flux2)
# 1141 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 1143 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
                    do j_adv = eqn_idx%adv%beg, eqn_idx%adv%end
                        do q_idx = 0, p  ! z_extent
                            do l_idx = 0, n  ! y_extent
                                do k_idx = 0, m  ! x_extent
                                    local_inv_ds = 1._wp/dx(k_idx)
                                    local_term_coeff = q_prim_vf_arg%vf(eqn_idx%cont%end + current_idir)%sf(k_idx, l_idx, q_idx)
                                    local_flux1 = flux_src_n_vf_arg%vf(j_adv)%sf(k_idx - 1, l_idx, q_idx)
                                    local_flux2 = flux_src_n_vf_arg%vf(j_adv)%sf(k_idx, l_idx, q_idx)
                                    rhs_vf_arg(j_adv)%sf(k_idx, l_idx, q_idx) = rhs_vf_arg(j_adv)%sf(k_idx, l_idx, &
                                               & q_idx) + local_inv_ds*local_term_coeff*(local_flux1 - local_flux2)
                                end do
                            end do
                        end do
                    end do
 
# 1157 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 1157 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc end parallel loop
# 1157 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 1157 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1157 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp end target teams loop
# 1157 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
                else
                    if (alt_soundspeed) then
                        if (bubbles_euler .neqv. .true.) then
 
# 1161 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1161 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 1161 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc parallel loop collapse(3) gang vector default(present) private(k_idx, l_idx, q_idx, local_inv_ds, local_q_cons_val, local_k_term_val, local_term_coeff, local_flux1, local_flux2)
# 1161 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 1161 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1161 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1161 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1161 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp target teams loop defaultmap(firstprivate:scalar) bind(teams,parallel) collapse(3) defaultmap(tofrom:aggregate) defaultmap(tofrom:allocatable) defaultmap(tofrom:pointer) &
# 1161 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp& private(k_idx, l_idx, q_idx, local_inv_ds, local_q_cons_val, local_k_term_val, local_term_coeff, local_flux1, local_flux2)
# 1161 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 1163 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
                            do q_idx = 0, p; do l_idx = 0, n; do k_idx = 0, m
                                local_inv_ds = 1._wp/dx(k_idx)
                                local_q_cons_val = q_cons_vf_arg%vf(eqn_idx%adv%end)%sf(k_idx, l_idx, q_idx)
                                local_k_term_val = kterm_arg(k_idx, l_idx, q_idx)  ! Access is safe due to outer alt_soundspeed check
                                local_term_coeff = local_q_cons_val - local_k_term_val
                                local_flux1 = flux_src_n_vf_arg%vf(eqn_idx%adv%end)%sf(k_idx, l_idx, q_idx)
                                local_flux2 = flux_src_n_vf_arg%vf(eqn_idx%adv%end)%sf(k_idx - 1, l_idx, q_idx)
                                rhs_vf_arg(eqn_idx%adv%end)%sf(k_idx, l_idx, q_idx) = rhs_vf_arg(eqn_idx%adv%end)%sf(k_idx, &
                                           & l_idx, q_idx) + local_inv_ds*local_term_coeff*(local_flux1 - local_flux2)
                            end do; end do; end do
 
# 1173 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 1173 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc end parallel loop
# 1173 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 1173 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1173 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp end target teams loop
# 1173 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
 
 
# 1175 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1175 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 1175 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc parallel loop collapse(3) gang vector default(present) private(k_idx, l_idx, q_idx, local_inv_ds, local_q_cons_val, local_k_term_val, local_term_coeff, local_flux1, local_flux2)
# 1175 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 1175 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1175 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1175 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1175 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp target teams loop defaultmap(firstprivate:scalar) bind(teams,parallel) collapse(3) defaultmap(tofrom:aggregate) defaultmap(tofrom:allocatable) defaultmap(tofrom:pointer) &
# 1175 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp& private(k_idx, l_idx, q_idx, local_inv_ds, local_q_cons_val, local_k_term_val, local_term_coeff, local_flux1, local_flux2)
# 1175 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 1177 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
                            do q_idx = 0, p; do l_idx = 0, n; do k_idx = 0, m
                                local_inv_ds = 1._wp/dx(k_idx)
                                local_q_cons_val = q_cons_vf_arg%vf(eqn_idx%adv%beg)%sf(k_idx, l_idx, q_idx)
                                local_k_term_val = kterm_arg(k_idx, l_idx, q_idx)  ! Access is safe
                                local_term_coeff = local_q_cons_val + local_k_term_val
                                local_flux1 = flux_src_n_vf_arg%vf(eqn_idx%adv%beg)%sf(k_idx, l_idx, q_idx)
                                local_flux2 = flux_src_n_vf_arg%vf(eqn_idx%adv%beg)%sf(k_idx - 1, l_idx, q_idx)
                                rhs_vf_arg(eqn_idx%adv%beg)%sf(k_idx, l_idx, q_idx) = rhs_vf_arg(eqn_idx%adv%beg)%sf(k_idx, &
                                           & l_idx, q_idx) + local_inv_ds*local_term_coeff*(local_flux1 - local_flux2)
                            end do; end do; end do
 
# 1187 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 1187 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc end parallel loop
# 1187 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 1187 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1187 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp end target teams loop
# 1187 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
                        end if
                    else
 
# 1190 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1190 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 1190 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc parallel loop collapse(4) gang vector default(present) private(j_adv, k_idx, l_idx, q_idx, local_inv_ds, local_term_coeff, local_flux1, local_flux2)
# 1190 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 1190 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1190 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1190 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1190 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp target teams loop defaultmap(firstprivate:scalar) bind(teams,parallel) collapse(4) defaultmap(tofrom:aggregate) defaultmap(tofrom:allocatable) defaultmap(tofrom:pointer) &
# 1190 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp& private(j_adv, k_idx, l_idx, q_idx, local_inv_ds, local_term_coeff, local_flux1, local_flux2)
# 1190 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 1192 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
                        do j_adv = eqn_idx%adv%beg, eqn_idx%adv%end
                            do q_idx = 0, p; do l_idx = 0, n; do k_idx = 0, m
                                local_inv_ds = 1._wp/dx(k_idx)
                                local_term_coeff = q_cons_vf_arg%vf(j_adv)%sf(k_idx, l_idx, q_idx)
                                local_flux1 = flux_src_n_vf_arg%vf(j_adv)%sf(k_idx, l_idx, q_idx)
                                local_flux2 = flux_src_n_vf_arg%vf(j_adv)%sf(k_idx - 1, l_idx, q_idx)
                                rhs_vf_arg(j_adv)%sf(k_idx, l_idx, q_idx) = rhs_vf_arg(j_adv)%sf(k_idx, l_idx, &
                                           & q_idx) + local_inv_ds*local_term_coeff*(local_flux1 - local_flux2)
                            end do; end do; end do
                        end do
 
# 1202 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 1202 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc end parallel loop
# 1202 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 1202 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1202 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp end target teams loop
# 1202 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
                    end if
                end if
            case (2)
                ! y-direction: loops q_idx (x), k_idx (y), l_idx (z); sf(q_idx, k_idx, l_idx); dy(k_idx); Kterm(q_idx,k_idx,l_idx)
                use_standard_riemann = (riemann_solver == riemann_solver_hll .or. riemann_solver == riemann_solver_hlld)
                if (use_standard_riemann) then
 
# 1209 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1209 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 1209 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc parallel loop collapse(4) gang vector default(present) private(j_adv, k_idx, l_idx, q_idx, local_inv_ds, local_term_coeff, local_flux1, local_flux2)
# 1209 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 1209 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1209 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1209 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1209 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp target teams loop defaultmap(firstprivate:scalar) bind(teams,parallel) collapse(4) defaultmap(tofrom:aggregate) defaultmap(tofrom:allocatable) defaultmap(tofrom:pointer) &
# 1209 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp& private(j_adv, k_idx, l_idx, q_idx, local_inv_ds, local_term_coeff, local_flux1, local_flux2)
# 1209 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 1211 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
                    do j_adv = eqn_idx%adv%beg, eqn_idx%adv%end
                        do l_idx = 0, p  ! z_extent
                            do k_idx = 0, n  ! y_extent
                                do q_idx = 0, m  ! x_extent
                                    local_inv_ds = 1._wp/dy(k_idx)
                                    local_term_coeff = q_prim_vf_arg%vf(eqn_idx%cont%end + current_idir)%sf(q_idx, k_idx, l_idx)
                                    local_flux1 = flux_src_n_vf_arg%vf(j_adv)%sf(q_idx, k_idx - 1, l_idx)
                                    local_flux2 = flux_src_n_vf_arg%vf(j_adv)%sf(q_idx, k_idx, l_idx)
                                    rhs_vf_arg(j_adv)%sf(q_idx, k_idx, l_idx) = rhs_vf_arg(j_adv)%sf(q_idx, k_idx, &
                                               & l_idx) + local_inv_ds*local_term_coeff*(local_flux1 - local_flux2)
                                end do
                            end do
                        end do
                    end do
 
# 1225 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 1225 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc end parallel loop
# 1225 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 1225 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1225 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp end target teams loop
# 1225 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
                else
                    if (alt_soundspeed) then
                        if (bubbles_euler .neqv. .true.) then
 
# 1229 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1229 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 1229 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc parallel loop collapse(3) gang vector default(present) private(k_idx, l_idx, q_idx, local_inv_ds, local_q_cons_val, local_k_term_val, local_term_coeff, local_flux1, local_flux2)
# 1229 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 1229 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1229 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1229 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1229 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp target teams loop defaultmap(firstprivate:scalar) bind(teams,parallel) collapse(3) defaultmap(tofrom:aggregate) defaultmap(tofrom:allocatable) defaultmap(tofrom:pointer) &
# 1229 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp& private(k_idx, l_idx, q_idx, local_inv_ds, local_q_cons_val, local_k_term_val, local_term_coeff, local_flux1, local_flux2)
# 1229 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 1231 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
                            do l_idx = 0, p; do k_idx = 0, n; do q_idx = 0, m
                                local_inv_ds = 1._wp/dy(k_idx)
                                local_q_cons_val = q_cons_vf_arg%vf(eqn_idx%adv%end)%sf(q_idx, k_idx, l_idx)
                                local_k_term_val = kterm_arg(q_idx, k_idx, l_idx)  ! Access is safe
                                local_term_coeff = local_q_cons_val - local_k_term_val
                                local_flux1 = flux_src_n_vf_arg%vf(eqn_idx%adv%end)%sf(q_idx, k_idx, l_idx)
                                local_flux2 = flux_src_n_vf_arg%vf(eqn_idx%adv%end)%sf(q_idx, k_idx - 1, l_idx)
                                rhs_vf_arg(eqn_idx%adv%end)%sf(q_idx, k_idx, l_idx) = rhs_vf_arg(eqn_idx%adv%end)%sf(q_idx, &
                                           & k_idx, l_idx) + local_inv_ds*local_term_coeff*(local_flux1 - local_flux2)
                                if (cyl_coord) then
                                    rhs_vf_arg(eqn_idx%adv%end)%sf(q_idx, k_idx, l_idx) = rhs_vf_arg(eqn_idx%adv%end)%sf(q_idx, &
                                               & k_idx, l_idx) - (local_k_term_val/(2._wp*y_cc(k_idx)))*(local_flux1 + local_flux2)
                                end if
                            end do; end do; end do
 
# 1245 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 1245 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc end parallel loop
# 1245 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 1245 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1245 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp end target teams loop
# 1245 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
 
 
# 1247 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1247 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 1247 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc parallel loop collapse(3) gang vector default(present) private(k_idx, l_idx, q_idx, local_inv_ds, local_q_cons_val, local_k_term_val, local_term_coeff, local_flux1, local_flux2)
# 1247 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 1247 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1247 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1247 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1247 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp target teams loop defaultmap(firstprivate:scalar) bind(teams,parallel) collapse(3) defaultmap(tofrom:aggregate) defaultmap(tofrom:allocatable) defaultmap(tofrom:pointer) &
# 1247 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp& private(k_idx, l_idx, q_idx, local_inv_ds, local_q_cons_val, local_k_term_val, local_term_coeff, local_flux1, local_flux2)
# 1247 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 1249 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
                            do l_idx = 0, p; do k_idx = 0, n; do q_idx = 0, m
                                local_inv_ds = 1._wp/dy(k_idx)
                                local_q_cons_val = q_cons_vf_arg%vf(eqn_idx%adv%beg)%sf(q_idx, k_idx, l_idx)
                                local_k_term_val = kterm_arg(q_idx, k_idx, l_idx)  ! Access is safe
                                local_term_coeff = local_q_cons_val + local_k_term_val
                                local_flux1 = flux_src_n_vf_arg%vf(eqn_idx%adv%beg)%sf(q_idx, k_idx, l_idx)
                                local_flux2 = flux_src_n_vf_arg%vf(eqn_idx%adv%beg)%sf(q_idx, k_idx - 1, l_idx)
                                rhs_vf_arg(eqn_idx%adv%beg)%sf(q_idx, k_idx, l_idx) = rhs_vf_arg(eqn_idx%adv%beg)%sf(q_idx, &
                                           & k_idx, l_idx) + local_inv_ds*local_term_coeff*(local_flux1 - local_flux2)
                                if (cyl_coord) then
                                    rhs_vf_arg(eqn_idx%adv%beg)%sf(q_idx, k_idx, l_idx) = rhs_vf_arg(eqn_idx%adv%beg)%sf(q_idx, &
                                               & k_idx, l_idx) + (local_k_term_val/(2._wp*y_cc(k_idx)))*(local_flux1 + local_flux2)
                                end if
                            end do; end do; end do
 
# 1263 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 1263 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc end parallel loop
# 1263 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 1263 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1263 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp end target teams loop
# 1263 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
                        end if
                    else
 
# 1266 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1266 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 1266 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc parallel loop collapse(4) gang vector default(present) private(j_adv, k_idx, l_idx, q_idx, local_inv_ds, local_term_coeff, local_flux1, local_flux2)
# 1266 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 1266 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1266 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1266 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1266 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp target teams loop defaultmap(firstprivate:scalar) bind(teams,parallel) collapse(4) defaultmap(tofrom:aggregate) defaultmap(tofrom:allocatable) defaultmap(tofrom:pointer) &
# 1266 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp& private(j_adv, k_idx, l_idx, q_idx, local_inv_ds, local_term_coeff, local_flux1, local_flux2)
# 1266 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 1268 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
                        do j_adv = eqn_idx%adv%beg, eqn_idx%adv%end
                            do l_idx = 0, p; do k_idx = 0, n; do q_idx = 0, m
                                local_inv_ds = 1._wp/dy(k_idx)
                                local_term_coeff = q_cons_vf_arg%vf(j_adv)%sf(q_idx, k_idx, l_idx)
                                local_flux1 = flux_src_n_vf_arg%vf(j_adv)%sf(q_idx, k_idx, l_idx)
                                local_flux2 = flux_src_n_vf_arg%vf(j_adv)%sf(q_idx, k_idx - 1, l_idx)
                                rhs_vf_arg(j_adv)%sf(q_idx, k_idx, l_idx) = rhs_vf_arg(j_adv)%sf(q_idx, k_idx, &
                                           & l_idx) + local_inv_ds*local_term_coeff*(local_flux1 - local_flux2)
                            end do; end do; end do
                        end do
 
# 1278 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 1278 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc end parallel loop
# 1278 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 1278 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1278 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp end target teams loop
# 1278 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
                    end if
                end if
            case (3)
                ! z-direction: loops l_idx (x), q_idx (y), k_idx (z); sf(l_idx, q_idx, k_idx); dz(k_idx); Kterm(l_idx,q_idx,k_idx)
                if (grid_geometry == 3) then
                    use_standard_riemann = (riemann_solver == riemann_solver_hll)
                else
                    use_standard_riemann = (riemann_solver == riemann_solver_hll .or. riemann_solver == riemann_solver_hlld)
                end if
 
                if (use_standard_riemann) then
 
# 1290 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1290 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 1290 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc parallel loop collapse(4) gang vector default(present) private(j_adv, k_idx, l_idx, q_idx, local_inv_ds, local_term_coeff, local_flux1, local_flux2)
# 1290 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 1290 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1290 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1290 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1290 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp target teams loop defaultmap(firstprivate:scalar) bind(teams,parallel) collapse(4) defaultmap(tofrom:aggregate) defaultmap(tofrom:allocatable) defaultmap(tofrom:pointer) &
# 1290 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp& private(j_adv, k_idx, l_idx, q_idx, local_inv_ds, local_term_coeff, local_flux1, local_flux2)
# 1290 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 1292 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
                    do j_adv = eqn_idx%adv%beg, eqn_idx%adv%end
                        do k_idx = 0, p  ! z_extent
                            do q_idx = 0, n  ! y_extent
                                do l_idx = 0, m  ! x_extent
                                    local_inv_ds = 1._wp/dz(k_idx)
                                    local_term_coeff = q_prim_vf_arg%vf(eqn_idx%cont%end + current_idir)%sf(l_idx, q_idx, k_idx)
                                    local_flux1 = flux_src_n_vf_arg%vf(j_adv)%sf(l_idx, q_idx, k_idx - 1)
                                    local_flux2 = flux_src_n_vf_arg%vf(j_adv)%sf(l_idx, q_idx, k_idx)
                                    rhs_vf_arg(j_adv)%sf(l_idx, q_idx, k_idx) = rhs_vf_arg(j_adv)%sf(l_idx, q_idx, &
                                               & k_idx) + local_inv_ds*local_term_coeff*(local_flux1 - local_flux2)
                                end do
                            end do
                        end do
                    end do
 
# 1306 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 1306 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc end parallel loop
# 1306 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 1306 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1306 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp end target teams loop
# 1306 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
                else
                    if (alt_soundspeed) then
                        if (bubbles_euler .neqv. .true.) then
 
# 1310 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1310 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 1310 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc parallel loop collapse(3) gang vector default(present) private(k_idx, l_idx, q_idx, local_inv_ds, local_q_cons_val, local_k_term_val, local_term_coeff, local_flux1, local_flux2)
# 1310 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 1310 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1310 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1310 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1310 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp target teams loop defaultmap(firstprivate:scalar) bind(teams,parallel) collapse(3) defaultmap(tofrom:aggregate) defaultmap(tofrom:allocatable) defaultmap(tofrom:pointer) &
# 1310 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp& private(k_idx, l_idx, q_idx, local_inv_ds, local_q_cons_val, local_k_term_val, local_term_coeff, local_flux1, local_flux2)
# 1310 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 1312 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
                            do k_idx = 0, p; do q_idx = 0, n; do l_idx = 0, m
                                local_inv_ds = 1._wp/dz(k_idx)
                                local_q_cons_val = q_cons_vf_arg%vf(eqn_idx%adv%end)%sf(l_idx, q_idx, k_idx)
                                local_k_term_val = kterm_arg(l_idx, q_idx, k_idx)  ! Access is safe
                                local_term_coeff = local_q_cons_val - local_k_term_val
                                local_flux1 = flux_src_n_vf_arg%vf(eqn_idx%adv%end)%sf(l_idx, q_idx, k_idx)
                                local_flux2 = flux_src_n_vf_arg%vf(eqn_idx%adv%end)%sf(l_idx, q_idx, k_idx - 1)
                                rhs_vf_arg(eqn_idx%adv%end)%sf(l_idx, q_idx, k_idx) = rhs_vf_arg(eqn_idx%adv%end)%sf(l_idx, &
                                           & q_idx, k_idx) + local_inv_ds*local_term_coeff*(local_flux1 - local_flux2)
                            end do; end do; end do
 
# 1322 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 1322 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc end parallel loop
# 1322 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 1322 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1322 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp end target teams loop
# 1322 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
 
 
# 1324 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1324 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 1324 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc parallel loop collapse(3) gang vector default(present) private(k_idx, l_idx, q_idx, local_inv_ds, local_q_cons_val, local_k_term_val, local_term_coeff, local_flux1, local_flux2)
# 1324 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 1324 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1324 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1324 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1324 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp target teams loop defaultmap(firstprivate:scalar) bind(teams,parallel) collapse(3) defaultmap(tofrom:aggregate) defaultmap(tofrom:allocatable) defaultmap(tofrom:pointer) &
# 1324 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp& private(k_idx, l_idx, q_idx, local_inv_ds, local_q_cons_val, local_k_term_val, local_term_coeff, local_flux1, local_flux2)
# 1324 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 1326 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
                            do k_idx = 0, p; do q_idx = 0, n; do l_idx = 0, m
                                local_inv_ds = 1._wp/dz(k_idx)
                                local_q_cons_val = q_cons_vf_arg%vf(eqn_idx%adv%beg)%sf(l_idx, q_idx, k_idx)
                                local_k_term_val = kterm_arg(l_idx, q_idx, k_idx)  ! Access is safe
                                local_term_coeff = local_q_cons_val + local_k_term_val
                                local_flux1 = flux_src_n_vf_arg%vf(eqn_idx%adv%beg)%sf(l_idx, q_idx, k_idx)
                                local_flux2 = flux_src_n_vf_arg%vf(eqn_idx%adv%beg)%sf(l_idx, q_idx, k_idx - 1)
                                rhs_vf_arg(eqn_idx%adv%beg)%sf(l_idx, q_idx, k_idx) = rhs_vf_arg(eqn_idx%adv%beg)%sf(l_idx, &
                                           & q_idx, k_idx) + local_inv_ds*local_term_coeff*(local_flux1 - local_flux2)
                            end do; end do; end do
 
# 1336 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 1336 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc end parallel loop
# 1336 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 1336 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1336 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp end target teams loop
# 1336 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
                        end if
                    else
 
# 1339 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1339 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 1339 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc parallel loop collapse(4) gang vector default(present) private(j_adv, k_idx, l_idx, q_idx, local_inv_ds, local_term_coeff, local_flux1, local_flux2)
# 1339 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 1339 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1339 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1339 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1339 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp target teams loop defaultmap(firstprivate:scalar) bind(teams,parallel) collapse(4) defaultmap(tofrom:aggregate) defaultmap(tofrom:allocatable) defaultmap(tofrom:pointer) &
# 1339 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp& private(j_adv, k_idx, l_idx, q_idx, local_inv_ds, local_term_coeff, local_flux1, local_flux2)
# 1339 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 1341 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
                        do j_adv = eqn_idx%adv%beg, eqn_idx%adv%end
                            do k_idx = 0, p; do q_idx = 0, n; do l_idx = 0, m
                                local_inv_ds = 1._wp/dz(k_idx)
                                local_term_coeff = q_cons_vf_arg%vf(j_adv)%sf(l_idx, q_idx, k_idx)
                                local_flux1 = flux_src_n_vf_arg%vf(j_adv)%sf(l_idx, q_idx, k_idx)
                                local_flux2 = flux_src_n_vf_arg%vf(j_adv)%sf(l_idx, q_idx, k_idx - 1)
                                rhs_vf_arg(j_adv)%sf(l_idx, q_idx, k_idx) = rhs_vf_arg(j_adv)%sf(l_idx, q_idx, &
                                           & k_idx) + local_inv_ds*local_term_coeff*(local_flux1 - local_flux2)
                            end do; end do; end do
                        end do
 
# 1351 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 1351 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc end parallel loop
# 1351 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 1351 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1351 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp end target teams loop
# 1351 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
                    end if
                end if
            end select
 
        end subroutine s_add_directional_advection_source_terms
 
    end subroutine s_compute_advection_source_term
 
    !> Add viscous, surface-tension, and species-diffusion source flux contributions to the RHS for a given direction
    subroutine s_compute_additional_physics_rhs(idir, q_prim_vf, rhs_vf, flux_src_n_in, dq_prim_dx_vf, dq_prim_dy_vf, dq_prim_dz_vf)
 
        integer, intent(in)                                    :: idir
        type(scalar_field), dimension(sys_size), intent(in)    :: q_prim_vf
        type(scalar_field), dimension(sys_size), intent(inout) :: rhs_vf
        type(scalar_field), dimension(sys_size), intent(in)    :: flux_src_n_in
        type(scalar_field), dimension(sys_size), intent(in)    :: dq_prim_dx_vf, dq_prim_dy_vf, dq_prim_dz_vf
        integer                                                :: i, j, k, l
 
        if (idir == 1) then  ! x-direction
            if (surface_tension) then
 
# 1372 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1372 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 1372 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc parallel loop collapse(3) gang vector default(present) private(j, k, l)
# 1372 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 1372 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1372 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1372 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1372 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp target teams loop defaultmap(firstprivate:scalar) bind(teams,parallel) collapse(3) defaultmap(tofrom:aggregate) defaultmap(tofrom:allocatable) defaultmap(tofrom:pointer) private(j, k, l)
# 1372 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
                do l = 0, p
                    do k = 0, n
                        do j = 0, m
                            rhs_vf(eqn_idx%c)%sf(j, k, l) = rhs_vf(eqn_idx%c)%sf(j, k, &
                                   & l) + 1._wp/dx(j)*q_prim_vf(eqn_idx%c)%sf(j, k, l)*(flux_src_n_in(eqn_idx%adv%beg)%sf(j, k, &
                                   & l) - flux_src_n_in(eqn_idx%adv%beg)%sf(j - 1, k, l))
                        end do
                    end do
                end do
 
# 1382 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 1382 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc end parallel loop
# 1382 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 1382 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1382 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp end target teams loop
# 1382 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
            end if
 
            if ((surface_tension .or. viscous) .or. chem_params%diffusion) then
 
# 1386 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1386 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 1386 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc parallel loop collapse(3) gang vector default(present) private(j, k, l)
# 1386 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 1386 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1386 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1386 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1386 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp target teams loop defaultmap(firstprivate:scalar) bind(teams,parallel) collapse(3) defaultmap(tofrom:aggregate) defaultmap(tofrom:allocatable) defaultmap(tofrom:pointer) private(j, k, l)
# 1386 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
                do l = 0, p
                    do k = 0, n
                        do j = 0, m
                            if (surface_tension .or. viscous) then
 
# 1391 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 1391 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc loop seq 
# 1391 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 1391 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1391 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
                                do i = eqn_idx%mom%beg, eqn_idx%E
                                    rhs_vf(i)%sf(j, k, l) = rhs_vf(i)%sf(j, k, l) + 1._wp/dx(j)*(flux_src_n_in(i)%sf(j - 1, k, &
                                           & l) - flux_src_n_in(i)%sf(j, k, l))
                                end do
                            end if
 
                            if (chem_params%diffusion) then
 
# 1399 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 1399 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc loop seq 
# 1399 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 1399 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1399 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
                                do i = eqn_idx%species%beg, eqn_idx%species%end
                                    rhs_vf(i)%sf(j, k, l) = rhs_vf(i)%sf(j, k, l) + 1._wp/dx(j)*(flux_src_n_in(i)%sf(j - 1, k, &
                                           & l) - flux_src_n_in(i)%sf(j, k, l))
                                end do
 
                                if (.not. viscous) then
                                    rhs_vf(eqn_idx%E)%sf(j, k, l) = rhs_vf(eqn_idx%E)%sf(j, k, &
                                           & l) + 1._wp/dx(j)*(flux_src_n_in(eqn_idx%E)%sf(j - 1, k, &
                                           & l) - flux_src_n_in(eqn_idx%E)%sf(j, k, l))
                                end if
                            end if
                        end do
                    end do
                end do
 
# 1414 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 1414 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc end parallel loop
# 1414 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 1414 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1414 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp end target teams loop
# 1414 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
            end if
        else if (idir == 2) then  ! y-direction
            if (surface_tension) then
 
# 1418 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1418 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 1418 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc parallel loop collapse(3) gang vector default(present) private(j, k, l)
# 1418 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 1418 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1418 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1418 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1418 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp target teams loop defaultmap(firstprivate:scalar) bind(teams,parallel) collapse(3) defaultmap(tofrom:aggregate) defaultmap(tofrom:allocatable) defaultmap(tofrom:pointer) private(j, k, l)
# 1418 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
                do l = 0, p
                    do k = 0, n
                        do j = 0, m
                            rhs_vf(eqn_idx%c)%sf(j, k, l) = rhs_vf(eqn_idx%c)%sf(j, k, &
                                   & l) + 1._wp/dy(k)*q_prim_vf(eqn_idx%c)%sf(j, k, l)*(flux_src_n_in(eqn_idx%adv%beg)%sf(j, k, &
                                   & l) - flux_src_n_in(eqn_idx%adv%beg)%sf(j, k - 1, l))
                        end do
                    end do
                end do
 
# 1428 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 1428 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc end parallel loop
# 1428 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 1428 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1428 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp end target teams loop
# 1428 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
            end if
 
            if (cyl_coord .and. ((bc_y%beg == -2) .or. (bc_y%beg == -14))) then
                if (viscous) then
                    if (p > 0) then
                        call s_compute_viscous_stress_cylindrical_boundary(q_prim_vf, &
                            & dq_prim_dx_vf(eqn_idx%mom%beg:eqn_idx%mom%end), dq_prim_dy_vf(eqn_idx%mom%beg:eqn_idx%mom%end), &
                            & dq_prim_dz_vf(eqn_idx%mom%beg:eqn_idx%mom%end), tau_re_vf, idwbuff(1), idwbuff(2), idwbuff(3))
                    else
                        call s_compute_viscous_stress_cylindrical_boundary(q_prim_vf, &
                            & dq_prim_dx_vf(eqn_idx%mom%beg:eqn_idx%mom%end), dq_prim_dy_vf(eqn_idx%mom%beg:eqn_idx%mom%end), &
                            & dq_prim_dz_vf(eqn_idx%mom%beg:eqn_idx%mom%end), tau_re_vf, idwbuff(1), idwbuff(2), idwbuff(3))
                    end if
 
 
# 1443 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1443 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 1443 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc parallel loop collapse(2) gang vector default(present) private(i, j, l)
# 1443 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 1443 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1443 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1443 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1443 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp target teams loop defaultmap(firstprivate:scalar) bind(teams,parallel) collapse(2) defaultmap(tofrom:aggregate) defaultmap(tofrom:allocatable) defaultmap(tofrom:pointer) private(i, j, l)
# 1443 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
                    do l = 0, p
                        do j = 0, m
 
# 1446 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 1446 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc loop seq 
# 1446 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 1446 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1446 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
                            do i = eqn_idx%mom%beg, eqn_idx%E
                                rhs_vf(i)%sf(j, 0, l) = rhs_vf(i)%sf(j, 0, l) + 1._wp/(y_cc(1) - y_cc(-1))*(tau_re_vf(i)%sf(j, &
                                       & -1, l) - tau_re_vf(i)%sf(j, 1, l))
                            end do
                        end do
                    end do
 
# 1453 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 1453 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc end parallel loop
# 1453 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 1453 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1453 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp end target teams loop
# 1453 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
                end if
 
 
# 1456 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1456 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 1456 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc parallel loop collapse(3) gang vector default(present) private(i, j, k, l)
# 1456 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 1456 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1456 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1456 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1456 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp target teams loop defaultmap(firstprivate:scalar) bind(teams,parallel) collapse(3) defaultmap(tofrom:aggregate) defaultmap(tofrom:allocatable) defaultmap(tofrom:pointer) private(i, j, k, l)
# 1456 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
                do l = 0, p
                    do k = 1, n
                        do j = 0, m
 
# 1460 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 1460 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc loop seq 
# 1460 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 1460 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1460 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
                            do i = eqn_idx%mom%beg, eqn_idx%E
                                rhs_vf(i)%sf(j, k, l) = rhs_vf(i)%sf(j, k, l) + 1._wp/dy(k)*(flux_src_n_in(i)%sf(j, k - 1, &
                                       & l) - flux_src_n_in(i)%sf(j, k, l))
                            end do
                        end do
                    end do
                end do
 
# 1468 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 1468 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc end parallel loop
# 1468 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 1468 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1468 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp end target teams loop
# 1468 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
            else
                if ((surface_tension .or. viscous) .or. chem_params%diffusion) then
 
# 1471 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1471 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 1471 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc parallel loop collapse(3) gang vector default(present) private(i, j, k, l)
# 1471 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 1471 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1471 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1471 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1471 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp target teams loop defaultmap(firstprivate:scalar) bind(teams,parallel) collapse(3) defaultmap(tofrom:aggregate) defaultmap(tofrom:allocatable) defaultmap(tofrom:pointer) private(i, j, k, l)
# 1471 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
                    do l = 0, p
                        do k = 0, n
                            do j = 0, m
                                if (surface_tension .or. viscous) then
 
# 1476 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 1476 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc loop seq 
# 1476 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 1476 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1476 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
                                    do i = eqn_idx%mom%beg, eqn_idx%E
                                        rhs_vf(i)%sf(j, k, l) = rhs_vf(i)%sf(j, k, l) + 1._wp/dy(k)*(flux_src_n_in(i)%sf(j, &
                                               & k - 1, l) - flux_src_n_in(i)%sf(j, k, l))
                                    end do
                                end if
 
                                if (chem_params%diffusion) then
 
# 1484 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 1484 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc loop seq 
# 1484 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 1484 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1484 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
                                    do i = eqn_idx%species%beg, eqn_idx%species%end
                                        rhs_vf(i)%sf(j, k, l) = rhs_vf(i)%sf(j, k, l) + 1._wp/dy(k)*(flux_src_n_in(i)%sf(j, &
                                               & k - 1, l) - flux_src_n_in(i)%sf(j, k, l))
                                    end do
                                    if (.not. viscous) then
                                        rhs_vf(eqn_idx%E)%sf(j, k, l) = rhs_vf(eqn_idx%E)%sf(j, k, &
                                               & l) + 1._wp/dy(k)*(flux_src_n_in(eqn_idx%E)%sf(j, k - 1, &
                                               & l) - flux_src_n_in(eqn_idx%E)%sf(j, k, l))
                                    end if
                                end if
                            end do
                        end do
                    end do
 
# 1498 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 1498 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc end parallel loop
# 1498 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 1498 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1498 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp end target teams loop
# 1498 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
                end if
            end if
 
            ! Applying the geometrical viscous Riemann source fluxes calculated as average of values at cell boundaries
            if (cyl_coord) then
                if ((bc_y%beg == -2) .or. (bc_y%beg == -14)) then
 
# 1505 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1505 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 1505 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc parallel loop collapse(3) gang vector default(present) private(i, j, k, l)
# 1505 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 1505 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1505 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1505 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1505 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp target teams loop defaultmap(firstprivate:scalar) bind(teams,parallel) collapse(3) defaultmap(tofrom:aggregate) defaultmap(tofrom:allocatable) defaultmap(tofrom:pointer) private(i, j, k, l)
# 1505 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
                    do l = 0, p
                        do k = 1, n
                            do j = 0, m
 
# 1509 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 1509 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc loop seq 
# 1509 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 1509 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1509 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
                                do i = eqn_idx%mom%beg, eqn_idx%E
                                    rhs_vf(i)%sf(j, k, l) = rhs_vf(i)%sf(j, k, l) - 5.e-1_wp/y_cc(k)*(flux_src_n_in(i)%sf(j, &
                                           & k - 1, l) + flux_src_n_in(i)%sf(j, k, l))
                                end do
                            end do
                        end do
                    end do
 
# 1517 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 1517 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc end parallel loop
# 1517 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 1517 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1517 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp end target teams loop
# 1517 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
 
                    if (viscous) then
 
# 1520 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1520 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 1520 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc parallel loop collapse(2) gang vector default(present) private(i, j, l)
# 1520 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 1520 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1520 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1520 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1520 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp target teams loop defaultmap(firstprivate:scalar) bind(teams,parallel) collapse(2) defaultmap(tofrom:aggregate) defaultmap(tofrom:allocatable) defaultmap(tofrom:pointer) private(i, j, l)
# 1520 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
                        do l = 0, p
                            do j = 0, m
 
# 1523 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 1523 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc loop seq 
# 1523 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 1523 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1523 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
                                do i = eqn_idx%mom%beg, eqn_idx%E
                                    rhs_vf(i)%sf(j, 0, l) = rhs_vf(i)%sf(j, 0, l) - 1._wp/y_cc(0)*tau_re_vf(i)%sf(j, 0, l)
                                end do
                            end do
                        end do
 
# 1529 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 1529 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc end parallel loop
# 1529 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 1529 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1529 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp end target teams loop
# 1529 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
                    end if
                else
 
# 1532 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1532 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 1532 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc parallel loop collapse(3) gang vector default(present) private(i, j, k, l)
# 1532 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 1532 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1532 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1532 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1532 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp target teams loop defaultmap(firstprivate:scalar) bind(teams,parallel) collapse(3) defaultmap(tofrom:aggregate) defaultmap(tofrom:allocatable) defaultmap(tofrom:pointer) private(i, j, k, l)
# 1532 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
                    do l = 0, p
                        do k = 0, n
                            do j = 0, m
 
# 1536 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 1536 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc loop seq 
# 1536 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 1536 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1536 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
                                do i = eqn_idx%mom%beg, eqn_idx%E
                                    rhs_vf(i)%sf(j, k, l) = rhs_vf(i)%sf(j, k, l) - 5.e-1_wp/y_cc(k)*(flux_src_n_in(i)%sf(j, &
                                           & k - 1, l) + flux_src_n_in(i)%sf(j, k, l))
                                end do
                            end do
                        end do
                    end do
 
# 1544 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 1544 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc end parallel loop
# 1544 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 1544 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1544 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp end target teams loop
# 1544 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
                end if
            end if
        else if (idir == 3) then  ! z-direction
            if (surface_tension) then
 
# 1549 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1549 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 1549 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc parallel loop collapse(3) gang vector default(present) private(j, k, l)
# 1549 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 1549 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1549 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1549 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1549 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp target teams loop defaultmap(firstprivate:scalar) bind(teams,parallel) collapse(3) defaultmap(tofrom:aggregate) defaultmap(tofrom:allocatable) defaultmap(tofrom:pointer) private(j, k, l)
# 1549 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
                do l = 0, p
                    do k = 0, n
                        do j = 0, m
                            rhs_vf(eqn_idx%c)%sf(j, k, l) = rhs_vf(eqn_idx%c)%sf(j, k, &
                                   & l) + 1._wp/dz(l)*q_prim_vf(eqn_idx%c)%sf(j, k, l)*(flux_src_n_in(eqn_idx%adv%beg)%sf(j, k, &
                                   & l) - flux_src_n_in(eqn_idx%adv%beg)%sf(j, k, l - 1))
                        end do
                    end do
                end do
 
# 1559 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 1559 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc end parallel loop
# 1559 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 1559 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1559 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp end target teams loop
# 1559 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
            end if
 
            if ((surface_tension .or. viscous) .or. chem_params%diffusion) then
 
# 1563 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1563 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 1563 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc parallel loop collapse(3) gang vector default(present) private(i, j, k, l)
# 1563 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 1563 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1563 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1563 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1563 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp target teams loop defaultmap(firstprivate:scalar) bind(teams,parallel) collapse(3) defaultmap(tofrom:aggregate) defaultmap(tofrom:allocatable) defaultmap(tofrom:pointer) private(i, j, k, l)
# 1563 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
                do l = 0, p
                    do k = 0, n
                        do j = 0, m
                            if (surface_tension .or. viscous) then
 
# 1568 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 1568 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc loop seq 
# 1568 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 1568 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1568 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
                                do i = eqn_idx%mom%beg, eqn_idx%E
                                    rhs_vf(i)%sf(j, k, l) = rhs_vf(i)%sf(j, k, l) + 1._wp/dz(l)*(flux_src_n_in(i)%sf(j, k, &
                                           & l - 1) - flux_src_n_in(i)%sf(j, k, l))
                                end do
                            end if
 
                            if (chem_params%diffusion) then
 
# 1576 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 1576 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc loop seq 
# 1576 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 1576 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1576 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
                                do i = eqn_idx%species%beg, eqn_idx%species%end
                                    rhs_vf(i)%sf(j, k, l) = rhs_vf(i)%sf(j, k, l) + 1._wp/dz(l)*(flux_src_n_in(i)%sf(j, k, &
                                           & l - 1) - flux_src_n_in(i)%sf(j, k, l))
                                end do
                                if (.not. viscous) then
                                    rhs_vf(eqn_idx%E)%sf(j, k, l) = rhs_vf(eqn_idx%E)%sf(j, k, &
                                           & l) + 1._wp/dz(l)*(flux_src_n_in(eqn_idx%E)%sf(j, k, &
                                           & l - 1) - flux_src_n_in(eqn_idx%E)%sf(j, k, l))
                                end if
                            end if
                        end do
                    end do
                end do
 
# 1590 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 1590 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc end parallel loop
# 1590 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 1590 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1590 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp end target teams loop
# 1590 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
            end if
 
            if (grid_geometry == 3) then
 
# 1594 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1594 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 1594 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc parallel loop collapse(3) gang vector default(present) private(j, k, l)
# 1594 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 1594 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1594 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1594 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1594 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp target teams loop defaultmap(firstprivate:scalar) bind(teams,parallel) collapse(3) defaultmap(tofrom:aggregate) defaultmap(tofrom:allocatable) defaultmap(tofrom:pointer) private(j, k, l)
# 1594 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
                do l = 0, p
                    do k = 0, n
                        do j = 0, m
                            rhs_vf(eqn_idx%mom%beg + 1)%sf(j, k, l) = rhs_vf(eqn_idx%mom%beg + 1)%sf(j, k, &
                                   & l) + 5.e-1_wp*(flux_src_n_in(eqn_idx%mom%end)%sf(j, k, &
                                   & l - 1) + flux_src_n_in(eqn_idx%mom%end)%sf(j, k, l))
 
                            rhs_vf(eqn_idx%mom%end)%sf(j, k, l) = rhs_vf(eqn_idx%mom%end)%sf(j, k, &
                                   & l) - 5.e-1_wp*(flux_src_n_in(eqn_idx%mom%beg + 1)%sf(j, k, &
                                   & l - 1) + flux_src_n_in(eqn_idx%mom%beg + 1)%sf(j, k, l))
                        end do
                    end do
                end do
 
# 1608 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 1608 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc end parallel loop
# 1608 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 1608 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1608 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp end target teams loop
# 1608 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
            end if
        end if
 
    end subroutine s_compute_additional_physics_rhs
 
    !> Reconstruct left and right cell-boundary values from cell-averaged variables
    subroutine s_reconstruct_cell_boundary_values(v_vf, vL_x, vR_x, norm_dir)
 
        type(scalar_field), dimension(iv%beg:iv%end), intent(in) :: v_vf
        real(wp), dimension(idwbuff(1)%beg:,idwbuff(2)%beg:,idwbuff(3)%beg:,1:), intent(inout) :: vL_x
        real(wp), dimension(idwbuff(1)%beg:,idwbuff(2)%beg:,idwbuff(3)%beg:,1:), intent(inout) :: vR_x
        integer, intent(in) :: norm_dir
        integer :: recon_dir  !< Coordinate direction of the reconstruction
        integer :: i, j, k, l
 
# 1625 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
            if (recon_type == recon_type_weno) then
                ! Reconstruction in s1-direction
                if (norm_dir == 1) then
                    is1 = idwbuff(1); is2 = idwbuff(2); is3 = idwbuff(3)
                    recon_dir = 1; is1%beg = is1%beg + weno_polyn
                    is1%end = is1%end - weno_polyn
                else if (norm_dir == 2) then
                    is1 = idwbuff(2); is2 = idwbuff(1); is3 = idwbuff(3)
                    recon_dir = 2; is1%beg = is1%beg + weno_polyn
                    is1%end = is1%end - weno_polyn
                else
                    is1 = idwbuff(3); is2 = idwbuff(2); is3 = idwbuff(1)
                    recon_dir = 3; is1%beg = is1%beg + weno_polyn
                    is1%end = is1%end - weno_polyn
                end if
 
                call s_weno (v_vf(iv%beg:iv%end), vl_x(:,:,:,iv%beg:iv%end), vr_x(:,:,:,iv%beg:iv%end), recon_dir, is1, &
                                   & is2, is3)
            end if
# 1625 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
            if (recon_type == recon_type_muscl) then
                ! Reconstruction in s1-direction
                if (norm_dir == 1) then
                    is1 = idwbuff(1); is2 = idwbuff(2); is3 = idwbuff(3)
                    recon_dir = 1; is1%beg = is1%beg + muscl_polyn
                    is1%end = is1%end - muscl_polyn
                else if (norm_dir == 2) then
                    is1 = idwbuff(2); is2 = idwbuff(1); is3 = idwbuff(3)
                    recon_dir = 2; is1%beg = is1%beg + muscl_polyn
                    is1%end = is1%end - muscl_polyn
                else
                    is1 = idwbuff(3); is2 = idwbuff(2); is3 = idwbuff(1)
                    recon_dir = 3; is1%beg = is1%beg + muscl_polyn
                    is1%end = is1%end - muscl_polyn
                end if
 
                call s_muscl (v_vf(iv%beg:iv%end), vl_x(:,:,:,iv%beg:iv%end), vr_x(:,:,:,iv%beg:iv%end), recon_dir, is1, &
                                   & is2, is3)
            end if
# 1645 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
    end subroutine s_reconstruct_cell_boundary_values
 
    !> Perform first-order (piecewise constant) reconstruction of left and right cell-boundary values
    subroutine s_reconstruct_cell_boundary_values_first_order(v_vf, vL_x, vR_x, norm_dir)
 
        type(scalar_field), dimension(iv%beg:iv%end), intent(in) :: v_vf
        real(wp), dimension(idwbuff(1)%beg:,idwbuff(2)%beg:,idwbuff(3)%beg:,1:), intent(inout) :: vL_x
        real(wp), dimension(idwbuff(1)%beg:,idwbuff(2)%beg:,idwbuff(3)%beg:,1:), intent(inout) :: vR_x
        integer, intent(in) :: norm_dir
        integer :: recon_dir  !< Coordinate direction of the reconstruction
        integer :: i, j, k, l
        ! Reconstruction in s1-direction
 
# 1660 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
            if (recon_type == recon_type_weno) then
                if (norm_dir == 1) then
                    is1 = idwbuff(1); is2 = idwbuff(2); is3 = idwbuff(3)
                    recon_dir = 1; is1%beg = is1%beg + weno_polyn
                    is1%end = is1%end - weno_polyn
                else if (norm_dir == 2) then
                    is1 = idwbuff(2); is2 = idwbuff(1); is3 = idwbuff(3)
                    recon_dir = 2; is1%beg = is1%beg + weno_polyn
                    is1%end = is1%end - weno_polyn
                else
                    is1 = idwbuff(3); is2 = idwbuff(2); is3 = idwbuff(1)
                    recon_dir = 3; is1%beg = is1%beg + weno_polyn
                    is1%end = is1%end - weno_polyn
                end if
 
 
# 1675 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 1675 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc update device(is1, is2, is3, iv) 
# 1675 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 1675 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp target update to(is1, is2, is3, iv) 
# 1675 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
            end if
# 1660 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
            if (recon_type == recon_type_muscl) then
                if (norm_dir == 1) then
                    is1 = idwbuff(1); is2 = idwbuff(2); is3 = idwbuff(3)
                    recon_dir = 1; is1%beg = is1%beg + muscl_polyn
                    is1%end = is1%end - muscl_polyn
                else if (norm_dir == 2) then
                    is1 = idwbuff(2); is2 = idwbuff(1); is3 = idwbuff(3)
                    recon_dir = 2; is1%beg = is1%beg + muscl_polyn
                    is1%end = is1%end - muscl_polyn
                else
                    is1 = idwbuff(3); is2 = idwbuff(2); is3 = idwbuff(1)
                    recon_dir = 3; is1%beg = is1%beg + muscl_polyn
                    is1%end = is1%end - muscl_polyn
                end if
 
 
# 1675 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 1675 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc update device(is1, is2, is3, iv) 
# 1675 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 1675 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp target update to(is1, is2, is3, iv) 
# 1675 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
            end if
# 1678 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
        if (recon_dir == 1) then
 
# 1680 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1680 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 1680 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc parallel loop collapse(4) gang vector default(present)
# 1680 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 1680 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1680 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1680 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1680 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp target teams loop defaultmap(firstprivate:scalar) bind(teams,parallel) collapse(4) defaultmap(tofrom:aggregate) defaultmap(tofrom:allocatable) defaultmap(tofrom:pointer)
# 1680 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
            do i = iv%beg, iv%end
                do l = is3%beg, is3%end
                    do k = is2%beg, is2%end
                        do j = is1%beg, is1%end
                            vl_x(j, k, l, i) = v_vf(i)%sf(j, k, l)
                            vr_x(j, k, l, i) = v_vf(i)%sf(j, k, l)
                        end do
                    end do
                end do
            end do
 
# 1691 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 1691 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc end parallel loop
# 1691 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 1691 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1691 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp end target teams loop
# 1691 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
        else if (recon_dir == 2) then
 
# 1693 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1693 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 1693 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc parallel loop collapse(4) gang vector default(present)
# 1693 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 1693 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1693 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1693 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1693 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp target teams loop defaultmap(firstprivate:scalar) bind(teams,parallel) collapse(4) defaultmap(tofrom:aggregate) defaultmap(tofrom:allocatable) defaultmap(tofrom:pointer)
# 1693 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
            do i = iv%beg, iv%end
                do l = is3%beg, is3%end
                    do j = is1%beg, is1%end
                        do k = is2%beg, is2%end
                            vl_x(k, j, l, i) = v_vf(i)%sf(k, j, l)
                            vr_x(k, j, l, i) = v_vf(i)%sf(k, j, l)
                        end do
                    end do
                end do
            end do
 
# 1704 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 1704 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc end parallel loop
# 1704 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 1704 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1704 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp end target teams loop
# 1704 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
        else if (recon_dir == 3) then
 
# 1706 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1706 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 1706 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc parallel loop collapse(4) gang vector default(present)
# 1706 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 1706 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1706 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1706 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1706 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp target teams loop defaultmap(firstprivate:scalar) bind(teams,parallel) collapse(4) defaultmap(tofrom:aggregate) defaultmap(tofrom:allocatable) defaultmap(tofrom:pointer)
# 1706 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
            do i = iv%beg, iv%end
                do j = is1%beg, is1%end
                    do k = is2%beg, is2%end
                        do l = is3%beg, is3%end
                            vl_x(l, k, j, i) = v_vf(i)%sf(l, k, j)
                            vr_x(l, k, j, i) = v_vf(i)%sf(l, k, j)
                        end do
                    end do
                end do
            end do
 
# 1717 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 1717 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc end parallel loop
# 1717 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 1717 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1717 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp end target teams loop
# 1717 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
        end if
 
    end subroutine s_reconstruct_cell_boundary_values_first_order
 
    !> Module deallocation and/or disassociation procedures
    impure subroutine s_finalize_rhs_module
 
        integer :: i, j, l
 
        call s_finalize_pressure_relaxation_module
 
        if (.not. igr) then
            do j = eqn_idx%cont%beg, eqn_idx%cont%end
                if (relativity) then
                    ! Cons and Prim densities are different for relativity
#ifdef MFC_DEBUG
# 1733 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    block
# 1733 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        use iso_fortran_env, only: output_unit
# 1733 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1733 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        print *, 'm_rhs.fpp:1733: ', '@:DEALLOCATE(q_cons_qp%vf(j)%sf)'
# 1733 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1733 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        call flush (output_unit)
# 1733 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    end block
# 1733 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 1733 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1733 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 1733 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc exit data delete(q_cons_qp%vf(j)%sf) 
# 1733 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 1733 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp target exit data map(release:q_cons_qp%vf(j)%sf) 
# 1733 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 1733 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    deallocate (q_cons_qp%vf(j)%sf)
#ifdef MFC_DEBUG
# 1734 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    block
# 1734 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        use iso_fortran_env, only: output_unit
# 1734 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1734 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        print *, 'm_rhs.fpp:1734: ', '@:DEALLOCATE(q_prim_qp%vf(j)%sf)'
# 1734 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1734 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        call flush (output_unit)
# 1734 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    end block
# 1734 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 1734 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1734 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 1734 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc exit data delete(q_prim_qp%vf(j)%sf) 
# 1734 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 1734 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp target exit data map(release:q_prim_qp%vf(j)%sf) 
# 1734 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 1734 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    deallocate (q_prim_qp%vf(j)%sf)
                else
                    nullify (q_prim_qp%vf(j)%sf)
                end if
            end do
 
            do j = eqn_idx%adv%beg, eqn_idx%adv%end
                nullify (q_prim_qp%vf(j)%sf)
            end do
 
            do j = eqn_idx%mom%beg, eqn_idx%E
#ifdef MFC_DEBUG
# 1745 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    block
# 1745 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        use iso_fortran_env, only: output_unit
# 1745 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1745 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        print *, 'm_rhs.fpp:1745: ', '@:DEALLOCATE(q_cons_qp%vf(j)%sf)'
# 1745 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1745 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        call flush (output_unit)
# 1745 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    end block
# 1745 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 1745 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1745 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 1745 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc exit data delete(q_cons_qp%vf(j)%sf) 
# 1745 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 1745 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp target exit data map(release:q_cons_qp%vf(j)%sf) 
# 1745 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 1745 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    deallocate (q_cons_qp%vf(j)%sf)
#ifdef MFC_DEBUG
# 1746 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    block
# 1746 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        use iso_fortran_env, only: output_unit
# 1746 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1746 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        print *, 'm_rhs.fpp:1746: ', '@:DEALLOCATE(q_prim_qp%vf(j)%sf)'
# 1746 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1746 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        call flush (output_unit)
# 1746 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    end block
# 1746 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 1746 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1746 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 1746 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc exit data delete(q_prim_qp%vf(j)%sf) 
# 1746 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 1746 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp target exit data map(release:q_prim_qp%vf(j)%sf) 
# 1746 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 1746 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    deallocate (q_prim_qp%vf(j)%sf)
            end do
        end if
 
#ifdef MFC_DEBUG
# 1750 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    block
# 1750 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        use iso_fortran_env, only: output_unit
# 1750 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1750 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        print *, 'm_rhs.fpp:1750: ', '@:DEALLOCATE(q_cons_qp%vf, q_prim_qp%vf)'
# 1750 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1750 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        call flush (output_unit)
# 1750 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    end block
# 1750 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 1750 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1750 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 1750 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc exit data delete(q_cons_qp%vf, q_prim_qp%vf) 
# 1750 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 1750 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp target exit data map(release:q_cons_qp%vf, q_prim_qp%vf) 
# 1750 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 1750 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    deallocate (q_cons_qp%vf, q_prim_qp%vf)
 
        if (.not. igr) then
#ifdef MFC_DEBUG
# 1753 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    block
# 1753 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        use iso_fortran_env, only: output_unit
# 1753 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1753 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        print *, 'm_rhs.fpp:1753: ', '@:DEALLOCATE(qL_rsx_vf, qR_rsx_vf)'
# 1753 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1753 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        call flush (output_unit)
# 1753 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    end block
# 1753 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 1753 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1753 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 1753 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc exit data delete(qL_rsx_vf, qR_rsx_vf) 
# 1753 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 1753 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp target exit data map(release:qL_rsx_vf, qR_rsx_vf) 
# 1753 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 1753 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    deallocate (ql_rsx_vf, qr_rsx_vf)
 
            if (viscous) then
                do l = eqn_idx%mom%beg, eqn_idx%mom%end
#ifdef MFC_DEBUG
# 1757 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    block
# 1757 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        use iso_fortran_env, only: output_unit
# 1757 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1757 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        print *, 'm_rhs.fpp:1757: ', '@:DEALLOCATE(dq_prim_dx_qp(1)%vf(l)%sf)'
# 1757 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1757 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        call flush (output_unit)
# 1757 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    end block
# 1757 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 1757 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1757 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 1757 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc exit data delete(dq_prim_dx_qp(1)%vf(l)%sf) 
# 1757 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 1757 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp target exit data map(release:dq_prim_dx_qp(1)%vf(l)%sf) 
# 1757 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 1757 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    deallocate (dq_prim_dx_qp(1)%vf(l)%sf)
                end do
 
                if (n > 0) then
                    do l = eqn_idx%mom%beg, eqn_idx%mom%end
#ifdef MFC_DEBUG
# 1762 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    block
# 1762 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        use iso_fortran_env, only: output_unit
# 1762 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1762 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        print *, 'm_rhs.fpp:1762: ', '@:DEALLOCATE(dq_prim_dy_qp(1)%vf(l)%sf)'
# 1762 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1762 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        call flush (output_unit)
# 1762 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    end block
# 1762 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 1762 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1762 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 1762 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc exit data delete(dq_prim_dy_qp(1)%vf(l)%sf) 
# 1762 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 1762 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp target exit data map(release:dq_prim_dy_qp(1)%vf(l)%sf) 
# 1762 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 1762 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    deallocate (dq_prim_dy_qp(1)%vf(l)%sf)
                    end do
 
                    if (p > 0) then
                        do l = eqn_idx%mom%beg, eqn_idx%mom%end
#ifdef MFC_DEBUG
# 1767 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    block
# 1767 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        use iso_fortran_env, only: output_unit
# 1767 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1767 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        print *, 'm_rhs.fpp:1767: ', '@:DEALLOCATE(dq_prim_dz_qp(1)%vf(l)%sf)'
# 1767 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1767 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        call flush (output_unit)
# 1767 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    end block
# 1767 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 1767 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1767 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 1767 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc exit data delete(dq_prim_dz_qp(1)%vf(l)%sf) 
# 1767 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 1767 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp target exit data map(release:dq_prim_dz_qp(1)%vf(l)%sf) 
# 1767 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 1767 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    deallocate (dq_prim_dz_qp(1)%vf(l)%sf)
                        end do
                    end if
                end if
 
#ifdef MFC_DEBUG
# 1772 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    block
# 1772 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        use iso_fortran_env, only: output_unit
# 1772 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1772 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        print *, 'm_rhs.fpp:1772: ', '@:DEALLOCATE(dq_prim_dx_qp(1)%vf)'
# 1772 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1772 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        call flush (output_unit)
# 1772 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    end block
# 1772 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 1772 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1772 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 1772 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc exit data delete(dq_prim_dx_qp(1)%vf) 
# 1772 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 1772 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp target exit data map(release:dq_prim_dx_qp(1)%vf) 
# 1772 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 1772 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    deallocate (dq_prim_dx_qp(1)%vf)
#ifdef MFC_DEBUG
# 1773 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    block
# 1773 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        use iso_fortran_env, only: output_unit
# 1773 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1773 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        print *, 'm_rhs.fpp:1773: ', '@:DEALLOCATE(dq_prim_dy_qp(1)%vf)'
# 1773 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1773 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        call flush (output_unit)
# 1773 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    end block
# 1773 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 1773 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1773 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 1773 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc exit data delete(dq_prim_dy_qp(1)%vf) 
# 1773 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 1773 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp target exit data map(release:dq_prim_dy_qp(1)%vf) 
# 1773 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 1773 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    deallocate (dq_prim_dy_qp(1)%vf)
#ifdef MFC_DEBUG
# 1774 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    block
# 1774 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        use iso_fortran_env, only: output_unit
# 1774 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1774 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        print *, 'm_rhs.fpp:1774: ', '@:DEALLOCATE(dq_prim_dz_qp(1)%vf)'
# 1774 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1774 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        call flush (output_unit)
# 1774 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    end block
# 1774 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 1774 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1774 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 1774 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc exit data delete(dq_prim_dz_qp(1)%vf) 
# 1774 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 1774 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp target exit data map(release:dq_prim_dz_qp(1)%vf) 
# 1774 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 1774 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    deallocate (dq_prim_dz_qp(1)%vf)
 
                do i = num_dims, 1, -1
                    do l = eqn_idx%mom%beg, eqn_idx%mom%end
#ifdef MFC_DEBUG
# 1778 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    block
# 1778 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        use iso_fortran_env, only: output_unit
# 1778 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1778 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        print *, 'm_rhs.fpp:1778: ', '@:DEALLOCATE(dqL_prim_dx_n(i)%vf(l)%sf)'
# 1778 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1778 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        call flush (output_unit)
# 1778 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    end block
# 1778 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 1778 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1778 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 1778 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc exit data delete(dqL_prim_dx_n(i)%vf(l)%sf) 
# 1778 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 1778 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp target exit data map(release:dqL_prim_dx_n(i)%vf(l)%sf) 
# 1778 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 1778 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    deallocate (dql_prim_dx_n(i)%vf(l)%sf)
#ifdef MFC_DEBUG
# 1779 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    block
# 1779 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        use iso_fortran_env, only: output_unit
# 1779 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1779 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        print *, 'm_rhs.fpp:1779: ', '@:DEALLOCATE(dqR_prim_dx_n(i)%vf(l)%sf)'
# 1779 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1779 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        call flush (output_unit)
# 1779 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    end block
# 1779 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 1779 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1779 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 1779 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc exit data delete(dqR_prim_dx_n(i)%vf(l)%sf) 
# 1779 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 1779 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp target exit data map(release:dqR_prim_dx_n(i)%vf(l)%sf) 
# 1779 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 1779 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    deallocate (dqr_prim_dx_n(i)%vf(l)%sf)
                    end do
 
                    if (n > 0) then
                        do l = eqn_idx%mom%beg, eqn_idx%mom%end
#ifdef MFC_DEBUG
# 1784 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    block
# 1784 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        use iso_fortran_env, only: output_unit
# 1784 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1784 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        print *, 'm_rhs.fpp:1784: ', '@:DEALLOCATE(dqL_prim_dy_n(i)%vf(l)%sf)'
# 1784 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1784 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        call flush (output_unit)
# 1784 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    end block
# 1784 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 1784 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1784 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 1784 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc exit data delete(dqL_prim_dy_n(i)%vf(l)%sf) 
# 1784 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 1784 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp target exit data map(release:dqL_prim_dy_n(i)%vf(l)%sf) 
# 1784 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 1784 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    deallocate (dql_prim_dy_n(i)%vf(l)%sf)
#ifdef MFC_DEBUG
# 1785 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    block
# 1785 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        use iso_fortran_env, only: output_unit
# 1785 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1785 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        print *, 'm_rhs.fpp:1785: ', '@:DEALLOCATE(dqR_prim_dy_n(i)%vf(l)%sf)'
# 1785 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1785 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        call flush (output_unit)
# 1785 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    end block
# 1785 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 1785 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1785 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 1785 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc exit data delete(dqR_prim_dy_n(i)%vf(l)%sf) 
# 1785 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 1785 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp target exit data map(release:dqR_prim_dy_n(i)%vf(l)%sf) 
# 1785 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 1785 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    deallocate (dqr_prim_dy_n(i)%vf(l)%sf)
                        end do
                    end if
 
                    if (p > 0) then
                        do l = eqn_idx%mom%beg, eqn_idx%mom%end
#ifdef MFC_DEBUG
# 1791 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    block
# 1791 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        use iso_fortran_env, only: output_unit
# 1791 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1791 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        print *, 'm_rhs.fpp:1791: ', '@:DEALLOCATE(dqL_prim_dz_n(i)%vf(l)%sf)'
# 1791 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1791 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        call flush (output_unit)
# 1791 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    end block
# 1791 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 1791 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1791 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 1791 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc exit data delete(dqL_prim_dz_n(i)%vf(l)%sf) 
# 1791 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 1791 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp target exit data map(release:dqL_prim_dz_n(i)%vf(l)%sf) 
# 1791 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 1791 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    deallocate (dql_prim_dz_n(i)%vf(l)%sf)
#ifdef MFC_DEBUG
# 1792 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    block
# 1792 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        use iso_fortran_env, only: output_unit
# 1792 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1792 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        print *, 'm_rhs.fpp:1792: ', '@:DEALLOCATE(dqR_prim_dz_n(i)%vf(l)%sf)'
# 1792 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1792 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        call flush (output_unit)
# 1792 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    end block
# 1792 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 1792 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1792 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 1792 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc exit data delete(dqR_prim_dz_n(i)%vf(l)%sf) 
# 1792 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 1792 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp target exit data map(release:dqR_prim_dz_n(i)%vf(l)%sf) 
# 1792 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 1792 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    deallocate (dqr_prim_dz_n(i)%vf(l)%sf)
                        end do
                    end if
 
#ifdef MFC_DEBUG
# 1796 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    block
# 1796 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        use iso_fortran_env, only: output_unit
# 1796 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1796 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        print *, 'm_rhs.fpp:1796: ', '@:DEALLOCATE(dqL_prim_dx_n(i)%vf)'
# 1796 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1796 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        call flush (output_unit)
# 1796 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    end block
# 1796 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 1796 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1796 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 1796 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc exit data delete(dqL_prim_dx_n(i)%vf) 
# 1796 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 1796 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp target exit data map(release:dqL_prim_dx_n(i)%vf) 
# 1796 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 1796 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    deallocate (dql_prim_dx_n(i)%vf)
#ifdef MFC_DEBUG
# 1797 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    block
# 1797 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        use iso_fortran_env, only: output_unit
# 1797 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1797 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        print *, 'm_rhs.fpp:1797: ', '@:DEALLOCATE(dqL_prim_dy_n(i)%vf)'
# 1797 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1797 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        call flush (output_unit)
# 1797 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    end block
# 1797 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 1797 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1797 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 1797 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc exit data delete(dqL_prim_dy_n(i)%vf) 
# 1797 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 1797 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp target exit data map(release:dqL_prim_dy_n(i)%vf) 
# 1797 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 1797 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    deallocate (dql_prim_dy_n(i)%vf)
#ifdef MFC_DEBUG
# 1798 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    block
# 1798 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        use iso_fortran_env, only: output_unit
# 1798 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1798 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        print *, 'm_rhs.fpp:1798: ', '@:DEALLOCATE(dqL_prim_dz_n(i)%vf)'
# 1798 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1798 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        call flush (output_unit)
# 1798 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    end block
# 1798 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 1798 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1798 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 1798 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc exit data delete(dqL_prim_dz_n(i)%vf) 
# 1798 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 1798 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp target exit data map(release:dqL_prim_dz_n(i)%vf) 
# 1798 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 1798 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    deallocate (dql_prim_dz_n(i)%vf)
#ifdef MFC_DEBUG
# 1799 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    block
# 1799 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        use iso_fortran_env, only: output_unit
# 1799 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1799 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        print *, 'm_rhs.fpp:1799: ', '@:DEALLOCATE(dqR_prim_dx_n(i)%vf)'
# 1799 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1799 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        call flush (output_unit)
# 1799 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    end block
# 1799 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 1799 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1799 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 1799 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc exit data delete(dqR_prim_dx_n(i)%vf) 
# 1799 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 1799 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp target exit data map(release:dqR_prim_dx_n(i)%vf) 
# 1799 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 1799 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    deallocate (dqr_prim_dx_n(i)%vf)
#ifdef MFC_DEBUG
# 1800 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    block
# 1800 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        use iso_fortran_env, only: output_unit
# 1800 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1800 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        print *, 'm_rhs.fpp:1800: ', '@:DEALLOCATE(dqR_prim_dy_n(i)%vf)'
# 1800 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1800 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        call flush (output_unit)
# 1800 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    end block
# 1800 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 1800 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1800 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 1800 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc exit data delete(dqR_prim_dy_n(i)%vf) 
# 1800 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 1800 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp target exit data map(release:dqR_prim_dy_n(i)%vf) 
# 1800 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 1800 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    deallocate (dqr_prim_dy_n(i)%vf)
#ifdef MFC_DEBUG
# 1801 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    block
# 1801 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        use iso_fortran_env, only: output_unit
# 1801 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1801 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        print *, 'm_rhs.fpp:1801: ', '@:DEALLOCATE(dqR_prim_dz_n(i)%vf)'
# 1801 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1801 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        call flush (output_unit)
# 1801 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    end block
# 1801 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 1801 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1801 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 1801 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc exit data delete(dqR_prim_dz_n(i)%vf) 
# 1801 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 1801 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp target exit data map(release:dqR_prim_dz_n(i)%vf) 
# 1801 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 1801 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    deallocate (dqr_prim_dz_n(i)%vf)
                end do
 
                if (weno_re_flux) then
#ifdef MFC_DEBUG
# 1805 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    block
# 1805 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        use iso_fortran_env, only: output_unit
# 1805 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1805 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        print *, 'm_rhs.fpp:1805: ', '@:DEALLOCATE(dqL_rsx_vf, dqR_rsx_vf)'
# 1805 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1805 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        call flush (output_unit)
# 1805 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    end block
# 1805 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 1805 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1805 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 1805 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc exit data delete(dqL_rsx_vf, dqR_rsx_vf) 
# 1805 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 1805 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp target exit data map(release:dqL_rsx_vf, dqR_rsx_vf) 
# 1805 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 1805 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    deallocate (dql_rsx_vf, dqr_rsx_vf)
                end if
 
                do i = 1, num_dims
#ifdef MFC_DEBUG
# 1809 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    block
# 1809 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        use iso_fortran_env, only: output_unit
# 1809 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1809 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        print *, 'm_rhs.fpp:1809: ', '@:DEALLOCATE(tau_Re_vf(eqn_idx%cont%end + i)%sf)'
# 1809 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1809 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        call flush (output_unit)
# 1809 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    end block
# 1809 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 1809 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1809 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 1809 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc exit data delete(tau_Re_vf(eqn_idx%cont%end + i)%sf) 
# 1809 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 1809 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp target exit data map(release:tau_Re_vf(eqn_idx%cont%end + i)%sf) 
# 1809 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 1809 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    deallocate (tau_re_vf(eqn_idx%cont%end + i)%sf)
                end do
#ifdef MFC_DEBUG
# 1811 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    block
# 1811 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        use iso_fortran_env, only: output_unit
# 1811 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1811 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        print *, 'm_rhs.fpp:1811: ', '@:DEALLOCATE(tau_Re_vf(eqn_idx%E)%sf)'
# 1811 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1811 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        call flush (output_unit)
# 1811 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    end block
# 1811 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 1811 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1811 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 1811 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc exit data delete(tau_Re_vf(eqn_idx%E)%sf) 
# 1811 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 1811 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp target exit data map(release:tau_Re_vf(eqn_idx%E)%sf) 
# 1811 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 1811 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    deallocate (tau_re_vf(eqn_idx%E)%sf)
#ifdef MFC_DEBUG
# 1812 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    block
# 1812 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        use iso_fortran_env, only: output_unit
# 1812 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1812 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        print *, 'm_rhs.fpp:1812: ', '@:DEALLOCATE(tau_Re_vf)'
# 1812 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1812 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        call flush (output_unit)
# 1812 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    end block
# 1812 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 1812 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1812 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 1812 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc exit data delete(tau_Re_vf) 
# 1812 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 1812 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp target exit data map(release:tau_Re_vf) 
# 1812 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 1812 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    deallocate (tau_re_vf)
            end if
#ifdef MFC_DEBUG
# 1814 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    block
# 1814 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        use iso_fortran_env, only: output_unit
# 1814 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1814 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        print *, 'm_rhs.fpp:1814: ', '@:DEALLOCATE(dqL_prim_dx_n, dqL_prim_dy_n, dqL_prim_dz_n)'
# 1814 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1814 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        call flush (output_unit)
# 1814 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    end block
# 1814 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 1814 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1814 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 1814 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc exit data delete(dqL_prim_dx_n, dqL_prim_dy_n, dqL_prim_dz_n) 
# 1814 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 1814 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp target exit data map(release:dqL_prim_dx_n, dqL_prim_dy_n, dqL_prim_dz_n) 
# 1814 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 1814 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    deallocate (dql_prim_dx_n, dql_prim_dy_n, dql_prim_dz_n)
#ifdef MFC_DEBUG
# 1815 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    block
# 1815 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        use iso_fortran_env, only: output_unit
# 1815 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1815 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        print *, 'm_rhs.fpp:1815: ', '@:DEALLOCATE(dqR_prim_dx_n, dqR_prim_dy_n, dqR_prim_dz_n)'
# 1815 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1815 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        call flush (output_unit)
# 1815 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    end block
# 1815 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 1815 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1815 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 1815 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc exit data delete(dqR_prim_dx_n, dqR_prim_dy_n, dqR_prim_dz_n) 
# 1815 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 1815 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp target exit data map(release:dqR_prim_dx_n, dqR_prim_dy_n, dqR_prim_dz_n) 
# 1815 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 1815 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    deallocate (dqr_prim_dx_n, dqr_prim_dy_n, dqr_prim_dz_n)
        end if
 
        if (mpp_lim .and. bubbles_euler) then
#ifdef MFC_DEBUG
# 1819 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    block
# 1819 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        use iso_fortran_env, only: output_unit
# 1819 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1819 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        print *, 'm_rhs.fpp:1819: ', '@:DEALLOCATE(alf_sum%sf)'
# 1819 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1819 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        call flush (output_unit)
# 1819 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    end block
# 1819 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 1819 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1819 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 1819 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc exit data delete(alf_sum%sf) 
# 1819 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 1819 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp target exit data map(release:alf_sum%sf) 
# 1819 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 1819 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    deallocate (alf_sum%sf)
        end if
 
        if (.not. igr) then
            do i = num_dims, 1, -1
                if (i /= 1) then
                    do l = 1, sys_size
                        nullify (flux_n(i)%vf(l)%sf)
                        nullify (flux_src_n(i)%vf(l)%sf)
#ifdef MFC_DEBUG
# 1828 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    block
# 1828 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        use iso_fortran_env, only: output_unit
# 1828 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1828 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        print *, 'm_rhs.fpp:1828: ', '@:DEALLOCATE(flux_gsrc_n(i)%vf(l)%sf)'
# 1828 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1828 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        call flush (output_unit)
# 1828 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    end block
# 1828 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 1828 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1828 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 1828 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc exit data delete(flux_gsrc_n(i)%vf(l)%sf) 
# 1828 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 1828 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp target exit data map(release:flux_gsrc_n(i)%vf(l)%sf) 
# 1828 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 1828 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    deallocate (flux_gsrc_n(i)%vf(l)%sf)
                    end do
                else
                    do l = 1, sys_size
#ifdef MFC_DEBUG
# 1832 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    block
# 1832 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        use iso_fortran_env, only: output_unit
# 1832 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1832 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        print *, 'm_rhs.fpp:1832: ', '@:DEALLOCATE(flux_n(i)%vf(l)%sf)'
# 1832 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1832 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        call flush (output_unit)
# 1832 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    end block
# 1832 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 1832 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1832 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 1832 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc exit data delete(flux_n(i)%vf(l)%sf) 
# 1832 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 1832 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp target exit data map(release:flux_n(i)%vf(l)%sf) 
# 1832 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 1832 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    deallocate (flux_n(i)%vf(l)%sf)
#ifdef MFC_DEBUG
# 1833 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    block
# 1833 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        use iso_fortran_env, only: output_unit
# 1833 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1833 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        print *, 'm_rhs.fpp:1833: ', '@:DEALLOCATE(flux_gsrc_n(i)%vf(l)%sf)'
# 1833 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1833 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        call flush (output_unit)
# 1833 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    end block
# 1833 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 1833 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1833 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 1833 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc exit data delete(flux_gsrc_n(i)%vf(l)%sf) 
# 1833 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 1833 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp target exit data map(release:flux_gsrc_n(i)%vf(l)%sf) 
# 1833 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 1833 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    deallocate (flux_gsrc_n(i)%vf(l)%sf)
                    end do
 
                    if (viscous) then
                        do l = eqn_idx%mom%beg, eqn_idx%E
#ifdef MFC_DEBUG
# 1838 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    block
# 1838 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        use iso_fortran_env, only: output_unit
# 1838 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1838 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        print *, 'm_rhs.fpp:1838: ', '@:DEALLOCATE(flux_src_n(i)%vf(l)%sf)'
# 1838 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1838 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        call flush (output_unit)
# 1838 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    end block
# 1838 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 1838 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1838 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 1838 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc exit data delete(flux_src_n(i)%vf(l)%sf) 
# 1838 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 1838 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp target exit data map(release:flux_src_n(i)%vf(l)%sf) 
# 1838 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 1838 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    deallocate (flux_src_n(i)%vf(l)%sf)
                        end do
                    end if
 
                    if (chem_params%diffusion .and. .not. viscous) then
#ifdef MFC_DEBUG
# 1843 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    block
# 1843 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        use iso_fortran_env, only: output_unit
# 1843 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1843 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        print *, 'm_rhs.fpp:1843: ', '@:DEALLOCATE(flux_src_n(i)%vf(eqn_idx%E)%sf)'
# 1843 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1843 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        call flush (output_unit)
# 1843 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    end block
# 1843 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 1843 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1843 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 1843 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc exit data delete(flux_src_n(i)%vf(eqn_idx%E)%sf) 
# 1843 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 1843 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp target exit data map(release:flux_src_n(i)%vf(eqn_idx%E)%sf) 
# 1843 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 1843 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    deallocate (flux_src_n(i)%vf(eqn_idx%E)%sf)
                    end if
 
                    if (riemann_solver == riemann_solver_hll .or. riemann_solver == riemann_solver_hlld) then
                        do l = eqn_idx%adv%beg + 1, eqn_idx%adv%end
#ifdef MFC_DEBUG
# 1848 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    block
# 1848 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        use iso_fortran_env, only: output_unit
# 1848 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1848 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        print *, 'm_rhs.fpp:1848: ', '@:DEALLOCATE(flux_src_n(i)%vf(l)%sf)'
# 1848 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1848 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        call flush (output_unit)
# 1848 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    end block
# 1848 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 1848 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1848 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 1848 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc exit data delete(flux_src_n(i)%vf(l)%sf) 
# 1848 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 1848 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp target exit data map(release:flux_src_n(i)%vf(l)%sf) 
# 1848 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 1848 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    deallocate (flux_src_n(i)%vf(l)%sf)
                        end do
                    else
                        do l = eqn_idx%adv%beg + 1, eqn_idx%adv%end
                            nullify (flux_src_n(i)%vf(l)%sf)
                        end do
                    end if
 
#ifdef MFC_DEBUG
# 1856 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    block
# 1856 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        use iso_fortran_env, only: output_unit
# 1856 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1856 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        print *, 'm_rhs.fpp:1856: ', '@:DEALLOCATE(flux_src_n(i)%vf(eqn_idx%adv%beg)%sf)'
# 1856 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1856 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        call flush (output_unit)
# 1856 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    end block
# 1856 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 1856 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1856 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 1856 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc exit data delete(flux_src_n(i)%vf(eqn_idx%adv%beg)%sf) 
# 1856 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 1856 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp target exit data map(release:flux_src_n(i)%vf(eqn_idx%adv%beg)%sf) 
# 1856 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 1856 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    deallocate (flux_src_n(i)%vf(eqn_idx%adv%beg)%sf)
                end if
 
#ifdef MFC_DEBUG
# 1859 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    block
# 1859 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        use iso_fortran_env, only: output_unit
# 1859 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1859 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        print *, 'm_rhs.fpp:1859: ', '@:DEALLOCATE(flux_n(i)%vf, flux_src_n(i)%vf, flux_gsrc_n(i)%vf)'
# 1859 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1859 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        call flush (output_unit)
# 1859 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    end block
# 1859 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 1859 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1859 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 1859 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc exit data delete(flux_n(i)%vf, flux_src_n(i)%vf, flux_gsrc_n(i)%vf) 
# 1859 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 1859 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp target exit data map(release:flux_n(i)%vf, flux_src_n(i)%vf, flux_gsrc_n(i)%vf) 
# 1859 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 1859 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    deallocate (flux_n(i)%vf, flux_src_n(i)%vf, flux_gsrc_n(i)%vf)
            end do
 
#ifdef MFC_DEBUG
# 1862 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    block
# 1862 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        use iso_fortran_env, only: output_unit
# 1862 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1862 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        print *, 'm_rhs.fpp:1862: ', '@:DEALLOCATE(flux_n, flux_src_n, flux_gsrc_n)'
# 1862 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1862 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        call flush (output_unit)
# 1862 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    end block
# 1862 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 1862 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1862 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 1862 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc exit data delete(flux_n, flux_src_n, flux_gsrc_n) 
# 1862 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 1862 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp target exit data map(release:flux_n, flux_src_n, flux_gsrc_n) 
# 1862 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 1862 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    deallocate (flux_n, flux_src_n, flux_gsrc_n)
            do i = 1, num_dims
                do l = eqn_idx%mom%beg, eqn_idx%mom%end
#ifdef MFC_DEBUG
# 1865 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    block
# 1865 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        use iso_fortran_env, only: output_unit
# 1865 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1865 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        print *, 'm_rhs.fpp:1865: ', '@:DEALLOCATE(qL_prim(i)%vf(l)%sf)'
# 1865 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1865 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        call flush (output_unit)
# 1865 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    end block
# 1865 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 1865 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1865 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 1865 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc exit data delete(qL_prim(i)%vf(l)%sf) 
# 1865 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 1865 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp target exit data map(release:qL_prim(i)%vf(l)%sf) 
# 1865 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 1865 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    deallocate (ql_prim(i)%vf(l)%sf)
#ifdef MFC_DEBUG
# 1866 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    block
# 1866 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        use iso_fortran_env, only: output_unit
# 1866 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1866 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        print *, 'm_rhs.fpp:1866: ', '@:DEALLOCATE(qR_prim(i)%vf(l)%sf)'
# 1866 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1866 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        call flush (output_unit)
# 1866 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    end block
# 1866 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 1866 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1866 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 1866 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc exit data delete(qR_prim(i)%vf(l)%sf) 
# 1866 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 1866 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp target exit data map(release:qR_prim(i)%vf(l)%sf) 
# 1866 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 1866 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    deallocate (qr_prim(i)%vf(l)%sf)
                end do
#ifdef MFC_DEBUG
# 1868 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    block
# 1868 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        use iso_fortran_env, only: output_unit
# 1868 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1868 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        print *, 'm_rhs.fpp:1868: ', '@:DEALLOCATE(qL_prim(i)%vf, qR_prim(i)%vf)'
# 1868 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1868 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        call flush (output_unit)
# 1868 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    end block
# 1868 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 1868 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1868 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 1868 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc exit data delete(qL_prim(i)%vf, qR_prim(i)%vf) 
# 1868 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 1868 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp target exit data map(release:qL_prim(i)%vf, qR_prim(i)%vf) 
# 1868 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 1868 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    deallocate (ql_prim(i)%vf, qr_prim(i)%vf)
            end do
#ifdef MFC_DEBUG
# 1870 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    block
# 1870 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        use iso_fortran_env, only: output_unit
# 1870 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1870 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        print *, 'm_rhs.fpp:1870: ', '@:DEALLOCATE(qL_prim, qR_prim)'
# 1870 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1870 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        call flush (output_unit)
# 1870 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    end block
# 1870 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 1870 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1870 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 1870 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc exit data delete(qL_prim, qR_prim) 
# 1870 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 1870 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp target exit data map(release:qL_prim, qR_prim) 
# 1870 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 1870 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    deallocate (ql_prim, qr_prim)
        end if
 
        if (alt_soundspeed) then
#ifdef MFC_DEBUG
# 1874 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    block
# 1874 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        use iso_fortran_env, only: output_unit
# 1874 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1874 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        print *, 'm_rhs.fpp:1874: ', '@:DEALLOCATE(blkmod1)'
# 1874 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1874 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        call flush (output_unit)
# 1874 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    end block
# 1874 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 1874 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1874 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 1874 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc exit data delete(blkmod1) 
# 1874 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 1874 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp target exit data map(release:blkmod1) 
# 1874 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 1874 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    deallocate (blkmod1)
        end if
 
        if (qbmm) then
            do i = 0, 2
                do j = 0, 2
                    do l = 1, nb
#ifdef MFC_DEBUG
# 1881 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    block
# 1881 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        use iso_fortran_env, only: output_unit
# 1881 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1881 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        print *, 'm_rhs.fpp:1881: ', '@:DEALLOCATE(mom_3d(i, j, l)%sf)'
# 1881 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1881 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        call flush (output_unit)
# 1881 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    end block
# 1881 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 1881 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1881 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 1881 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc exit data delete(mom_3d(i, j, l)%sf) 
# 1881 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 1881 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp target exit data map(release:mom_3d(i, j, l)%sf) 
# 1881 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 1881 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    deallocate (mom_3d(i, j, l)%sf)
                    end do
                end do
            end do
            do i = 1, nmomsp
#ifdef MFC_DEBUG
# 1886 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    block
# 1886 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        use iso_fortran_env, only: output_unit
# 1886 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1886 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        print *, 'm_rhs.fpp:1886: ', '@:DEALLOCATE(mom_sp(i)%sf)'
# 1886 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1886 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        call flush (output_unit)
# 1886 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    end block
# 1886 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 1886 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1886 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 1886 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc exit data delete(mom_sp(i)%sf) 
# 1886 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 1886 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp target exit data map(release:mom_sp(i)%sf) 
# 1886 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 1886 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    deallocate (mom_sp(i)%sf)
            end do
#ifdef MFC_DEBUG
# 1888 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    block
# 1888 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        use iso_fortran_env, only: output_unit
# 1888 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1888 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        print *, 'm_rhs.fpp:1888: ', '@:DEALLOCATE(mom_sp, mom_3d)'
# 1888 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1888 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        call flush (output_unit)
# 1888 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    end block
# 1888 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 1888 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1888 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 1888 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc exit data delete(mom_sp, mom_3d) 
# 1888 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 1888 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp target exit data map(release:mom_sp, mom_3d) 
# 1888 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 1888 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    deallocate (mom_sp, mom_3d)
        end if
 
        if (bf_spatial_support) then
#ifdef MFC_DEBUG
# 1892 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    block
# 1892 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        use iso_fortran_env, only: output_unit
# 1892 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1892 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        print *, 'm_rhs.fpp:1892: ', '@:DEALLOCATE(spbf_source_x, spbf_source_y)'
# 1892 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1892 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        call flush (output_unit)
# 1892 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    end block
# 1892 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 1892 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1892 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 1892 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc exit data delete(spbf_source_x, spbf_source_y) 
# 1892 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 1892 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp target exit data map(release:spbf_source_x, spbf_source_y) 
# 1892 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 1892 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    deallocate (spbf_source_x, spbf_source_y)
        end if
 
    end subroutine s_finalize_rhs_module
 
end module m_rhs