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.
# 9 "/home/runner/work/MFC/MFC/src/common/include/case.fpp"
 
! For moving immersed boundaries in simulation
# 14 "/home/runner/work/MFC/MFC/src/common/include/case.fpp"
# 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"
! New line at end of file is required for FYPP
# 2 "/home/runner/work/MFC/MFC/src/common/include/parallel_macros.fpp" 2
# 1 "/home/runner/work/MFC/MFC/src/common/include/omp_macros.fpp" 1
# 1 "/home/runner/work/MFC/MFC/src/common/include/shared_parallel_macros.fpp" 1
# 2 "/home/runner/work/MFC/MFC/src/common/include/shared_parallel_macros.fpp"
# 3 "/home/runner/work/MFC/MFC/src/common/include/shared_parallel_macros.fpp"
# 4 "/home/runner/work/MFC/MFC/src/common/include/shared_parallel_macros.fpp"
# 5 "/home/runner/work/MFC/MFC/src/common/include/shared_parallel_macros.fpp"
# 6 "/home/runner/work/MFC/MFC/src/common/include/shared_parallel_macros.fpp"
 
# 8 "/home/runner/work/MFC/MFC/src/common/include/shared_parallel_macros.fpp"
# 9 "/home/runner/work/MFC/MFC/src/common/include/shared_parallel_macros.fpp"
# 10 "/home/runner/work/MFC/MFC/src/common/include/shared_parallel_macros.fpp"
 
# 17 "/home/runner/work/MFC/MFC/src/common/include/shared_parallel_macros.fpp"
 
# 46 "/home/runner/work/MFC/MFC/src/common/include/shared_parallel_macros.fpp"
 
# 58 "/home/runner/work/MFC/MFC/src/common/include/shared_parallel_macros.fpp"
 
# 68 "/home/runner/work/MFC/MFC/src/common/include/shared_parallel_macros.fpp"
 
# 98 "/home/runner/work/MFC/MFC/src/common/include/shared_parallel_macros.fpp"
 
# 110 "/home/runner/work/MFC/MFC/src/common/include/shared_parallel_macros.fpp"
 
# 120 "/home/runner/work/MFC/MFC/src/common/include/shared_parallel_macros.fpp"
! New line at end of file is required for FYPP
# 2 "/home/runner/work/MFC/MFC/src/common/include/omp_macros.fpp" 2
 
# 4 "/home/runner/work/MFC/MFC/src/common/include/omp_macros.fpp"
# 5 "/home/runner/work/MFC/MFC/src/common/include/omp_macros.fpp"
# 6 "/home/runner/work/MFC/MFC/src/common/include/omp_macros.fpp"
# 7 "/home/runner/work/MFC/MFC/src/common/include/omp_macros.fpp"
# 8 "/home/runner/work/MFC/MFC/src/common/include/omp_macros.fpp"
 
# 20 "/home/runner/work/MFC/MFC/src/common/include/omp_macros.fpp"
 
# 43 "/home/runner/work/MFC/MFC/src/common/include/omp_macros.fpp"
 
# 48 "/home/runner/work/MFC/MFC/src/common/include/omp_macros.fpp"
 
# 53 "/home/runner/work/MFC/MFC/src/common/include/omp_macros.fpp"
 
# 58 "/home/runner/work/MFC/MFC/src/common/include/omp_macros.fpp"
 
# 63 "/home/runner/work/MFC/MFC/src/common/include/omp_macros.fpp"
 
# 68 "/home/runner/work/MFC/MFC/src/common/include/omp_macros.fpp"
 
# 76 "/home/runner/work/MFC/MFC/src/common/include/omp_macros.fpp"
 
# 81 "/home/runner/work/MFC/MFC/src/common/include/omp_macros.fpp"
 
# 86 "/home/runner/work/MFC/MFC/src/common/include/omp_macros.fpp"
 
# 91 "/home/runner/work/MFC/MFC/src/common/include/omp_macros.fpp"
 
# 96 "/home/runner/work/MFC/MFC/src/common/include/omp_macros.fpp"
 
# 101 "/home/runner/work/MFC/MFC/src/common/include/omp_macros.fpp"
 
# 106 "/home/runner/work/MFC/MFC/src/common/include/omp_macros.fpp"
 
# 111 "/home/runner/work/MFC/MFC/src/common/include/omp_macros.fpp"
 
# 116 "/home/runner/work/MFC/MFC/src/common/include/omp_macros.fpp"
 
# 121 "/home/runner/work/MFC/MFC/src/common/include/omp_macros.fpp"
 
# 151 "/home/runner/work/MFC/MFC/src/common/include/omp_macros.fpp"
 
# 192 "/home/runner/work/MFC/MFC/src/common/include/omp_macros.fpp"
 
# 206 "/home/runner/work/MFC/MFC/src/common/include/omp_macros.fpp"
 
# 231 "/home/runner/work/MFC/MFC/src/common/include/omp_macros.fpp"
 
# 242 "/home/runner/work/MFC/MFC/src/common/include/omp_macros.fpp"
 
# 244 "/home/runner/work/MFC/MFC/src/common/include/omp_macros.fpp"
# 255 "/home/runner/work/MFC/MFC/src/common/include/omp_macros.fpp"
 
# 284 "/home/runner/work/MFC/MFC/src/common/include/omp_macros.fpp"
 
# 294 "/home/runner/work/MFC/MFC/src/common/include/omp_macros.fpp"
 
# 304 "/home/runner/work/MFC/MFC/src/common/include/omp_macros.fpp"
 
# 313 "/home/runner/work/MFC/MFC/src/common/include/omp_macros.fpp"
 
# 330 "/home/runner/work/MFC/MFC/src/common/include/omp_macros.fpp"
 
# 340 "/home/runner/work/MFC/MFC/src/common/include/omp_macros.fpp"
 
# 347 "/home/runner/work/MFC/MFC/src/common/include/omp_macros.fpp"
 
# 353 "/home/runner/work/MFC/MFC/src/common/include/omp_macros.fpp"
 
# 359 "/home/runner/work/MFC/MFC/src/common/include/omp_macros.fpp"
 
# 365 "/home/runner/work/MFC/MFC/src/common/include/omp_macros.fpp"
 
# 371 "/home/runner/work/MFC/MFC/src/common/include/omp_macros.fpp"
 
# 377 "/home/runner/work/MFC/MFC/src/common/include/omp_macros.fpp"
! New line at end of file is required for FYPP
# 3 "/home/runner/work/MFC/MFC/src/common/include/parallel_macros.fpp" 2
# 1 "/home/runner/work/MFC/MFC/src/common/include/acc_macros.fpp" 1
# 1 "/home/runner/work/MFC/MFC/src/common/include/shared_parallel_macros.fpp" 1
# 2 "/home/runner/work/MFC/MFC/src/common/include/shared_parallel_macros.fpp"
# 3 "/home/runner/work/MFC/MFC/src/common/include/shared_parallel_macros.fpp"
# 4 "/home/runner/work/MFC/MFC/src/common/include/shared_parallel_macros.fpp"
# 5 "/home/runner/work/MFC/MFC/src/common/include/shared_parallel_macros.fpp"
# 6 "/home/runner/work/MFC/MFC/src/common/include/shared_parallel_macros.fpp"
 
# 8 "/home/runner/work/MFC/MFC/src/common/include/shared_parallel_macros.fpp"
# 9 "/home/runner/work/MFC/MFC/src/common/include/shared_parallel_macros.fpp"
# 10 "/home/runner/work/MFC/MFC/src/common/include/shared_parallel_macros.fpp"
 
# 17 "/home/runner/work/MFC/MFC/src/common/include/shared_parallel_macros.fpp"
 
# 46 "/home/runner/work/MFC/MFC/src/common/include/shared_parallel_macros.fpp"
 
# 58 "/home/runner/work/MFC/MFC/src/common/include/shared_parallel_macros.fpp"
 
# 68 "/home/runner/work/MFC/MFC/src/common/include/shared_parallel_macros.fpp"
 
# 98 "/home/runner/work/MFC/MFC/src/common/include/shared_parallel_macros.fpp"
 
# 110 "/home/runner/work/MFC/MFC/src/common/include/shared_parallel_macros.fpp"
 
# 120 "/home/runner/work/MFC/MFC/src/common/include/shared_parallel_macros.fpp"
! New line at end of file is required for FYPP
# 2 "/home/runner/work/MFC/MFC/src/common/include/acc_macros.fpp" 2
 
# 7 "/home/runner/work/MFC/MFC/src/common/include/acc_macros.fpp"
 
# 17 "/home/runner/work/MFC/MFC/src/common/include/acc_macros.fpp"
 
# 22 "/home/runner/work/MFC/MFC/src/common/include/acc_macros.fpp"
 
# 27 "/home/runner/work/MFC/MFC/src/common/include/acc_macros.fpp"
 
# 32 "/home/runner/work/MFC/MFC/src/common/include/acc_macros.fpp"
 
# 37 "/home/runner/work/MFC/MFC/src/common/include/acc_macros.fpp"
 
# 42 "/home/runner/work/MFC/MFC/src/common/include/acc_macros.fpp"
 
# 47 "/home/runner/work/MFC/MFC/src/common/include/acc_macros.fpp"
 
# 52 "/home/runner/work/MFC/MFC/src/common/include/acc_macros.fpp"
 
# 57 "/home/runner/work/MFC/MFC/src/common/include/acc_macros.fpp"
 
# 62 "/home/runner/work/MFC/MFC/src/common/include/acc_macros.fpp"
 
# 73 "/home/runner/work/MFC/MFC/src/common/include/acc_macros.fpp"
 
# 78 "/home/runner/work/MFC/MFC/src/common/include/acc_macros.fpp"
 
# 83 "/home/runner/work/MFC/MFC/src/common/include/acc_macros.fpp"
 
# 88 "/home/runner/work/MFC/MFC/src/common/include/acc_macros.fpp"
 
# 103 "/home/runner/work/MFC/MFC/src/common/include/acc_macros.fpp"
 
# 131 "/home/runner/work/MFC/MFC/src/common/include/acc_macros.fpp"
 
# 160 "/home/runner/work/MFC/MFC/src/common/include/acc_macros.fpp"
 
# 175 "/home/runner/work/MFC/MFC/src/common/include/acc_macros.fpp"
 
# 193 "/home/runner/work/MFC/MFC/src/common/include/acc_macros.fpp"
 
# 215 "/home/runner/work/MFC/MFC/src/common/include/acc_macros.fpp"
 
# 244 "/home/runner/work/MFC/MFC/src/common/include/acc_macros.fpp"
 
# 259 "/home/runner/work/MFC/MFC/src/common/include/acc_macros.fpp"
 
# 269 "/home/runner/work/MFC/MFC/src/common/include/acc_macros.fpp"
 
# 278 "/home/runner/work/MFC/MFC/src/common/include/acc_macros.fpp"
 
# 294 "/home/runner/work/MFC/MFC/src/common/include/acc_macros.fpp"
 
# 304 "/home/runner/work/MFC/MFC/src/common/include/acc_macros.fpp"
 
# 311 "/home/runner/work/MFC/MFC/src/common/include/acc_macros.fpp"
! New line at end of file is required for FYPP
# 4 "/home/runner/work/MFC/MFC/src/common/include/parallel_macros.fpp" 2
 
! GPU parallel region (scalar reductions, maxval/minval)
# 23 "/home/runner/work/MFC/MFC/src/common/include/parallel_macros.fpp"
 
! GPU parallel loop over threads (most common GPU macro)
# 43 "/home/runner/work/MFC/MFC/src/common/include/parallel_macros.fpp"
 
! Required closing for GPU_PARALLEL_LOOP
# 55 "/home/runner/work/MFC/MFC/src/common/include/parallel_macros.fpp"
 
! Mark routine for device compilation
# 112 "/home/runner/work/MFC/MFC/src/common/include/parallel_macros.fpp"
 
! Declare device-resident data
# 130 "/home/runner/work/MFC/MFC/src/common/include/parallel_macros.fpp"
 
! Inner loop within a GPU parallel region
# 145 "/home/runner/work/MFC/MFC/src/common/include/parallel_macros.fpp"
 
! Scoped GPU data region
# 164 "/home/runner/work/MFC/MFC/src/common/include/parallel_macros.fpp"
 
! Host code with device pointers (for MPI with GPU buffers)
# 193 "/home/runner/work/MFC/MFC/src/common/include/parallel_macros.fpp"
 
! Allocate device memory (unscoped)
# 207 "/home/runner/work/MFC/MFC/src/common/include/parallel_macros.fpp"
 
! Free device memory
# 219 "/home/runner/work/MFC/MFC/src/common/include/parallel_macros.fpp"
 
! Atomic operation on device
# 231 "/home/runner/work/MFC/MFC/src/common/include/parallel_macros.fpp"
 
! End atomic capture block
# 242 "/home/runner/work/MFC/MFC/src/common/include/parallel_macros.fpp"
 
! Copy data between host and device
# 254 "/home/runner/work/MFC/MFC/src/common/include/parallel_macros.fpp"
 
! Synchronization barrier
# 266 "/home/runner/work/MFC/MFC/src/common/include/parallel_macros.fpp"
 
! Import GPU library module (openacc or omp_lib)
# 275 "/home/runner/work/MFC/MFC/src/common/include/parallel_macros.fpp"
 
! Emit code only for AMD compiler
# 282 "/home/runner/work/MFC/MFC/src/common/include/parallel_macros.fpp"
 
! Emit code for non-Cray compilers
# 289 "/home/runner/work/MFC/MFC/src/common/include/parallel_macros.fpp"
 
! Emit code only for Cray compiler
# 296 "/home/runner/work/MFC/MFC/src/common/include/parallel_macros.fpp"
 
! Emit code for non-NVIDIA compilers
# 303 "/home/runner/work/MFC/MFC/src/common/include/parallel_macros.fpp"
 
# 305 "/home/runner/work/MFC/MFC/src/common/include/parallel_macros.fpp"
# 306 "/home/runner/work/MFC/MFC/src/common/include/parallel_macros.fpp"
! New line at end of file is required for FYPP
# 2 "/home/runner/work/MFC/MFC/src/common/include/macros.fpp" 2
 
# 14 "/home/runner/work/MFC/MFC/src/common/include/macros.fpp"
 
! Caution: This macro requires the use of a binding script to set CUDA_VISIBLE_DEVICES, such that we have one GPU device per MPI
! rank. That's because for both cudaMemAdvise (preferred location) and cudaMemPrefetchAsync we use location = device_id = 0. For an
! example see misc/nvidia_uvm/bind.sh. NVIDIA unified memory page placement hint
# 57 "/home/runner/work/MFC/MFC/src/common/include/macros.fpp"
 
! Allocate and create GPU device memory
# 77 "/home/runner/work/MFC/MFC/src/common/include/macros.fpp"
 
! Free GPU device memory and deallocate
# 85 "/home/runner/work/MFC/MFC/src/common/include/macros.fpp"
 
! Cray-specific GPU pointer setup for vector fields
# 109 "/home/runner/work/MFC/MFC/src/common/include/macros.fpp"
 
! Cray-specific GPU pointer setup for scalar fields
# 125 "/home/runner/work/MFC/MFC/src/common/include/macros.fpp"
 
! Cray-specific GPU pointer setup for acoustic source spatials
# 150 "/home/runner/work/MFC/MFC/src/common/include/macros.fpp"
 
# 156 "/home/runner/work/MFC/MFC/src/common/include/macros.fpp"
 
# 163 "/home/runner/work/MFC/MFC/src/common/include/macros.fpp"
! New line at end of file is required for FYPP
# 7 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp" 2
 
!> @brief Assembles 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_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_igr
    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
 
# 42 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 42 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc declare create(q_cons_qp) 
# 42 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 42 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp declare target (q_cons_qp) 
# 42 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
 
    type(vector_field) :: q_prim_qp  !< Primitive variables at cell-interior quadrature points
 
# 45 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 45 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc declare create(q_prim_qp) 
# 45 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 45 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp declare target (q_prim_qp) 
# 45 "/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
 
# 52 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 52 "/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) 
# 52 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 52 "/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) 
# 52 "/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)
 
# 62 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 62 "/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) 
# 62 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 62 "/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) 
# 62 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
 
# 63 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 63 "/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) 
# 63 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 63 "/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) 
# 63 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
#endif
    !> @}
 
    type(scalar_field), allocatable, dimension(:) :: tau_re_vf
 
# 68 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 68 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc declare create(tau_Re_vf) 
# 68 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 68 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp declare target (tau_Re_vf) 
# 68 "/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)
 
# 78 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 78 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc declare create(flux_n, flux_src_n, flux_gsrc_n) 
# 78 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 78 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp declare target (flux_n, flux_src_n, flux_gsrc_n) 
# 78 "/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)
 
# 84 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 84 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc declare create(qL_prim, qR_prim) 
# 84 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 84 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp declare target (qL_prim, qR_prim) 
# 84 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
#endif
 
    type(int_bounds_info) :: iv  !< Vector field indical bounds
 
# 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(iv) 
# 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 (iv) 
# 88 "/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
 
# 93 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 93 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc declare create(irx, iry, irz) 
# 93 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 93 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp declare target (irx, iry, irz) 
# 93 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
 
    type(int_bounds_info) :: is1, is2, is3
    !> @}
 
# 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(is1, is2, is3) 
# 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 (is1, is2, is3) 
# 97 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
 
    !> @name Saved fluxes for testing
    !> @{
    type(scalar_field) :: alf_sum
    !> @}
 
# 103 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 103 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc declare create(alf_sum) 
# 103 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 103 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp declare target (alf_sum) 
# 103 "/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, ql_rsy_vf, ql_rsz_vf, qr_rsx_vf, qr_rsy_vf, qr_rsz_vf
    real(wp), allocatable, dimension(:,:,:,:) :: dql_rsx_vf, dql_rsy_vf, dql_rsz_vf, dqr_rsx_vf, dqr_rsy_vf, dqr_rsz_vf
 
# 108 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 108 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc declare create(blkmod1, blkmod2, alpha1, alpha2, Kterm) 
# 108 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 108 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp declare target (blkmod1, blkmod2, alpha1, alpha2, Kterm) 
# 108 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
 
# 109 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 109 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc declare create(qL_rsx_vf, qL_rsy_vf, qL_rsz_vf, qR_rsx_vf, qR_rsy_vf, qR_rsz_vf) 
# 109 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 109 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp declare target (qL_rsx_vf, qL_rsy_vf, qL_rsz_vf, qR_rsx_vf, qR_rsy_vf, qR_rsz_vf) 
# 109 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
 
# 110 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 110 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc declare create(dqL_rsx_vf, dqL_rsy_vf, dqL_rsz_vf, dqR_rsx_vf, dqR_rsy_vf, dqR_rsz_vf) 
# 110 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 110 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp declare target (dqL_rsx_vf, dqL_rsy_vf, dqL_rsz_vf, dqR_rsx_vf, dqR_rsy_vf, dqR_rsz_vf) 
# 110 "/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
 
 
# 119 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 119 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc enter data copyin(idwbuff) 
# 119 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 119 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp target enter data map(to:idwbuff) 
# 119 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
 
# 120 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 120 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc update device(idwbuff) 
# 120 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 120 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp target update to(idwbuff) 
# 120 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
 
#ifdef MFC_DEBUG
# 122 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    block
# 122 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        use iso_fortran_env, only: output_unit
# 122 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 122 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        print *, 'm_rhs.fpp:122: ', '@:ALLOCATE(q_cons_qp%vf(1:sys_size))'
# 122 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 122 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        call flush (output_unit)
# 122 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    end block
# 122 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 122 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    allocate (q_cons_qp%vf(1:sys_size))
# 122 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 122 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 122 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 122 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc enter data create(q_cons_qp%vf) 
# 122 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 122 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp target enter data map(always,alloc:q_cons_qp%vf) 
# 122 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
#ifdef MFC_DEBUG
# 123 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    block
# 123 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        use iso_fortran_env, only: output_unit
# 123 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 123 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        print *, 'm_rhs.fpp:123: ', '@:ALLOCATE(q_prim_qp%vf(1:sys_size))'
# 123 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 123 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        call flush (output_unit)
# 123 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    end block
# 123 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 123 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    allocate (q_prim_qp%vf(1:sys_size))
# 123 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 123 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 123 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 123 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc enter data create(q_prim_qp%vf) 
# 123 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 123 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp target enter data map(always,alloc:q_prim_qp%vf) 
# 123 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
 
        if (.not. igr) then
            do l = 1, sys_size
#ifdef MFC_DEBUG
# 127 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    block
# 127 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        use iso_fortran_env, only: output_unit
# 127 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 127 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        print *, 'm_rhs.fpp:127: ', '@: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))'
# 127 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 127 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        call flush (output_unit)
# 127 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    end block
# 127 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 127 "/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))
# 127 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 127 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 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 enter data create(q_cons_qp%vf(l)%sf) 
# 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 enter data map(always,alloc:q_cons_qp%vf(l)%sf) 
# 127 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 129 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
            end do
            do l = eqn_idx%mom%beg, eqn_idx%E
#ifdef MFC_DEBUG
# 131 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    block
# 131 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        use iso_fortran_env, only: output_unit
# 131 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 131 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        print *, 'm_rhs.fpp:131: ', '@: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))'
# 131 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 131 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        call flush (output_unit)
# 131 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    end block
# 131 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 131 "/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))
# 131 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 131 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 131 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 131 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc enter data create(q_prim_qp%vf(l)%sf) 
# 131 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 131 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp target enter data map(always,alloc:q_prim_qp%vf(l)%sf) 
# 131 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 133 "/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
# 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
        else
            do l = eqn_idx%adv%end + 1, sys_size
#ifdef MFC_DEBUG
# 143 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    block
# 143 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        use iso_fortran_env, only: output_unit
# 143 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 143 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        print *, 'm_rhs.fpp:143: ', '@: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))'
# 143 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 143 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        call flush (output_unit)
# 143 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    end block
# 143 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 143 "/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))
# 143 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 143 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 143 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 143 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc enter data create(q_prim_qp%vf(l)%sf) 
# 143 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 143 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp target enter data map(always,alloc:q_prim_qp%vf(l)%sf) 
# 143 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 145 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
            end do
        end if
 
        if (.not. igr) then
#ifdef _CRAYFTN
# 149 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    block
# 149 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        integer :: macros_setup_vfs_i
# 149 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 149 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#ifdef MFC_DEBUG
# 149 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    block
# 149 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        use iso_fortran_env, only: output_unit
# 149 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 149 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        print *, 'm_rhs.fpp:149: ', '@:ACC_SETUP_VFs(q_cons_qp, q_prim_qp)'
# 149 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 149 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        call flush (output_unit)
# 149 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    end block
# 149 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 149 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 149 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 149 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 149 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc enter data copyin(q_cons_qp) 
# 149 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 149 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp target enter data map(to:q_cons_qp) 
# 149 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 149 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 149 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 149 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc enter data copyin(q_cons_qp%vf) 
# 149 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 149 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp target enter data map(to:q_cons_qp%vf) 
# 149 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 149 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
            if (allocated(q_cons_qp%vf)) then
# 149 "/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)
# 149 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
                    if (associated(q_cons_qp%vf(macros_setup_vfs_i)%sf)) then
# 149 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 149 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 149 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc enter data copyin(q_cons_qp%vf(macros_setup_vfs_i)) 
# 149 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 149 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp target enter data map(to:q_cons_qp%vf(macros_setup_vfs_i)) 
# 149 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 149 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 149 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 149 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc enter data copyin(q_cons_qp%vf(macros_setup_vfs_i)%sf) 
# 149 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 149 "/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) 
# 149 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 149 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
                    end if
# 149 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
                end do
# 149 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
            end if
# 149 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 149 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 149 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc enter data copyin(q_prim_qp) 
# 149 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 149 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp target enter data map(to:q_prim_qp) 
# 149 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 149 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 149 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 149 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc enter data copyin(q_prim_qp%vf) 
# 149 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 149 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp target enter data map(to:q_prim_qp%vf) 
# 149 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 149 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
            if (allocated(q_prim_qp%vf)) then
# 149 "/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)
# 149 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
                    if (associated(q_prim_qp%vf(macros_setup_vfs_i)%sf)) then
# 149 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 149 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 149 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc enter data copyin(q_prim_qp%vf(macros_setup_vfs_i)) 
# 149 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 149 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp target enter data map(to:q_prim_qp%vf(macros_setup_vfs_i)) 
# 149 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 149 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 149 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 149 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc enter data copyin(q_prim_qp%vf(macros_setup_vfs_i)%sf) 
# 149 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 149 "/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) 
# 149 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 149 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
                    end if
# 149 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
                end do
# 149 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
            end if
# 149 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    end block
# 149 "/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
# 154 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    block
# 154 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        use iso_fortran_env, only: output_unit
# 154 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 154 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        print *, 'm_rhs.fpp:154: ', '@: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))'
# 154 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 154 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        call flush (output_unit)
# 154 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    end block
# 154 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 154 "/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))
# 154 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 154 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 154 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 154 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc enter data create(q_prim_qp%vf(l)%sf) 
# 154 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 154 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp target enter data map(always,alloc:q_prim_qp%vf(l)%sf) 
# 154 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 156 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
                else
                    q_prim_qp%vf(l)%sf => q_cons_qp%vf(l)%sf
 
# 158 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 158 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc enter data copyin(q_prim_qp%vf(l)%sf) 
# 158 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 158 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp target enter data map(to:q_prim_qp%vf(l)%sf) 
# 158 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
 
# 159 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 159 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc enter data attach(q_prim_qp%vf(l)%sf) 
# 159 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 159 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp target enter data map(always,to:q_prim_qp%vf(l)%sf) 
# 159 "/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
 
# 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 do
        end if
 
        if (surface_tension) then
            q_prim_qp%vf(eqn_idx%c)%sf => q_cons_qp%vf(eqn_idx%c)%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(eqn_idx%c)%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(eqn_idx%c)%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(eqn_idx%c)%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(eqn_idx%c)%sf) 
# 173 "/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
 
# 178 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 178 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc enter data copyin(q_prim_qp%vf(eqn_idx%psi)%sf) 
# 178 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 178 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp target enter data map(to:q_prim_qp%vf(eqn_idx%psi)%sf) 
# 178 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
 
# 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 attach(q_prim_qp%vf(eqn_idx%psi)%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(always,to:q_prim_qp%vf(eqn_idx%psi)%sf) 
# 179 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
        end if
 
        if (.not. igr) then
#ifdef MFC_DEBUG
# 183 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    block
# 183 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        use iso_fortran_env, only: output_unit
# 183 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 183 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        print *, 'm_rhs.fpp:183: ', '@:ALLOCATE(flux_n(1:num_dims))'
# 183 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 183 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        call flush (output_unit)
# 183 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    end block
# 183 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 183 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    allocate (flux_n(1:num_dims))
# 183 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 183 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 183 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 183 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc enter data create(flux_n) 
# 183 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 183 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp target enter data map(always,alloc:flux_n) 
# 183 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
#ifdef MFC_DEBUG
# 184 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    block
# 184 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        use iso_fortran_env, only: output_unit
# 184 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 184 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        print *, 'm_rhs.fpp:184: ', '@:ALLOCATE(flux_src_n(1:num_dims))'
# 184 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 184 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        call flush (output_unit)
# 184 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    end block
# 184 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 184 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    allocate (flux_src_n(1:num_dims))
# 184 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 184 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 184 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 184 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc enter data create(flux_src_n) 
# 184 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 184 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp target enter data map(always,alloc:flux_src_n) 
# 184 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
#ifdef MFC_DEBUG
# 185 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    block
# 185 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        use iso_fortran_env, only: output_unit
# 185 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 185 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        print *, 'm_rhs.fpp:185: ', '@:ALLOCATE(flux_gsrc_n(1:num_dims))'
# 185 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 185 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        call flush (output_unit)
# 185 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    end block
# 185 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 185 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    allocate (flux_gsrc_n(1:num_dims))
# 185 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 185 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 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 create(flux_gsrc_n) 
# 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(always,alloc:flux_gsrc_n) 
# 185 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
 
            do i = 1, num_dims
#ifdef MFC_DEBUG
# 188 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    block
# 188 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        use iso_fortran_env, only: output_unit
# 188 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 188 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        print *, 'm_rhs.fpp:188: ', '@:ALLOCATE(flux_n(i)%vf(1:sys_size))'
# 188 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 188 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        call flush (output_unit)
# 188 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    end block
# 188 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 188 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    allocate (flux_n(i)%vf(1:sys_size))
# 188 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 188 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 188 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 188 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc enter data create(flux_n(i)%vf) 
# 188 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 188 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp target enter data map(always,alloc:flux_n(i)%vf) 
# 188 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
#ifdef MFC_DEBUG
# 189 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    block
# 189 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        use iso_fortran_env, only: output_unit
# 189 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 189 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        print *, 'm_rhs.fpp:189: ', '@:ALLOCATE(flux_src_n(i)%vf(1:sys_size))'
# 189 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 189 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        call flush (output_unit)
# 189 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    end block
# 189 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 189 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    allocate (flux_src_n(i)%vf(1:sys_size))
# 189 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 189 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 189 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 189 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc enter data create(flux_src_n(i)%vf) 
# 189 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 189 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp target enter data map(always,alloc:flux_src_n(i)%vf) 
# 189 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
#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_gsrc_n(i)%vf(1:sys_size))'
# 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_gsrc_n(i)%vf(1:sys_size))
# 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_gsrc_n(i)%vf) 
# 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_gsrc_n(i)%vf) 
# 190 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
 
                if (i == 1) then
                    do l = 1, sys_size
#ifdef MFC_DEBUG
# 194 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    block
# 194 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        use iso_fortran_env, only: output_unit
# 194 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 194 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        print *, 'm_rhs.fpp:194: ', '@: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))'
# 194 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 194 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        call flush (output_unit)
# 194 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    end block
# 194 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 194 "/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))
# 194 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 194 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 194 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 194 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc enter data create(flux_n(i)%vf(l)%sf) 
# 194 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 194 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp target enter data map(always,alloc:flux_n(i)%vf(l)%sf) 
# 194 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 196 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#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_gsrc_n(i)%vf(l)%sf(idwbuff(1)%beg:idwbuff(1)%end, idwbuff(2)%beg:idwbuff(2)%end, idwbuff(3)%beg:idwbuff(3)%end))'
# 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_gsrc_n(i)%vf(l)%sf(idwbuff(1)%beg:idwbuff(1)%end, idwbuff(2)%beg:idwbuff(2)%end,  idwbuff(3)%beg:idwbuff(3)%end))
# 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_gsrc_n(i)%vf(l)%sf) 
# 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_gsrc_n(i)%vf(l)%sf) 
# 196 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 198 "/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
# 202 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    block
# 202 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        use iso_fortran_env, only: output_unit
# 202 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 202 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        print *, 'm_rhs.fpp:202: ', '@: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))'
# 202 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 202 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        call flush (output_unit)
# 202 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    end block
# 202 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 202 "/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))
# 202 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 202 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 202 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 202 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc enter data create(flux_src_n(i)%vf(l)%sf) 
# 202 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 202 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp target enter data map(always,alloc:flux_src_n(i)%vf(l)%sf) 
# 202 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 204 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
                        end do
                    end if
 
#ifdef MFC_DEBUG
# 207 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    block
# 207 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        use iso_fortran_env, only: output_unit
# 207 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 207 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        print *, 'm_rhs.fpp:207: ', '@: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))'
# 207 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 207 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        call flush (output_unit)
# 207 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    end block
# 207 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 207 "/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))
# 207 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 207 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 207 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 207 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc enter data create(flux_src_n(i)%vf(eqn_idx%adv%beg)%sf) 
# 207 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 207 "/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) 
# 207 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 209 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
                    if (riemann_solver == 1 .or. riemann_solver == 4) then
                        do l = eqn_idx%adv%beg + 1, eqn_idx%adv%end
#ifdef MFC_DEBUG
# 212 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    block
# 212 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        use iso_fortran_env, only: output_unit
# 212 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 212 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        print *, 'm_rhs.fpp:212: ', '@: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))'
# 212 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 212 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        call flush (output_unit)
# 212 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    end block
# 212 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 212 "/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))
# 212 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 212 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 212 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 212 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc enter data create(flux_src_n(i)%vf(l)%sf) 
# 212 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 212 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp target enter data map(always,alloc:flux_src_n(i)%vf(l)%sf) 
# 212 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 214 "/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
# 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
                        if (chem_params%diffusion .and. .not. viscous) then
#ifdef MFC_DEBUG
# 223 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    block
# 223 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        use iso_fortran_env, only: output_unit
# 223 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 223 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        print *, 'm_rhs.fpp:223: ', '@: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))'
# 223 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 223 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        call flush (output_unit)
# 223 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    end block
# 223 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 223 "/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))
# 223 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 223 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 223 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 223 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc enter data create(flux_src_n(i)%vf(eqn_idx%E)%sf) 
# 223 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 223 "/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) 
# 223 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 225 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
                        end if
                    end if
                else
                    do l = 1, sys_size
#ifdef MFC_DEBUG
# 229 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    block
# 229 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        use iso_fortran_env, only: output_unit
# 229 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 229 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        print *, 'm_rhs.fpp:229: ', '@: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))'
# 229 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 229 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        call flush (output_unit)
# 229 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    end block
# 229 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 229 "/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))
# 229 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 229 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 229 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 229 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc enter data create(flux_gsrc_n(i)%vf(l)%sf) 
# 229 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 229 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp target enter data map(always,alloc:flux_gsrc_n(i)%vf(l)%sf) 
# 229 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 231 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
                    end do
                end if
 
#ifdef _CRAYFTN
# 234 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    block
# 234 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        integer :: macros_setup_vfs_i
# 234 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 234 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#ifdef MFC_DEBUG
# 234 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    block
# 234 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        use iso_fortran_env, only: output_unit
# 234 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 234 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        print *, 'm_rhs.fpp:234: ', '@:ACC_SETUP_VFs(flux_n(i))'
# 234 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 234 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        call flush (output_unit)
# 234 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    end block
# 234 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 234 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 234 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 234 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 234 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc enter data copyin(flux_n(i)) 
# 234 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 234 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp target enter data map(to:flux_n(i)) 
# 234 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 234 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 234 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 234 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc enter data copyin(flux_n(i)%vf) 
# 234 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 234 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp target enter data map(to:flux_n(i)%vf) 
# 234 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 234 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
            if (allocated(flux_n(i)%vf)) then
# 234 "/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)
# 234 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
                    if (associated(flux_n(i)%vf(macros_setup_vfs_i)%sf)) then
# 234 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 234 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 234 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc enter data copyin(flux_n(i)%vf(macros_setup_vfs_i)) 
# 234 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 234 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp target enter data map(to:flux_n(i)%vf(macros_setup_vfs_i)) 
# 234 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 234 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 234 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 234 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc enter data copyin(flux_n(i)%vf(macros_setup_vfs_i)%sf) 
# 234 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 234 "/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) 
# 234 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 234 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
                    end if
# 234 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
                end do
# 234 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
            end if
# 234 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    end block
# 234 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
#ifdef _CRAYFTN
# 235 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    block
# 235 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        integer :: macros_setup_vfs_i
# 235 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 235 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#ifdef MFC_DEBUG
# 235 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    block
# 235 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        use iso_fortran_env, only: output_unit
# 235 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 235 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        print *, 'm_rhs.fpp:235: ', '@:ACC_SETUP_VFs(flux_src_n(i), flux_gsrc_n(i))'
# 235 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 235 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        call flush (output_unit)
# 235 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    end block
# 235 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 235 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 235 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 235 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 235 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc enter data copyin(flux_src_n(i)) 
# 235 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 235 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp target enter data map(to:flux_src_n(i)) 
# 235 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 235 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 235 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 235 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc enter data copyin(flux_src_n(i)%vf) 
# 235 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 235 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp target enter data map(to:flux_src_n(i)%vf) 
# 235 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 235 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
            if (allocated(flux_src_n(i)%vf)) then
# 235 "/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)
# 235 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
                    if (associated(flux_src_n(i)%vf(macros_setup_vfs_i)%sf)) then
# 235 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 235 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 235 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc enter data copyin(flux_src_n(i)%vf(macros_setup_vfs_i)) 
# 235 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 235 "/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)) 
# 235 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 235 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 235 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 235 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc enter data copyin(flux_src_n(i)%vf(macros_setup_vfs_i)%sf) 
# 235 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 235 "/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) 
# 235 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 235 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
                    end if
# 235 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
                end do
# 235 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
            end if
# 235 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 235 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 235 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc enter data copyin(flux_gsrc_n(i)) 
# 235 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 235 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp target enter data map(to:flux_gsrc_n(i)) 
# 235 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 235 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 235 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 235 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc enter data copyin(flux_gsrc_n(i)%vf) 
# 235 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 235 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp target enter data map(to:flux_gsrc_n(i)%vf) 
# 235 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 235 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
            if (allocated(flux_gsrc_n(i)%vf)) then
# 235 "/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)
# 235 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
                    if (associated(flux_gsrc_n(i)%vf(macros_setup_vfs_i)%sf)) then
# 235 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 235 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 235 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc enter data copyin(flux_gsrc_n(i)%vf(macros_setup_vfs_i)) 
# 235 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 235 "/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)) 
# 235 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 235 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 235 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 235 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc enter data copyin(flux_gsrc_n(i)%vf(macros_setup_vfs_i)%sf) 
# 235 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 235 "/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) 
# 235 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 235 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
                    end if
# 235 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
                end do
# 235 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
            end if
# 235 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    end block
# 235 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
 
                if (i == 1) then
                    if (riemann_solver /= 1) 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
 
# 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 attach(flux_src_n(i)%vf(l)%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(always,to:flux_src_n(i)%vf(l)%sf) 
# 241 "/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
 
# 247 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 247 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc enter data attach(flux_n(i)%vf(l)%sf) 
# 247 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 247 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp target enter data map(always,to:flux_n(i)%vf(l)%sf) 
# 247 "/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
 
# 249 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 249 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc enter data attach(flux_src_n(i)%vf(l)%sf) 
# 249 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 249 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp target enter data map(always,to:flux_src_n(i)%vf(l)%sf) 
# 249 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
                    end do
                end if
            end do
        end if
 
        if ((.not. igr) .or. dummy) then
#ifdef MFC_DEBUG
# 256 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    block
# 256 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        use iso_fortran_env, only: output_unit
# 256 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 256 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        print *, 'm_rhs.fpp:256: ', '@:ALLOCATE(dq_prim_dx_qp(1:1))'
# 256 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 256 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        call flush (output_unit)
# 256 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    end block
# 256 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 256 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    allocate (dq_prim_dx_qp(1:1))
# 256 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 256 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 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 create(dq_prim_dx_qp) 
# 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,alloc:dq_prim_dx_qp) 
# 256 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
#ifdef MFC_DEBUG
# 257 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    block
# 257 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        use iso_fortran_env, only: output_unit
# 257 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 257 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        print *, 'm_rhs.fpp:257: ', '@:ALLOCATE(dq_prim_dy_qp(1:1))'
# 257 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 257 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        call flush (output_unit)
# 257 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    end block
# 257 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 257 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    allocate (dq_prim_dy_qp(1:1))
# 257 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 257 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 257 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 257 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc enter data create(dq_prim_dy_qp) 
# 257 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 257 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp target enter data map(always,alloc:dq_prim_dy_qp) 
# 257 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
#ifdef MFC_DEBUG
# 258 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    block
# 258 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        use iso_fortran_env, only: output_unit
# 258 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 258 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        print *, 'm_rhs.fpp:258: ', '@:ALLOCATE(dq_prim_dz_qp(1:1))'
# 258 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 258 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        call flush (output_unit)
# 258 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    end block
# 258 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 258 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    allocate (dq_prim_dz_qp(1:1))
# 258 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 258 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 258 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 258 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc enter data create(dq_prim_dz_qp) 
# 258 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 258 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp target enter data map(always,alloc:dq_prim_dz_qp) 
# 258 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
 
#ifdef MFC_DEBUG
# 260 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    block
# 260 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        use iso_fortran_env, only: output_unit
# 260 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 260 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        print *, 'm_rhs.fpp:260: ', '@:ALLOCATE(qL_prim(1:num_dims))'
# 260 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 260 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        call flush (output_unit)
# 260 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    end block
# 260 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 260 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    allocate (ql_prim(1:num_dims))
# 260 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 260 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 260 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 260 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc enter data create(qL_prim) 
# 260 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 260 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp target enter data map(always,alloc:qL_prim) 
# 260 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
#ifdef MFC_DEBUG
# 261 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    block
# 261 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        use iso_fortran_env, only: output_unit
# 261 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 261 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        print *, 'm_rhs.fpp:261: ', '@:ALLOCATE(qR_prim(1:num_dims))'
# 261 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 261 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        call flush (output_unit)
# 261 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    end block
# 261 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 261 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    allocate (qr_prim(1:num_dims))
# 261 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 261 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 261 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 261 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc enter data create(qR_prim) 
# 261 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 261 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp target enter data map(always,alloc:qR_prim) 
# 261 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
 
#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(dqL_prim_dx_n(1:num_dims))'
# 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 (dql_prim_dx_n(1:num_dims))
# 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(dqL_prim_dx_n) 
# 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:dqL_prim_dx_n) 
# 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(dqL_prim_dy_n(1:num_dims))'
# 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 (dql_prim_dy_n(1:num_dims))
# 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(dqL_prim_dy_n) 
# 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:dqL_prim_dy_n) 
# 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(dqL_prim_dz_n(1:num_dims))'
# 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 (dql_prim_dz_n(1:num_dims))
# 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(dqL_prim_dz_n) 
# 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:dqL_prim_dz_n) 
# 265 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
#ifdef MFC_DEBUG
# 266 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    block
# 266 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        use iso_fortran_env, only: output_unit
# 266 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 266 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        print *, 'm_rhs.fpp:266: ', '@:ALLOCATE(dqR_prim_dx_n(1:num_dims))'
# 266 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 266 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        call flush (output_unit)
# 266 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    end block
# 266 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 266 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    allocate (dqr_prim_dx_n(1:num_dims))
# 266 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 266 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 266 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 266 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc enter data create(dqR_prim_dx_n) 
# 266 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 266 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp target enter data map(always,alloc:dqR_prim_dx_n) 
# 266 "/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(dqR_prim_dy_n(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 (dqr_prim_dy_n(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(dqR_prim_dy_n) 
# 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:dqR_prim_dy_n) 
# 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(dqR_prim_dz_n(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 (dqr_prim_dz_n(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(dqR_prim_dz_n) 
# 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:dqR_prim_dz_n) 
# 268 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
 
            do i = 1, num_dims
#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(qL_prim(i)%vf(1:sys_size))'
# 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 (ql_prim(i)%vf(1:sys_size))
# 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(qL_prim(i)%vf) 
# 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:qL_prim(i)%vf) 
# 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(qR_prim(i)%vf(1:sys_size))'
# 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 (qr_prim(i)%vf(1:sys_size))
# 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(qR_prim(i)%vf) 
# 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:qR_prim(i)%vf) 
# 272 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
                do l = eqn_idx%mom%beg, eqn_idx%mom%end
#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(qL_prim(i)%vf(l)%sf(idwbuff(1)%beg:idwbuff(1)%end, idwbuff(2)%beg:idwbuff(2)%end, idwbuff(3)%beg:idwbuff(3)%end))'
# 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 (ql_prim(i)%vf(l)%sf(idwbuff(1)%beg:idwbuff(1)%end, idwbuff(2)%beg:idwbuff(2)%end,  idwbuff(3)%beg:idwbuff(3)%end))
# 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(qL_prim(i)%vf(l)%sf) 
# 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:qL_prim(i)%vf(l)%sf) 
# 274 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 276 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#ifdef MFC_DEBUG
# 276 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    block
# 276 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        use iso_fortran_env, only: output_unit
# 276 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 276 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        print *, 'm_rhs.fpp:276: ', '@: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))'
# 276 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 276 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        call flush (output_unit)
# 276 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    end block
# 276 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 276 "/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))
# 276 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 276 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 276 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 276 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc enter data create(qR_prim(i)%vf(l)%sf) 
# 276 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 276 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp target enter data map(always,alloc:qR_prim(i)%vf(l)%sf) 
# 276 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 278 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
                end do
#ifdef _CRAYFTN
# 279 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    block
# 279 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        integer :: macros_setup_vfs_i
# 279 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 279 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#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: ', '@:ACC_SETUP_VFs(qL_prim(i), qR_prim(i))'
# 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"
 
# 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 copyin(qL_prim(i)) 
# 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(to:qL_prim(i)) 
# 279 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 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 copyin(qL_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(to:qL_prim(i)%vf) 
# 279 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 279 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
            if (allocated(ql_prim(i)%vf)) then
# 279 "/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)
# 279 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
                    if (associated(ql_prim(i)%vf(macros_setup_vfs_i)%sf)) then
# 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 copyin(qL_prim(i)%vf(macros_setup_vfs_i)) 
# 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(to:qL_prim(i)%vf(macros_setup_vfs_i)) 
# 279 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 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 copyin(qL_prim(i)%vf(macros_setup_vfs_i)%sf) 
# 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(to:qL_prim(i)%vf(macros_setup_vfs_i)%sf) 
# 279 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 279 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
                    end if
# 279 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
                end do
# 279 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
            end if
# 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 copyin(qR_prim(i)) 
# 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(to:qR_prim(i)) 
# 279 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 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 copyin(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(to:qR_prim(i)%vf) 
# 279 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 279 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
            if (allocated(qr_prim(i)%vf)) then
# 279 "/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)
# 279 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
                    if (associated(qr_prim(i)%vf(macros_setup_vfs_i)%sf)) then
# 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 copyin(qR_prim(i)%vf(macros_setup_vfs_i)) 
# 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(to:qR_prim(i)%vf(macros_setup_vfs_i)) 
# 279 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 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 copyin(qR_prim(i)%vf(macros_setup_vfs_i)%sf) 
# 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(to:qR_prim(i)%vf(macros_setup_vfs_i)%sf) 
# 279 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 279 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
                    end if
# 279 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
                end do
# 279 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
            end if
# 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
            end do
 
#ifdef MFC_DEBUG
# 282 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    block
# 282 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        use iso_fortran_env, only: output_unit
# 282 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 282 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        print *, 'm_rhs.fpp:282: ', '@: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))'
# 282 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 282 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        call flush (output_unit)
# 282 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    end block
# 282 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 282 "/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))
# 282 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 282 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 282 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 282 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc enter data create(qL_rsx_vf) 
# 282 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 282 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp target enter data map(always,alloc:qL_rsx_vf) 
# 282 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 284 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#ifdef MFC_DEBUG
# 284 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    block
# 284 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        use iso_fortran_env, only: output_unit
# 284 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 284 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        print *, 'm_rhs.fpp:284: ', '@: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))'
# 284 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 284 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        call flush (output_unit)
# 284 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    end block
# 284 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 284 "/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))
# 284 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 284 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 284 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 284 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc enter data create(qR_rsx_vf) 
# 284 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 284 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp target enter data map(always,alloc:qR_rsx_vf) 
# 284 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 286 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
            if (n > 0) then
#ifdef MFC_DEBUG
# 288 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    block
# 288 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        use iso_fortran_env, only: output_unit
# 288 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 288 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        print *, 'm_rhs.fpp:288: ', '@:ALLOCATE(qL_rsy_vf(idwbuff(2)%beg:idwbuff(2)%end, idwbuff(1)%beg:idwbuff(1)%end, idwbuff(3)%beg:idwbuff(3)%end, 1:sys_size))'
# 288 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 288 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        call flush (output_unit)
# 288 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    end block
# 288 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 288 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    allocate (ql_rsy_vf(idwbuff(2)%beg:idwbuff(2)%end, idwbuff(1)%beg:idwbuff(1)%end, idwbuff(3)%beg:idwbuff(3)%end,  1:sys_size))
# 288 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 288 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 288 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 288 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc enter data create(qL_rsy_vf) 
# 288 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 288 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp target enter data map(always,alloc:qL_rsy_vf) 
# 288 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 290 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#ifdef MFC_DEBUG
# 290 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    block
# 290 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        use iso_fortran_env, only: output_unit
# 290 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 290 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        print *, 'm_rhs.fpp:290: ', '@:ALLOCATE(qR_rsy_vf(idwbuff(2)%beg:idwbuff(2)%end, idwbuff(1)%beg:idwbuff(1)%end, idwbuff(3)%beg:idwbuff(3)%end, 1:sys_size))'
# 290 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 290 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        call flush (output_unit)
# 290 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    end block
# 290 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 290 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    allocate (qr_rsy_vf(idwbuff(2)%beg:idwbuff(2)%end, idwbuff(1)%beg:idwbuff(1)%end, idwbuff(3)%beg:idwbuff(3)%end,  1:sys_size))
# 290 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 290 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 290 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 290 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc enter data create(qR_rsy_vf) 
# 290 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 290 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp target enter data map(always,alloc:qR_rsy_vf) 
# 290 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 292 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
            else
#ifdef MFC_DEBUG
# 293 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    block
# 293 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        use iso_fortran_env, only: output_unit
# 293 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 293 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        print *, 'm_rhs.fpp:293: ', '@:ALLOCATE(qL_rsy_vf(idwbuff(1)%beg:idwbuff(1)%end, idwbuff(2)%beg:idwbuff(2)%end, idwbuff(3)%beg:idwbuff(3)%end, 1:sys_size))'
# 293 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 293 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        call flush (output_unit)
# 293 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    end block
# 293 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 293 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    allocate (ql_rsy_vf(idwbuff(1)%beg:idwbuff(1)%end, idwbuff(2)%beg:idwbuff(2)%end, idwbuff(3)%beg:idwbuff(3)%end,  1:sys_size))
# 293 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 293 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 293 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 293 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc enter data create(qL_rsy_vf) 
# 293 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 293 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp target enter data map(always,alloc:qL_rsy_vf) 
# 293 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 295 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#ifdef MFC_DEBUG
# 295 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    block
# 295 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        use iso_fortran_env, only: output_unit
# 295 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 295 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        print *, 'm_rhs.fpp:295: ', '@:ALLOCATE(qR_rsy_vf(idwbuff(1)%beg:idwbuff(1)%end, idwbuff(2)%beg:idwbuff(2)%end, idwbuff(3)%beg:idwbuff(3)%end, 1:sys_size))'
# 295 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 295 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        call flush (output_unit)
# 295 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    end block
# 295 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 295 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    allocate (qr_rsy_vf(idwbuff(1)%beg:idwbuff(1)%end, idwbuff(2)%beg:idwbuff(2)%end, idwbuff(3)%beg:idwbuff(3)%end,  1:sys_size))
# 295 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 295 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 295 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 295 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc enter data create(qR_rsy_vf) 
# 295 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 295 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp target enter data map(always,alloc:qR_rsy_vf) 
# 295 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 297 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
            end if
 
            if (p > 0) then
#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(qL_rsz_vf(idwbuff(3)%beg:idwbuff(3)%end, idwbuff(2)%beg:idwbuff(2)%end, idwbuff(1)%beg:idwbuff(1)%end, 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 (ql_rsz_vf(idwbuff(3)%beg:idwbuff(3)%end, idwbuff(2)%beg:idwbuff(2)%end, idwbuff(1)%beg:idwbuff(1)%end,  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(qL_rsz_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:qL_rsz_vf) 
# 300 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 302 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#ifdef MFC_DEBUG
# 302 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    block
# 302 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        use iso_fortran_env, only: output_unit
# 302 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 302 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        print *, 'm_rhs.fpp:302: ', '@:ALLOCATE(qR_rsz_vf(idwbuff(3)%beg:idwbuff(3)%end, idwbuff(2)%beg:idwbuff(2)%end, idwbuff(1)%beg:idwbuff(1)%end, 1:sys_size))'
# 302 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 302 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        call flush (output_unit)
# 302 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    end block
# 302 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 302 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    allocate (qr_rsz_vf(idwbuff(3)%beg:idwbuff(3)%end, idwbuff(2)%beg:idwbuff(2)%end, idwbuff(1)%beg:idwbuff(1)%end,  1:sys_size))
# 302 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 302 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 302 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 302 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc enter data create(qR_rsz_vf) 
# 302 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 302 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp target enter data map(always,alloc:qR_rsz_vf) 
# 302 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 304 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
            else
#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(qL_rsz_vf(idwbuff(1)%beg:idwbuff(1)%end, idwbuff(2)%beg:idwbuff(2)%end, idwbuff(3)%beg:idwbuff(3)%end, 1:sys_size))'
# 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 (ql_rsz_vf(idwbuff(1)%beg:idwbuff(1)%end, idwbuff(2)%beg:idwbuff(2)%end, idwbuff(3)%beg:idwbuff(3)%end,  1:sys_size))
# 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(qL_rsz_vf) 
# 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:qL_rsz_vf) 
# 305 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 307 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#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(qR_rsz_vf(idwbuff(1)%beg:idwbuff(1)%end, idwbuff(2)%beg:idwbuff(2)%end, idwbuff(3)%beg:idwbuff(3)%end, 1:sys_size))'
# 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 (qr_rsz_vf(idwbuff(1)%beg:idwbuff(1)%end, idwbuff(2)%beg:idwbuff(2)%end, idwbuff(3)%beg:idwbuff(3)%end,  1:sys_size))
# 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(qR_rsz_vf) 
# 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:qR_rsz_vf) 
# 307 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 309 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
            end if
 
            if (.not. viscous) then
                do i = 1, num_dims
#ifdef MFC_DEBUG
# 313 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    block
# 313 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        use iso_fortran_env, only: output_unit
# 313 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 313 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        print *, 'm_rhs.fpp:313: ', '@:ALLOCATE(dqL_prim_dx_n(i)%vf(1:sys_size))'
# 313 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 313 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        call flush (output_unit)
# 313 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    end block
# 313 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 313 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    allocate (dql_prim_dx_n(i)%vf(1:sys_size))
# 313 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 313 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 313 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 313 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc enter data create(dqL_prim_dx_n(i)%vf) 
# 313 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 313 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp target enter data map(always,alloc:dqL_prim_dx_n(i)%vf) 
# 313 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
#ifdef MFC_DEBUG
# 314 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    block
# 314 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        use iso_fortran_env, only: output_unit
# 314 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 314 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        print *, 'm_rhs.fpp:314: ', '@:ALLOCATE(dqL_prim_dy_n(i)%vf(1:sys_size))'
# 314 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 314 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        call flush (output_unit)
# 314 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    end block
# 314 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 314 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    allocate (dql_prim_dy_n(i)%vf(1:sys_size))
# 314 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 314 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 314 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 314 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc enter data create(dqL_prim_dy_n(i)%vf) 
# 314 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 314 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp target enter data map(always,alloc:dqL_prim_dy_n(i)%vf) 
# 314 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
#ifdef MFC_DEBUG
# 315 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    block
# 315 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        use iso_fortran_env, only: output_unit
# 315 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 315 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        print *, 'm_rhs.fpp:315: ', '@:ALLOCATE(dqL_prim_dz_n(i)%vf(1:sys_size))'
# 315 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 315 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        call flush (output_unit)
# 315 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    end block
# 315 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 315 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    allocate (dql_prim_dz_n(i)%vf(1:sys_size))
# 315 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 315 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 315 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 315 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc enter data create(dqL_prim_dz_n(i)%vf) 
# 315 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 315 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp target enter data map(always,alloc:dqL_prim_dz_n(i)%vf) 
# 315 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
#ifdef MFC_DEBUG
# 316 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    block
# 316 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        use iso_fortran_env, only: output_unit
# 316 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 316 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        print *, 'm_rhs.fpp:316: ', '@:ALLOCATE(dqR_prim_dx_n(i)%vf(1:sys_size))'
# 316 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 316 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        call flush (output_unit)
# 316 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    end block
# 316 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 316 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    allocate (dqr_prim_dx_n(i)%vf(1:sys_size))
# 316 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 316 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 316 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 316 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc enter data create(dqR_prim_dx_n(i)%vf) 
# 316 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 316 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp target enter data map(always,alloc:dqR_prim_dx_n(i)%vf) 
# 316 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
#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(dqR_prim_dy_n(i)%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 (dqr_prim_dy_n(i)%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(dqR_prim_dy_n(i)%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:dqR_prim_dy_n(i)%vf) 
# 317 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
#ifdef MFC_DEBUG
# 318 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    block
# 318 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        use iso_fortran_env, only: output_unit
# 318 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 318 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        print *, 'm_rhs.fpp:318: ', '@:ALLOCATE(dqR_prim_dz_n(i)%vf(1:sys_size))'
# 318 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 318 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        call flush (output_unit)
# 318 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    end block
# 318 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 318 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    allocate (dqr_prim_dz_n(i)%vf(1:sys_size))
# 318 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 318 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 318 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 318 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc enter data create(dqR_prim_dz_n(i)%vf) 
# 318 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 318 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp target enter data map(always,alloc:dqR_prim_dz_n(i)%vf) 
# 318 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
 
                    do l = eqn_idx%mom%beg, eqn_idx%mom%end
#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: ', '@:ALLOCATE(dqL_prim_dx_n(i)%vf(l)%sf(1:1, 1:1, 1:1))'
# 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"
    allocate (dql_prim_dx_n(i)%vf(l)%sf(1:1, 1:1, 1:1))
# 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 create(dqL_prim_dx_n(i)%vf(l)%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(always,alloc:dqL_prim_dx_n(i)%vf(l)%sf) 
# 321 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
#ifdef MFC_DEBUG
# 322 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    block
# 322 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        use iso_fortran_env, only: output_unit
# 322 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 322 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        print *, 'm_rhs.fpp:322: ', '@:ALLOCATE(dqL_prim_dy_n(i)%vf(l)%sf(1:1, 1:1, 1:1))'
# 322 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 322 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        call flush (output_unit)
# 322 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    end block
# 322 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 322 "/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))
# 322 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 322 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 322 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 322 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc enter data create(dqL_prim_dy_n(i)%vf(l)%sf) 
# 322 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 322 "/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) 
# 322 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
#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(dqL_prim_dz_n(i)%vf(l)%sf(1:1, 1:1, 1:1))'
# 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 (dql_prim_dz_n(i)%vf(l)%sf(1:1, 1:1, 1:1))
# 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(dqL_prim_dz_n(i)%vf(l)%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:dqL_prim_dz_n(i)%vf(l)%sf) 
# 323 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
#ifdef MFC_DEBUG
# 324 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    block
# 324 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        use iso_fortran_env, only: output_unit
# 324 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 324 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        print *, 'm_rhs.fpp:324: ', '@:ALLOCATE(dqR_prim_dx_n(i)%vf(l)%sf(1:1, 1:1, 1:1))'
# 324 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 324 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        call flush (output_unit)
# 324 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    end block
# 324 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 324 "/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))
# 324 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 324 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 324 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 324 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc enter data create(dqR_prim_dx_n(i)%vf(l)%sf) 
# 324 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 324 "/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) 
# 324 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
#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: ', '@:ALLOCATE(dqR_prim_dy_n(i)%vf(l)%sf(1:1, 1:1, 1:1))'
# 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"
    allocate (dqr_prim_dy_n(i)%vf(l)%sf(1:1, 1:1, 1:1))
# 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 create(dqR_prim_dy_n(i)%vf(l)%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(always,alloc:dqR_prim_dy_n(i)%vf(l)%sf) 
# 325 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
#ifdef MFC_DEBUG
# 326 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    block
# 326 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        use iso_fortran_env, only: output_unit
# 326 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 326 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        print *, 'm_rhs.fpp:326: ', '@:ALLOCATE(dqR_prim_dz_n(i)%vf(l)%sf(1:1, 1:1, 1:1))'
# 326 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 326 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        call flush (output_unit)
# 326 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    end block
# 326 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 326 "/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))
# 326 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 326 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 326 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 326 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc enter data create(dqR_prim_dz_n(i)%vf(l)%sf) 
# 326 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 326 "/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) 
# 326 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
                    end do
#ifdef _CRAYFTN
# 328 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    block
# 328 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        integer :: macros_setup_vfs_i
# 328 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 328 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#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: ', '@:ACC_SETUP_VFs(dqL_prim_dx_n(i), dqL_prim_dy_n(i), dqL_prim_dz_n(i))'
# 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"
 
# 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 copyin(dqL_prim_dx_n(i)) 
# 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(to:dqL_prim_dx_n(i)) 
# 328 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 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 copyin(dqL_prim_dx_n(i)%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(to:dqL_prim_dx_n(i)%vf) 
# 328 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 328 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
            if (allocated(dql_prim_dx_n(i)%vf)) then
# 328 "/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)
# 328 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
                    if (associated(dql_prim_dx_n(i)%vf(macros_setup_vfs_i)%sf)) then
# 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 copyin(dqL_prim_dx_n(i)%vf(macros_setup_vfs_i)) 
# 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(to:dqL_prim_dx_n(i)%vf(macros_setup_vfs_i)) 
# 328 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 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 copyin(dqL_prim_dx_n(i)%vf(macros_setup_vfs_i)%sf) 
# 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(to:dqL_prim_dx_n(i)%vf(macros_setup_vfs_i)%sf) 
# 328 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 328 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
                    end if
# 328 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
                end do
# 328 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
            end if
# 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 copyin(dqL_prim_dy_n(i)) 
# 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(to:dqL_prim_dy_n(i)) 
# 328 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 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 copyin(dqL_prim_dy_n(i)%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(to:dqL_prim_dy_n(i)%vf) 
# 328 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 328 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
            if (allocated(dql_prim_dy_n(i)%vf)) then
# 328 "/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)
# 328 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
                    if (associated(dql_prim_dy_n(i)%vf(macros_setup_vfs_i)%sf)) then
# 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 copyin(dqL_prim_dy_n(i)%vf(macros_setup_vfs_i)) 
# 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(to:dqL_prim_dy_n(i)%vf(macros_setup_vfs_i)) 
# 328 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 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 copyin(dqL_prim_dy_n(i)%vf(macros_setup_vfs_i)%sf) 
# 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(to:dqL_prim_dy_n(i)%vf(macros_setup_vfs_i)%sf) 
# 328 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 328 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
                    end if
# 328 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
                end do
# 328 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
            end if
# 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 copyin(dqL_prim_dz_n(i)) 
# 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(to:dqL_prim_dz_n(i)) 
# 328 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 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 copyin(dqL_prim_dz_n(i)%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(to:dqL_prim_dz_n(i)%vf) 
# 328 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 328 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
            if (allocated(dql_prim_dz_n(i)%vf)) then
# 328 "/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)
# 328 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
                    if (associated(dql_prim_dz_n(i)%vf(macros_setup_vfs_i)%sf)) then
# 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 copyin(dqL_prim_dz_n(i)%vf(macros_setup_vfs_i)) 
# 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(to:dqL_prim_dz_n(i)%vf(macros_setup_vfs_i)) 
# 328 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 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 copyin(dqL_prim_dz_n(i)%vf(macros_setup_vfs_i)%sf) 
# 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(to:dqL_prim_dz_n(i)%vf(macros_setup_vfs_i)%sf) 
# 328 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 328 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
                    end if
# 328 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
                end do
# 328 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
            end if
# 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
#ifdef _CRAYFTN
# 329 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    block
# 329 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        integer :: macros_setup_vfs_i
# 329 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 329 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#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: ', '@:ACC_SETUP_VFs(dqR_prim_dx_n(i), dqR_prim_dy_n(i), dqR_prim_dz_n(i))'
# 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"
 
# 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 copyin(dqR_prim_dx_n(i)) 
# 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(to:dqR_prim_dx_n(i)) 
# 329 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 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 copyin(dqR_prim_dx_n(i)%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(to:dqR_prim_dx_n(i)%vf) 
# 329 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 329 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
            if (allocated(dqr_prim_dx_n(i)%vf)) then
# 329 "/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)
# 329 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
                    if (associated(dqr_prim_dx_n(i)%vf(macros_setup_vfs_i)%sf)) then
# 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 copyin(dqR_prim_dx_n(i)%vf(macros_setup_vfs_i)) 
# 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(to:dqR_prim_dx_n(i)%vf(macros_setup_vfs_i)) 
# 329 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 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 copyin(dqR_prim_dx_n(i)%vf(macros_setup_vfs_i)%sf) 
# 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(to:dqR_prim_dx_n(i)%vf(macros_setup_vfs_i)%sf) 
# 329 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 329 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
                    end if
# 329 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
                end do
# 329 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
            end if
# 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 copyin(dqR_prim_dy_n(i)) 
# 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(to:dqR_prim_dy_n(i)) 
# 329 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 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 copyin(dqR_prim_dy_n(i)%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(to:dqR_prim_dy_n(i)%vf) 
# 329 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 329 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
            if (allocated(dqr_prim_dy_n(i)%vf)) then
# 329 "/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)
# 329 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
                    if (associated(dqr_prim_dy_n(i)%vf(macros_setup_vfs_i)%sf)) then
# 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 copyin(dqR_prim_dy_n(i)%vf(macros_setup_vfs_i)) 
# 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(to:dqR_prim_dy_n(i)%vf(macros_setup_vfs_i)) 
# 329 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 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 copyin(dqR_prim_dy_n(i)%vf(macros_setup_vfs_i)%sf) 
# 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(to:dqR_prim_dy_n(i)%vf(macros_setup_vfs_i)%sf) 
# 329 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 329 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
                    end if
# 329 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
                end do
# 329 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
            end if
# 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 copyin(dqR_prim_dz_n(i)) 
# 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(to:dqR_prim_dz_n(i)) 
# 329 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 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 copyin(dqR_prim_dz_n(i)%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(to:dqR_prim_dz_n(i)%vf) 
# 329 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 329 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
            if (allocated(dqr_prim_dz_n(i)%vf)) then
# 329 "/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)
# 329 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
                    if (associated(dqr_prim_dz_n(i)%vf(macros_setup_vfs_i)%sf)) then
# 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 copyin(dqR_prim_dz_n(i)%vf(macros_setup_vfs_i)) 
# 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(to:dqR_prim_dz_n(i)%vf(macros_setup_vfs_i)) 
# 329 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 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 copyin(dqR_prim_dz_n(i)%vf(macros_setup_vfs_i)%sf) 
# 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(to:dqR_prim_dz_n(i)%vf(macros_setup_vfs_i)%sf) 
# 329 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 329 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
                    end if
# 329 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
                end do
# 329 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
            end if
# 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
                end do
            end if
 
            if (viscous) then
#ifdef MFC_DEBUG
# 334 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    block
# 334 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        use iso_fortran_env, only: output_unit
# 334 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 334 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        print *, 'm_rhs.fpp:334: ', '@:ALLOCATE(tau_Re_vf(1:sys_size))'
# 334 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 334 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        call flush (output_unit)
# 334 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    end block
# 334 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 334 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    allocate (tau_re_vf(1:sys_size))
# 334 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 334 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 334 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 334 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc enter data create(tau_Re_vf) 
# 334 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 334 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp target enter data map(always,alloc:tau_Re_vf) 
# 334 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
                do i = 1, num_dims
#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: ', '@: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))'
# 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"
    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))
# 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 create(tau_Re_vf(eqn_idx%cont%end + 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(always,alloc:tau_Re_vf(eqn_idx%cont%end + i)%sf) 
# 336 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 338 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#ifdef _CRAYFTN
# 338 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    block
# 338 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#ifdef MFC_DEBUG
# 338 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    block
# 338 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        use iso_fortran_env, only: output_unit
# 338 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 338 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        print *, 'm_rhs.fpp:338: ', '@:ACC_SETUP_SFs(tau_Re_vf(eqn_idx%cont%end + i))'
# 338 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 338 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        call flush (output_unit)
# 338 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    end block
# 338 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 338 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 338 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 338 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 338 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc enter data copyin(tau_Re_vf(eqn_idx%cont%end + i)) 
# 338 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 338 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp target enter data map(to:tau_Re_vf(eqn_idx%cont%end + i)) 
# 338 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 338 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
            if (associated(tau_re_vf(eqn_idx%cont%end + i)%sf)) then
# 338 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 338 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 338 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc enter data copyin(tau_Re_vf(eqn_idx%cont%end + i)%sf) 
# 338 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 338 "/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) 
# 338 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 338 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
            end if
# 338 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    end block
# 338 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
                end do
#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(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))'
# 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 (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))
# 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(tau_Re_vf(eqn_idx%E)%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:tau_Re_vf(eqn_idx%E)%sf) 
# 340 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 342 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#ifdef _CRAYFTN
# 342 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    block
# 342 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#ifdef MFC_DEBUG
# 342 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    block
# 342 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        use iso_fortran_env, only: output_unit
# 342 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 342 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        print *, 'm_rhs.fpp:342: ', '@:ACC_SETUP_SFs(tau_Re_vf(eqn_idx%E))'
# 342 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 342 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        call flush (output_unit)
# 342 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    end block
# 342 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 342 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 342 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 342 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 342 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc enter data copyin(tau_Re_vf(eqn_idx%E)) 
# 342 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 342 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp target enter data map(to:tau_Re_vf(eqn_idx%E)) 
# 342 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 342 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
            if (associated(tau_re_vf(eqn_idx%E)%sf)) then
# 342 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 342 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 342 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc enter data copyin(tau_Re_vf(eqn_idx%E)%sf) 
# 342 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 342 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp target enter data map(to:tau_Re_vf(eqn_idx%E)%sf) 
# 342 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 342 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
            end if
# 342 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    end block
# 342 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
 
#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: ', '@:ALLOCATE(dq_prim_dx_qp(1)%vf(1:sys_size))'
# 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"
    allocate (dq_prim_dx_qp(1)%vf(1:sys_size))
# 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 create(dq_prim_dx_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(always,alloc:dq_prim_dx_qp(1)%vf) 
# 344 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
#ifdef MFC_DEBUG
# 345 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    block
# 345 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        use iso_fortran_env, only: output_unit
# 345 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 345 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        print *, 'm_rhs.fpp:345: ', '@:ALLOCATE(dq_prim_dy_qp(1)%vf(1:sys_size))'
# 345 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 345 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        call flush (output_unit)
# 345 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    end block
# 345 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 345 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    allocate (dq_prim_dy_qp(1)%vf(1:sys_size))
# 345 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 345 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 345 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 345 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc enter data create(dq_prim_dy_qp(1)%vf) 
# 345 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 345 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp target enter data map(always,alloc:dq_prim_dy_qp(1)%vf) 
# 345 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
#ifdef MFC_DEBUG
# 346 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    block
# 346 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        use iso_fortran_env, only: output_unit
# 346 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 346 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        print *, 'm_rhs.fpp:346: ', '@:ALLOCATE(dq_prim_dz_qp(1)%vf(1:sys_size))'
# 346 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 346 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        call flush (output_unit)
# 346 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    end block
# 346 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 346 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    allocate (dq_prim_dz_qp(1)%vf(1:sys_size))
# 346 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 346 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 346 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 346 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc enter data create(dq_prim_dz_qp(1)%vf) 
# 346 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 346 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp target enter data map(always,alloc:dq_prim_dz_qp(1)%vf) 
# 346 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
 
                do l = eqn_idx%mom%beg, eqn_idx%mom%end
#ifdef MFC_DEBUG
# 349 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    block
# 349 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        use iso_fortran_env, only: output_unit
# 349 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 349 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        print *, 'm_rhs.fpp:349: ', '@: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))'
# 349 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 349 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        call flush (output_unit)
# 349 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    end block
# 349 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 349 "/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))
# 349 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 349 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 349 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 349 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc enter data create(dq_prim_dx_qp(1)%vf(l)%sf) 
# 349 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 349 "/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) 
# 349 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 351 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
                end do
 
#ifdef _CRAYFTN
# 353 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    block
# 353 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        integer :: macros_setup_vfs_i
# 353 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 353 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#ifdef MFC_DEBUG
# 353 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    block
# 353 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        use iso_fortran_env, only: output_unit
# 353 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 353 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        print *, 'm_rhs.fpp:353: ', '@:ACC_SETUP_VFs(dq_prim_dx_qp(1))'
# 353 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 353 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        call flush (output_unit)
# 353 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    end block
# 353 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 353 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 353 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 353 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 353 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc enter data copyin(dq_prim_dx_qp(1)) 
# 353 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 353 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp target enter data map(to:dq_prim_dx_qp(1)) 
# 353 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 353 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 353 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 353 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc enter data copyin(dq_prim_dx_qp(1)%vf) 
# 353 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 353 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp target enter data map(to:dq_prim_dx_qp(1)%vf) 
# 353 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 353 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
            if (allocated(dq_prim_dx_qp(1)%vf)) then
# 353 "/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)
# 353 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
                    if (associated(dq_prim_dx_qp(1)%vf(macros_setup_vfs_i)%sf)) then
# 353 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 353 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 353 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc enter data copyin(dq_prim_dx_qp(1)%vf(macros_setup_vfs_i)) 
# 353 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 353 "/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)) 
# 353 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 353 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 353 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 353 "/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) 
# 353 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 353 "/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) 
# 353 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 353 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
                    end if
# 353 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
                end do
# 353 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
            end if
# 353 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    end block
# 353 "/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
# 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(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))'
# 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 (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))
# 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(dq_prim_dy_qp(1)%vf(l)%sf) 
# 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:dq_prim_dy_qp(1)%vf(l)%sf) 
# 357 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 359 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
                    end do
 
#ifdef _CRAYFTN
# 361 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    block
# 361 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        integer :: macros_setup_vfs_i
# 361 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 361 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#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: ', '@:ACC_SETUP_VFs(dq_prim_dy_qp(1))'
# 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"
 
# 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 copyin(dq_prim_dy_qp(1)) 
# 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(to:dq_prim_dy_qp(1)) 
# 361 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 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 copyin(dq_prim_dy_qp(1)%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(to:dq_prim_dy_qp(1)%vf) 
# 361 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 361 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
            if (allocated(dq_prim_dy_qp(1)%vf)) then
# 361 "/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)
# 361 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
                    if (associated(dq_prim_dy_qp(1)%vf(macros_setup_vfs_i)%sf)) then
# 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 copyin(dq_prim_dy_qp(1)%vf(macros_setup_vfs_i)) 
# 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(to:dq_prim_dy_qp(1)%vf(macros_setup_vfs_i)) 
# 361 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 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 copyin(dq_prim_dy_qp(1)%vf(macros_setup_vfs_i)%sf) 
# 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(to:dq_prim_dy_qp(1)%vf(macros_setup_vfs_i)%sf) 
# 361 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 361 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
                    end if
# 361 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
                end do
# 361 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
            end if
# 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
 
                    if (p > 0) then
                        do l = eqn_idx%mom%beg, eqn_idx%mom%end
#ifdef MFC_DEBUG
# 365 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    block
# 365 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        use iso_fortran_env, only: output_unit
# 365 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 365 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        print *, 'm_rhs.fpp:365: ', '@: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))'
# 365 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 365 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        call flush (output_unit)
# 365 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    end block
# 365 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 365 "/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))
# 365 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 365 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 365 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 365 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc enter data create(dq_prim_dz_qp(1)%vf(l)%sf) 
# 365 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 365 "/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) 
# 365 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 367 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
                        end do
#ifdef _CRAYFTN
# 368 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    block
# 368 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        integer :: macros_setup_vfs_i
# 368 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 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: ', '@:ACC_SETUP_VFs(dq_prim_dz_qp(1))'
# 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"
 
# 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 copyin(dq_prim_dz_qp(1)) 
# 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(to:dq_prim_dz_qp(1)) 
# 368 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 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 copyin(dq_prim_dz_qp(1)%vf) 
# 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(to:dq_prim_dz_qp(1)%vf) 
# 368 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 368 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
            if (allocated(dq_prim_dz_qp(1)%vf)) then
# 368 "/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)
# 368 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
                    if (associated(dq_prim_dz_qp(1)%vf(macros_setup_vfs_i)%sf)) then
# 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 copyin(dq_prim_dz_qp(1)%vf(macros_setup_vfs_i)) 
# 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(to:dq_prim_dz_qp(1)%vf(macros_setup_vfs_i)) 
# 368 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 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 copyin(dq_prim_dz_qp(1)%vf(macros_setup_vfs_i)%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(to:dq_prim_dz_qp(1)%vf(macros_setup_vfs_i)%sf) 
# 368 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 368 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
                    end if
# 368 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
                end do
# 368 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
            end if
# 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
                    end if
                end if
 
                do i = 1, num_dims
#ifdef MFC_DEBUG
# 373 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    block
# 373 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        use iso_fortran_env, only: output_unit
# 373 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 373 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        print *, 'm_rhs.fpp:373: ', '@:ALLOCATE(dqL_prim_dx_n(i)%vf(1:sys_size))'
# 373 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 373 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        call flush (output_unit)
# 373 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    end block
# 373 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 373 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    allocate (dql_prim_dx_n(i)%vf(1:sys_size))
# 373 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 373 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 373 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 373 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc enter data create(dqL_prim_dx_n(i)%vf) 
# 373 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 373 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp target enter data map(always,alloc:dqL_prim_dx_n(i)%vf) 
# 373 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
#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(1:sys_size))'
# 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(1:sys_size))
# 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) 
# 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) 
# 374 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
#ifdef MFC_DEBUG
# 375 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    block
# 375 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        use iso_fortran_env, only: output_unit
# 375 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 375 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        print *, 'm_rhs.fpp:375: ', '@:ALLOCATE(dqL_prim_dz_n(i)%vf(1:sys_size))'
# 375 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 375 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        call flush (output_unit)
# 375 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    end block
# 375 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 375 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    allocate (dql_prim_dz_n(i)%vf(1:sys_size))
# 375 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 375 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 375 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 375 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc enter data create(dqL_prim_dz_n(i)%vf) 
# 375 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 375 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp target enter data map(always,alloc:dqL_prim_dz_n(i)%vf) 
# 375 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
#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_dx_n(i)%vf(1:sys_size))'
# 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_dx_n(i)%vf(1:sys_size))
# 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_dx_n(i)%vf) 
# 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_dx_n(i)%vf) 
# 376 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
#ifdef MFC_DEBUG
# 377 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    block
# 377 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        use iso_fortran_env, only: output_unit
# 377 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 377 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        print *, 'm_rhs.fpp:377: ', '@:ALLOCATE(dqR_prim_dy_n(i)%vf(1:sys_size))'
# 377 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 377 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        call flush (output_unit)
# 377 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    end block
# 377 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 377 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    allocate (dqr_prim_dy_n(i)%vf(1:sys_size))
# 377 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 377 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 377 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 377 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc enter data create(dqR_prim_dy_n(i)%vf) 
# 377 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 377 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp target enter data map(always,alloc:dqR_prim_dy_n(i)%vf) 
# 377 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
#ifdef MFC_DEBUG
# 378 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    block
# 378 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        use iso_fortran_env, only: output_unit
# 378 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 378 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        print *, 'm_rhs.fpp:378: ', '@:ALLOCATE(dqR_prim_dz_n(i)%vf(1:sys_size))'
# 378 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 378 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        call flush (output_unit)
# 378 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    end block
# 378 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 378 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    allocate (dqr_prim_dz_n(i)%vf(1:sys_size))
# 378 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 378 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 378 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 378 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc enter data create(dqR_prim_dz_n(i)%vf) 
# 378 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 378 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp target enter data map(always,alloc:dqR_prim_dz_n(i)%vf) 
# 378 "/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
# 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_dx_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_dx_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_dx_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_dx_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_dx_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_dx_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_dx_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_dx_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
 
                    if (n > 0) then
                        do l = eqn_idx%mom%beg, eqn_idx%mom%end
#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: ', '@: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))'
# 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"
    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))
# 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 create(dqL_prim_dy_n(i)%vf(l)%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(always,alloc:dqL_prim_dy_n(i)%vf(l)%sf) 
# 391 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 393 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#ifdef MFC_DEBUG
# 393 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    block
# 393 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        use iso_fortran_env, only: output_unit
# 393 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 393 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        print *, 'm_rhs.fpp:393: ', '@: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))'
# 393 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 393 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        call flush (output_unit)
# 393 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    end block
# 393 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 393 "/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))
# 393 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 393 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 393 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 393 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc enter data create(dqR_prim_dy_n(i)%vf(l)%sf) 
# 393 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 393 "/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) 
# 393 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 395 "/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
# 400 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    block
# 400 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        use iso_fortran_env, only: output_unit
# 400 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 400 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        print *, 'm_rhs.fpp:400: ', '@: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))'
# 400 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 400 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        call flush (output_unit)
# 400 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    end block
# 400 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 400 "/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))
# 400 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 400 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 400 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 400 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc enter data create(dqL_prim_dz_n(i)%vf(l)%sf) 
# 400 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 400 "/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) 
# 400 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 402 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#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(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))'
# 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 (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))
# 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(dqR_prim_dz_n(i)%vf(l)%sf) 
# 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:dqR_prim_dz_n(i)%vf(l)%sf) 
# 402 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 404 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
                        end do
                    end if
 
#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(dqL_prim_dx_n(i), dqL_prim_dy_n(i), dqL_prim_dz_n(i))'
# 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(dqL_prim_dx_n(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:dqL_prim_dx_n(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(dqL_prim_dx_n(i)%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:dqL_prim_dx_n(i)%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(dql_prim_dx_n(i)%vf)) then
# 407 "/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)
# 407 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
                    if (associated(dql_prim_dx_n(i)%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(dqL_prim_dx_n(i)%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:dqL_prim_dx_n(i)%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(dqL_prim_dx_n(i)%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:dqL_prim_dx_n(i)%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"
 
# 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(dqL_prim_dy_n(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:dqL_prim_dy_n(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(dqL_prim_dy_n(i)%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:dqL_prim_dy_n(i)%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(dql_prim_dy_n(i)%vf)) then
# 407 "/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)
# 407 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
                    if (associated(dql_prim_dy_n(i)%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(dqL_prim_dy_n(i)%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:dqL_prim_dy_n(i)%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(dqL_prim_dy_n(i)%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:dqL_prim_dy_n(i)%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"
 
# 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(dqL_prim_dz_n(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:dqL_prim_dz_n(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(dqL_prim_dz_n(i)%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:dqL_prim_dz_n(i)%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(dql_prim_dz_n(i)%vf)) then
# 407 "/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)
# 407 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
                    if (associated(dql_prim_dz_n(i)%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(dqL_prim_dz_n(i)%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:dqL_prim_dz_n(i)%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(dqL_prim_dz_n(i)%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:dqL_prim_dz_n(i)%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
#ifdef _CRAYFTN
# 408 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    block
# 408 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        integer :: macros_setup_vfs_i
# 408 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 408 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#ifdef MFC_DEBUG
# 408 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    block
# 408 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        use iso_fortran_env, only: output_unit
# 408 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 408 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        print *, 'm_rhs.fpp:408: ', '@:ACC_SETUP_VFs(dqR_prim_dx_n(i), dqR_prim_dy_n(i), dqR_prim_dz_n(i))'
# 408 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 408 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        call flush (output_unit)
# 408 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    end block
# 408 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 408 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 408 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 408 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 408 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc enter data copyin(dqR_prim_dx_n(i)) 
# 408 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 408 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp target enter data map(to:dqR_prim_dx_n(i)) 
# 408 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 408 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 408 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 408 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc enter data copyin(dqR_prim_dx_n(i)%vf) 
# 408 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 408 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp target enter data map(to:dqR_prim_dx_n(i)%vf) 
# 408 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 408 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
            if (allocated(dqr_prim_dx_n(i)%vf)) then
# 408 "/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)
# 408 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
                    if (associated(dqr_prim_dx_n(i)%vf(macros_setup_vfs_i)%sf)) then
# 408 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 408 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 408 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc enter data copyin(dqR_prim_dx_n(i)%vf(macros_setup_vfs_i)) 
# 408 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 408 "/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)) 
# 408 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 408 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 408 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 408 "/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) 
# 408 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 408 "/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) 
# 408 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 408 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
                    end if
# 408 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
                end do
# 408 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
            end if
# 408 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 408 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 408 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc enter data copyin(dqR_prim_dy_n(i)) 
# 408 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 408 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp target enter data map(to:dqR_prim_dy_n(i)) 
# 408 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 408 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 408 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 408 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc enter data copyin(dqR_prim_dy_n(i)%vf) 
# 408 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 408 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp target enter data map(to:dqR_prim_dy_n(i)%vf) 
# 408 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 408 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
            if (allocated(dqr_prim_dy_n(i)%vf)) then
# 408 "/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)
# 408 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
                    if (associated(dqr_prim_dy_n(i)%vf(macros_setup_vfs_i)%sf)) then
# 408 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 408 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 408 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc enter data copyin(dqR_prim_dy_n(i)%vf(macros_setup_vfs_i)) 
# 408 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 408 "/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)) 
# 408 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 408 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 408 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 408 "/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) 
# 408 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 408 "/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) 
# 408 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 408 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
                    end if
# 408 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
                end do
# 408 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
            end if
# 408 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 408 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 408 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc enter data copyin(dqR_prim_dz_n(i)) 
# 408 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 408 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp target enter data map(to:dqR_prim_dz_n(i)) 
# 408 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 408 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 408 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 408 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc enter data copyin(dqR_prim_dz_n(i)%vf) 
# 408 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 408 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp target enter data map(to:dqR_prim_dz_n(i)%vf) 
# 408 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 408 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
            if (allocated(dqr_prim_dz_n(i)%vf)) then
# 408 "/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)
# 408 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
                    if (associated(dqr_prim_dz_n(i)%vf(macros_setup_vfs_i)%sf)) then
# 408 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 408 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 408 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc enter data copyin(dqR_prim_dz_n(i)%vf(macros_setup_vfs_i)) 
# 408 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 408 "/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)) 
# 408 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 408 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 408 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 408 "/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) 
# 408 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 408 "/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) 
# 408 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 408 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
                    end if
# 408 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
                end do
# 408 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
            end if
# 408 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    end block
# 408 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
                end do
 
                if (weno_re_flux) 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(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))'
# 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 (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))
# 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(dqL_rsx_vf) 
# 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:dqL_rsx_vf) 
# 412 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 414 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#ifdef MFC_DEBUG
# 414 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    block
# 414 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        use iso_fortran_env, only: output_unit
# 414 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 414 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        print *, 'm_rhs.fpp:414: ', '@: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))'
# 414 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 414 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        call flush (output_unit)
# 414 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    end block
# 414 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 414 "/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))
# 414 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 414 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 414 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 414 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc enter data create(dqR_rsx_vf) 
# 414 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 414 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp target enter data map(always,alloc:dqR_rsx_vf) 
# 414 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 416 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
                    if (n > 0) then
#ifdef MFC_DEBUG
# 418 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    block
# 418 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        use iso_fortran_env, only: output_unit
# 418 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 418 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        print *, 'm_rhs.fpp:418: ', '@:ALLOCATE(dqL_rsy_vf(idwbuff(2)%beg:idwbuff(2)%end, idwbuff(1)%beg:idwbuff(1)%end, idwbuff(3)%beg:idwbuff(3)%end, eqn_idx%mom%beg:eqn_idx%mom%end))'
# 418 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 418 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        call flush (output_unit)
# 418 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    end block
# 418 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 418 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    allocate (dql_rsy_vf(idwbuff(2)%beg:idwbuff(2)%end, idwbuff(1)%beg:idwbuff(1)%end,  idwbuff(3)%beg:idwbuff(3)%end, eqn_idx%mom%beg:eqn_idx%mom%end))
# 418 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 418 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 418 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 418 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc enter data create(dqL_rsy_vf) 
# 418 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 418 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp target enter data map(always,alloc:dqL_rsy_vf) 
# 418 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 420 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#ifdef MFC_DEBUG
# 420 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    block
# 420 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        use iso_fortran_env, only: output_unit
# 420 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 420 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        print *, 'm_rhs.fpp:420: ', '@:ALLOCATE(dqR_rsy_vf(idwbuff(2)%beg:idwbuff(2)%end, idwbuff(1)%beg:idwbuff(1)%end, idwbuff(3)%beg:idwbuff(3)%end, eqn_idx%mom%beg:eqn_idx%mom%end))'
# 420 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 420 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        call flush (output_unit)
# 420 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    end block
# 420 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 420 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    allocate (dqr_rsy_vf(idwbuff(2)%beg:idwbuff(2)%end, idwbuff(1)%beg:idwbuff(1)%end,  idwbuff(3)%beg:idwbuff(3)%end, eqn_idx%mom%beg:eqn_idx%mom%end))
# 420 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 420 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 420 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 420 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc enter data create(dqR_rsy_vf) 
# 420 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 420 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp target enter data map(always,alloc:dqR_rsy_vf) 
# 420 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 422 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
                    else
#ifdef MFC_DEBUG
# 423 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    block
# 423 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        use iso_fortran_env, only: output_unit
# 423 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 423 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        print *, 'm_rhs.fpp:423: ', '@:ALLOCATE(dqL_rsy_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))'
# 423 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 423 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        call flush (output_unit)
# 423 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    end block
# 423 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 423 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    allocate (dql_rsy_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))
# 423 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 423 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 423 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 423 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc enter data create(dqL_rsy_vf) 
# 423 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 423 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp target enter data map(always,alloc:dqL_rsy_vf) 
# 423 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 425 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#ifdef MFC_DEBUG
# 425 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    block
# 425 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        use iso_fortran_env, only: output_unit
# 425 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 425 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        print *, 'm_rhs.fpp:425: ', '@:ALLOCATE(dqR_rsy_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))'
# 425 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 425 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        call flush (output_unit)
# 425 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    end block
# 425 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 425 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    allocate (dqr_rsy_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))
# 425 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 425 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 425 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 425 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc enter data create(dqR_rsy_vf) 
# 425 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 425 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp target enter data map(always,alloc:dqR_rsy_vf) 
# 425 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 427 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
                    end if
 
                    if (p > 0) then
#ifdef MFC_DEBUG
# 430 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    block
# 430 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        use iso_fortran_env, only: output_unit
# 430 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 430 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        print *, 'm_rhs.fpp:430: ', '@:ALLOCATE(dqL_rsz_vf(idwbuff(3)%beg:idwbuff(3)%end, idwbuff(2)%beg:idwbuff(2)%end, idwbuff(1)%beg:idwbuff(1)%end, eqn_idx%mom%beg:eqn_idx%mom%end))'
# 430 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 430 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        call flush (output_unit)
# 430 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    end block
# 430 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 430 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    allocate (dql_rsz_vf(idwbuff(3)%beg:idwbuff(3)%end, idwbuff(2)%beg:idwbuff(2)%end,  idwbuff(1)%beg:idwbuff(1)%end, eqn_idx%mom%beg:eqn_idx%mom%end))
# 430 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 430 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 430 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 430 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc enter data create(dqL_rsz_vf) 
# 430 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 430 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp target enter data map(always,alloc:dqL_rsz_vf) 
# 430 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 432 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#ifdef MFC_DEBUG
# 432 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    block
# 432 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        use iso_fortran_env, only: output_unit
# 432 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 432 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        print *, 'm_rhs.fpp:432: ', '@:ALLOCATE(dqR_rsz_vf(idwbuff(3)%beg:idwbuff(3)%end, idwbuff(2)%beg:idwbuff(2)%end, idwbuff(1)%beg:idwbuff(1)%end, eqn_idx%mom%beg:eqn_idx%mom%end))'
# 432 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 432 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        call flush (output_unit)
# 432 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    end block
# 432 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 432 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    allocate (dqr_rsz_vf(idwbuff(3)%beg:idwbuff(3)%end, idwbuff(2)%beg:idwbuff(2)%end,  idwbuff(1)%beg:idwbuff(1)%end, eqn_idx%mom%beg:eqn_idx%mom%end))
# 432 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 432 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 432 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 432 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc enter data create(dqR_rsz_vf) 
# 432 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 432 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp target enter data map(always,alloc:dqR_rsz_vf) 
# 432 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 434 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
                    else
#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(dqL_rsz_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))'
# 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 (dql_rsz_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))
# 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(dqL_rsz_vf) 
# 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:dqL_rsz_vf) 
# 435 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 437 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#ifdef MFC_DEBUG
# 437 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    block
# 437 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        use iso_fortran_env, only: output_unit
# 437 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 437 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        print *, 'm_rhs.fpp:437: ', '@:ALLOCATE(dqR_rsz_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))'
# 437 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 437 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        call flush (output_unit)
# 437 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    end block
# 437 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 437 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    allocate (dqr_rsz_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))
# 437 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 437 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 437 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 437 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc enter data create(dqR_rsz_vf) 
# 437 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 437 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp target enter data map(always,alloc:dqR_rsz_vf) 
# 437 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 439 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
                    end if
                end if  ! end allocation for weno_Re_flux
            else
#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: ', '@:ALLOCATE(dq_prim_dx_qp(1)%vf(1:sys_size))'
# 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"
    allocate (dq_prim_dx_qp(1)%vf(1:sys_size))
# 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 create(dq_prim_dx_qp(1)%vf) 
# 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(always,alloc:dq_prim_dx_qp(1)%vf) 
# 442 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
#ifdef MFC_DEBUG
# 443 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    block
# 443 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        use iso_fortran_env, only: output_unit
# 443 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 443 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        print *, 'm_rhs.fpp:443: ', '@:ALLOCATE(dq_prim_dy_qp(1)%vf(1:sys_size))'
# 443 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 443 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        call flush (output_unit)
# 443 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    end block
# 443 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 443 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    allocate (dq_prim_dy_qp(1)%vf(1:sys_size))
# 443 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 443 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 443 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 443 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc enter data create(dq_prim_dy_qp(1)%vf) 
# 443 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 443 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp target enter data map(always,alloc:dq_prim_dy_qp(1)%vf) 
# 443 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
#ifdef MFC_DEBUG
# 444 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    block
# 444 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        use iso_fortran_env, only: output_unit
# 444 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 444 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        print *, 'm_rhs.fpp:444: ', '@:ALLOCATE(dq_prim_dz_qp(1)%vf(1:sys_size))'
# 444 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 444 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        call flush (output_unit)
# 444 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    end block
# 444 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 444 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    allocate (dq_prim_dz_qp(1)%vf(1:sys_size))
# 444 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 444 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 444 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 444 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc enter data create(dq_prim_dz_qp(1)%vf) 
# 444 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 444 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp target enter data map(always,alloc:dq_prim_dz_qp(1)%vf) 
# 444 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
 
                do l = eqn_idx%mom%beg, eqn_idx%mom%end
#ifdef MFC_DEBUG
# 447 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    block
# 447 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        use iso_fortran_env, only: output_unit
# 447 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 447 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        print *, 'm_rhs.fpp:447: ', '@:ALLOCATE(dq_prim_dx_qp(1)%vf(l)%sf(0, 0, 0))'
# 447 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 447 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        call flush (output_unit)
# 447 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    end block
# 447 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 447 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    allocate (dq_prim_dx_qp(1)%vf(l)%sf(0, 0, 0))
# 447 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 447 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 447 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 447 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc enter data create(dq_prim_dx_qp(1)%vf(l)%sf) 
# 447 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 447 "/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) 
# 447 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
#ifdef _CRAYFTN
# 448 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    block
# 448 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        integer :: macros_setup_vfs_i
# 448 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 448 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#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: ', '@:ACC_SETUP_VFs(dq_prim_dx_qp(1))'
# 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"
 
# 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 copyin(dq_prim_dx_qp(1)) 
# 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(to:dq_prim_dx_qp(1)) 
# 448 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 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 copyin(dq_prim_dx_qp(1)%vf) 
# 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(to:dq_prim_dx_qp(1)%vf) 
# 448 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 448 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
            if (allocated(dq_prim_dx_qp(1)%vf)) then
# 448 "/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)
# 448 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
                    if (associated(dq_prim_dx_qp(1)%vf(macros_setup_vfs_i)%sf)) then
# 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 copyin(dq_prim_dx_qp(1)%vf(macros_setup_vfs_i)) 
# 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(to:dq_prim_dx_qp(1)%vf(macros_setup_vfs_i)) 
# 448 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 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 copyin(dq_prim_dx_qp(1)%vf(macros_setup_vfs_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(to:dq_prim_dx_qp(1)%vf(macros_setup_vfs_i)%sf) 
# 448 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 448 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
                    end if
# 448 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
                end do
# 448 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
            end if
# 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
                    if (n > 0) then
#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: ', '@:ALLOCATE(dq_prim_dy_qp(1)%vf(l)%sf(0, 0, 0))'
# 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"
    allocate (dq_prim_dy_qp(1)%vf(l)%sf(0, 0, 0))
# 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 create(dq_prim_dy_qp(1)%vf(l)%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(always,alloc:dq_prim_dy_qp(1)%vf(l)%sf) 
# 450 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
#ifdef _CRAYFTN
# 451 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    block
# 451 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        integer :: macros_setup_vfs_i
# 451 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 451 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#ifdef MFC_DEBUG
# 451 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    block
# 451 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        use iso_fortran_env, only: output_unit
# 451 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 451 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        print *, 'm_rhs.fpp:451: ', '@:ACC_SETUP_VFs(dq_prim_dy_qp(1))'
# 451 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 451 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        call flush (output_unit)
# 451 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    end block
# 451 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 451 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 451 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 451 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 451 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc enter data copyin(dq_prim_dy_qp(1)) 
# 451 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 451 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp target enter data map(to:dq_prim_dy_qp(1)) 
# 451 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 451 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 451 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 451 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc enter data copyin(dq_prim_dy_qp(1)%vf) 
# 451 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 451 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp target enter data map(to:dq_prim_dy_qp(1)%vf) 
# 451 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 451 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
            if (allocated(dq_prim_dy_qp(1)%vf)) then
# 451 "/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)
# 451 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
                    if (associated(dq_prim_dy_qp(1)%vf(macros_setup_vfs_i)%sf)) then
# 451 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 451 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 451 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc enter data copyin(dq_prim_dy_qp(1)%vf(macros_setup_vfs_i)) 
# 451 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 451 "/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)) 
# 451 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 451 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 451 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 451 "/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) 
# 451 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 451 "/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) 
# 451 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 451 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
                    end if
# 451 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
                end do
# 451 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
            end if
# 451 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    end block
# 451 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
                        if (p > 0) then
#ifdef MFC_DEBUG
# 453 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    block
# 453 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        use iso_fortran_env, only: output_unit
# 453 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 453 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        print *, 'm_rhs.fpp:453: ', '@:ALLOCATE(dq_prim_dz_qp(1)%vf(l)%sf(0, 0, 0))'
# 453 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 453 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        call flush (output_unit)
# 453 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    end block
# 453 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 453 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    allocate (dq_prim_dz_qp(1)%vf(l)%sf(0, 0, 0))
# 453 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 453 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 453 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 453 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc enter data create(dq_prim_dz_qp(1)%vf(l)%sf) 
# 453 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 453 "/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) 
# 453 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
#ifdef _CRAYFTN
# 454 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    block
# 454 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        integer :: macros_setup_vfs_i
# 454 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 454 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#ifdef MFC_DEBUG
# 454 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    block
# 454 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        use iso_fortran_env, only: output_unit
# 454 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 454 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        print *, 'm_rhs.fpp:454: ', '@:ACC_SETUP_VFs(dq_prim_dz_qp(1))'
# 454 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 454 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        call flush (output_unit)
# 454 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    end block
# 454 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 454 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 454 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 454 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 454 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc enter data copyin(dq_prim_dz_qp(1)) 
# 454 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 454 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp target enter data map(to:dq_prim_dz_qp(1)) 
# 454 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 454 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 454 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 454 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc enter data copyin(dq_prim_dz_qp(1)%vf) 
# 454 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 454 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp target enter data map(to:dq_prim_dz_qp(1)%vf) 
# 454 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 454 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
            if (allocated(dq_prim_dz_qp(1)%vf)) then
# 454 "/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)
# 454 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
                    if (associated(dq_prim_dz_qp(1)%vf(macros_setup_vfs_i)%sf)) then
# 454 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 454 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 454 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc enter data copyin(dq_prim_dz_qp(1)%vf(macros_setup_vfs_i)) 
# 454 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 454 "/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)) 
# 454 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 454 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 454 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 454 "/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) 
# 454 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 454 "/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) 
# 454 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 454 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
                    end if
# 454 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
                end do
# 454 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
            end if
# 454 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    end block
# 454 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
                        end if
                    end if
                end do
            end if  ! end allocation of viscous variables
 
 
# 460 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 460 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 460 "/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) 
# 460 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 460 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 460 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 460 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 460 "/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) 
# 460 "/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
 
# 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 end parallel loop
# 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"
 
# 472 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp end target teams loop
# 472 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
        end if  ! end allocation for .not. igr
 
        if (qbmm) then
#ifdef MFC_DEBUG
# 476 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    block
# 476 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        use iso_fortran_env, only: output_unit
# 476 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 476 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        print *, 'm_rhs.fpp:476: ', '@:ALLOCATE(mom_sp(1:nmomsp), mom_3d(0:2, 0:2, nb))'
# 476 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 476 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        call flush (output_unit)
# 476 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    end block
# 476 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 476 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    allocate (mom_sp(1:nmomsp), mom_3d(0:2, 0:2, nb))
# 476 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 476 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 476 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 476 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 476 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc enter data create(mom_sp, mom_3d) 
# 476 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 476 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp target enter data map(always,alloc:mom_sp, mom_3d) 
# 476 "/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
# 481 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    block
# 481 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        use iso_fortran_env, only: output_unit
# 481 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 481 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        print *, 'm_rhs.fpp:481: ', '@: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))'
# 481 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 481 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        call flush (output_unit)
# 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"
    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))
# 481 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 481 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 481 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 481 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc enter data create(mom_3d(i, j, k)%sf) 
# 481 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 481 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp target enter data map(always,alloc:mom_3d(i, j, k)%sf) 
# 481 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 483 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#ifdef _CRAYFTN
# 483 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    block
# 483 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#ifdef MFC_DEBUG
# 483 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    block
# 483 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        use iso_fortran_env, only: output_unit
# 483 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 483 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        print *, 'm_rhs.fpp:483: ', '@:ACC_SETUP_SFs(mom_3d(i, j, k))'
# 483 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 483 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        call flush (output_unit)
# 483 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    end block
# 483 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 483 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 483 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 483 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 483 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc enter data copyin(mom_3d(i, j, k)) 
# 483 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 483 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp target enter data map(to:mom_3d(i, j, k)) 
# 483 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 483 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
            if (associated(mom_3d(i, j, k)%sf)) then
# 483 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 483 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 483 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc enter data copyin(mom_3d(i, j, k)%sf) 
# 483 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 483 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp target enter data map(to:mom_3d(i, j, k)%sf) 
# 483 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 483 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
            end if
# 483 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    end block
# 483 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
                    end do
                end do
            end do
 
            do i = 1, nmomsp
#ifdef MFC_DEBUG
# 489 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    block
# 489 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        use iso_fortran_env, only: output_unit
# 489 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 489 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        print *, 'm_rhs.fpp:489: ', '@:ALLOCATE(mom_sp(i)%sf(idwbuff(1)%beg:idwbuff(1)%end, idwbuff(2)%beg:idwbuff(2)%end, idwbuff(3)%beg:idwbuff(3)%end))'
# 489 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 489 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        call flush (output_unit)
# 489 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    end block
# 489 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 489 "/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))
# 489 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 489 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 489 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 489 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc enter data create(mom_sp(i)%sf) 
# 489 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 489 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp target enter data map(always,alloc:mom_sp(i)%sf) 
# 489 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 491 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#ifdef _CRAYFTN
# 491 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    block
# 491 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#ifdef MFC_DEBUG
# 491 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    block
# 491 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        use iso_fortran_env, only: output_unit
# 491 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 491 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        print *, 'm_rhs.fpp:491: ', '@:ACC_SETUP_SFs(mom_sp(i))'
# 491 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 491 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        call flush (output_unit)
# 491 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    end block
# 491 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 491 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 491 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 491 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 491 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc enter data copyin(mom_sp(i)) 
# 491 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 491 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp target enter data map(to:mom_sp(i)) 
# 491 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 491 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
            if (associated(mom_sp(i)%sf)) then
# 491 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 491 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 491 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc enter data copyin(mom_sp(i)%sf) 
# 491 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 491 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp target enter data map(to:mom_sp(i)%sf) 
# 491 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 491 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
            end if
# 491 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    end block
# 491 "/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
# 496 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    block
# 496 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        use iso_fortran_env, only: output_unit
# 496 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 496 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        print *, 'm_rhs.fpp:496: ', '@:ALLOCATE(alf_sum%sf(idwbuff(1)%beg:idwbuff(1)%end, idwbuff(2)%beg:idwbuff(2)%end, idwbuff(3)%beg:idwbuff(3)%end))'
# 496 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 496 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        call flush (output_unit)
# 496 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    end block
# 496 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 496 "/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))
# 496 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 496 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 496 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 496 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc enter data create(alf_sum%sf) 
# 496 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 496 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp target enter data map(always,alloc:alf_sum%sf) 
# 496 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
        end if
        if (alt_soundspeed) then
#ifdef MFC_DEBUG
# 499 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    block
# 499 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        use iso_fortran_env, only: output_unit
# 499 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 499 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        print *, 'm_rhs.fpp:499: ', '@: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))'
# 499 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 499 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        call flush (output_unit)
# 499 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    end block
# 499 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 499 "/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))
# 499 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 499 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 499 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 499 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 499 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 499 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 499 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 499 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc enter data create(blkmod1, blkmod2, alpha1, alpha2, Kterm) 
# 499 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 499 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp target enter data map(always,alloc:blkmod1, blkmod2, alpha1, alpha2, Kterm) 
# 499 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 501 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        end if
 
        call s_initialize_pressure_relaxation_module
 
    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, &
 
        & time_avg, 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
 
        real(wp), dimension(idwbuff(1)%beg:,idwbuff(2)%beg:,idwbuff(3)%beg:,1:,1:), &
             & intent(inout) &
             & :: rhs_pb  ! TODO :: I think these other two variables need to be stp as well, but it doesn't compile like that right now
        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
        real(wp), intent(inout) :: time_avg
        integer, intent(in) :: stage
        real(wp) :: t_start, t_finish
        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")
 
        call cpu_time(t_start)
 
        if (.not. igr .or. dummy) then
            ! Association/Population of Working Variables
 
# 539 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 539 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 539 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc parallel loop collapse(4) gang vector default(present) private(i, j, k, l) 
# 539 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 539 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 539 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 539 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 539 "/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) 
# 539 "/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
 
# 549 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 549 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc end parallel loop
# 549 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 549 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 549 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp end target teams loop
# 549 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
 
            ! Converting Conservative to Primitive Variables
 
            if (mpp_lim .and. bubbles_euler) then
 
# 554 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 554 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 554 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc parallel loop collapse(3) gang vector default(present) private(j, k, l) 
# 554 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 554 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 554 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 554 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 554 "/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) 
# 554 "/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
 
# 559 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 559 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc loop seq 
# 559 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 559 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 559 "/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
 
# 563 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 563 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc loop seq 
# 563 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 563 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 563 "/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
 
# 571 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 571 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc end parallel loop
# 571 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 571 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 571 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp end target teams loop
# 571 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
            end if
        end if
 
        if (igr .or. dummy) 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 .or. dummy) 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) .or. dummy) then
            call nvtxstartrange("RHS-VISCOUS")
            call s_get_viscous(ql_rsx_vf, ql_rsy_vf, ql_rsz_vf, dql_prim_dx_n, dql_prim_dy_n, dql_prim_dz_n, ql_prim, qr_rsx_vf, &
                               & qr_rsy_vf, qr_rsz_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
 
        ! Loop over coordinate directions for dimensional splitting
        do id = 1, num_dims
            if (igr .or. dummy) then
                if (id == 1) then
 
# 621 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 621 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 621 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc parallel loop collapse(4) gang vector default(present) private(i, j, k, l) 
# 621 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 621 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 621 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 621 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 621 "/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) 
# 621 "/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
 
# 631 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 631 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc end parallel loop
# 631 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 631 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 631 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp end target teams loop
# 631 "/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) .or. dummy) then  ! Finite volume solve
 
                ! Reconstructing Primitive/Conservative Variables
                call nvtxstartrange("RHS-WENO")
 
                if (.not. surface_tension) then
                    if (all(re_size == 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, ql_rsy_vf, ql_rsz_vf, &
                                                                & qr_rsx_vf, qr_rsy_vf, qr_rsz_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, ql_rsy_vf, ql_rsz_vf, &
                                                                & qr_rsx_vf, qr_rsy_vf, qr_rsz_vf, id)
 
                        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, ql_rsy_vf, ql_rsz_vf, &
                                                                & qr_rsx_vf, qr_rsy_vf, qr_rsz_vf, id)
                    end if
                else
                    if (all(re_size == 0)) 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, ql_rsy_vf, ql_rsz_vf, &
                                                                & qr_rsx_vf, qr_rsy_vf, qr_rsz_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, ql_rsy_vf, &
                            & ql_rsz_vf, qr_rsx_vf, qr_rsy_vf, qr_rsz_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, ql_rsy_vf, ql_rsz_vf, &
                                                                & qr_rsx_vf, qr_rsy_vf, qr_rsz_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, ql_rsy_vf, ql_rsz_vf, &
                                                                & qr_rsx_vf, qr_rsy_vf, qr_rsz_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, ql_rsy_vf, &
                            & ql_rsz_vf, qr_rsx_vf, qr_rsy_vf, qr_rsz_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, ql_rsy_vf, ql_rsz_vf, &
                                                                & qr_rsx_vf, qr_rsy_vf, qr_rsz_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, &
                        & dql_rsy_vf, dql_rsz_vf, dqr_rsx_vf, dqr_rsy_vf, dqr_rsz_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, &
                            & dql_rsy_vf, dql_rsz_vf, dqr_rsx_vf, dqr_rsy_vf, dqr_rsz_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, &
                                & dql_rsy_vf, dql_rsz_vf, dqr_rsx_vf, dqr_rsy_vf, dqr_rsz_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  ! WENO
 
                ! 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, qr_rsy_vf, qr_rsz_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, ql_rsy_vf, ql_rsz_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
 
# 776 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 776 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 776 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc parallel loop collapse(3) gang vector default(present) private(j, k, l) 
# 776 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 776 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 776 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 776 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 776 "/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) 
# 776 "/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
 
# 785 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 785 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc end parallel loop
# 785 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 785 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 785 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp end target teams loop
# 785 "/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
 
# 794 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 794 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 794 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc parallel loop collapse(3) gang vector default(present) private(i, j, k, l) 
# 794 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 794 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 794 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 794 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 794 "/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) 
# 794 "/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
 
# 806 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 806 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc end parallel loop
# 806 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 806 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 806 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp end target teams loop
# 806 "/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
            ! RHS additions for sub-grid bubbles_lagrange
            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
            ! Compute bubble dynamics
            if (.not. adap_dt) then
                call nvtxstartrange("RHS-EL-BUBBLES-DYN")
                call s_compute_bubble_el_dynamics(q_prim_qp%vf(1:sys_size), stage)
                call nvtxendrange
            end if
        end if
 
        if (chemistry .and. chem_params%reactions) 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 (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 .or. dummy) then
 
# 848 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 848 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 848 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc parallel loop collapse(4) gang vector default(present) private(i, j, k, l) 
# 848 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 848 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 848 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 848 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 848 "/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) 
# 848 "/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
 
# 858 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 858 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc end parallel loop
# 858 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 858 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 858 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp end target teams loop
# 858 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
            end if
        end if
 
        call cpu_time(t_finish)
 
        if (t_step >= 2) then
            time_avg = (abs(t_finish - t_start) + (t_step - 2)*time_avg)/(t_step - 1)
        else
            time_avg = 0._wp
        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
 
# 889 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 889 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 889 "/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) 
# 889 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 889 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 889 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 889 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 889 "/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(k_loop, l_loop, q_loop) 
# 889 "/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
 
# 912 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 912 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc end parallel loop
# 912 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 912 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 912 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp end target teams loop
# 912 "/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
 
 
# 924 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 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 parallel loop collapse(4) gang vector default(present) private(j, k_loop, l_loop, q_loop, inv_ds, flux_face1, flux_face2) 
# 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"
 
# 924 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 924 "/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(j, k_loop, l_loop, q_loop, inv_ds, flux_face1, flux_face2) 
# 924 "/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
 
# 937 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 937 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc end parallel loop
# 937 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 937 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 937 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp end target teams loop
# 937 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
 
            if (model_eqns == 3) then
 
# 940 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 940 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 940 "/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) 
# 940 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 940 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 940 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 940 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 940 "/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_fluid_loop, k_loop, l_loop, q_loop, inv_ds, advected_qty_val, pressure_val, flux_face1, flux_face2) 
# 940 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 942 "/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
 
# 958 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 958 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc end parallel loop
# 958 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 958 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 958 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp end target teams loop
# 958 "/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
 
 
# 970 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 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 parallel loop collapse(4) gang vector default(present) private(j, k, l, q, inv_ds, flux_face1, flux_face2) 
# 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"
 
# 970 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 970 "/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(j, k, l, q, inv_ds, flux_face1, flux_face2) 
# 970 "/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
 
# 983 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 983 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc end parallel loop
# 983 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 983 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 983 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp end target teams loop
# 983 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
 
            if (model_eqns == 3) then
 
# 986 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 986 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 986 "/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) 
# 986 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 986 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 986 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 986 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 986 "/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_fluid_loop, k, l, q, inv_ds, advected_qty_val, pressure_val, flux_face1, flux_face2) 
# 986 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 988 "/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
 
# 1009 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 1009 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc end parallel loop
# 1009 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 1009 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1009 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp end target teams loop
# 1009 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
            end if
 
            if (cyl_coord) then
 
# 1013 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1013 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 1013 "/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) 
# 1013 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 1013 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1013 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1013 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1013 "/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(j, k, l, q, flux_face1, flux_face2) 
# 1013 "/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
 
# 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 end parallel loop
# 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"
!$omp end target teams loop
# 1025 "/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
 
# 1038 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1038 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 1038 "/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) 
# 1038 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 1038 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1038 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1038 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1038 "/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(j, k, l, q, inv_ds, velocity_val, flux_face1, flux_face2) 
# 1038 "/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
 
# 1052 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 1052 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc end parallel loop
# 1052 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 1052 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1052 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp end target teams loop
# 1052 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
 
# 1053 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1053 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 1053 "/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) 
# 1053 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 1053 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1053 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1053 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1053 "/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(j, k, l, q, flux_face1, flux_face2) 
# 1053 "/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
 
# 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 end parallel loop
# 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"
!$omp end target teams loop
# 1065 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
            else  ! Cartesian Coordinates
 
# 1067 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1067 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 1067 "/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) 
# 1067 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 1067 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1067 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1067 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1067 "/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(j, k, l, q, inv_ds, flux_face1, flux_face2) 
# 1067 "/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
 
# 1080 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 1080 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc end parallel loop
# 1080 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 1080 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1080 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp end target teams loop
# 1080 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
            end if
 
            if (model_eqns == 3) then
 
# 1084 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1084 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 1084 "/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) 
# 1084 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 1084 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1084 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1084 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1084 "/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_fluid_loop, k, l, q, inv_ds, advected_qty_val, pressure_val, flux_face1, flux_face2) 
# 1084 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 1086 "/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
 
# 1102 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 1102 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc end parallel loop
# 1102 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 1102 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1102 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp end target teams loop
# 1102 "/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 == 1 .or. riemann_solver == 4)
                if (use_standard_riemann) then
 
# 1130 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1130 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 1130 "/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) 
# 1130 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 1130 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1130 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1130 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1130 "/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(j_adv, k_idx, l_idx, q_idx, local_inv_ds, local_term_coeff, local_flux1, local_flux2) 
# 1130 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 1132 "/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
 
# 1146 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 1146 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc end parallel loop
# 1146 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 1146 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1146 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp end target teams loop
# 1146 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
                else  ! Other Riemann solvers
                    if (alt_soundspeed) then
                        if (bubbles_euler .neqv. .true.) then
 
# 1150 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1150 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 1150 "/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) 
# 1150 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 1150 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1150 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1150 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1150 "/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(k_idx, l_idx, q_idx, local_inv_ds, local_q_cons_val, local_k_term_val, local_term_coeff, local_flux1, local_flux2) 
# 1150 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 1152 "/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
 
# 1162 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 1162 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc end parallel loop
# 1162 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 1162 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1162 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp end target teams loop
# 1162 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
 
 
# 1164 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1164 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 1164 "/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) 
# 1164 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 1164 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1164 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1164 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1164 "/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(k_idx, l_idx, q_idx, local_inv_ds, local_q_cons_val, local_k_term_val, local_term_coeff, local_flux1, local_flux2) 
# 1164 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 1166 "/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
 
# 1176 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 1176 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc end parallel loop
# 1176 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 1176 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1176 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp end target teams loop
# 1176 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
                        end if
                    else  ! NOT alt_soundspeed
 
# 1179 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1179 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 1179 "/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) 
# 1179 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 1179 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1179 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1179 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1179 "/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(j_adv, k_idx, l_idx, q_idx, local_inv_ds, local_term_coeff, local_flux1, local_flux2) 
# 1179 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 1181 "/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
 
# 1191 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 1191 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc end parallel loop
# 1191 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 1191 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1191 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp end target teams loop
# 1191 "/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 == 1 .or. riemann_solver == 4)
                if (use_standard_riemann) then
 
# 1198 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1198 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 1198 "/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) 
# 1198 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 1198 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1198 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1198 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1198 "/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(j_adv, k_idx, l_idx, q_idx, local_inv_ds, local_term_coeff, local_flux1, local_flux2) 
# 1198 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 1200 "/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
 
# 1214 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 1214 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc end parallel loop
# 1214 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 1214 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1214 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp end target teams loop
# 1214 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
                else  ! Other Riemann solvers
                    if (alt_soundspeed) then
                        if (bubbles_euler .neqv. .true.) then
 
# 1218 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1218 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 1218 "/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) 
# 1218 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 1218 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1218 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1218 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1218 "/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(k_idx, l_idx, q_idx, local_inv_ds, local_q_cons_val, local_k_term_val, local_term_coeff, local_flux1, local_flux2) 
# 1218 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 1220 "/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
 
# 1234 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 1234 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc end parallel loop
# 1234 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 1234 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1234 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp end target teams loop
# 1234 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
 
 
# 1236 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1236 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 1236 "/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) 
# 1236 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 1236 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1236 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1236 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1236 "/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(k_idx, l_idx, q_idx, local_inv_ds, local_q_cons_val, local_k_term_val, local_term_coeff, local_flux1, local_flux2) 
# 1236 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 1238 "/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
 
# 1252 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 1252 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc end parallel loop
# 1252 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 1252 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1252 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp end target teams loop
# 1252 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
                        end if
                    else  ! NOT alt_soundspeed
 
# 1255 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1255 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 1255 "/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) 
# 1255 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 1255 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1255 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1255 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1255 "/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(j_adv, k_idx, l_idx, q_idx, local_inv_ds, local_term_coeff, local_flux1, local_flux2) 
# 1255 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 1257 "/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
 
# 1267 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 1267 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc end parallel loop
# 1267 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 1267 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1267 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp end target teams loop
# 1267 "/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 == 1)
                else
                    use_standard_riemann = (riemann_solver == 1 .or. riemann_solver == 4)
                end if
 
                if (use_standard_riemann) then
 
# 1279 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1279 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 1279 "/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) 
# 1279 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 1279 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1279 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1279 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1279 "/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(j_adv, k_idx, l_idx, q_idx, local_inv_ds, local_term_coeff, local_flux1, local_flux2) 
# 1279 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 1281 "/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
 
# 1295 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 1295 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc end parallel loop
# 1295 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 1295 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1295 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp end target teams loop
# 1295 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
                else  ! Other Riemann solvers
                    if (alt_soundspeed) then
                        if (bubbles_euler .neqv. .true.) then
 
# 1299 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1299 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 1299 "/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) 
# 1299 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 1299 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1299 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1299 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1299 "/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(k_idx, l_idx, q_idx, local_inv_ds, local_q_cons_val, local_k_term_val, local_term_coeff, local_flux1, local_flux2) 
# 1299 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 1301 "/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
 
# 1311 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 1311 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc end parallel loop
# 1311 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 1311 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1311 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp end target teams loop
# 1311 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
 
 
# 1313 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1313 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 1313 "/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) 
# 1313 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 1313 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1313 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1313 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1313 "/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(k_idx, l_idx, q_idx, local_inv_ds, local_q_cons_val, local_k_term_val, local_term_coeff, local_flux1, local_flux2) 
# 1313 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 1315 "/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
 
# 1325 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 1325 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc end parallel loop
# 1325 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 1325 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1325 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp end target teams loop
# 1325 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
                        end if
                    else  ! NOT alt_soundspeed
 
# 1328 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1328 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 1328 "/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) 
# 1328 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 1328 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1328 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1328 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1328 "/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(j_adv, k_idx, l_idx, q_idx, local_inv_ds, local_term_coeff, local_flux1, local_flux2) 
# 1328 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 1330 "/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
 
# 1340 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 1340 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc end parallel loop
# 1340 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 1340 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1340 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp end target teams loop
# 1340 "/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
 
# 1362 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1362 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 1362 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc parallel loop collapse(3) gang vector default(present) private(j, k, l) 
# 1362 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 1362 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1362 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1362 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1362 "/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) 
# 1362 "/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
 
# 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 end parallel loop
# 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"
!$omp end target teams loop
# 1372 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
            end if
 
            if ((surface_tension .or. viscous) .or. chem_params%diffusion) then
 
# 1376 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1376 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 1376 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc parallel loop collapse(3) gang vector default(present) private(j, k, l) 
# 1376 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 1376 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1376 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1376 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1376 "/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) 
# 1376 "/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
 
# 1381 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 1381 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc loop seq 
# 1381 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 1381 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1381 "/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
 
# 1389 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 1389 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc loop seq 
# 1389 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 1389 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1389 "/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
 
# 1404 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 1404 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc end parallel loop
# 1404 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 1404 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1404 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp end target teams loop
# 1404 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
            end if
        else if (idir == 2) then  ! y-direction
            if (surface_tension) then
 
# 1408 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1408 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 1408 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc parallel loop collapse(3) gang vector default(present) private(j, k, l) 
# 1408 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 1408 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1408 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1408 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1408 "/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) 
# 1408 "/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
 
# 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 end parallel loop
# 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"
!$omp end target teams loop
# 1418 "/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 .or. dummy) 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
 
 
# 1433 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1433 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 1433 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc parallel loop collapse(2) gang vector default(present) private(i, j, l) 
# 1433 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 1433 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1433 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1433 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1433 "/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) 
# 1433 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
                    do l = 0, p
                        do j = 0, m
 
# 1436 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 1436 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc loop seq 
# 1436 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 1436 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1436 "/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
 
# 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 end parallel loop
# 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"
!$omp end target teams loop
# 1443 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
                end if
 
 
# 1446 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 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 parallel loop collapse(3) gang vector default(present) private(i, j, k, l) 
# 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"
 
# 1446 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1446 "/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) 
# 1446 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
                do l = 0, p
                    do k = 1, n
                        do j = 0, m
 
# 1450 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 1450 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc loop seq 
# 1450 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 1450 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1450 "/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
 
# 1458 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 1458 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc end parallel loop
# 1458 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 1458 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1458 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp end target teams loop
# 1458 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
            else
                if ((surface_tension .or. viscous) .or. chem_params%diffusion) then
 
# 1461 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1461 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 1461 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc parallel loop collapse(3) gang vector default(present) private(i, j, k, l) 
# 1461 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 1461 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1461 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1461 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1461 "/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) 
# 1461 "/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
 
# 1466 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 1466 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc loop seq 
# 1466 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 1466 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1466 "/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
 
# 1474 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 1474 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc loop seq 
# 1474 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 1474 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1474 "/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
 
# 1488 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 1488 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc end parallel loop
# 1488 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 1488 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1488 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp end target teams loop
# 1488 "/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
 
# 1495 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1495 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 1495 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc parallel loop collapse(3) gang vector default(present) private(i, j, k, l) 
# 1495 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 1495 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1495 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1495 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1495 "/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) 
# 1495 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
                    do l = 0, p
                        do k = 1, n
                            do j = 0, m
 
# 1499 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 1499 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc loop seq 
# 1499 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 1499 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1499 "/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
 
# 1507 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 1507 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc end parallel loop
# 1507 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 1507 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1507 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp end target teams loop
# 1507 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
 
                    if (viscous .or. dummy) then
 
# 1510 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1510 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 1510 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc parallel loop collapse(2) gang vector default(present) private(i, j, l) 
# 1510 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 1510 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1510 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1510 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1510 "/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) 
# 1510 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
                        do l = 0, p
                            do j = 0, m
 
# 1513 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 1513 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc loop seq 
# 1513 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 1513 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1513 "/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
 
# 1519 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 1519 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc end parallel loop
# 1519 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 1519 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1519 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp end target teams loop
# 1519 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
                    end if
                else
 
# 1522 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1522 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 1522 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc parallel loop collapse(3) gang vector default(present) private(i, j, k, l) 
# 1522 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 1522 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1522 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1522 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1522 "/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) 
# 1522 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
                    do l = 0, p
                        do k = 0, n
                            do j = 0, m
 
# 1526 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 1526 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc loop seq 
# 1526 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 1526 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1526 "/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
 
# 1534 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 1534 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc end parallel loop
# 1534 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 1534 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1534 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp end target teams loop
# 1534 "/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
 
# 1539 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1539 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 1539 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc parallel loop collapse(3) gang vector default(present) private(j, k, l) 
# 1539 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 1539 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1539 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1539 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1539 "/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) 
# 1539 "/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
 
# 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 end parallel loop
# 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"
!$omp end target teams loop
# 1549 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
            end if
 
            if ((surface_tension .or. viscous) .or. chem_params%diffusion) then
 
# 1553 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1553 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 1553 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc parallel loop collapse(3) gang vector default(present) private(i, j, k, l) 
# 1553 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 1553 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1553 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1553 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1553 "/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) 
# 1553 "/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
 
# 1558 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 1558 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc loop seq 
# 1558 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 1558 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1558 "/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
 
# 1566 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 1566 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc loop seq 
# 1566 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 1566 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1566 "/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
 
# 1580 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 1580 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc end parallel loop
# 1580 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 1580 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1580 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp end target teams loop
# 1580 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
            end if
 
            if (grid_geometry == 3) then
 
# 1584 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1584 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 1584 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc parallel loop collapse(3) gang vector default(present) private(j, k, l) 
# 1584 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 1584 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1584 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1584 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1584 "/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) 
# 1584 "/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
 
# 1598 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 1598 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc end parallel loop
# 1598 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 1598 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1598 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp end target teams loop
# 1598 "/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, vL_y, vL_z, vR_x, vR_y, vR_z, 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, vL_y, vL_z
        real(wp), dimension(idwbuff(1)%beg:,idwbuff(2)%beg:,idwbuff(3)%beg:,1:), intent(inout) :: vR_x, vR_y, vR_z
        integer, intent(in) :: norm_dir
        integer :: recon_dir  !< Coordinate direction of the reconstruction
        integer :: i, j, k, l
 
# 1615 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
            if (recon_type == weno_type .or. dummy) 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
 
                if (n > 0) then
                    if (p > 0) then
                        call s_weno (v_vf(iv%beg:iv%end), vl_x(:,:,:,iv%beg:iv%end), vl_y(:,:,:,iv%beg:iv%end), vl_z(:,:,:, &
                                           & iv%beg:iv%end), vr_x(:,:,:,iv%beg:iv%end), vr_y(:,:,:,iv%beg:iv%end), vr_z(:,:,:, &
                                           & iv%beg:iv%end), recon_dir, is1, is2, is3)
                    else
                        call s_weno (v_vf(iv%beg:iv%end), vl_x(:,:,:,iv%beg:iv%end), vl_y(:,:,:,iv%beg:iv%end), vl_z(:,:,:, &
                                           & :), vr_x(:,:,:,iv%beg:iv%end), vr_y(:,:,:,iv%beg:iv%end), vr_z(:,:,:,:), recon_dir, &
                                           & is1, is2, is3)
                    end if
                else
                    call s_weno (v_vf(iv%beg:iv%end), vl_x(:,:,:,iv%beg:iv%end), vl_y(:,:,:,:), vl_z(:,:,:,:), vr_x(:,:,:, &
                                       & iv%beg:iv%end), vr_y(:,:,:,:), vr_z(:,:,:,:), recon_dir, is1, is2, is3)
                end if
            end if
# 1615 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
            if (recon_type == muscl_type .or. dummy) 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
 
                if (n > 0) then
                    if (p > 0) then
                        call s_muscl (v_vf(iv%beg:iv%end), vl_x(:,:,:,iv%beg:iv%end), vl_y(:,:,:,iv%beg:iv%end), vl_z(:,:,:, &
                                           & iv%beg:iv%end), vr_x(:,:,:,iv%beg:iv%end), vr_y(:,:,:,iv%beg:iv%end), vr_z(:,:,:, &
                                           & iv%beg:iv%end), recon_dir, is1, is2, is3)
                    else
                        call s_muscl (v_vf(iv%beg:iv%end), vl_x(:,:,:,iv%beg:iv%end), vl_y(:,:,:,iv%beg:iv%end), vl_z(:,:,:, &
                                           & :), vr_x(:,:,:,iv%beg:iv%end), vr_y(:,:,:,iv%beg:iv%end), vr_z(:,:,:,:), recon_dir, &
                                           & is1, is2, is3)
                    end if
                else
                    call s_muscl (v_vf(iv%beg:iv%end), vl_x(:,:,:,iv%beg:iv%end), vl_y(:,:,:,:), vl_z(:,:,:,:), vr_x(:,:,:, &
                                       & iv%beg:iv%end), vr_y(:,:,:,:), vr_z(:,:,:,:), recon_dir, is1, is2, is3)
                end if
            end if
# 1647 "/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, vL_y, vL_z, vR_x, vR_y, vR_z, 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, vL_y, vL_z
        real(wp), dimension(idwbuff(1)%beg:,idwbuff(2)%beg:,idwbuff(3)%beg:,1:), intent(inout) :: vR_x, vR_y, vR_z
        integer, intent(in) :: norm_dir
        integer :: recon_dir  !< Coordinate direction of the WENO reconstruction
        integer :: i, j, k, l
        ! Reconstruction in s1-direction
 
# 1662 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
            if (recon_type == weno_type .or. dummy) 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
 
 
# 1677 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 1677 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc update device(is1, is2, is3, iv) 
# 1677 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 1677 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp target update to(is1, is2, is3, iv) 
# 1677 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
            end if
# 1662 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
            if (recon_type == muscl_type .or. dummy) 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
 
 
# 1677 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 1677 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc update device(is1, is2, is3, iv) 
# 1677 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 1677 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp target update to(is1, is2, is3, iv) 
# 1677 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
            end if
# 1680 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
        if (recon_dir == 1) then
 
# 1682 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1682 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 1682 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc parallel loop collapse(4) gang vector default(present) private(i, j, k, l) 
# 1682 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 1682 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1682 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1682 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1682 "/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) 
# 1682 "/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
 
# 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 end parallel loop
# 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"
!$omp end target teams loop
# 1693 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
        else if (recon_dir == 2) then
 
# 1695 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1695 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 1695 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc parallel loop collapse(4) gang vector default(present) private(i, j, k, l) 
# 1695 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 1695 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1695 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1695 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1695 "/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) 
# 1695 "/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_y(j, k, l, i) = v_vf(i)%sf(k, j, l)
                            vr_y(j, k, l, i) = v_vf(i)%sf(k, j, l)
                        end do
                    end do
                end do
            end do
 
# 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 end parallel loop
# 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"
!$omp end target teams loop
# 1706 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
        else if (recon_dir == 3) then
 
# 1708 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1708 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 1708 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc parallel loop collapse(4) gang vector default(present) private(i, j, k, l) 
# 1708 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 1708 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1708 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1708 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1708 "/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) 
# 1708 "/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_z(j, k, l, i) = v_vf(i)%sf(l, k, j)
                            vr_z(j, k, l, i) = v_vf(i)%sf(l, k, j)
                        end do
                    end do
                end do
            end do
 
# 1719 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 1719 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc end parallel loop
# 1719 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 1719 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1719 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp end target teams loop
# 1719 "/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
# 1735 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    block
# 1735 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        use iso_fortran_env, only: output_unit
# 1735 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1735 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        print *, 'm_rhs.fpp:1735: ', '@:DEALLOCATE(q_cons_qp%vf(j)%sf)'
# 1735 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1735 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        call flush (output_unit)
# 1735 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    end block
# 1735 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 1735 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1735 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 1735 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc exit data delete(q_cons_qp%vf(j)%sf) 
# 1735 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 1735 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp target exit data map(release:q_cons_qp%vf(j)%sf) 
# 1735 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 1735 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    deallocate (q_cons_qp%vf(j)%sf)
#ifdef MFC_DEBUG
# 1736 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    block
# 1736 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        use iso_fortran_env, only: output_unit
# 1736 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1736 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        print *, 'm_rhs.fpp:1736: ', '@:DEALLOCATE(q_prim_qp%vf(j)%sf)'
# 1736 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1736 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        call flush (output_unit)
# 1736 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    end block
# 1736 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 1736 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1736 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 1736 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc exit data delete(q_prim_qp%vf(j)%sf) 
# 1736 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 1736 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp target exit data map(release:q_prim_qp%vf(j)%sf) 
# 1736 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 1736 "/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
# 1747 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    block
# 1747 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        use iso_fortran_env, only: output_unit
# 1747 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1747 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        print *, 'm_rhs.fpp:1747: ', '@:DEALLOCATE(q_cons_qp%vf(j)%sf)'
# 1747 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1747 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        call flush (output_unit)
# 1747 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    end block
# 1747 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 1747 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1747 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 1747 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc exit data delete(q_cons_qp%vf(j)%sf) 
# 1747 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 1747 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp target exit data map(release:q_cons_qp%vf(j)%sf) 
# 1747 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 1747 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    deallocate (q_cons_qp%vf(j)%sf)
#ifdef MFC_DEBUG
# 1748 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    block
# 1748 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        use iso_fortran_env, only: output_unit
# 1748 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1748 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        print *, 'm_rhs.fpp:1748: ', '@:DEALLOCATE(q_prim_qp%vf(j)%sf)'
# 1748 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1748 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        call flush (output_unit)
# 1748 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    end block
# 1748 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 1748 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1748 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 1748 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc exit data delete(q_prim_qp%vf(j)%sf) 
# 1748 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 1748 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp target exit data map(release:q_prim_qp%vf(j)%sf) 
# 1748 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 1748 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    deallocate (q_prim_qp%vf(j)%sf)
            end do
        end if
 
#ifdef MFC_DEBUG
# 1752 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    block
# 1752 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        use iso_fortran_env, only: output_unit
# 1752 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1752 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        print *, 'm_rhs.fpp:1752: ', '@:DEALLOCATE(q_cons_qp%vf, q_prim_qp%vf)'
# 1752 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1752 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        call flush (output_unit)
# 1752 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    end block
# 1752 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 1752 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1752 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 1752 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc exit data delete(q_cons_qp%vf, q_prim_qp%vf) 
# 1752 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 1752 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp target exit data map(release:q_cons_qp%vf, q_prim_qp%vf) 
# 1752 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 1752 "/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
# 1755 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    block
# 1755 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        use iso_fortran_env, only: output_unit
# 1755 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1755 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        print *, 'm_rhs.fpp:1755: ', '@:DEALLOCATE(qL_rsx_vf, qR_rsx_vf)'
# 1755 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1755 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        call flush (output_unit)
# 1755 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    end block
# 1755 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 1755 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1755 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 1755 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc exit data delete(qL_rsx_vf, qR_rsx_vf) 
# 1755 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 1755 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp target exit data map(release:qL_rsx_vf, qR_rsx_vf) 
# 1755 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 1755 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    deallocate (ql_rsx_vf, qr_rsx_vf)
 
            if (n > 0) then
#ifdef MFC_DEBUG
# 1758 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    block
# 1758 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        use iso_fortran_env, only: output_unit
# 1758 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1758 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        print *, 'm_rhs.fpp:1758: ', '@:DEALLOCATE(qL_rsy_vf, qR_rsy_vf)'
# 1758 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1758 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        call flush (output_unit)
# 1758 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    end block
# 1758 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 1758 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1758 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 1758 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc exit data delete(qL_rsy_vf, qR_rsy_vf) 
# 1758 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 1758 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp target exit data map(release:qL_rsy_vf, qR_rsy_vf) 
# 1758 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 1758 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    deallocate (ql_rsy_vf, qr_rsy_vf)
            end if
 
            if (p > 0) then
#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(qL_rsz_vf, qR_rsz_vf)'
# 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(qL_rsz_vf, qR_rsz_vf) 
# 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:qL_rsz_vf, qR_rsz_vf) 
# 1762 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 1762 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    deallocate (ql_rsz_vf, qr_rsz_vf)
            end if
 
            if (viscous) 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_dx_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_dx_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_dx_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_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
# 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_dy_qp(1)%vf(l)%sf)'
# 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_dy_qp(1)%vf(l)%sf) 
# 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_dy_qp(1)%vf(l)%sf) 
# 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_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
# 1777 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    block
# 1777 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        use iso_fortran_env, only: output_unit
# 1777 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1777 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        print *, 'm_rhs.fpp:1777: ', '@:DEALLOCATE(dq_prim_dz_qp(1)%vf(l)%sf)'
# 1777 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1777 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        call flush (output_unit)
# 1777 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    end block
# 1777 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 1777 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1777 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 1777 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc exit data delete(dq_prim_dz_qp(1)%vf(l)%sf) 
# 1777 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 1777 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp target exit data map(release:dq_prim_dz_qp(1)%vf(l)%sf) 
# 1777 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 1777 "/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
# 1782 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    block
# 1782 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        use iso_fortran_env, only: output_unit
# 1782 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1782 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        print *, 'm_rhs.fpp:1782: ', '@:DEALLOCATE(dq_prim_dx_qp(1)%vf)'
# 1782 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1782 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        call flush (output_unit)
# 1782 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    end block
# 1782 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 1782 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1782 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 1782 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc exit data delete(dq_prim_dx_qp(1)%vf) 
# 1782 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 1782 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp target exit data map(release:dq_prim_dx_qp(1)%vf) 
# 1782 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 1782 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    deallocate (dq_prim_dx_qp(1)%vf)
#ifdef MFC_DEBUG
# 1783 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    block
# 1783 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        use iso_fortran_env, only: output_unit
# 1783 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1783 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        print *, 'm_rhs.fpp:1783: ', '@:DEALLOCATE(dq_prim_dy_qp(1)%vf)'
# 1783 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1783 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        call flush (output_unit)
# 1783 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    end block
# 1783 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 1783 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1783 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 1783 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc exit data delete(dq_prim_dy_qp(1)%vf) 
# 1783 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 1783 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp target exit data map(release:dq_prim_dy_qp(1)%vf) 
# 1783 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 1783 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    deallocate (dq_prim_dy_qp(1)%vf)
#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(dq_prim_dz_qp(1)%vf)'
# 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(dq_prim_dz_qp(1)%vf) 
# 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:dq_prim_dz_qp(1)%vf) 
# 1784 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 1784 "/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
# 1788 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    block
# 1788 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        use iso_fortran_env, only: output_unit
# 1788 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1788 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        print *, 'm_rhs.fpp:1788: ', '@:DEALLOCATE(dqL_prim_dx_n(i)%vf(l)%sf)'
# 1788 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1788 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        call flush (output_unit)
# 1788 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    end block
# 1788 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 1788 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1788 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 1788 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc exit data delete(dqL_prim_dx_n(i)%vf(l)%sf) 
# 1788 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 1788 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp target exit data map(release:dqL_prim_dx_n(i)%vf(l)%sf) 
# 1788 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 1788 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    deallocate (dql_prim_dx_n(i)%vf(l)%sf)
#ifdef MFC_DEBUG
# 1789 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    block
# 1789 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        use iso_fortran_env, only: output_unit
# 1789 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1789 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        print *, 'm_rhs.fpp:1789: ', '@:DEALLOCATE(dqR_prim_dx_n(i)%vf(l)%sf)'
# 1789 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1789 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        call flush (output_unit)
# 1789 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    end block
# 1789 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 1789 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1789 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 1789 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc exit data delete(dqR_prim_dx_n(i)%vf(l)%sf) 
# 1789 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 1789 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp target exit data map(release:dqR_prim_dx_n(i)%vf(l)%sf) 
# 1789 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 1789 "/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
# 1794 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    block
# 1794 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        use iso_fortran_env, only: output_unit
# 1794 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1794 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        print *, 'm_rhs.fpp:1794: ', '@:DEALLOCATE(dqL_prim_dy_n(i)%vf(l)%sf)'
# 1794 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1794 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        call flush (output_unit)
# 1794 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    end block
# 1794 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 1794 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1794 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 1794 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc exit data delete(dqL_prim_dy_n(i)%vf(l)%sf) 
# 1794 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 1794 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp target exit data map(release:dqL_prim_dy_n(i)%vf(l)%sf) 
# 1794 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 1794 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    deallocate (dql_prim_dy_n(i)%vf(l)%sf)
#ifdef MFC_DEBUG
# 1795 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    block
# 1795 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        use iso_fortran_env, only: output_unit
# 1795 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1795 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        print *, 'm_rhs.fpp:1795: ', '@:DEALLOCATE(dqR_prim_dy_n(i)%vf(l)%sf)'
# 1795 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1795 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        call flush (output_unit)
# 1795 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    end block
# 1795 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 1795 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1795 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 1795 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc exit data delete(dqR_prim_dy_n(i)%vf(l)%sf) 
# 1795 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 1795 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp target exit data map(release:dqR_prim_dy_n(i)%vf(l)%sf) 
# 1795 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 1795 "/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
# 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(dqL_prim_dz_n(i)%vf(l)%sf)'
# 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(dqL_prim_dz_n(i)%vf(l)%sf) 
# 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:dqL_prim_dz_n(i)%vf(l)%sf) 
# 1801 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 1801 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    deallocate (dql_prim_dz_n(i)%vf(l)%sf)
#ifdef MFC_DEBUG
# 1802 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    block
# 1802 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        use iso_fortran_env, only: output_unit
# 1802 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1802 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        print *, 'm_rhs.fpp:1802: ', '@:DEALLOCATE(dqR_prim_dz_n(i)%vf(l)%sf)'
# 1802 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1802 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        call flush (output_unit)
# 1802 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    end block
# 1802 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 1802 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1802 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 1802 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc exit data delete(dqR_prim_dz_n(i)%vf(l)%sf) 
# 1802 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 1802 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp target exit data map(release:dqR_prim_dz_n(i)%vf(l)%sf) 
# 1802 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 1802 "/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
# 1806 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    block
# 1806 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        use iso_fortran_env, only: output_unit
# 1806 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1806 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        print *, 'm_rhs.fpp:1806: ', '@:DEALLOCATE(dqL_prim_dx_n(i)%vf)'
# 1806 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1806 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        call flush (output_unit)
# 1806 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    end block
# 1806 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 1806 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1806 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 1806 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc exit data delete(dqL_prim_dx_n(i)%vf) 
# 1806 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 1806 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp target exit data map(release:dqL_prim_dx_n(i)%vf) 
# 1806 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 1806 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    deallocate (dql_prim_dx_n(i)%vf)
#ifdef MFC_DEBUG
# 1807 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    block
# 1807 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        use iso_fortran_env, only: output_unit
# 1807 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1807 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        print *, 'm_rhs.fpp:1807: ', '@:DEALLOCATE(dqL_prim_dy_n(i)%vf)'
# 1807 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1807 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        call flush (output_unit)
# 1807 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    end block
# 1807 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 1807 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1807 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 1807 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc exit data delete(dqL_prim_dy_n(i)%vf) 
# 1807 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 1807 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp target exit data map(release:dqL_prim_dy_n(i)%vf) 
# 1807 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 1807 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    deallocate (dql_prim_dy_n(i)%vf)
#ifdef MFC_DEBUG
# 1808 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    block
# 1808 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        use iso_fortran_env, only: output_unit
# 1808 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1808 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        print *, 'm_rhs.fpp:1808: ', '@:DEALLOCATE(dqL_prim_dz_n(i)%vf)'
# 1808 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1808 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        call flush (output_unit)
# 1808 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    end block
# 1808 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 1808 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1808 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 1808 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc exit data delete(dqL_prim_dz_n(i)%vf) 
# 1808 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 1808 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp target exit data map(release:dqL_prim_dz_n(i)%vf) 
# 1808 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 1808 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    deallocate (dql_prim_dz_n(i)%vf)
#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(dqR_prim_dx_n(i)%vf)'
# 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(dqR_prim_dx_n(i)%vf) 
# 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:dqR_prim_dx_n(i)%vf) 
# 1809 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 1809 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    deallocate (dqr_prim_dx_n(i)%vf)
#ifdef MFC_DEBUG
# 1810 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    block
# 1810 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        use iso_fortran_env, only: output_unit
# 1810 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1810 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        print *, 'm_rhs.fpp:1810: ', '@:DEALLOCATE(dqR_prim_dy_n(i)%vf)'
# 1810 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1810 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        call flush (output_unit)
# 1810 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    end block
# 1810 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 1810 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1810 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 1810 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc exit data delete(dqR_prim_dy_n(i)%vf) 
# 1810 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 1810 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp target exit data map(release:dqR_prim_dy_n(i)%vf) 
# 1810 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 1810 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    deallocate (dqr_prim_dy_n(i)%vf)
#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(dqR_prim_dz_n(i)%vf)'
# 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(dqR_prim_dz_n(i)%vf) 
# 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:dqR_prim_dz_n(i)%vf) 
# 1811 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 1811 "/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
# 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(dqL_rsx_vf, dqR_rsx_vf)'
# 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(dqL_rsx_vf, dqR_rsx_vf) 
# 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:dqL_rsx_vf, dqR_rsx_vf) 
# 1815 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 1815 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    deallocate (dql_rsx_vf, dqr_rsx_vf)
 
                    if (n > 0) then
#ifdef MFC_DEBUG
# 1818 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    block
# 1818 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        use iso_fortran_env, only: output_unit
# 1818 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1818 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        print *, 'm_rhs.fpp:1818: ', '@:DEALLOCATE(dqL_rsy_vf, dqR_rsy_vf)'
# 1818 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1818 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        call flush (output_unit)
# 1818 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    end block
# 1818 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 1818 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1818 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 1818 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc exit data delete(dqL_rsy_vf, dqR_rsy_vf) 
# 1818 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 1818 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp target exit data map(release:dqL_rsy_vf, dqR_rsy_vf) 
# 1818 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 1818 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    deallocate (dql_rsy_vf, dqr_rsy_vf)
                    end if
 
                    if (p > 0) then
#ifdef MFC_DEBUG
# 1822 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    block
# 1822 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        use iso_fortran_env, only: output_unit
# 1822 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1822 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        print *, 'm_rhs.fpp:1822: ', '@:DEALLOCATE(dqL_rsz_vf, dqR_rsz_vf)'
# 1822 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1822 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        call flush (output_unit)
# 1822 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    end block
# 1822 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 1822 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1822 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 1822 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc exit data delete(dqL_rsz_vf, dqR_rsz_vf) 
# 1822 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 1822 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp target exit data map(release:dqL_rsz_vf, dqR_rsz_vf) 
# 1822 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 1822 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    deallocate (dql_rsz_vf, dqr_rsz_vf)
                    end if
                end if
 
                if (cyl_coord) then
                    do i = 1, num_dims
#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(tau_re_vf(eqn_idx%cont%end + i)%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(tau_re_vf(eqn_idx%cont%end + i)%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:tau_re_vf(eqn_idx%cont%end + i)%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 (tau_re_vf(eqn_idx%cont%end + i)%sf)
                    end do
#ifdef MFC_DEBUG
# 1830 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    block
# 1830 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        use iso_fortran_env, only: output_unit
# 1830 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1830 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        print *, 'm_rhs.fpp:1830: ', '@:DEALLOCATE(tau_re_vf(eqn_idx%E)%sf)'
# 1830 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1830 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        call flush (output_unit)
# 1830 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    end block
# 1830 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 1830 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1830 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 1830 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc exit data delete(tau_re_vf(eqn_idx%E)%sf) 
# 1830 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 1830 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp target exit data map(release:tau_re_vf(eqn_idx%E)%sf) 
# 1830 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 1830 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    deallocate (tau_re_vf(eqn_idx%E)%sf)
#ifdef MFC_DEBUG
# 1831 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    block
# 1831 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        use iso_fortran_env, only: output_unit
# 1831 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1831 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        print *, 'm_rhs.fpp:1831: ', '@:DEALLOCATE(tau_re_vf)'
# 1831 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1831 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        call flush (output_unit)
# 1831 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    end block
# 1831 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 1831 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1831 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 1831 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc exit data delete(tau_re_vf) 
# 1831 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 1831 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp target exit data map(release:tau_re_vf) 
# 1831 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 1831 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    deallocate (tau_re_vf)
                end if
            end if
#ifdef MFC_DEBUG
# 1834 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    block
# 1834 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        use iso_fortran_env, only: output_unit
# 1834 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1834 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        print *, 'm_rhs.fpp:1834: ', '@:DEALLOCATE(dqL_prim_dx_n, dqL_prim_dy_n, dqL_prim_dz_n)'
# 1834 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1834 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        call flush (output_unit)
# 1834 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    end block
# 1834 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 1834 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1834 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 1834 "/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) 
# 1834 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 1834 "/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) 
# 1834 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 1834 "/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
# 1835 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    block
# 1835 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        use iso_fortran_env, only: output_unit
# 1835 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1835 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        print *, 'm_rhs.fpp:1835: ', '@:DEALLOCATE(dqR_prim_dx_n, dqR_prim_dy_n, dqR_prim_dz_n)'
# 1835 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1835 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        call flush (output_unit)
# 1835 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    end block
# 1835 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 1835 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1835 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 1835 "/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) 
# 1835 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 1835 "/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) 
# 1835 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 1835 "/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
 
# 1839 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 1839 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc exit data delete(alf_sum%sf) 
# 1839 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 1839 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp target exit data map(release:alf_sum%sf) 
# 1839 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
            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
# 1849 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    block
# 1849 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        use iso_fortran_env, only: output_unit
# 1849 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1849 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        print *, 'm_rhs.fpp:1849: ', '@:DEALLOCATE(flux_gsrc_n(i)%vf(l)%sf)'
# 1849 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1849 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        call flush (output_unit)
# 1849 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    end block
# 1849 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 1849 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1849 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 1849 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc exit data delete(flux_gsrc_n(i)%vf(l)%sf) 
# 1849 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 1849 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp target exit data map(release:flux_gsrc_n(i)%vf(l)%sf) 
# 1849 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 1849 "/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
# 1853 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    block
# 1853 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        use iso_fortran_env, only: output_unit
# 1853 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1853 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        print *, 'm_rhs.fpp:1853: ', '@:DEALLOCATE(flux_n(i)%vf(l)%sf)'
# 1853 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1853 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        call flush (output_unit)
# 1853 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    end block
# 1853 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 1853 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1853 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 1853 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc exit data delete(flux_n(i)%vf(l)%sf) 
# 1853 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 1853 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp target exit data map(release:flux_n(i)%vf(l)%sf) 
# 1853 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 1853 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    deallocate (flux_n(i)%vf(l)%sf)
#ifdef MFC_DEBUG
# 1854 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    block
# 1854 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        use iso_fortran_env, only: output_unit
# 1854 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1854 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        print *, 'm_rhs.fpp:1854: ', '@:DEALLOCATE(flux_gsrc_n(i)%vf(l)%sf)'
# 1854 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1854 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        call flush (output_unit)
# 1854 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    end block
# 1854 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 1854 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1854 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 1854 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc exit data delete(flux_gsrc_n(i)%vf(l)%sf) 
# 1854 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 1854 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp target exit data map(release:flux_gsrc_n(i)%vf(l)%sf) 
# 1854 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 1854 "/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
# 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_src_n(i)%vf(l)%sf)'
# 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_src_n(i)%vf(l)%sf) 
# 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_src_n(i)%vf(l)%sf) 
# 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_src_n(i)%vf(l)%sf)
                        end do
                    end if
 
                    if (chem_params%diffusion .and. .not. viscous) then
#ifdef MFC_DEBUG
# 1864 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    block
# 1864 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        use iso_fortran_env, only: output_unit
# 1864 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1864 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        print *, 'm_rhs.fpp:1864: ', '@:DEALLOCATE(flux_src_n(i)%vf(eqn_idx%E)%sf)'
# 1864 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1864 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        call flush (output_unit)
# 1864 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    end block
# 1864 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 1864 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1864 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 1864 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc exit data delete(flux_src_n(i)%vf(eqn_idx%E)%sf) 
# 1864 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 1864 "/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) 
# 1864 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 1864 "/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 == 1 .or. riemann_solver == 4) then
                        do l = eqn_idx%adv%beg + 1, eqn_idx%adv%end
#ifdef MFC_DEBUG
# 1869 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    block
# 1869 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        use iso_fortran_env, only: output_unit
# 1869 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1869 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        print *, 'm_rhs.fpp:1869: ', '@:DEALLOCATE(flux_src_n(i)%vf(l)%sf)'
# 1869 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1869 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        call flush (output_unit)
# 1869 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    end block
# 1869 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 1869 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1869 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 1869 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc exit data delete(flux_src_n(i)%vf(l)%sf) 
# 1869 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 1869 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp target exit data map(release:flux_src_n(i)%vf(l)%sf) 
# 1869 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 1869 "/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
# 1877 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    block
# 1877 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        use iso_fortran_env, only: output_unit
# 1877 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1877 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        print *, 'm_rhs.fpp:1877: ', '@:DEALLOCATE(flux_src_n(i)%vf(eqn_idx%adv%beg)%sf)'
# 1877 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1877 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        call flush (output_unit)
# 1877 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    end block
# 1877 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 1877 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1877 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 1877 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc exit data delete(flux_src_n(i)%vf(eqn_idx%adv%beg)%sf) 
# 1877 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 1877 "/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) 
# 1877 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 1877 "/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
# 1880 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    block
# 1880 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        use iso_fortran_env, only: output_unit
# 1880 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1880 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        print *, 'm_rhs.fpp:1880: ', '@:DEALLOCATE(flux_n(i)%vf, flux_src_n(i)%vf, flux_gsrc_n(i)%vf)'
# 1880 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1880 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        call flush (output_unit)
# 1880 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    end block
# 1880 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 1880 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1880 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 1880 "/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) 
# 1880 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 1880 "/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) 
# 1880 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 1880 "/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
# 1883 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    block
# 1883 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        use iso_fortran_env, only: output_unit
# 1883 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1883 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        print *, 'm_rhs.fpp:1883: ', '@:DEALLOCATE(flux_n, flux_src_n, flux_gsrc_n)'
# 1883 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1883 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        call flush (output_unit)
# 1883 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    end block
# 1883 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 1883 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1883 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 1883 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc exit data delete(flux_n, flux_src_n, flux_gsrc_n) 
# 1883 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 1883 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp target exit data map(release:flux_n, flux_src_n, flux_gsrc_n) 
# 1883 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 1883 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    deallocate (flux_n, flux_src_n, flux_gsrc_n)
        end if
 
    end subroutine s_finalize_rhs_module
 
end module m_rhs