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"
 
# 207 "/home/runner/work/MFC/MFC/src/common/include/omp_macros.fpp"
 
# 232 "/home/runner/work/MFC/MFC/src/common/include/omp_macros.fpp"
 
# 243 "/home/runner/work/MFC/MFC/src/common/include/omp_macros.fpp"
 
# 245 "/home/runner/work/MFC/MFC/src/common/include/omp_macros.fpp"
# 255 "/home/runner/work/MFC/MFC/src/common/include/omp_macros.fpp"
 
# 283 "/home/runner/work/MFC/MFC/src/common/include/omp_macros.fpp"
 
# 293 "/home/runner/work/MFC/MFC/src/common/include/omp_macros.fpp"
 
# 303 "/home/runner/work/MFC/MFC/src/common/include/omp_macros.fpp"
 
# 312 "/home/runner/work/MFC/MFC/src/common/include/omp_macros.fpp"
 
# 329 "/home/runner/work/MFC/MFC/src/common/include/omp_macros.fpp"
 
# 339 "/home/runner/work/MFC/MFC/src/common/include/omp_macros.fpp"
 
# 346 "/home/runner/work/MFC/MFC/src/common/include/omp_macros.fpp"
 
# 352 "/home/runner/work/MFC/MFC/src/common/include/omp_macros.fpp"
 
# 358 "/home/runner/work/MFC/MFC/src/common/include/omp_macros.fpp"
 
# 364 "/home/runner/work/MFC/MFC/src/common/include/omp_macros.fpp"
 
# 370 "/home/runner/work/MFC/MFC/src/common/include/omp_macros.fpp"
 
# 376 "/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"
 
# 192 "/home/runner/work/MFC/MFC/src/common/include/acc_macros.fpp"
 
# 213 "/home/runner/work/MFC/MFC/src/common/include/acc_macros.fpp"
 
# 241 "/home/runner/work/MFC/MFC/src/common/include/acc_macros.fpp"
 
# 256 "/home/runner/work/MFC/MFC/src/common/include/acc_macros.fpp"
 
# 266 "/home/runner/work/MFC/MFC/src/common/include/acc_macros.fpp"
 
# 275 "/home/runner/work/MFC/MFC/src/common/include/acc_macros.fpp"
 
# 291 "/home/runner/work/MFC/MFC/src/common/include/acc_macros.fpp"
 
# 301 "/home/runner/work/MFC/MFC/src/common/include/acc_macros.fpp"
 
# 308 "/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
 
# 21 "/home/runner/work/MFC/MFC/src/common/include/parallel_macros.fpp"
 
# 37 "/home/runner/work/MFC/MFC/src/common/include/parallel_macros.fpp"
 
# 50 "/home/runner/work/MFC/MFC/src/common/include/parallel_macros.fpp"
 
# 104 "/home/runner/work/MFC/MFC/src/common/include/parallel_macros.fpp"
 
# 119 "/home/runner/work/MFC/MFC/src/common/include/parallel_macros.fpp"
 
# 130 "/home/runner/work/MFC/MFC/src/common/include/parallel_macros.fpp"
 
# 143 "/home/runner/work/MFC/MFC/src/common/include/parallel_macros.fpp"
 
# 171 "/home/runner/work/MFC/MFC/src/common/include/parallel_macros.fpp"
 
# 182 "/home/runner/work/MFC/MFC/src/common/include/parallel_macros.fpp"
 
# 193 "/home/runner/work/MFC/MFC/src/common/include/parallel_macros.fpp"
 
# 204 "/home/runner/work/MFC/MFC/src/common/include/parallel_macros.fpp"
 
# 214 "/home/runner/work/MFC/MFC/src/common/include/parallel_macros.fpp"
 
# 225 "/home/runner/work/MFC/MFC/src/common/include/parallel_macros.fpp"
 
# 236 "/home/runner/work/MFC/MFC/src/common/include/parallel_macros.fpp"
 
# 246 "/home/runner/work/MFC/MFC/src/common/include/parallel_macros.fpp"
 
# 252 "/home/runner/work/MFC/MFC/src/common/include/parallel_macros.fpp"
 
# 258 "/home/runner/work/MFC/MFC/src/common/include/parallel_macros.fpp"
 
# 264 "/home/runner/work/MFC/MFC/src/common/include/parallel_macros.fpp"
 
# 270 "/home/runner/work/MFC/MFC/src/common/include/parallel_macros.fpp"
 
# 272 "/home/runner/work/MFC/MFC/src/common/include/parallel_macros.fpp"
# 273 "/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.
# 63 "/home/runner/work/MFC/MFC/src/common/include/macros.fpp"
 
# 81 "/home/runner/work/MFC/MFC/src/common/include/macros.fpp"
 
# 88 "/home/runner/work/MFC/MFC/src/common/include/macros.fpp"
 
# 111 "/home/runner/work/MFC/MFC/src/common/include/macros.fpp"
 
# 127 "/home/runner/work/MFC/MFC/src/common/include/macros.fpp"
 
# 153 "/home/runner/work/MFC/MFC/src/common/include/macros.fpp"
 
# 159 "/home/runner/work/MFC/MFC/src/common/include/macros.fpp"
 
# 167 "/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        !< definitions of the derived types
 
    use m_global_parameters    !< definitions of the global parameters
 
    use m_mpi_proxy            !< message passing interface (mpi) module proxy
 
    use m_variables_conversion !< state variables type conversion procedures
 
    use m_weno                 !< weighted and essentially non-oscillatory (weno)
                               !! schemes for spatial reconstruction of variables
 
    use m_muscl                !< monotonic upstream-centered (muscl)
                               !! schemes for conservation laws
 
    use m_riemann_solvers      !< exact and approximate riemann problem solvers
 
    use m_cbc                  !< characteristic boundary conditions (cbc)
 
    use m_bubbles_ee           !< ensemble-averaged bubble dynamics routines
 
    use m_bubbles_el
 
    use m_qbmm                 !< moment inversion
 
    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
 
    !! This variable contains the WENO-reconstructed values of the cell-average
    !! conservative variables, which are located in q_cons_vf, at cell-interior
    !! Gaussian quadrature points (QP).
    type(vector_field) :: q_cons_qp !<
 
# 71 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 71 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc declare create(q_cons_qp) 
# 71 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 71 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp declare target (q_cons_qp) 
# 71 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
 
    !! The primitive variables at cell-interior Gaussian quadrature points. These
    !! are calculated from the conservative variables and gradient magnitude (GM)
    !! of the volume fractions, q_cons_qp and gm_alpha_qp, respectively.
    type(vector_field) :: q_prim_qp !<
 
# 77 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 77 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc declare create(q_prim_qp) 
# 77 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 77 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp declare target (q_prim_qp) 
# 77 "/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
 
# 86 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 86 "/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) 
# 86 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 86 "/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) 
# 86 "/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)
 
# 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(dqL_prim_dx_n, dqL_prim_dy_n, dqL_prim_dz_n) 
# 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 (dqL_prim_dx_n, dqL_prim_dy_n, dqL_prim_dz_n) 
# 97 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
 
# 98 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 98 "/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) 
# 98 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 98 "/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) 
# 98 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
#endif
    !> @}
 
    type(scalar_field), allocatable, dimension(:) :: tau_re_vf
 
# 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(tau_Re_vf) 
# 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 (tau_Re_vf) 
# 103 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
 
    type(vector_field) :: gm_alpha_qp  !<
    !! The gradient magnitude of the volume fractions at cell-interior Gaussian
    !! quadrature points. gm_alpha_qp is calculated from individual first-order
    !! spatial derivatives located in dq_prim_ds_qp.
 
 
# 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(gm_alpha_qp) 
# 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 (gm_alpha_qp) 
# 110 "/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 gradient magnitude of volume fractions, located in gm_alpha_qp.
    !> @{
    type(vector_field), allocatable, dimension(:) :: gm_alphal_n
    type(vector_field), allocatable, dimension(:) :: gm_alphar_n
#if defined(MFC_OpenACC)
 
# 118 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 118 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc declare create(gm_alphaL_n, gm_alphaR_n) 
# 118 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 118 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp declare target (gm_alphaL_n, gm_alphaR_n) 
# 118 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
#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)
 
# 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 declare create(flux_n, flux_src_n, flux_gsrc_n) 
# 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 declare target (flux_n, flux_src_n, flux_gsrc_n) 
# 131 "/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)
 
# 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 declare create(qL_prim, qR_prim) 
# 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 declare target (qL_prim, qR_prim) 
# 138 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
#endif
 
    type(int_bounds_info) :: iv !< Vector field indical bounds
 
# 142 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 142 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc declare create(iv) 
# 142 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 142 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp declare target (iv) 
# 142 "/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
 
# 147 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 147 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc declare create(irx, iry, irz) 
# 147 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 147 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp declare target (irx, iry, irz) 
# 147 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
 
    type(int_bounds_info) :: is1, is2, is3
    !> @}
 
# 151 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 151 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc declare create(is1, is2, is3) 
# 151 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 151 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp declare target (is1, is2, is3) 
# 151 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
 
    !> @name Saved fluxes for testing
    !> @{
    type(scalar_field) :: alf_sum
    !> @}
 
# 157 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 157 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc declare create(alf_sum) 
# 157 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 157 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp declare target (alf_sum) 
# 157 "/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
 
# 162 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 162 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc declare create(blkmod1, blkmod2, alpha1, alpha2, Kterm) 
# 162 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 162 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp declare target (blkmod1, blkmod2, alpha1, alpha2, Kterm) 
# 162 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
 
# 163 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 163 "/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) 
# 163 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 163 "/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) 
# 163 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
 
# 164 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 164 "/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) 
# 164 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 164 "/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) 
# 164 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
 
    real(wp), allocatable, dimension(:, :, :) :: nbub !< Bubble number density
 
# 167 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 167 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc declare create(nbub) 
# 167 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 167 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp declare target (nbub) 
# 167 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
 
contains
 
    !> The computation of parameters, the allocation of memory,
        !!      the association of pointers and/or the execution of any
        !!      other procedures that are necessary to setup the module.
    impure subroutine s_initialize_rhs_module
 
        integer :: i, j, k, l, id !< Generic loop iterators
 
 
# 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(idwbuff) 
# 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:idwbuff) 
# 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 update device(idwbuff) 
# 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 update to(idwbuff) 
# 179 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
 
#ifdef MFC_DEBUG
# 181 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    block
# 181 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        use iso_fortran_env, only: output_unit
# 181 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 181 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        print *, 'm_rhs.fpp:181: ', '@:ALLOCATE(q_cons_qp%vf(1:sys_size))'
# 181 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 181 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        call flush (output_unit)
# 181 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    end block
# 181 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 181 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    allocate (q_cons_qp%vf(1:sys_size))
# 181 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 181 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 181 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 181 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc enter data create(q_cons_qp%vf) 
# 181 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 181 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp target enter data map(always,alloc:q_cons_qp%vf) 
# 181 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
#ifdef MFC_DEBUG
# 182 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    block
# 182 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        use iso_fortran_env, only: output_unit
# 182 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 182 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        print *, 'm_rhs.fpp:182: ', '@:ALLOCATE(q_prim_qp%vf(1:sys_size))'
# 182 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 182 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        call flush (output_unit)
# 182 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    end block
# 182 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 182 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    allocate (q_prim_qp%vf(1:sys_size))
# 182 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 182 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 182 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 182 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc enter data create(q_prim_qp%vf) 
# 182 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 182 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp target enter data map(always,alloc:q_prim_qp%vf) 
# 182 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
 
        if (.not. igr) then
            do l = 1, sys_size
#ifdef MFC_DEBUG
# 186 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    block
# 186 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        use iso_fortran_env, only: output_unit
# 186 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 186 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        print *, 'm_rhs.fpp:186: ', '@: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))'
# 186 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 186 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        call flush (output_unit)
# 186 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    end block
# 186 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 186 "/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))
# 186 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 186 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 186 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 186 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc enter data create(q_cons_qp%vf(l)%sf) 
# 186 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 186 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp target enter data map(always,alloc:q_cons_qp%vf(l)%sf) 
# 186 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
            end do
            do l = mom_idx%beg, e_idx
#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(q_prim_qp%vf(l)%sf(idwbuff(1)%beg:idwbuff(1)%end, idwbuff(2)%beg:idwbuff(2)%end, idwbuff(3)%beg:idwbuff(3)%end))'
# 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 (q_prim_qp%vf(l)%sf(idwbuff(1)%beg:idwbuff(1)%end, idwbuff(2)%beg:idwbuff(2)%end, idwbuff(3)%beg:idwbuff(3)%end))
# 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(q_prim_qp%vf(l)%sf) 
# 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:q_prim_qp%vf(l)%sf) 
# 189 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
            end do
 
        end if
 
        if (surface_tension) then
            ! This assumes that the color function advection equation is
            ! the last equation. If this changes then this logic will
            ! need updated
            do l = adv_idx%end + 1, sys_size - 1
#ifdef MFC_DEBUG
# 199 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    block
# 199 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        use iso_fortran_env, only: output_unit
# 199 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 199 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        print *, 'm_rhs.fpp:199: ', '@: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))'
# 199 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 199 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        call flush (output_unit)
# 199 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    end block
# 199 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 199 "/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))
# 199 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 199 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 199 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 199 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc enter data create(q_prim_qp%vf(l)%sf) 
# 199 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 199 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp target enter data map(always,alloc:q_prim_qp%vf(l)%sf) 
# 199 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
            end do
        else
            do l = adv_idx%end + 1, sys_size
#ifdef MFC_DEBUG
# 203 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    block
# 203 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        use iso_fortran_env, only: output_unit
# 203 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 203 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        print *, 'm_rhs.fpp:203: ', '@:ALLOCATE(q_prim_qp%vf(l)%sf(idwbuff(1)%beg:idwbuff(1)%end, idwbuff(2)%beg:idwbuff(2)%end, idwbuff(3)%beg:idwbuff(3)%end))'
# 203 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 203 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        call flush (output_unit)
# 203 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    end block
# 203 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 203 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    allocate (q_prim_qp%vf(l)%sf(idwbuff(1)%beg:idwbuff(1)%end, idwbuff(2)%beg:idwbuff(2)%end, idwbuff(3)%beg:idwbuff(3)%end))
# 203 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 203 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 203 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 203 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc enter data create(q_prim_qp%vf(l)%sf) 
# 203 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 203 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp target enter data map(always,alloc:q_prim_qp%vf(l)%sf) 
# 203 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
            end do
 
        end if
 
        if (.not. igr) then
#ifdef _CRAYFTN
# 209 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    block
# 209 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        integer :: macros_setup_vfs_i
# 209 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 209 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#ifdef MFC_DEBUG
# 209 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    block
# 209 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        use iso_fortran_env, only: output_unit
# 209 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 209 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        print *, 'm_rhs.fpp:209: ', '@:ACC_SETUP_VFs(q_cons_qp, q_prim_qp)'
# 209 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 209 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        call flush (output_unit)
# 209 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    end block
# 209 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 209 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 209 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 209 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 209 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc enter data copyin(q_cons_qp) 
# 209 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 209 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp target enter data map(to:q_cons_qp) 
# 209 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 209 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 209 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 209 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc enter data copyin(q_cons_qp%vf) 
# 209 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 209 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp target enter data map(to:q_cons_qp%vf) 
# 209 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 209 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
            if (allocated(q_cons_qp%vf)) then
# 209 "/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)
# 209 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
                    if (associated(q_cons_qp%vf(macros_setup_vfs_i)%sf)) then
# 209 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 209 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 209 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc enter data copyin(q_cons_qp%vf(macros_setup_vfs_i)) 
# 209 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 209 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp target enter data map(to:q_cons_qp%vf(macros_setup_vfs_i)) 
# 209 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 209 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 209 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 209 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc enter data copyin(q_cons_qp%vf(macros_setup_vfs_i)%sf) 
# 209 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 209 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp target enter data map(to:q_cons_qp%vf(macros_setup_vfs_i)%sf) 
# 209 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 209 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
                    end if
# 209 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
                end do
# 209 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
            end if
# 209 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 209 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 209 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc enter data copyin(q_prim_qp) 
# 209 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 209 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp target enter data map(to:q_prim_qp) 
# 209 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 209 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 209 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 209 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc enter data copyin(q_prim_qp%vf) 
# 209 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 209 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp target enter data map(to:q_prim_qp%vf) 
# 209 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 209 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
            if (allocated(q_prim_qp%vf)) then
# 209 "/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)
# 209 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
                    if (associated(q_prim_qp%vf(macros_setup_vfs_i)%sf)) then
# 209 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 209 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 209 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc enter data copyin(q_prim_qp%vf(macros_setup_vfs_i)) 
# 209 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 209 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp target enter data map(to:q_prim_qp%vf(macros_setup_vfs_i)) 
# 209 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 209 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 209 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 209 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc enter data copyin(q_prim_qp%vf(macros_setup_vfs_i)%sf) 
# 209 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 209 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp target enter data map(to:q_prim_qp%vf(macros_setup_vfs_i)%sf) 
# 209 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 209 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
                    end if
# 209 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
                end do
# 209 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
            end if
# 209 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    end block
# 209 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
 
            do l = 1, cont_idx%end
                if (relativity) then
                    ! Cons and Prim densities are different for relativity
#ifdef MFC_DEBUG
# 214 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    block
# 214 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        use iso_fortran_env, only: output_unit
# 214 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 214 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        print *, 'm_rhs.fpp:214: ', '@:ALLOCATE(q_prim_qp%vf(l)%sf(idwbuff(1)%beg:idwbuff(1)%end, idwbuff(2)%beg:idwbuff(2)%end, idwbuff(3)%beg:idwbuff(3)%end))'
# 214 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 214 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        call flush (output_unit)
# 214 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    end block
# 214 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 214 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    allocate (q_prim_qp%vf(l)%sf(idwbuff(1)%beg:idwbuff(1)%end, idwbuff(2)%beg:idwbuff(2)%end, idwbuff(3)%beg:idwbuff(3)%end))
# 214 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 214 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 214 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 214 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc enter data create(q_prim_qp%vf(l)%sf) 
# 214 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 214 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp target enter data map(always,alloc:q_prim_qp%vf(l)%sf) 
# 214 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
                else
                    q_prim_qp%vf(l)%sf => q_cons_qp%vf(l)%sf
 
# 217 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 217 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc enter data copyin(q_prim_qp%vf(l)%sf) 
# 217 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 217 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp target enter data map(to:q_prim_qp%vf(l)%sf) 
# 217 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
 
# 218 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 218 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc enter data attach(q_prim_qp%vf(l)%sf) 
# 218 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 218 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp target enter data map(always,to:q_prim_qp%vf(l)%sf) 
# 218 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
                end if
            end do
 
            do l = adv_idx%beg, adv_idx%end
                q_prim_qp%vf(l)%sf => q_cons_qp%vf(l)%sf
 
# 224 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 224 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc enter data copyin(q_prim_qp%vf(l)%sf) 
# 224 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 224 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp target enter data map(to:q_prim_qp%vf(l)%sf) 
# 224 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
 
# 225 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 225 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc enter data attach(q_prim_qp%vf(l)%sf) 
# 225 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 225 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp target enter data map(always,to:q_prim_qp%vf(l)%sf) 
# 225 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
            end do
        end if
 
        if (surface_tension) then
            q_prim_qp%vf(c_idx)%sf => &
                q_cons_qp%vf(c_idx)%sf
 
# 232 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 232 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc enter data copyin(q_prim_qp%vf(c_idx)%sf) 
# 232 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 232 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp target enter data map(to:q_prim_qp%vf(c_idx)%sf) 
# 232 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
 
# 233 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 233 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc enter data attach(q_prim_qp%vf(c_idx)%sf) 
# 233 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 233 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp target enter data map(always,to:q_prim_qp%vf(c_idx)%sf) 
# 233 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
        end if
 
        if (hyper_cleaning) then
            q_prim_qp%vf(psi_idx)%sf => &
                q_cons_qp%vf(psi_idx)%sf
 
# 239 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 239 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc enter data copyin(q_prim_qp%vf(psi_idx)%sf) 
# 239 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 239 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp target enter data map(to:q_prim_qp%vf(psi_idx)%sf) 
# 239 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
 
# 240 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 240 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc enter data attach(q_prim_qp%vf(psi_idx)%sf) 
# 240 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 240 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp target enter data map(always,to:q_prim_qp%vf(psi_idx)%sf) 
# 240 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
        end if
 
        ! Allocation/Association of flux_n, flux_src_n, and flux_gsrc_n
        if (.not. igr) then
#ifdef MFC_DEBUG
# 245 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    block
# 245 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        use iso_fortran_env, only: output_unit
# 245 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 245 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        print *, 'm_rhs.fpp:245: ', '@:ALLOCATE(flux_n(1:num_dims))'
# 245 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 245 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        call flush (output_unit)
# 245 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    end block
# 245 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 245 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    allocate (flux_n(1:num_dims))
# 245 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 245 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 245 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 245 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc enter data create(flux_n) 
# 245 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 245 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp target enter data map(always,alloc:flux_n) 
# 245 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
#ifdef MFC_DEBUG
# 246 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    block
# 246 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        use iso_fortran_env, only: output_unit
# 246 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 246 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        print *, 'm_rhs.fpp:246: ', '@:ALLOCATE(flux_src_n(1:num_dims))'
# 246 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 246 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        call flush (output_unit)
# 246 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    end block
# 246 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 246 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    allocate (flux_src_n(1:num_dims))
# 246 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 246 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 246 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 246 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc enter data create(flux_src_n) 
# 246 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 246 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp target enter data map(always,alloc:flux_src_n) 
# 246 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
#ifdef MFC_DEBUG
# 247 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    block
# 247 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        use iso_fortran_env, only: output_unit
# 247 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 247 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        print *, 'm_rhs.fpp:247: ', '@:ALLOCATE(flux_gsrc_n(1:num_dims))'
# 247 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 247 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        call flush (output_unit)
# 247 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    end block
# 247 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 247 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    allocate (flux_gsrc_n(1:num_dims))
# 247 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 247 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 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 create(flux_gsrc_n) 
# 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,alloc:flux_gsrc_n) 
# 247 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
 
            do i = 1, num_dims
 
#ifdef MFC_DEBUG
# 251 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    block
# 251 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        use iso_fortran_env, only: output_unit
# 251 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 251 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        print *, 'm_rhs.fpp:251: ', '@:ALLOCATE(flux_n(i)%vf(1:sys_size))'
# 251 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 251 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        call flush (output_unit)
# 251 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    end block
# 251 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 251 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    allocate (flux_n(i)%vf(1:sys_size))
# 251 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 251 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 251 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 251 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc enter data create(flux_n(i)%vf) 
# 251 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 251 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp target enter data map(always,alloc:flux_n(i)%vf) 
# 251 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
#ifdef MFC_DEBUG
# 252 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    block
# 252 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        use iso_fortran_env, only: output_unit
# 252 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 252 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        print *, 'm_rhs.fpp:252: ', '@:ALLOCATE(flux_src_n(i)%vf(1:sys_size))'
# 252 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 252 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        call flush (output_unit)
# 252 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    end block
# 252 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 252 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    allocate (flux_src_n(i)%vf(1:sys_size))
# 252 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 252 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 252 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 252 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc enter data create(flux_src_n(i)%vf) 
# 252 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 252 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp target enter data map(always,alloc:flux_src_n(i)%vf) 
# 252 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
#ifdef MFC_DEBUG
# 253 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    block
# 253 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        use iso_fortran_env, only: output_unit
# 253 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 253 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        print *, 'm_rhs.fpp:253: ', '@:ALLOCATE(flux_gsrc_n(i)%vf(1:sys_size))'
# 253 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 253 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        call flush (output_unit)
# 253 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    end block
# 253 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 253 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    allocate (flux_gsrc_n(i)%vf(1:sys_size))
# 253 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 253 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 253 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 253 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc enter data create(flux_gsrc_n(i)%vf) 
# 253 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 253 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp target enter data map(always,alloc:flux_gsrc_n(i)%vf) 
# 253 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
 
                if (i == 1) then
                    do l = 1, sys_size
#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(flux_n(i)%vf(l)%sf( idwbuff(1)%beg:idwbuff(1)%end, idwbuff(2)%beg:idwbuff(2)%end, idwbuff(3)%beg:idwbuff(3)%end))'
# 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 (flux_n(i)%vf(l)%sf(  idwbuff(1)%beg:idwbuff(1)%end,  idwbuff(2)%beg:idwbuff(2)%end,  idwbuff(3)%beg:idwbuff(3)%end))
# 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(flux_n(i)%vf(l)%sf) 
# 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:flux_n(i)%vf(l)%sf) 
# 257 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 261 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#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(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))'
# 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 (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))
# 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(flux_gsrc_n(i)%vf(l)%sf) 
# 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:flux_gsrc_n(i)%vf(l)%sf) 
# 261 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 265 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
                    end do
 
                    if (viscous .or. surface_tension) then
                        do l = mom_idx%beg, e_idx
#ifdef MFC_DEBUG
# 269 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    block
# 269 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        use iso_fortran_env, only: output_unit
# 269 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 269 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        print *, 'm_rhs.fpp:269: ', '@: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))'
# 269 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 269 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        call flush (output_unit)
# 269 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    end block
# 269 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 269 "/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))
# 269 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 269 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 269 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 269 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc enter data create(flux_src_n(i)%vf(l)%sf) 
# 269 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 269 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp target enter data map(always,alloc:flux_src_n(i)%vf(l)%sf) 
# 269 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 273 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
                        end do
                    end if
 
#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(flux_src_n(i)%vf(adv_idx%beg)%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 (flux_src_n(i)%vf(adv_idx%beg)%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(flux_src_n(i)%vf(adv_idx%beg)%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:flux_src_n(i)%vf(adv_idx%beg)%sf) 
# 276 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 280 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
                    if (riemann_solver == 1 .or. riemann_solver == 4) then
                        do l = adv_idx%beg + 1, adv_idx%end
#ifdef MFC_DEBUG
# 283 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    block
# 283 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        use iso_fortran_env, only: output_unit
# 283 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 283 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        print *, 'm_rhs.fpp:283: ', '@:ALLOCATE(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))'
# 283 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 283 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        call flush (output_unit)
# 283 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    end block
# 283 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 283 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    allocate (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))
# 283 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 283 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 283 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 283 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc enter data create(flux_src_n(i)%vf(l)%sf) 
# 283 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 283 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp target enter data map(always,alloc:flux_src_n(i)%vf(l)%sf) 
# 283 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 287 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
                        end do
                    end if
 
                    if (chemistry) then
                        do l = chemxb, chemxe
#ifdef MFC_DEBUG
# 292 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    block
# 292 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        use iso_fortran_env, only: output_unit
# 292 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 292 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        print *, 'm_rhs.fpp:292: ', '@: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))'
# 292 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 292 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        call flush (output_unit)
# 292 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    end block
# 292 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 292 "/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))
# 292 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 292 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 292 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 292 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc enter data create(flux_src_n(i)%vf(l)%sf) 
# 292 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 292 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp target enter data map(always,alloc:flux_src_n(i)%vf(l)%sf) 
# 292 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 296 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
                        end do
                        if (chem_params%diffusion .and. .not. viscous) then
#ifdef MFC_DEBUG
# 298 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    block
# 298 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        use iso_fortran_env, only: output_unit
# 298 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 298 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        print *, 'm_rhs.fpp:298: ', '@:ALLOCATE(flux_src_n(i)%vf(E_idx)%sf( idwbuff(1)%beg:idwbuff(1)%end, idwbuff(2)%beg:idwbuff(2)%end, idwbuff(3)%beg:idwbuff(3)%end))'
# 298 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 298 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        call flush (output_unit)
# 298 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    end block
# 298 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 298 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    allocate (flux_src_n(i)%vf(e_idx)%sf(  idwbuff(1)%beg:idwbuff(1)%end,  idwbuff(2)%beg:idwbuff(2)%end,  idwbuff(3)%beg:idwbuff(3)%end))
# 298 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 298 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 298 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 298 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc enter data create(flux_src_n(i)%vf(E_idx)%sf) 
# 298 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 298 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp target enter data map(always,alloc:flux_src_n(i)%vf(E_idx)%sf) 
# 298 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 302 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
                        end if
                    end if
 
                else
                    do l = 1, sys_size
#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(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))'
# 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 (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))
# 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(flux_gsrc_n(i)%vf(l)%sf) 
# 307 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 307 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp target enter data map(always,alloc:flux_gsrc_n(i)%vf(l)%sf) 
# 307 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 311 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
                    end do
                end if
 
#ifdef _CRAYFTN
# 314 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    block
# 314 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        integer :: macros_setup_vfs_i
# 314 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 314 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#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: ', '@:ACC_SETUP_VFs(flux_n(i))'
# 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"
 
# 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 copyin(flux_n(i)) 
# 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(to:flux_n(i)) 
# 314 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 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 copyin(flux_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(to:flux_n(i)%vf) 
# 314 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 314 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
            if (allocated(flux_n(i)%vf)) then
# 314 "/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)
# 314 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
                    if (associated(flux_n(i)%vf(macros_setup_vfs_i)%sf)) then
# 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 copyin(flux_n(i)%vf(macros_setup_vfs_i)) 
# 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(to:flux_n(i)%vf(macros_setup_vfs_i)) 
# 314 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 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 copyin(flux_n(i)%vf(macros_setup_vfs_i)%sf) 
# 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(to:flux_n(i)%vf(macros_setup_vfs_i)%sf) 
# 314 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 314 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
                    end if
# 314 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
                end do
# 314 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
            end if
# 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
#ifdef _CRAYFTN
# 315 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    block
# 315 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        integer :: macros_setup_vfs_i
# 315 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 315 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#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: ', '@:ACC_SETUP_VFs(flux_src_n(i), flux_gsrc_n(i))'
# 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"
 
# 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 copyin(flux_src_n(i)) 
# 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(to:flux_src_n(i)) 
# 315 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 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 copyin(flux_src_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(to:flux_src_n(i)%vf) 
# 315 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 315 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
            if (allocated(flux_src_n(i)%vf)) then
# 315 "/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)
# 315 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
                    if (associated(flux_src_n(i)%vf(macros_setup_vfs_i)%sf)) then
# 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 copyin(flux_src_n(i)%vf(macros_setup_vfs_i)) 
# 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(to:flux_src_n(i)%vf(macros_setup_vfs_i)) 
# 315 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 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 copyin(flux_src_n(i)%vf(macros_setup_vfs_i)%sf) 
# 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(to:flux_src_n(i)%vf(macros_setup_vfs_i)%sf) 
# 315 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 315 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
                    end if
# 315 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
                end do
# 315 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
            end if
# 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 copyin(flux_gsrc_n(i)) 
# 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(to:flux_gsrc_n(i)) 
# 315 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 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 copyin(flux_gsrc_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(to:flux_gsrc_n(i)%vf) 
# 315 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 315 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
            if (allocated(flux_gsrc_n(i)%vf)) then
# 315 "/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)
# 315 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
                    if (associated(flux_gsrc_n(i)%vf(macros_setup_vfs_i)%sf)) then
# 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 copyin(flux_gsrc_n(i)%vf(macros_setup_vfs_i)) 
# 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(to:flux_gsrc_n(i)%vf(macros_setup_vfs_i)) 
# 315 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 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 copyin(flux_gsrc_n(i)%vf(macros_setup_vfs_i)%sf) 
# 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(to:flux_gsrc_n(i)%vf(macros_setup_vfs_i)%sf) 
# 315 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 315 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
                    end if
# 315 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
                end do
# 315 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
            end if
# 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
 
                if (i == 1) then
                    if (riemann_solver /= 1) then
                        do l = adv_idx%beg + 1, adv_idx%end
                            flux_src_n(i)%vf(l)%sf => flux_src_n(i)%vf(adv_idx%beg)%sf
 
# 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 attach(flux_src_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,to:flux_src_n(i)%vf(l)%sf) 
# 321 "/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
 
# 327 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 327 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc enter data attach(flux_n(i)%vf(l)%sf) 
# 327 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 327 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp target enter data map(always,to:flux_n(i)%vf(l)%sf) 
# 327 "/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
 
# 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 attach(flux_src_n(i)%vf(l)%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(always,to:flux_src_n(i)%vf(l)%sf) 
# 329 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
                    end do
                end if
 
            end do
            ! END: Allocation/Association of flux_n, flux_src_n, and flux_gsrc_n
        end if
 
        if ((.not. igr) .or. dummy) then
 
            ! Allocation of dq_prim_ds_qp
#ifdef MFC_DEBUG
# 340 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    block
# 340 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        use iso_fortran_env, only: output_unit
# 340 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 340 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        print *, 'm_rhs.fpp:340: ', '@:ALLOCATE(dq_prim_dx_qp(1:1))'
# 340 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 340 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        call flush (output_unit)
# 340 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    end block
# 340 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 340 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    allocate (dq_prim_dx_qp(1:1))
# 340 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 340 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 340 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 340 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc enter data create(dq_prim_dx_qp) 
# 340 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 340 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp target enter data map(always,alloc:dq_prim_dx_qp) 
# 340 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
#ifdef MFC_DEBUG
# 341 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    block
# 341 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        use iso_fortran_env, only: output_unit
# 341 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 341 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        print *, 'm_rhs.fpp:341: ', '@:ALLOCATE(dq_prim_dy_qp(1:1))'
# 341 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 341 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        call flush (output_unit)
# 341 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    end block
# 341 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 341 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    allocate (dq_prim_dy_qp(1:1))
# 341 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 341 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 341 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 341 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc enter data create(dq_prim_dy_qp) 
# 341 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 341 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp target enter data map(always,alloc:dq_prim_dy_qp) 
# 341 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
#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: ', '@:ALLOCATE(dq_prim_dz_qp(1:1))'
# 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"
    allocate (dq_prim_dz_qp(1:1))
# 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 create(dq_prim_dz_qp) 
# 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(always,alloc:dq_prim_dz_qp) 
# 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(qL_prim(1:num_dims))'
# 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 (ql_prim(1:num_dims))
# 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(qL_prim) 
# 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:qL_prim) 
# 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(qR_prim(1:num_dims))'
# 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 (qr_prim(1:num_dims))
# 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(qR_prim) 
# 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:qR_prim) 
# 345 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
 
            ! Allocation/Association of dqK_prim_ds_n
#ifdef MFC_DEBUG
# 348 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    block
# 348 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        use iso_fortran_env, only: output_unit
# 348 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 348 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        print *, 'm_rhs.fpp:348: ', '@:ALLOCATE(dqL_prim_dx_n(1:num_dims))'
# 348 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 348 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        call flush (output_unit)
# 348 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    end block
# 348 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 348 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    allocate (dql_prim_dx_n(1:num_dims))
# 348 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 348 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 348 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 348 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc enter data create(dqL_prim_dx_n) 
# 348 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 348 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp target enter data map(always,alloc:dqL_prim_dx_n) 
# 348 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
#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(dqL_prim_dy_n(1:num_dims))'
# 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 (dql_prim_dy_n(1:num_dims))
# 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(dqL_prim_dy_n) 
# 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:dqL_prim_dy_n) 
# 349 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
#ifdef MFC_DEBUG
# 350 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    block
# 350 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        use iso_fortran_env, only: output_unit
# 350 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 350 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        print *, 'm_rhs.fpp:350: ', '@:ALLOCATE(dqL_prim_dz_n(1:num_dims))'
# 350 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 350 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        call flush (output_unit)
# 350 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    end block
# 350 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 350 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    allocate (dql_prim_dz_n(1:num_dims))
# 350 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 350 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 350 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 350 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc enter data create(dqL_prim_dz_n) 
# 350 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 350 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp target enter data map(always,alloc:dqL_prim_dz_n) 
# 350 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
#ifdef MFC_DEBUG
# 351 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    block
# 351 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        use iso_fortran_env, only: output_unit
# 351 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 351 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        print *, 'm_rhs.fpp:351: ', '@:ALLOCATE(dqR_prim_dx_n(1:num_dims))'
# 351 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 351 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        call flush (output_unit)
# 351 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    end block
# 351 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 351 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    allocate (dqr_prim_dx_n(1:num_dims))
# 351 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 351 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 351 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 351 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc enter data create(dqR_prim_dx_n) 
# 351 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 351 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp target enter data map(always,alloc:dqR_prim_dx_n) 
# 351 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
#ifdef MFC_DEBUG
# 352 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    block
# 352 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        use iso_fortran_env, only: output_unit
# 352 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 352 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        print *, 'm_rhs.fpp:352: ', '@:ALLOCATE(dqR_prim_dy_n(1:num_dims))'
# 352 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 352 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        call flush (output_unit)
# 352 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    end block
# 352 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 352 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    allocate (dqr_prim_dy_n(1:num_dims))
# 352 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 352 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 352 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 352 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc enter data create(dqR_prim_dy_n) 
# 352 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 352 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp target enter data map(always,alloc:dqR_prim_dy_n) 
# 352 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
#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: ', '@:ALLOCATE(dqR_prim_dz_n(1:num_dims))'
# 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"
    allocate (dqr_prim_dz_n(1:num_dims))
# 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 create(dqR_prim_dz_n) 
# 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(always,alloc:dqR_prim_dz_n) 
# 353 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
 
            do i = 1, num_dims
#ifdef MFC_DEBUG
# 356 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    block
# 356 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        use iso_fortran_env, only: output_unit
# 356 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 356 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        print *, 'm_rhs.fpp:356: ', '@:ALLOCATE(qL_prim(i)%vf(1:sys_size))'
# 356 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 356 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        call flush (output_unit)
# 356 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    end block
# 356 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 356 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    allocate (ql_prim(i)%vf(1:sys_size))
# 356 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 356 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 356 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 356 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc enter data create(qL_prim(i)%vf) 
# 356 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 356 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp target enter data map(always,alloc:qL_prim(i)%vf) 
# 356 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
#ifdef MFC_DEBUG
# 357 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    block
# 357 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        use iso_fortran_env, only: output_unit
# 357 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 357 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        print *, 'm_rhs.fpp:357: ', '@:ALLOCATE(qR_prim(i)%vf(1:sys_size))'
# 357 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 357 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        call flush (output_unit)
# 357 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    end block
# 357 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 357 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    allocate (qr_prim(i)%vf(1:sys_size))
# 357 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 357 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 357 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 357 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc enter data create(qR_prim(i)%vf) 
# 357 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 357 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp target enter data map(always,alloc:qR_prim(i)%vf) 
# 357 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
                do l = mom_idx%beg, mom_idx%end
#ifdef MFC_DEBUG
# 359 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    block
# 359 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        use iso_fortran_env, only: output_unit
# 359 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 359 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        print *, 'm_rhs.fpp:359: ', '@:ALLOCATE(qL_prim(i)%vf(l)%sf(idwbuff(1)%beg:idwbuff(1)%end, idwbuff(2)%beg:idwbuff(2)%end, idwbuff(3)%beg:idwbuff(3)%end))'
# 359 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 359 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        call flush (output_unit)
# 359 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    end block
# 359 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 359 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    allocate (ql_prim(i)%vf(l)%sf(idwbuff(1)%beg:idwbuff(1)%end, idwbuff(2)%beg:idwbuff(2)%end, idwbuff(3)%beg:idwbuff(3)%end))
# 359 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 359 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 359 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 359 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc enter data create(qL_prim(i)%vf(l)%sf) 
# 359 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 359 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp target enter data map(always,alloc:qL_prim(i)%vf(l)%sf) 
# 359 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
#ifdef MFC_DEBUG
# 360 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    block
# 360 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        use iso_fortran_env, only: output_unit
# 360 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 360 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        print *, 'm_rhs.fpp:360: ', '@:ALLOCATE(qR_prim(i)%vf(l)%sf(idwbuff(1)%beg:idwbuff(1)%end, idwbuff(2)%beg:idwbuff(2)%end, idwbuff(3)%beg:idwbuff(3)%end))'
# 360 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 360 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        call flush (output_unit)
# 360 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    end block
# 360 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 360 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    allocate (qr_prim(i)%vf(l)%sf(idwbuff(1)%beg:idwbuff(1)%end, idwbuff(2)%beg:idwbuff(2)%end, idwbuff(3)%beg:idwbuff(3)%end))
# 360 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 360 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 360 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 360 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc enter data create(qR_prim(i)%vf(l)%sf) 
# 360 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 360 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp target enter data map(always,alloc:qR_prim(i)%vf(l)%sf) 
# 360 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
                end do
#ifdef _CRAYFTN
# 362 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    block
# 362 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        integer :: macros_setup_vfs_i
# 362 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 362 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#ifdef MFC_DEBUG
# 362 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    block
# 362 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        use iso_fortran_env, only: output_unit
# 362 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 362 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        print *, 'm_rhs.fpp:362: ', '@:ACC_SETUP_VFs(qL_prim(i), qR_prim(i))'
# 362 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 362 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        call flush (output_unit)
# 362 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    end block
# 362 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 362 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 362 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 362 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 362 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc enter data copyin(qL_prim(i)) 
# 362 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 362 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp target enter data map(to:qL_prim(i)) 
# 362 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 362 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 362 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 362 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc enter data copyin(qL_prim(i)%vf) 
# 362 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 362 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp target enter data map(to:qL_prim(i)%vf) 
# 362 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 362 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
            if (allocated(ql_prim(i)%vf)) then
# 362 "/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)
# 362 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
                    if (associated(ql_prim(i)%vf(macros_setup_vfs_i)%sf)) then
# 362 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 362 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 362 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc enter data copyin(qL_prim(i)%vf(macros_setup_vfs_i)) 
# 362 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 362 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp target enter data map(to:qL_prim(i)%vf(macros_setup_vfs_i)) 
# 362 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 362 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 362 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 362 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc enter data copyin(qL_prim(i)%vf(macros_setup_vfs_i)%sf) 
# 362 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 362 "/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) 
# 362 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 362 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
                    end if
# 362 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
                end do
# 362 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
            end if
# 362 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 362 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 362 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc enter data copyin(qR_prim(i)) 
# 362 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 362 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp target enter data map(to:qR_prim(i)) 
# 362 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 362 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 362 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 362 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc enter data copyin(qR_prim(i)%vf) 
# 362 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 362 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp target enter data map(to:qR_prim(i)%vf) 
# 362 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 362 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
            if (allocated(qr_prim(i)%vf)) then
# 362 "/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)
# 362 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
                    if (associated(qr_prim(i)%vf(macros_setup_vfs_i)%sf)) then
# 362 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 362 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 362 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc enter data copyin(qR_prim(i)%vf(macros_setup_vfs_i)) 
# 362 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 362 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp target enter data map(to:qR_prim(i)%vf(macros_setup_vfs_i)) 
# 362 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 362 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 362 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 362 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc enter data copyin(qR_prim(i)%vf(macros_setup_vfs_i)%sf) 
# 362 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 362 "/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) 
# 362 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 362 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
                    end if
# 362 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
                end do
# 362 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
            end if
# 362 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    end block
# 362 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
            end do
 
#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(qL_rsx_vf(idwbuff(1)%beg:idwbuff(1)%end, idwbuff(2)%beg:idwbuff(2)%end, idwbuff(3)%beg:idwbuff(3)%end, 1:sys_size))'
# 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 (ql_rsx_vf(idwbuff(1)%beg:idwbuff(1)%end,                 idwbuff(2)%beg:idwbuff(2)%end, idwbuff(3)%beg:idwbuff(3)%end, 1:sys_size))
# 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(qL_rsx_vf) 
# 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:qL_rsx_vf) 
# 365 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 367 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#ifdef MFC_DEBUG
# 367 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    block
# 367 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        use iso_fortran_env, only: output_unit
# 367 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 367 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        print *, 'm_rhs.fpp:367: ', '@: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))'
# 367 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 367 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        call flush (output_unit)
# 367 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    end block
# 367 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 367 "/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))
# 367 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 367 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 367 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 367 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc enter data create(qR_rsx_vf) 
# 367 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 367 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp target enter data map(always,alloc:qR_rsx_vf) 
# 367 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 369 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
            if (n > 0) then
 
#ifdef MFC_DEBUG
# 372 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    block
# 372 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        use iso_fortran_env, only: output_unit
# 372 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 372 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        print *, 'm_rhs.fpp:372: ', '@: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))'
# 372 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 372 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        call flush (output_unit)
# 372 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    end block
# 372 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 372 "/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))
# 372 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 372 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 372 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 372 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc enter data create(qL_rsy_vf) 
# 372 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 372 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp target enter data map(always,alloc:qL_rsy_vf) 
# 372 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 374 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#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(qR_rsy_vf(idwbuff(2)%beg:idwbuff(2)%end, idwbuff(1)%beg:idwbuff(1)%end, idwbuff(3)%beg:idwbuff(3)%end, 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 (qr_rsy_vf(idwbuff(2)%beg:idwbuff(2)%end,                     idwbuff(1)%beg:idwbuff(1)%end, idwbuff(3)%beg:idwbuff(3)%end, 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(qR_rsy_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:qR_rsy_vf) 
# 374 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 376 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
            else
#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(qL_rsy_vf(idwbuff(1)%beg:idwbuff(1)%end, idwbuff(2)%beg:idwbuff(2)%end, idwbuff(3)%beg:idwbuff(3)%end, 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 (ql_rsy_vf(idwbuff(1)%beg:idwbuff(1)%end,                     idwbuff(2)%beg:idwbuff(2)%end, idwbuff(3)%beg:idwbuff(3)%end, 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(qL_rsy_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:qL_rsy_vf) 
# 377 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 379 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#ifdef MFC_DEBUG
# 379 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    block
# 379 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        use iso_fortran_env, only: output_unit
# 379 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 379 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        print *, 'm_rhs.fpp:379: ', '@: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))'
# 379 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 379 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        call flush (output_unit)
# 379 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    end block
# 379 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 379 "/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))
# 379 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 379 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 379 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 379 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc enter data create(qR_rsy_vf) 
# 379 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 379 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp target enter data map(always,alloc:qR_rsy_vf) 
# 379 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 381 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
            end if
 
            if (p > 0) then
#ifdef MFC_DEBUG
# 384 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    block
# 384 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        use iso_fortran_env, only: output_unit
# 384 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 384 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        print *, 'm_rhs.fpp:384: ', '@: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))'
# 384 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 384 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        call flush (output_unit)
# 384 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    end block
# 384 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 384 "/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))
# 384 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 384 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 384 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 384 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc enter data create(qL_rsz_vf) 
# 384 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 384 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp target enter data map(always,alloc:qL_rsz_vf) 
# 384 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 386 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#ifdef MFC_DEBUG
# 386 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    block
# 386 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        use iso_fortran_env, only: output_unit
# 386 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 386 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        print *, 'm_rhs.fpp:386: ', '@: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))'
# 386 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 386 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        call flush (output_unit)
# 386 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    end block
# 386 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 386 "/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))
# 386 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 386 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 386 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 386 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc enter data create(qR_rsz_vf) 
# 386 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 386 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp target enter data map(always,alloc:qR_rsz_vf) 
# 386 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 388 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
            else
#ifdef MFC_DEBUG
# 389 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    block
# 389 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        use iso_fortran_env, only: output_unit
# 389 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 389 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        print *, 'm_rhs.fpp:389: ', '@: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))'
# 389 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 389 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        call flush (output_unit)
# 389 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    end block
# 389 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 389 "/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))
# 389 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 389 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 389 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 389 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc enter data create(qL_rsz_vf) 
# 389 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 389 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp target enter data map(always,alloc:qL_rsz_vf) 
# 389 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 391 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#ifdef MFC_DEBUG
# 391 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    block
# 391 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        use iso_fortran_env, only: output_unit
# 391 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 391 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        print *, 'm_rhs.fpp:391: ', '@: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))'
# 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 (qr_rsz_vf(idwbuff(1)%beg:idwbuff(1)%end,                     idwbuff(2)%beg:idwbuff(2)%end, idwbuff(3)%beg:idwbuff(3)%end, 1:sys_size))
# 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(qR_rsz_vf) 
# 391 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 391 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp target enter data map(always,alloc:qR_rsz_vf) 
# 391 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 393 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
            end if
 
            if (.not. viscous) then
                do i = 1, num_dims
#ifdef MFC_DEBUG
# 398 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    block
# 398 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        use iso_fortran_env, only: output_unit
# 398 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 398 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        print *, 'm_rhs.fpp:398: ', '@:ALLOCATE(dqL_prim_dx_n(i)%vf(1:sys_size))'
# 398 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 398 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        call flush (output_unit)
# 398 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    end block
# 398 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 398 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    allocate (dql_prim_dx_n(i)%vf(1:sys_size))
# 398 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 398 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 398 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 398 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc enter data create(dqL_prim_dx_n(i)%vf) 
# 398 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 398 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp target enter data map(always,alloc:dqL_prim_dx_n(i)%vf) 
# 398 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
#ifdef MFC_DEBUG
# 399 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    block
# 399 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        use iso_fortran_env, only: output_unit
# 399 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 399 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        print *, 'm_rhs.fpp:399: ', '@:ALLOCATE(dqL_prim_dy_n(i)%vf(1:sys_size))'
# 399 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 399 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        call flush (output_unit)
# 399 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    end block
# 399 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 399 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    allocate (dql_prim_dy_n(i)%vf(1:sys_size))
# 399 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 399 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 399 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 399 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc enter data create(dqL_prim_dy_n(i)%vf) 
# 399 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 399 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp target enter data map(always,alloc:dqL_prim_dy_n(i)%vf) 
# 399 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
#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(1:sys_size))'
# 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(1:sys_size))
# 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) 
# 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) 
# 400 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
#ifdef MFC_DEBUG
# 401 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    block
# 401 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        use iso_fortran_env, only: output_unit
# 401 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 401 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        print *, 'm_rhs.fpp:401: ', '@:ALLOCATE(dqR_prim_dx_n(i)%vf(1:sys_size))'
# 401 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 401 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        call flush (output_unit)
# 401 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    end block
# 401 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 401 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    allocate (dqr_prim_dx_n(i)%vf(1:sys_size))
# 401 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 401 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 401 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 401 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc enter data create(dqR_prim_dx_n(i)%vf) 
# 401 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 401 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp target enter data map(always,alloc:dqR_prim_dx_n(i)%vf) 
# 401 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
#ifdef MFC_DEBUG
# 402 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    block
# 402 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        use iso_fortran_env, only: output_unit
# 402 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 402 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        print *, 'm_rhs.fpp:402: ', '@:ALLOCATE(dqR_prim_dy_n(i)%vf(1:sys_size))'
# 402 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 402 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        call flush (output_unit)
# 402 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    end block
# 402 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 402 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    allocate (dqr_prim_dy_n(i)%vf(1:sys_size))
# 402 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 402 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 402 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 402 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc enter data create(dqR_prim_dy_n(i)%vf) 
# 402 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 402 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp target enter data map(always,alloc:dqR_prim_dy_n(i)%vf) 
# 402 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
#ifdef MFC_DEBUG
# 403 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    block
# 403 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        use iso_fortran_env, only: output_unit
# 403 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 403 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        print *, 'm_rhs.fpp:403: ', '@:ALLOCATE(dqR_prim_dz_n(i)%vf(1:sys_size))'
# 403 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 403 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        call flush (output_unit)
# 403 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    end block
# 403 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 403 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    allocate (dqr_prim_dz_n(i)%vf(1:sys_size))
# 403 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 403 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 403 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 403 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc enter data create(dqR_prim_dz_n(i)%vf) 
# 403 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 403 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp target enter data map(always,alloc:dqR_prim_dz_n(i)%vf) 
# 403 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
 
                    do l = momxb, momxe
#ifdef MFC_DEBUG
# 406 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    block
# 406 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        use iso_fortran_env, only: output_unit
# 406 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 406 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        print *, 'm_rhs.fpp:406: ', '@:ALLOCATE(dqL_prim_dx_n(i)%vf(l)%sf(1:1, 1:1, 1:1))'
# 406 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 406 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        call flush (output_unit)
# 406 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    end block
# 406 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 406 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    allocate (dql_prim_dx_n(i)%vf(l)%sf(1:1, 1:1, 1:1))
# 406 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 406 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 406 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 406 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc enter data create(dqL_prim_dx_n(i)%vf(l)%sf) 
# 406 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 406 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp target enter data map(always,alloc:dqL_prim_dx_n(i)%vf(l)%sf) 
# 406 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
#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: ', '@:ALLOCATE(dqL_prim_dy_n(i)%vf(l)%sf(1:1, 1:1, 1:1))'
# 407 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 407 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        call flush (output_unit)
# 407 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    end block
# 407 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 407 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    allocate (dql_prim_dy_n(i)%vf(l)%sf(1:1, 1:1, 1:1))
# 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 create(dqL_prim_dy_n(i)%vf(l)%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(always,alloc:dqL_prim_dy_n(i)%vf(l)%sf) 
# 407 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
#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: ', '@:ALLOCATE(dqL_prim_dz_n(i)%vf(l)%sf(1:1, 1:1, 1:1))'
# 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"
    allocate (dql_prim_dz_n(i)%vf(l)%sf(1:1, 1:1, 1:1))
# 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 create(dqL_prim_dz_n(i)%vf(l)%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(always,alloc:dqL_prim_dz_n(i)%vf(l)%sf) 
# 408 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
#ifdef MFC_DEBUG
# 409 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    block
# 409 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        use iso_fortran_env, only: output_unit
# 409 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 409 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        print *, 'm_rhs.fpp:409: ', '@:ALLOCATE(dqR_prim_dx_n(i)%vf(l)%sf(1:1, 1:1, 1:1))'
# 409 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 409 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        call flush (output_unit)
# 409 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    end block
# 409 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 409 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    allocate (dqr_prim_dx_n(i)%vf(l)%sf(1:1, 1:1, 1:1))
# 409 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 409 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 409 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 409 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc enter data create(dqR_prim_dx_n(i)%vf(l)%sf) 
# 409 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 409 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp target enter data map(always,alloc:dqR_prim_dx_n(i)%vf(l)%sf) 
# 409 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
#ifdef MFC_DEBUG
# 410 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    block
# 410 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        use iso_fortran_env, only: output_unit
# 410 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 410 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        print *, 'm_rhs.fpp:410: ', '@:ALLOCATE(dqR_prim_dy_n(i)%vf(l)%sf(1:1, 1:1, 1:1))'
# 410 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 410 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        call flush (output_unit)
# 410 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    end block
# 410 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 410 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    allocate (dqr_prim_dy_n(i)%vf(l)%sf(1:1, 1:1, 1:1))
# 410 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 410 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 410 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 410 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc enter data create(dqR_prim_dy_n(i)%vf(l)%sf) 
# 410 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 410 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp target enter data map(always,alloc:dqR_prim_dy_n(i)%vf(l)%sf) 
# 410 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
#ifdef MFC_DEBUG
# 411 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    block
# 411 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        use iso_fortran_env, only: output_unit
# 411 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 411 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        print *, 'm_rhs.fpp:411: ', '@:ALLOCATE(dqR_prim_dz_n(i)%vf(l)%sf(1:1, 1:1, 1:1))'
# 411 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 411 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        call flush (output_unit)
# 411 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    end block
# 411 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 411 "/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))
# 411 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 411 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 411 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 411 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc enter data create(dqR_prim_dz_n(i)%vf(l)%sf) 
# 411 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 411 "/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) 
# 411 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
                    end do
#ifdef _CRAYFTN
# 413 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    block
# 413 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        integer :: macros_setup_vfs_i
# 413 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 413 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#ifdef MFC_DEBUG
# 413 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    block
# 413 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        use iso_fortran_env, only: output_unit
# 413 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 413 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        print *, 'm_rhs.fpp:413: ', '@:ACC_SETUP_VFs(dqL_prim_dx_n(i), dqL_prim_dy_n(i), dqL_prim_dz_n(i))'
# 413 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 413 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        call flush (output_unit)
# 413 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    end block
# 413 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 413 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 413 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 413 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 413 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc enter data copyin(dqL_prim_dx_n(i)) 
# 413 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 413 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp target enter data map(to:dqL_prim_dx_n(i)) 
# 413 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 413 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 413 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 413 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc enter data copyin(dqL_prim_dx_n(i)%vf) 
# 413 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 413 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp target enter data map(to:dqL_prim_dx_n(i)%vf) 
# 413 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 413 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
            if (allocated(dql_prim_dx_n(i)%vf)) then
# 413 "/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)
# 413 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
                    if (associated(dql_prim_dx_n(i)%vf(macros_setup_vfs_i)%sf)) then
# 413 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 413 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 413 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc enter data copyin(dqL_prim_dx_n(i)%vf(macros_setup_vfs_i)) 
# 413 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 413 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp target enter data map(to:dqL_prim_dx_n(i)%vf(macros_setup_vfs_i)) 
# 413 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 413 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 413 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 413 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc enter data copyin(dqL_prim_dx_n(i)%vf(macros_setup_vfs_i)%sf) 
# 413 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 413 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp target enter data map(to:dqL_prim_dx_n(i)%vf(macros_setup_vfs_i)%sf) 
# 413 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 413 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
                    end if
# 413 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
                end do
# 413 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
            end if
# 413 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 413 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 413 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc enter data copyin(dqL_prim_dy_n(i)) 
# 413 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 413 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp target enter data map(to:dqL_prim_dy_n(i)) 
# 413 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 413 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 413 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 413 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc enter data copyin(dqL_prim_dy_n(i)%vf) 
# 413 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 413 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp target enter data map(to:dqL_prim_dy_n(i)%vf) 
# 413 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 413 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
            if (allocated(dql_prim_dy_n(i)%vf)) then
# 413 "/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)
# 413 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
                    if (associated(dql_prim_dy_n(i)%vf(macros_setup_vfs_i)%sf)) then
# 413 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 413 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 413 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc enter data copyin(dqL_prim_dy_n(i)%vf(macros_setup_vfs_i)) 
# 413 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 413 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp target enter data map(to:dqL_prim_dy_n(i)%vf(macros_setup_vfs_i)) 
# 413 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 413 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 413 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 413 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc enter data copyin(dqL_prim_dy_n(i)%vf(macros_setup_vfs_i)%sf) 
# 413 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 413 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp target enter data map(to:dqL_prim_dy_n(i)%vf(macros_setup_vfs_i)%sf) 
# 413 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 413 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
                    end if
# 413 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
                end do
# 413 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
            end if
# 413 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 413 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 413 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc enter data copyin(dqL_prim_dz_n(i)) 
# 413 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 413 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp target enter data map(to:dqL_prim_dz_n(i)) 
# 413 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 413 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 413 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 413 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc enter data copyin(dqL_prim_dz_n(i)%vf) 
# 413 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 413 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp target enter data map(to:dqL_prim_dz_n(i)%vf) 
# 413 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 413 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
            if (allocated(dql_prim_dz_n(i)%vf)) then
# 413 "/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)
# 413 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
                    if (associated(dql_prim_dz_n(i)%vf(macros_setup_vfs_i)%sf)) then
# 413 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 413 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 413 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc enter data copyin(dqL_prim_dz_n(i)%vf(macros_setup_vfs_i)) 
# 413 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 413 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp target enter data map(to:dqL_prim_dz_n(i)%vf(macros_setup_vfs_i)) 
# 413 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 413 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 413 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 413 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc enter data copyin(dqL_prim_dz_n(i)%vf(macros_setup_vfs_i)%sf) 
# 413 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 413 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp target enter data map(to:dqL_prim_dz_n(i)%vf(macros_setup_vfs_i)%sf) 
# 413 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 413 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
                    end if
# 413 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
                end do
# 413 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
            end if
# 413 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    end block
# 413 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
#ifdef _CRAYFTN
# 414 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    block
# 414 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        integer :: macros_setup_vfs_i
# 414 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 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: ', '@:ACC_SETUP_VFs(dqR_prim_dx_n(i), dqR_prim_dy_n(i), dqR_prim_dz_n(i))'
# 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"
 
# 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 copyin(dqR_prim_dx_n(i)) 
# 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(to:dqR_prim_dx_n(i)) 
# 414 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 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 copyin(dqR_prim_dx_n(i)%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(to:dqR_prim_dx_n(i)%vf) 
# 414 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 414 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
            if (allocated(dqr_prim_dx_n(i)%vf)) then
# 414 "/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)
# 414 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
                    if (associated(dqr_prim_dx_n(i)%vf(macros_setup_vfs_i)%sf)) then
# 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 copyin(dqR_prim_dx_n(i)%vf(macros_setup_vfs_i)) 
# 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(to:dqR_prim_dx_n(i)%vf(macros_setup_vfs_i)) 
# 414 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 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 copyin(dqR_prim_dx_n(i)%vf(macros_setup_vfs_i)%sf) 
# 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(to:dqR_prim_dx_n(i)%vf(macros_setup_vfs_i)%sf) 
# 414 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 414 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
                    end if
# 414 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
                end do
# 414 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
            end if
# 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 copyin(dqR_prim_dy_n(i)) 
# 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(to:dqR_prim_dy_n(i)) 
# 414 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 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 copyin(dqR_prim_dy_n(i)%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(to:dqR_prim_dy_n(i)%vf) 
# 414 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 414 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
            if (allocated(dqr_prim_dy_n(i)%vf)) then
# 414 "/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)
# 414 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
                    if (associated(dqr_prim_dy_n(i)%vf(macros_setup_vfs_i)%sf)) then
# 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 copyin(dqR_prim_dy_n(i)%vf(macros_setup_vfs_i)) 
# 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(to:dqR_prim_dy_n(i)%vf(macros_setup_vfs_i)) 
# 414 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 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 copyin(dqR_prim_dy_n(i)%vf(macros_setup_vfs_i)%sf) 
# 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(to:dqR_prim_dy_n(i)%vf(macros_setup_vfs_i)%sf) 
# 414 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 414 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
                    end if
# 414 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
                end do
# 414 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
            end if
# 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 copyin(dqR_prim_dz_n(i)) 
# 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(to:dqR_prim_dz_n(i)) 
# 414 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 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 copyin(dqR_prim_dz_n(i)%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(to:dqR_prim_dz_n(i)%vf) 
# 414 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 414 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
            if (allocated(dqr_prim_dz_n(i)%vf)) then
# 414 "/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)
# 414 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
                    if (associated(dqr_prim_dz_n(i)%vf(macros_setup_vfs_i)%sf)) then
# 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 copyin(dqR_prim_dz_n(i)%vf(macros_setup_vfs_i)) 
# 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(to:dqR_prim_dz_n(i)%vf(macros_setup_vfs_i)) 
# 414 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 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 copyin(dqR_prim_dz_n(i)%vf(macros_setup_vfs_i)%sf) 
# 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(to:dqR_prim_dz_n(i)%vf(macros_setup_vfs_i)%sf) 
# 414 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 414 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
                    end if
# 414 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
                end do
# 414 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
            end if
# 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
                end do
            end if
 
            if (viscous) then
 
#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(tau_Re_vf(1:sys_size))'
# 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 (tau_re_vf(1:sys_size))
# 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(tau_Re_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:tau_Re_vf) 
# 420 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
                do i = 1, num_dims
#ifdef MFC_DEBUG
# 422 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    block
# 422 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        use iso_fortran_env, only: output_unit
# 422 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 422 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        print *, 'm_rhs.fpp:422: ', '@:ALLOCATE(tau_Re_vf(cont_idx%end + i)%sf(idwbuff(1)%beg:idwbuff(1)%end, idwbuff(2)%beg:idwbuff(2)%end, idwbuff(3)%beg:idwbuff(3)%end))'
# 422 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 422 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        call flush (output_unit)
# 422 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    end block
# 422 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 422 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    allocate (tau_re_vf(cont_idx%end + i)%sf(idwbuff(1)%beg:idwbuff(1)%end,   idwbuff(2)%beg:idwbuff(2)%end,   idwbuff(3)%beg:idwbuff(3)%end))
# 422 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 422 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 422 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 422 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc enter data create(tau_Re_vf(cont_idx%end + i)%sf) 
# 422 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 422 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp target enter data map(always,alloc:tau_Re_vf(cont_idx%end + i)%sf) 
# 422 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 425 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#ifdef _CRAYFTN
# 425 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    block
# 425 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 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: ', '@:ACC_SETUP_SFs(tau_Re_vf(cont_idx%end + i))'
# 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"
 
# 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 copyin(tau_Re_vf(cont_idx%end + i)) 
# 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(to:tau_Re_vf(cont_idx%end + i)) 
# 425 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 425 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
            if (associated(tau_re_vf(cont_idx%end + i)%sf)) then
# 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 copyin(tau_Re_vf(cont_idx%end + i)%sf) 
# 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(to:tau_Re_vf(cont_idx%end + i)%sf) 
# 425 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 425 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
            end if
# 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
                end do
#ifdef MFC_DEBUG
# 427 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    block
# 427 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        use iso_fortran_env, only: output_unit
# 427 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 427 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        print *, 'm_rhs.fpp:427: ', '@:ALLOCATE(tau_Re_vf(E_idx)%sf(idwbuff(1)%beg:idwbuff(1)%end, idwbuff(2)%beg:idwbuff(2)%end, idwbuff(3)%beg:idwbuff(3)%end))'
# 427 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 427 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        call flush (output_unit)
# 427 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    end block
# 427 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 427 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    allocate (tau_re_vf(e_idx)%sf(idwbuff(1)%beg:idwbuff(1)%end,  idwbuff(2)%beg:idwbuff(2)%end,  idwbuff(3)%beg:idwbuff(3)%end))
# 427 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 427 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 427 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 427 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc enter data create(tau_Re_vf(E_idx)%sf) 
# 427 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 427 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp target enter data map(always,alloc:tau_Re_vf(E_idx)%sf) 
# 427 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 430 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#ifdef _CRAYFTN
# 430 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    block
# 430 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 430 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#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: ', '@:ACC_SETUP_SFs(tau_Re_vf(E_idx))'
# 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"
 
# 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 copyin(tau_Re_vf(E_idx)) 
# 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(to:tau_Re_vf(E_idx)) 
# 430 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 430 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
            if (associated(tau_re_vf(e_idx)%sf)) then
# 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 copyin(tau_Re_vf(E_idx)%sf) 
# 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(to:tau_Re_vf(E_idx)%sf) 
# 430 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 430 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
            end if
# 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
 
#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(dq_prim_dx_qp(1)%vf(1:sys_size))'
# 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 (dq_prim_dx_qp(1)%vf(1:sys_size))
# 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(dq_prim_dx_qp(1)%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:dq_prim_dx_qp(1)%vf) 
# 432 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
#ifdef MFC_DEBUG
# 433 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    block
# 433 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        use iso_fortran_env, only: output_unit
# 433 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 433 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        print *, 'm_rhs.fpp:433: ', '@:ALLOCATE(dq_prim_dy_qp(1)%vf(1:sys_size))'
# 433 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 433 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        call flush (output_unit)
# 433 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    end block
# 433 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 433 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    allocate (dq_prim_dy_qp(1)%vf(1:sys_size))
# 433 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 433 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 433 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 433 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc enter data create(dq_prim_dy_qp(1)%vf) 
# 433 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 433 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp target enter data map(always,alloc:dq_prim_dy_qp(1)%vf) 
# 433 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
#ifdef MFC_DEBUG
# 434 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    block
# 434 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        use iso_fortran_env, only: output_unit
# 434 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 434 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        print *, 'm_rhs.fpp:434: ', '@:ALLOCATE(dq_prim_dz_qp(1)%vf(1:sys_size))'
# 434 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 434 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        call flush (output_unit)
# 434 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    end block
# 434 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 434 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    allocate (dq_prim_dz_qp(1)%vf(1:sys_size))
# 434 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 434 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 434 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 434 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc enter data create(dq_prim_dz_qp(1)%vf) 
# 434 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 434 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp target enter data map(always,alloc:dq_prim_dz_qp(1)%vf) 
# 434 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
 
                do l = mom_idx%beg, mom_idx%end
#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(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))'
# 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 (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))
# 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(dq_prim_dx_qp(1)%vf(l)%sf) 
# 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:dq_prim_dx_qp(1)%vf(l)%sf) 
# 437 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 441 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
                end do
 
#ifdef _CRAYFTN
# 443 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    block
# 443 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        integer :: macros_setup_vfs_i
# 443 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 443 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#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: ', '@:ACC_SETUP_VFs(dq_prim_dx_qp(1))'
# 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"
 
# 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 copyin(dq_prim_dx_qp(1)) 
# 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(to:dq_prim_dx_qp(1)) 
# 443 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 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 copyin(dq_prim_dx_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(to:dq_prim_dx_qp(1)%vf) 
# 443 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 443 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
            if (allocated(dq_prim_dx_qp(1)%vf)) then
# 443 "/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)
# 443 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
                    if (associated(dq_prim_dx_qp(1)%vf(macros_setup_vfs_i)%sf)) then
# 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 copyin(dq_prim_dx_qp(1)%vf(macros_setup_vfs_i)) 
# 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(to:dq_prim_dx_qp(1)%vf(macros_setup_vfs_i)) 
# 443 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 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 copyin(dq_prim_dx_qp(1)%vf(macros_setup_vfs_i)%sf) 
# 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(to:dq_prim_dx_qp(1)%vf(macros_setup_vfs_i)%sf) 
# 443 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 443 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
                    end if
# 443 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
                end do
# 443 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
            end if
# 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
 
                if (n > 0) then
 
                    do l = mom_idx%beg, mom_idx%end
#ifdef MFC_DEBUG
# 448 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    block
# 448 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        use iso_fortran_env, only: output_unit
# 448 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 448 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        print *, 'm_rhs.fpp:448: ', '@:ALLOCATE(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))'
# 448 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 448 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        call flush (output_unit)
# 448 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    end block
# 448 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 448 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    allocate (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))
# 448 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 448 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 448 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 448 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc enter data create(dq_prim_dy_qp(1)%vf(l)%sf) 
# 448 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 448 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp target enter data map(always,alloc:dq_prim_dy_qp(1)%vf(l)%sf) 
# 448 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 452 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
                    end do
 
#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_dy_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_dy_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_dy_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_dy_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_dy_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_dy_qp(1)%vf)) then
# 454 "/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)
# 454 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
                    if (associated(dq_prim_dy_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_dy_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_dy_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_dy_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_dy_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
 
                    if (p > 0) then
 
                        do l = mom_idx%beg, mom_idx%end
#ifdef MFC_DEBUG
# 459 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    block
# 459 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        use iso_fortran_env, only: output_unit
# 459 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 459 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        print *, 'm_rhs.fpp:459: ', '@: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))'
# 459 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 459 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        call flush (output_unit)
# 459 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    end block
# 459 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 459 "/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))
# 459 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 459 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 459 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 459 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc enter data create(dq_prim_dz_qp(1)%vf(l)%sf) 
# 459 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 459 "/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) 
# 459 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 463 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
                        end do
#ifdef _CRAYFTN
# 464 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    block
# 464 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        integer :: macros_setup_vfs_i
# 464 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 464 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#ifdef MFC_DEBUG
# 464 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    block
# 464 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        use iso_fortran_env, only: output_unit
# 464 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 464 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        print *, 'm_rhs.fpp:464: ', '@:ACC_SETUP_VFs(dq_prim_dz_qp(1))'
# 464 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 464 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        call flush (output_unit)
# 464 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    end block
# 464 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 464 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 464 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 464 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 464 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc enter data copyin(dq_prim_dz_qp(1)) 
# 464 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 464 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp target enter data map(to:dq_prim_dz_qp(1)) 
# 464 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 464 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 464 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 464 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc enter data copyin(dq_prim_dz_qp(1)%vf) 
# 464 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 464 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp target enter data map(to:dq_prim_dz_qp(1)%vf) 
# 464 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 464 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
            if (allocated(dq_prim_dz_qp(1)%vf)) then
# 464 "/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)
# 464 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
                    if (associated(dq_prim_dz_qp(1)%vf(macros_setup_vfs_i)%sf)) then
# 464 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 464 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 464 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc enter data copyin(dq_prim_dz_qp(1)%vf(macros_setup_vfs_i)) 
# 464 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 464 "/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)) 
# 464 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 464 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 464 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 464 "/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) 
# 464 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 464 "/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) 
# 464 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 464 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
                    end if
# 464 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
                end do
# 464 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
            end if
# 464 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    end block
# 464 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
                    end if
 
                end if
 
                do i = 1, num_dims
#ifdef MFC_DEBUG
# 470 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    block
# 470 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        use iso_fortran_env, only: output_unit
# 470 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 470 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        print *, 'm_rhs.fpp:470: ', '@:ALLOCATE(dqL_prim_dx_n(i)%vf(1:sys_size))'
# 470 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 470 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        call flush (output_unit)
# 470 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    end block
# 470 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 470 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    allocate (dql_prim_dx_n(i)%vf(1:sys_size))
# 470 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 470 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 470 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 470 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc enter data create(dqL_prim_dx_n(i)%vf) 
# 470 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 470 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp target enter data map(always,alloc:dqL_prim_dx_n(i)%vf) 
# 470 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
#ifdef MFC_DEBUG
# 471 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    block
# 471 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        use iso_fortran_env, only: output_unit
# 471 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 471 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        print *, 'm_rhs.fpp:471: ', '@:ALLOCATE(dqL_prim_dy_n(i)%vf(1:sys_size))'
# 471 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 471 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        call flush (output_unit)
# 471 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    end block
# 471 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 471 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    allocate (dql_prim_dy_n(i)%vf(1:sys_size))
# 471 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 471 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 471 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 471 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc enter data create(dqL_prim_dy_n(i)%vf) 
# 471 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 471 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp target enter data map(always,alloc:dqL_prim_dy_n(i)%vf) 
# 471 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
#ifdef MFC_DEBUG
# 472 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    block
# 472 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        use iso_fortran_env, only: output_unit
# 472 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 472 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        print *, 'm_rhs.fpp:472: ', '@:ALLOCATE(dqL_prim_dz_n(i)%vf(1:sys_size))'
# 472 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 472 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        call flush (output_unit)
# 472 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    end block
# 472 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 472 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    allocate (dql_prim_dz_n(i)%vf(1:sys_size))
# 472 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 472 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 472 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 472 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc enter data create(dqL_prim_dz_n(i)%vf) 
# 472 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 472 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp target enter data map(always,alloc:dqL_prim_dz_n(i)%vf) 
# 472 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
#ifdef MFC_DEBUG
# 473 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    block
# 473 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        use iso_fortran_env, only: output_unit
# 473 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 473 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        print *, 'm_rhs.fpp:473: ', '@:ALLOCATE(dqR_prim_dx_n(i)%vf(1:sys_size))'
# 473 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 473 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        call flush (output_unit)
# 473 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    end block
# 473 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 473 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    allocate (dqr_prim_dx_n(i)%vf(1:sys_size))
# 473 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 473 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 473 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 473 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc enter data create(dqR_prim_dx_n(i)%vf) 
# 473 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 473 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp target enter data map(always,alloc:dqR_prim_dx_n(i)%vf) 
# 473 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
#ifdef MFC_DEBUG
# 474 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    block
# 474 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        use iso_fortran_env, only: output_unit
# 474 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 474 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        print *, 'm_rhs.fpp:474: ', '@:ALLOCATE(dqR_prim_dy_n(i)%vf(1:sys_size))'
# 474 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 474 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        call flush (output_unit)
# 474 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    end block
# 474 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 474 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    allocate (dqr_prim_dy_n(i)%vf(1:sys_size))
# 474 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 474 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 474 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 474 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc enter data create(dqR_prim_dy_n(i)%vf) 
# 474 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 474 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp target enter data map(always,alloc:dqR_prim_dy_n(i)%vf) 
# 474 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
#ifdef MFC_DEBUG
# 475 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    block
# 475 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        use iso_fortran_env, only: output_unit
# 475 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 475 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        print *, 'm_rhs.fpp:475: ', '@:ALLOCATE(dqR_prim_dz_n(i)%vf(1:sys_size))'
# 475 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 475 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        call flush (output_unit)
# 475 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    end block
# 475 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 475 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    allocate (dqr_prim_dz_n(i)%vf(1:sys_size))
# 475 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 475 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 475 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 475 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc enter data create(dqR_prim_dz_n(i)%vf) 
# 475 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 475 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp target enter data map(always,alloc:dqR_prim_dz_n(i)%vf) 
# 475 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
                end do
 
                do i = 1, num_dims
 
                    do l = mom_idx%beg, mom_idx%end
#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(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))'
# 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 (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))
# 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(dqL_prim_dx_n(i)%vf(l)%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:dqL_prim_dx_n(i)%vf(l)%sf) 
# 481 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 485 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#ifdef MFC_DEBUG
# 485 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    block
# 485 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        use iso_fortran_env, only: output_unit
# 485 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 485 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        print *, 'm_rhs.fpp:485: ', '@: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))'
# 485 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 485 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        call flush (output_unit)
# 485 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    end block
# 485 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 485 "/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))
# 485 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 485 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 485 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 485 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc enter data create(dqR_prim_dx_n(i)%vf(l)%sf) 
# 485 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 485 "/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) 
# 485 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 489 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
                    end do
 
                    if (n > 0) then
                        do l = mom_idx%beg, mom_idx%end
#ifdef MFC_DEBUG
# 493 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    block
# 493 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        use iso_fortran_env, only: output_unit
# 493 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 493 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        print *, 'm_rhs.fpp:493: ', '@: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))'
# 493 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 493 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        call flush (output_unit)
# 493 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    end block
# 493 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 493 "/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))
# 493 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 493 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 493 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 493 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc enter data create(dqL_prim_dy_n(i)%vf(l)%sf) 
# 493 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 493 "/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) 
# 493 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 497 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#ifdef MFC_DEBUG
# 497 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    block
# 497 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        use iso_fortran_env, only: output_unit
# 497 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 497 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        print *, 'm_rhs.fpp:497: ', '@: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))'
# 497 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 497 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        call flush (output_unit)
# 497 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    end block
# 497 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 497 "/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))
# 497 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 497 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 497 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 497 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc enter data create(dqR_prim_dy_n(i)%vf(l)%sf) 
# 497 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 497 "/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) 
# 497 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 501 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
                        end do
                    end if
 
                    if (p > 0) then
                        do l = mom_idx%beg, mom_idx%end
#ifdef MFC_DEBUG
# 506 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    block
# 506 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        use iso_fortran_env, only: output_unit
# 506 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 506 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        print *, 'm_rhs.fpp:506: ', '@: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))'
# 506 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 506 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        call flush (output_unit)
# 506 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    end block
# 506 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 506 "/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))
# 506 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 506 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 506 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 506 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc enter data create(dqL_prim_dz_n(i)%vf(l)%sf) 
# 506 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 506 "/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) 
# 506 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 510 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#ifdef MFC_DEBUG
# 510 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    block
# 510 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        use iso_fortran_env, only: output_unit
# 510 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 510 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        print *, 'm_rhs.fpp:510: ', '@: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))'
# 510 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 510 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        call flush (output_unit)
# 510 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    end block
# 510 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 510 "/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))
# 510 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 510 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 510 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 510 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc enter data create(dqR_prim_dz_n(i)%vf(l)%sf) 
# 510 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 510 "/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) 
# 510 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 514 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
                        end do
                    end if
 
#ifdef _CRAYFTN
# 517 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    block
# 517 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        integer :: macros_setup_vfs_i
# 517 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 517 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#ifdef MFC_DEBUG
# 517 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    block
# 517 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        use iso_fortran_env, only: output_unit
# 517 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 517 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        print *, 'm_rhs.fpp:517: ', '@:ACC_SETUP_VFs(dqL_prim_dx_n(i), dqL_prim_dy_n(i), dqL_prim_dz_n(i))'
# 517 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 517 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        call flush (output_unit)
# 517 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    end block
# 517 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 517 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 517 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 517 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 517 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc enter data copyin(dqL_prim_dx_n(i)) 
# 517 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 517 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp target enter data map(to:dqL_prim_dx_n(i)) 
# 517 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 517 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 517 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 517 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc enter data copyin(dqL_prim_dx_n(i)%vf) 
# 517 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 517 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp target enter data map(to:dqL_prim_dx_n(i)%vf) 
# 517 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 517 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
            if (allocated(dql_prim_dx_n(i)%vf)) then
# 517 "/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)
# 517 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
                    if (associated(dql_prim_dx_n(i)%vf(macros_setup_vfs_i)%sf)) then
# 517 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 517 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 517 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc enter data copyin(dqL_prim_dx_n(i)%vf(macros_setup_vfs_i)) 
# 517 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 517 "/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)) 
# 517 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 517 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 517 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 517 "/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) 
# 517 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 517 "/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) 
# 517 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 517 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
                    end if
# 517 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
                end do
# 517 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
            end if
# 517 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 517 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 517 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc enter data copyin(dqL_prim_dy_n(i)) 
# 517 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 517 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp target enter data map(to:dqL_prim_dy_n(i)) 
# 517 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 517 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 517 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 517 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc enter data copyin(dqL_prim_dy_n(i)%vf) 
# 517 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 517 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp target enter data map(to:dqL_prim_dy_n(i)%vf) 
# 517 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 517 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
            if (allocated(dql_prim_dy_n(i)%vf)) then
# 517 "/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)
# 517 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
                    if (associated(dql_prim_dy_n(i)%vf(macros_setup_vfs_i)%sf)) then
# 517 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 517 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 517 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc enter data copyin(dqL_prim_dy_n(i)%vf(macros_setup_vfs_i)) 
# 517 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 517 "/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)) 
# 517 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 517 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 517 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 517 "/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) 
# 517 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 517 "/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) 
# 517 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 517 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
                    end if
# 517 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
                end do
# 517 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
            end if
# 517 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 517 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 517 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc enter data copyin(dqL_prim_dz_n(i)) 
# 517 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 517 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp target enter data map(to:dqL_prim_dz_n(i)) 
# 517 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 517 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 517 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 517 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc enter data copyin(dqL_prim_dz_n(i)%vf) 
# 517 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 517 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp target enter data map(to:dqL_prim_dz_n(i)%vf) 
# 517 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 517 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
            if (allocated(dql_prim_dz_n(i)%vf)) then
# 517 "/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)
# 517 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
                    if (associated(dql_prim_dz_n(i)%vf(macros_setup_vfs_i)%sf)) then
# 517 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 517 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 517 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc enter data copyin(dqL_prim_dz_n(i)%vf(macros_setup_vfs_i)) 
# 517 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 517 "/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)) 
# 517 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 517 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 517 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 517 "/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) 
# 517 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 517 "/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) 
# 517 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 517 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
                    end if
# 517 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
                end do
# 517 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
            end if
# 517 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    end block
# 517 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
#ifdef _CRAYFTN
# 518 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    block
# 518 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        integer :: macros_setup_vfs_i
# 518 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 518 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#ifdef MFC_DEBUG
# 518 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    block
# 518 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        use iso_fortran_env, only: output_unit
# 518 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 518 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        print *, 'm_rhs.fpp:518: ', '@:ACC_SETUP_VFs(dqR_prim_dx_n(i), dqR_prim_dy_n(i), dqR_prim_dz_n(i))'
# 518 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 518 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        call flush (output_unit)
# 518 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    end block
# 518 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 518 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 518 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 518 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 518 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc enter data copyin(dqR_prim_dx_n(i)) 
# 518 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 518 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp target enter data map(to:dqR_prim_dx_n(i)) 
# 518 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 518 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 518 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 518 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc enter data copyin(dqR_prim_dx_n(i)%vf) 
# 518 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 518 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp target enter data map(to:dqR_prim_dx_n(i)%vf) 
# 518 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 518 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
            if (allocated(dqr_prim_dx_n(i)%vf)) then
# 518 "/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)
# 518 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
                    if (associated(dqr_prim_dx_n(i)%vf(macros_setup_vfs_i)%sf)) then
# 518 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 518 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 518 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc enter data copyin(dqR_prim_dx_n(i)%vf(macros_setup_vfs_i)) 
# 518 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 518 "/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)) 
# 518 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 518 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 518 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 518 "/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) 
# 518 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 518 "/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) 
# 518 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 518 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
                    end if
# 518 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
                end do
# 518 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
            end if
# 518 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 518 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 518 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc enter data copyin(dqR_prim_dy_n(i)) 
# 518 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 518 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp target enter data map(to:dqR_prim_dy_n(i)) 
# 518 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 518 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 518 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 518 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc enter data copyin(dqR_prim_dy_n(i)%vf) 
# 518 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 518 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp target enter data map(to:dqR_prim_dy_n(i)%vf) 
# 518 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 518 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
            if (allocated(dqr_prim_dy_n(i)%vf)) then
# 518 "/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)
# 518 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
                    if (associated(dqr_prim_dy_n(i)%vf(macros_setup_vfs_i)%sf)) then
# 518 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 518 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 518 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc enter data copyin(dqR_prim_dy_n(i)%vf(macros_setup_vfs_i)) 
# 518 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 518 "/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)) 
# 518 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 518 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 518 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 518 "/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) 
# 518 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 518 "/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) 
# 518 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 518 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
                    end if
# 518 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
                end do
# 518 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
            end if
# 518 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 518 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 518 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc enter data copyin(dqR_prim_dz_n(i)) 
# 518 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 518 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp target enter data map(to:dqR_prim_dz_n(i)) 
# 518 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 518 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 518 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 518 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc enter data copyin(dqR_prim_dz_n(i)%vf) 
# 518 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 518 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp target enter data map(to:dqR_prim_dz_n(i)%vf) 
# 518 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 518 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
            if (allocated(dqr_prim_dz_n(i)%vf)) then
# 518 "/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)
# 518 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
                    if (associated(dqr_prim_dz_n(i)%vf(macros_setup_vfs_i)%sf)) then
# 518 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 518 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 518 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc enter data copyin(dqR_prim_dz_n(i)%vf(macros_setup_vfs_i)) 
# 518 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 518 "/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)) 
# 518 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 518 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 518 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 518 "/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) 
# 518 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 518 "/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) 
# 518 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 518 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
                    end if
# 518 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
                end do
# 518 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
            end if
# 518 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    end block
# 518 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
                end do
 
                if (weno_re_flux) then
#ifdef MFC_DEBUG
# 522 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    block
# 522 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        use iso_fortran_env, only: output_unit
# 522 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 522 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        print *, 'm_rhs.fpp:522: ', '@:ALLOCATE(dqL_rsx_vf(idwbuff(1)%beg:idwbuff(1)%end, idwbuff(2)%beg:idwbuff(2)%end, idwbuff(3)%beg:idwbuff(3)%end, mom_idx%beg:mom_idx%end))'
# 522 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 522 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        call flush (output_unit)
# 522 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    end block
# 522 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 522 "/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, mom_idx%beg:mom_idx%end))
# 522 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 522 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 522 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 522 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc enter data create(dqL_rsx_vf) 
# 522 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 522 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp target enter data map(always,alloc:dqL_rsx_vf) 
# 522 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 524 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#ifdef MFC_DEBUG
# 524 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    block
# 524 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        use iso_fortran_env, only: output_unit
# 524 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 524 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        print *, 'm_rhs.fpp:524: ', '@:ALLOCATE(dqR_rsx_vf(idwbuff(1)%beg:idwbuff(1)%end, idwbuff(2)%beg:idwbuff(2)%end, idwbuff(3)%beg:idwbuff(3)%end, mom_idx%beg:mom_idx%end))'
# 524 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 524 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        call flush (output_unit)
# 524 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    end block
# 524 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 524 "/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, mom_idx%beg:mom_idx%end))
# 524 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 524 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 524 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 524 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc enter data create(dqR_rsx_vf) 
# 524 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 524 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp target enter data map(always,alloc:dqR_rsx_vf) 
# 524 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 526 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
                    if (n > 0) then
#ifdef MFC_DEBUG
# 528 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    block
# 528 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        use iso_fortran_env, only: output_unit
# 528 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 528 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        print *, 'm_rhs.fpp:528: ', '@:ALLOCATE(dqL_rsy_vf(idwbuff(2)%beg:idwbuff(2)%end, idwbuff(1)%beg:idwbuff(1)%end, idwbuff(3)%beg:idwbuff(3)%end, mom_idx%beg:mom_idx%end))'
# 528 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 528 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        call flush (output_unit)
# 528 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    end block
# 528 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 528 "/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, mom_idx%beg:mom_idx%end))
# 528 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 528 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 528 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 528 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc enter data create(dqL_rsy_vf) 
# 528 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 528 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp target enter data map(always,alloc:dqL_rsy_vf) 
# 528 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 530 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#ifdef MFC_DEBUG
# 530 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    block
# 530 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        use iso_fortran_env, only: output_unit
# 530 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 530 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        print *, 'm_rhs.fpp:530: ', '@:ALLOCATE(dqR_rsy_vf(idwbuff(2)%beg:idwbuff(2)%end, idwbuff(1)%beg:idwbuff(1)%end, idwbuff(3)%beg:idwbuff(3)%end, mom_idx%beg:mom_idx%end))'
# 530 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 530 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        call flush (output_unit)
# 530 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    end block
# 530 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 530 "/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, mom_idx%beg:mom_idx%end))
# 530 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 530 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 530 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 530 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc enter data create(dqR_rsy_vf) 
# 530 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 530 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp target enter data map(always,alloc:dqR_rsy_vf) 
# 530 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 532 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
                    else
#ifdef MFC_DEBUG
# 533 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    block
# 533 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        use iso_fortran_env, only: output_unit
# 533 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 533 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        print *, 'm_rhs.fpp:533: ', '@:ALLOCATE(dqL_rsy_vf(idwbuff(1)%beg:idwbuff(1)%end, idwbuff(2)%beg:idwbuff(2)%end, idwbuff(3)%beg:idwbuff(3)%end, mom_idx%beg:mom_idx%end))'
# 533 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 533 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        call flush (output_unit)
# 533 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    end block
# 533 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 533 "/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, mom_idx%beg:mom_idx%end))
# 533 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 533 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 533 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 533 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc enter data create(dqL_rsy_vf) 
# 533 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 533 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp target enter data map(always,alloc:dqL_rsy_vf) 
# 533 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 535 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#ifdef MFC_DEBUG
# 535 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    block
# 535 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        use iso_fortran_env, only: output_unit
# 535 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 535 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        print *, 'm_rhs.fpp:535: ', '@:ALLOCATE(dqR_rsy_vf(idwbuff(1)%beg:idwbuff(1)%end, idwbuff(2)%beg:idwbuff(2)%end, idwbuff(3)%beg:idwbuff(3)%end, mom_idx%beg:mom_idx%end))'
# 535 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 535 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        call flush (output_unit)
# 535 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    end block
# 535 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 535 "/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, mom_idx%beg:mom_idx%end))
# 535 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 535 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 535 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 535 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc enter data create(dqR_rsy_vf) 
# 535 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 535 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp target enter data map(always,alloc:dqR_rsy_vf) 
# 535 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 537 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
                    end if
 
                    if (p > 0) then
#ifdef MFC_DEBUG
# 540 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    block
# 540 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        use iso_fortran_env, only: output_unit
# 540 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 540 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        print *, 'm_rhs.fpp:540: ', '@:ALLOCATE(dqL_rsz_vf(idwbuff(3)%beg:idwbuff(3)%end, idwbuff(2)%beg:idwbuff(2)%end, idwbuff(1)%beg:idwbuff(1)%end, mom_idx%beg:mom_idx%end))'
# 540 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 540 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        call flush (output_unit)
# 540 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    end block
# 540 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 540 "/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, mom_idx%beg:mom_idx%end))
# 540 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 540 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 540 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 540 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc enter data create(dqL_rsz_vf) 
# 540 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 540 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp target enter data map(always,alloc:dqL_rsz_vf) 
# 540 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 542 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#ifdef MFC_DEBUG
# 542 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    block
# 542 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        use iso_fortran_env, only: output_unit
# 542 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 542 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        print *, 'm_rhs.fpp:542: ', '@:ALLOCATE(dqR_rsz_vf(idwbuff(3)%beg:idwbuff(3)%end, idwbuff(2)%beg:idwbuff(2)%end, idwbuff(1)%beg:idwbuff(1)%end, mom_idx%beg:mom_idx%end))'
# 542 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 542 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        call flush (output_unit)
# 542 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    end block
# 542 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 542 "/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, mom_idx%beg:mom_idx%end))
# 542 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 542 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 542 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 542 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc enter data create(dqR_rsz_vf) 
# 542 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 542 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp target enter data map(always,alloc:dqR_rsz_vf) 
# 542 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 544 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
                    else
#ifdef MFC_DEBUG
# 545 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    block
# 545 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        use iso_fortran_env, only: output_unit
# 545 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 545 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        print *, 'm_rhs.fpp:545: ', '@:ALLOCATE(dqL_rsz_vf(idwbuff(1)%beg:idwbuff(1)%end, idwbuff(2)%beg:idwbuff(2)%end, idwbuff(3)%beg:idwbuff(3)%end, mom_idx%beg:mom_idx%end))'
# 545 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 545 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        call flush (output_unit)
# 545 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    end block
# 545 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 545 "/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, mom_idx%beg:mom_idx%end))
# 545 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 545 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 545 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 545 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc enter data create(dqL_rsz_vf) 
# 545 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 545 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp target enter data map(always,alloc:dqL_rsz_vf) 
# 545 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 547 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#ifdef MFC_DEBUG
# 547 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    block
# 547 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        use iso_fortran_env, only: output_unit
# 547 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 547 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        print *, 'm_rhs.fpp:547: ', '@:ALLOCATE(dqR_rsz_vf(idwbuff(1)%beg:idwbuff(1)%end, idwbuff(2)%beg:idwbuff(2)%end, idwbuff(3)%beg:idwbuff(3)%end, mom_idx%beg:mom_idx%end))'
# 547 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 547 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        call flush (output_unit)
# 547 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    end block
# 547 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 547 "/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, mom_idx%beg:mom_idx%end))
# 547 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 547 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 547 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 547 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc enter data create(dqR_rsz_vf) 
# 547 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 547 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp target enter data map(always,alloc:dqR_rsz_vf) 
# 547 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 549 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
                    end if
                end if ! end allocation for weno_Re_flux
 
            else
#ifdef MFC_DEBUG
# 553 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    block
# 553 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        use iso_fortran_env, only: output_unit
# 553 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 553 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        print *, 'm_rhs.fpp:553: ', '@:ALLOCATE(dq_prim_dx_qp(1)%vf(1:sys_size))'
# 553 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 553 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        call flush (output_unit)
# 553 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    end block
# 553 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 553 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    allocate (dq_prim_dx_qp(1)%vf(1:sys_size))
# 553 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 553 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 553 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 553 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc enter data create(dq_prim_dx_qp(1)%vf) 
# 553 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 553 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp target enter data map(always,alloc:dq_prim_dx_qp(1)%vf) 
# 553 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
#ifdef MFC_DEBUG
# 554 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    block
# 554 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        use iso_fortran_env, only: output_unit
# 554 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 554 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        print *, 'm_rhs.fpp:554: ', '@:ALLOCATE(dq_prim_dy_qp(1)%vf(1:sys_size))'
# 554 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 554 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        call flush (output_unit)
# 554 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    end block
# 554 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 554 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    allocate (dq_prim_dy_qp(1)%vf(1:sys_size))
# 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"
#if defined(MFC_OpenACC)
# 554 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc enter data create(dq_prim_dy_qp(1)%vf) 
# 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"
!$omp target enter data map(always,alloc:dq_prim_dy_qp(1)%vf) 
# 554 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
#ifdef MFC_DEBUG
# 555 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    block
# 555 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        use iso_fortran_env, only: output_unit
# 555 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 555 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        print *, 'm_rhs.fpp:555: ', '@:ALLOCATE(dq_prim_dz_qp(1)%vf(1:sys_size))'
# 555 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 555 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        call flush (output_unit)
# 555 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    end block
# 555 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 555 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    allocate (dq_prim_dz_qp(1)%vf(1:sys_size))
# 555 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 555 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 555 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 555 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc enter data create(dq_prim_dz_qp(1)%vf) 
# 555 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 555 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp target enter data map(always,alloc:dq_prim_dz_qp(1)%vf) 
# 555 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
 
                do l = momxb, momxe
#ifdef MFC_DEBUG
# 558 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    block
# 558 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        use iso_fortran_env, only: output_unit
# 558 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 558 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        print *, 'm_rhs.fpp:558: ', '@:ALLOCATE(dq_prim_dx_qp(1)%vf(l)%sf(0, 0, 0))'
# 558 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 558 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        call flush (output_unit)
# 558 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    end block
# 558 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 558 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    allocate (dq_prim_dx_qp(1)%vf(l)%sf(0, 0, 0))
# 558 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 558 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 558 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 558 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc enter data create(dq_prim_dx_qp(1)%vf(l)%sf) 
# 558 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 558 "/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) 
# 558 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
#ifdef _CRAYFTN
# 559 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    block
# 559 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        integer :: macros_setup_vfs_i
# 559 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 559 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#ifdef MFC_DEBUG
# 559 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    block
# 559 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        use iso_fortran_env, only: output_unit
# 559 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 559 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        print *, 'm_rhs.fpp:559: ', '@:ACC_SETUP_VFs(dq_prim_dx_qp(1))'
# 559 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 559 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        call flush (output_unit)
# 559 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    end block
# 559 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 559 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 559 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 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 enter data copyin(dq_prim_dx_qp(1)) 
# 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"
!$omp target enter data map(to:dq_prim_dx_qp(1)) 
# 559 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 559 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 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 enter data copyin(dq_prim_dx_qp(1)%vf) 
# 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"
!$omp target enter data map(to:dq_prim_dx_qp(1)%vf) 
# 559 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 559 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
            if (allocated(dq_prim_dx_qp(1)%vf)) then
# 559 "/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)
# 559 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
                    if (associated(dq_prim_dx_qp(1)%vf(macros_setup_vfs_i)%sf)) then
# 559 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 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 enter data copyin(dq_prim_dx_qp(1)%vf(macros_setup_vfs_i)) 
# 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"
!$omp target enter data map(to:dq_prim_dx_qp(1)%vf(macros_setup_vfs_i)) 
# 559 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 559 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 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 enter data copyin(dq_prim_dx_qp(1)%vf(macros_setup_vfs_i)%sf) 
# 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"
!$omp target enter data map(to:dq_prim_dx_qp(1)%vf(macros_setup_vfs_i)%sf) 
# 559 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 559 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
                    end if
# 559 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
                end do
# 559 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
            end if
# 559 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    end block
# 559 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
                    if (n > 0) then
#ifdef MFC_DEBUG
# 561 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    block
# 561 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        use iso_fortran_env, only: output_unit
# 561 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 561 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        print *, 'm_rhs.fpp:561: ', '@:ALLOCATE(dq_prim_dy_qp(1)%vf(l)%sf(0, 0, 0))'
# 561 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 561 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        call flush (output_unit)
# 561 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    end block
# 561 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 561 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    allocate (dq_prim_dy_qp(1)%vf(l)%sf(0, 0, 0))
# 561 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 561 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 561 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 561 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc enter data create(dq_prim_dy_qp(1)%vf(l)%sf) 
# 561 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 561 "/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) 
# 561 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
#ifdef _CRAYFTN
# 562 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    block
# 562 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        integer :: macros_setup_vfs_i
# 562 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 562 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#ifdef MFC_DEBUG
# 562 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    block
# 562 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        use iso_fortran_env, only: output_unit
# 562 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 562 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        print *, 'm_rhs.fpp:562: ', '@:ACC_SETUP_VFs(dq_prim_dy_qp(1))'
# 562 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 562 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        call flush (output_unit)
# 562 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    end block
# 562 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 562 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 562 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 562 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 562 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc enter data copyin(dq_prim_dy_qp(1)) 
# 562 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 562 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp target enter data map(to:dq_prim_dy_qp(1)) 
# 562 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 562 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 562 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 562 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc enter data copyin(dq_prim_dy_qp(1)%vf) 
# 562 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 562 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp target enter data map(to:dq_prim_dy_qp(1)%vf) 
# 562 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 562 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
            if (allocated(dq_prim_dy_qp(1)%vf)) then
# 562 "/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)
# 562 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
                    if (associated(dq_prim_dy_qp(1)%vf(macros_setup_vfs_i)%sf)) then
# 562 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 562 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 562 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc enter data copyin(dq_prim_dy_qp(1)%vf(macros_setup_vfs_i)) 
# 562 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 562 "/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)) 
# 562 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 562 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 562 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 562 "/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) 
# 562 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 562 "/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) 
# 562 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 562 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
                    end if
# 562 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
                end do
# 562 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
            end if
# 562 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    end block
# 562 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
                        if (p > 0) then
#ifdef MFC_DEBUG
# 564 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    block
# 564 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        use iso_fortran_env, only: output_unit
# 564 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 564 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        print *, 'm_rhs.fpp:564: ', '@:ALLOCATE(dq_prim_dz_qp(1)%vf(l)%sf(0, 0, 0))'
# 564 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 564 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        call flush (output_unit)
# 564 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    end block
# 564 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 564 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    allocate (dq_prim_dz_qp(1)%vf(l)%sf(0, 0, 0))
# 564 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 564 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 564 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 564 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc enter data create(dq_prim_dz_qp(1)%vf(l)%sf) 
# 564 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 564 "/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) 
# 564 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
#ifdef _CRAYFTN
# 565 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    block
# 565 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        integer :: macros_setup_vfs_i
# 565 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 565 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#ifdef MFC_DEBUG
# 565 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    block
# 565 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        use iso_fortran_env, only: output_unit
# 565 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 565 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        print *, 'm_rhs.fpp:565: ', '@:ACC_SETUP_VFs(dq_prim_dz_qp(1))'
# 565 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 565 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        call flush (output_unit)
# 565 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    end block
# 565 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 565 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 565 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 565 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 565 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc enter data copyin(dq_prim_dz_qp(1)) 
# 565 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 565 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp target enter data map(to:dq_prim_dz_qp(1)) 
# 565 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 565 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 565 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 565 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc enter data copyin(dq_prim_dz_qp(1)%vf) 
# 565 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 565 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp target enter data map(to:dq_prim_dz_qp(1)%vf) 
# 565 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 565 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
            if (allocated(dq_prim_dz_qp(1)%vf)) then
# 565 "/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)
# 565 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
                    if (associated(dq_prim_dz_qp(1)%vf(macros_setup_vfs_i)%sf)) then
# 565 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 565 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 565 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc enter data copyin(dq_prim_dz_qp(1)%vf(macros_setup_vfs_i)) 
# 565 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 565 "/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)) 
# 565 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 565 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 565 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 565 "/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) 
# 565 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 565 "/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) 
# 565 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 565 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
                    end if
# 565 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
                end do
# 565 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
            end if
# 565 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    end block
# 565 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
                        end if
                    end if
                end do
            end if ! end allocation of viscous variables
 
 
# 571 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 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 parallel loop collapse(4) gang vector default(present) private(i, j, k, l, id) 
# 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"
 
# 571 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 571 "/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) 
# 571 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 571 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
            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
 
# 583 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 583 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 583 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc end parallel loop
# 583 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 583 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    
# 583 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 583 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp end target teams loop
# 583 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 583 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
 
        end if ! end allocation for .not. igr
 
        if (qbmm) then
#ifdef MFC_DEBUG
# 588 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    block
# 588 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        use iso_fortran_env, only: output_unit
# 588 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 588 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        print *, 'm_rhs.fpp:588: ', '@:ALLOCATE(mom_sp(1:nmomsp), mom_3d(0:2, 0:2, nb))'
# 588 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 588 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        call flush (output_unit)
# 588 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    end block
# 588 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 588 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    allocate (mom_sp(1:nmomsp), mom_3d(0:2, 0:2, nb))
# 588 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 588 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 588 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 588 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 588 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc enter data create(mom_sp, mom_3d) 
# 588 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 588 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp target enter data map(always,alloc:mom_sp, mom_3d) 
# 588 "/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
# 593 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    block
# 593 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        use iso_fortran_env, only: output_unit
# 593 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 593 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        print *, 'm_rhs.fpp:593: ', '@: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))'
# 593 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 593 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        call flush (output_unit)
# 593 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    end block
# 593 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 593 "/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))
# 593 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 593 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 593 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 593 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc enter data create(mom_3d(i, j, k)%sf) 
# 593 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 593 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp target enter data map(always,alloc:mom_3d(i, j, k)%sf) 
# 593 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 597 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#ifdef _CRAYFTN
# 597 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    block
# 597 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 597 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#ifdef MFC_DEBUG
# 597 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    block
# 597 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        use iso_fortran_env, only: output_unit
# 597 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 597 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        print *, 'm_rhs.fpp:597: ', '@:ACC_SETUP_SFs(mom_3d(i, j, k))'
# 597 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 597 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        call flush (output_unit)
# 597 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    end block
# 597 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 597 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 597 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 597 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 597 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc enter data copyin(mom_3d(i, j, k)) 
# 597 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 597 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp target enter data map(to:mom_3d(i, j, k)) 
# 597 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 597 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
            if (associated(mom_3d(i, j, k)%sf)) then
# 597 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 597 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 597 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc enter data copyin(mom_3d(i, j, k)%sf) 
# 597 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 597 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp target enter data map(to:mom_3d(i, j, k)%sf) 
# 597 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 597 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
            end if
# 597 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    end block
# 597 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
                    end do
                end do
            end do
 
            do i = 1, nmomsp
#ifdef MFC_DEBUG
# 603 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    block
# 603 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        use iso_fortran_env, only: output_unit
# 603 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 603 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        print *, 'm_rhs.fpp:603: ', '@:ALLOCATE(mom_sp(i)%sf( idwbuff(1)%beg:idwbuff(1)%end, idwbuff(2)%beg:idwbuff(2)%end, idwbuff(3)%beg:idwbuff(3)%end))'
# 603 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 603 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        call flush (output_unit)
# 603 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    end block
# 603 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 603 "/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))
# 603 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 603 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 603 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 603 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc enter data create(mom_sp(i)%sf) 
# 603 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 603 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp target enter data map(always,alloc:mom_sp(i)%sf) 
# 603 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 607 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#ifdef _CRAYFTN
# 607 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    block
# 607 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 607 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#ifdef MFC_DEBUG
# 607 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    block
# 607 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        use iso_fortran_env, only: output_unit
# 607 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 607 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        print *, 'm_rhs.fpp:607: ', '@:ACC_SETUP_SFs(mom_sp(i))'
# 607 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 607 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        call flush (output_unit)
# 607 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    end block
# 607 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 607 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 607 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 607 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 607 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc enter data copyin(mom_sp(i)) 
# 607 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 607 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp target enter data map(to:mom_sp(i)) 
# 607 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 607 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
            if (associated(mom_sp(i)%sf)) then
# 607 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 607 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 607 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc enter data copyin(mom_sp(i)%sf) 
# 607 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 607 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp target enter data map(to:mom_sp(i)%sf) 
# 607 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 607 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
            end if
# 607 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    end block
# 607 "/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
# 612 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    block
# 612 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        use iso_fortran_env, only: output_unit
# 612 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 612 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        print *, 'm_rhs.fpp:612: ', '@:ALLOCATE(alf_sum%sf(idwbuff(1)%beg:idwbuff(1)%end, idwbuff(2)%beg:idwbuff(2)%end, idwbuff(3)%beg:idwbuff(3)%end))'
# 612 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 612 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        call flush (output_unit)
# 612 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    end block
# 612 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 612 "/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))
# 612 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 612 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 612 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 612 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc enter data create(alf_sum%sf) 
# 612 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 612 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp target enter data map(always,alloc:alf_sum%sf) 
# 612 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
        end if
        ! END: Allocation/Association of qK_cons_n and qK_prim_n
 
        ! Allocation of gm_alphaK_n
        if (.not. igr) then
#ifdef MFC_DEBUG
# 618 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    block
# 618 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        use iso_fortran_env, only: output_unit
# 618 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 618 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        print *, 'm_rhs.fpp:618: ', '@:ALLOCATE(gm_alphaL_n(1:num_dims))'
# 618 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 618 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        call flush (output_unit)
# 618 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    end block
# 618 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 618 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    allocate (gm_alphal_n(1:num_dims))
# 618 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 618 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 618 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 618 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc enter data create(gm_alphaL_n) 
# 618 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 618 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp target enter data map(always,alloc:gm_alphaL_n) 
# 618 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
#ifdef MFC_DEBUG
# 619 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    block
# 619 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        use iso_fortran_env, only: output_unit
# 619 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 619 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        print *, 'm_rhs.fpp:619: ', '@:ALLOCATE(gm_alphaR_n(1:num_dims))'
# 619 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 619 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        call flush (output_unit)
# 619 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    end block
# 619 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 619 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    allocate (gm_alphar_n(1:num_dims))
# 619 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 619 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 619 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 619 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc enter data create(gm_alphaR_n) 
# 619 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 619 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp target enter data map(always,alloc:gm_alphaR_n) 
# 619 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
        end if
 
        if (alt_soundspeed) then
#ifdef MFC_DEBUG
# 623 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    block
# 623 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        use iso_fortran_env, only: output_unit
# 623 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 623 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        print *, 'm_rhs.fpp:623: ', '@: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))'
# 623 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 623 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        call flush (output_unit)
# 623 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    end block
# 623 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 623 "/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))
# 623 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 623 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 623 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 623 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 623 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 623 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 623 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 623 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc enter data create(blkmod1, blkmod2, alpha1, alpha2, Kterm) 
# 623 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 623 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp target enter data map(always,alloc:blkmod1, blkmod2, alpha1, alpha2, Kterm) 
# 623 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
        end if
 
        call s_initialize_pressure_relaxation_module
 
        if (bubbles_euler) then
#ifdef MFC_DEBUG
# 629 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    block
# 629 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        use iso_fortran_env, only: output_unit
# 629 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 629 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        print *, 'm_rhs.fpp:629: ', '@:ALLOCATE(nbub(0:m, 0:n, 0:p))'
# 629 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 629 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        call flush (output_unit)
# 629 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    end block
# 629 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 629 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    allocate (nbub(0:m, 0:n, 0:p))
# 629 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 629 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 629 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 629 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc enter data create(nbub) 
# 629 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 629 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp target enter data map(always,alloc:nbub) 
# 629 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
        end if
 
    end subroutine s_initialize_rhs_module
 
    !> @brief Computes 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
 
        call nvtxstartrange("COMPUTE-RHS")
 
        call cpu_time(t_start)
 
        if (.not. igr .or. dummy) then
            ! Association/Population of Working Variables
 
# 660 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 660 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 660 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc parallel loop collapse(4) gang vector default(present) private(i, j, k, l) 
# 660 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 660 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    
# 660 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 660 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 660 "/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) 
# 660 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 660 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
            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
 
# 670 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 670 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 670 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc end parallel loop
# 670 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 670 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    
# 670 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 670 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp end target teams loop
# 670 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 670 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
 
            ! Converting Conservative to Primitive Variables
 
            if (mpp_lim .and. bubbles_euler) then
 
# 675 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 675 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 675 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc parallel loop collapse(3) gang vector default(present) private(j, k, l) 
# 675 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 675 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    
# 675 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 675 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 675 "/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) 
# 675 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 675 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
                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
 
# 680 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 680 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc loop seq 
# 680 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 680 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 680 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
                            do i = advxb, advxe - 1
                                alf_sum%sf(j, k, l) = alf_sum%sf(j, k, l) + q_cons_qp%vf(i)%sf(j, k, l)
                            end do
 
# 684 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 684 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc loop seq 
# 684 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 684 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 684 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
                            do i = advxb, advxe - 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(alf_idx)%sf(j, k, l)) &
                                                              /alf_sum%sf(j, k, l)
                            end do
                        end do
                    end do
                end do
 
# 692 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 692 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 692 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc end parallel loop
# 692 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 692 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    
# 692 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 692 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp end target teams loop
# 692 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 692 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
            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)
            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)
            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
 
        ! Dimensional Splitting Loop
        do id = 1, num_dims
 
            if (igr .or. dummy) then
 
                if (id == 1) then
 
# 753 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 753 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 753 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc parallel loop collapse(4) gang vector default(present) private(i, j, k, l) 
# 753 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 753 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    
# 753 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 753 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 753 "/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) 
# 753 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 753 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
                    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
 
# 763 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 763 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 763 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc end parallel loop
# 763 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 763 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    
# 763 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 763 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp end target teams loop
# 763 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 763 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
                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 = contxe
                        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 = e_idx; 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 = e_idx - 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 = e_idx; iv%end = e_idx
                        call s_reconstruct_cell_boundary_values_first_order( &
                            q_prim_qp%vf(e_idx), &
                            ql_rsx_vf, ql_rsy_vf, ql_rsz_vf, &
                            qr_rsx_vf, qr_rsy_vf, qr_rsz_vf, &
                            id)
 
                        iv%beg = e_idx + 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 = contxe
                        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 = e_idx; iv%end = e_idx
                        call s_reconstruct_cell_boundary_values_first_order( &
                            q_prim_qp%vf(e_idx), &
                            ql_rsx_vf, ql_rsy_vf, ql_rsz_vf, &
                            qr_rsx_vf, qr_rsy_vf, qr_rsz_vf, &
                            id)
 
                        iv%beg = e_idx + 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 = momxb; iv%end = momxe
                    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
                elseif (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
                ! $:GPU_UPDATE(host='[qL_rsx_vf,qR_rsx_vf]')
                ! print *, "L", qL_rsx_vf(100:300, 0, 0, 1)
                ! print *, "R", qR_rsx_vf(100:300, 0, 0, 1)
 
                !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
 
                !$:GPU_UPDATE(host='[flux_n(1)%vf(1)%sf]')
                !print *, "FLUX", flux_n(1)%vf(1)%sf(100:300, 0, 0)
 
                ! 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)
                    call nvtxendrange
                end if
 
                ! RHS additions for viscosity
                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
 
                ! RHS additions for sub-grid bubbles_euler
                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
 
# 980 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 980 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 980 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc parallel loop collapse(3) gang vector default(present) private(j, k, l) 
# 980 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 980 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    
# 980 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 980 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 980 "/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) 
# 980 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 980 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
                    do l = 0, p
                        do k = 0, n
                            do j = 0, m
                                rhs_vf(psi_idx)%sf(j, k, l) = rhs_vf(psi_idx)%sf(j, k, l) - &
                                                              q_prim_vf(psi_idx)%sf(j, k, l)/hyper_cleaning_tau
                            end do
                        end do
                    end do
 
# 989 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 989 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 989 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc end parallel loop
# 989 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 989 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    
# 989 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 989 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp end target teams loop
# 989 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 989 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
                end if
 
                ! END: Additional physics and source terms
            end if
        end do
        ! END: Dimensional Splitting Loop
 
        if (ib) then
 
# 998 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 998 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 998 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc parallel loop collapse(3) gang vector default(present) private(i, j, k, l) 
# 998 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 998 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    
# 998 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 998 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 998 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp target teams loop defaultmap(firstprivate:scalar) bind(teams,parallel) collapse(3) defaultmap(tofrom:aggregate) defaultmap(tofrom:allocatable) defaultmap(tofrom:pointer) private(i, j, k, l) 
# 998 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 998 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
            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
 
# 1010 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1010 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 1010 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc end parallel loop
# 1010 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 1010 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    
# 1010 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1010 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp end target teams loop
# 1010 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 1010 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
        end if
 
        ! Additional Physics and Source Temrs
        ! 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), &
                                             t_step, &
                                             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 pphysics and source terms
 
        if (run_time_info .or. probe_wrt .or. ib .or. bubbles_lagrange) then
            if (.not. igr .or. dummy) then
 
# 1065 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1065 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 1065 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc parallel loop collapse(4) gang vector default(present) private(i, j, k, l) 
# 1065 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 1065 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    
# 1065 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1065 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1065 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp target teams loop defaultmap(firstprivate:scalar) bind(teams,parallel) collapse(4) defaultmap(tofrom:aggregate) defaultmap(tofrom:allocatable) defaultmap(tofrom:pointer) private(i, j, k, l) 
# 1065 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 1065 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
                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
 
# 1075 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1075 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 1075 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc end parallel loop
# 1075 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 1075 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    
# 1075 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1075 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp end target teams loop
# 1075 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 1075 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
            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
 
    !> @brief Accumulates 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
 
# 1108 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1108 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 1108 "/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) 
# 1108 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 1108 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    
# 1108 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1108 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1108 "/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) 
# 1108 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 1108 "/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
                        blkmod1(k_loop, l_loop, q_loop) = ((gammas(1) + 1._wp)*q_prim_vf%vf(e_idx)%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(e_idx)%sf(k_loop, l_loop, q_loop) + &
                                                           pi_infs(2))/gammas(2)
                        alpha1(k_loop, l_loop, q_loop) = q_cons_vf%vf(advxb)%sf(k_loop, l_loop, q_loop)
 
                        if (bubbles_euler) then
                            alpha2(k_loop, l_loop, q_loop) = q_cons_vf%vf(alf_idx - 1)%sf(k_loop, l_loop, q_loop)
                        else
                            alpha2(k_loop, l_loop, q_loop) = q_cons_vf%vf(advxe)%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
 
# 1131 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1131 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 1131 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc end parallel loop
# 1131 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 1131 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    
# 1131 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1131 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp end target teams loop
# 1131 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 1131 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
        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
 
 
# 1143 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1143 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 1143 "/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) 
# 1143 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 1143 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    
# 1143 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1143 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1143 "/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) 
# 1143 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 1143 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
            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
 
# 1156 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1156 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 1156 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc end parallel loop
# 1156 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 1156 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    
# 1156 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1156 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp end target teams loop
# 1156 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 1156 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
 
            if (model_eqns == 3) then
 
# 1159 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1159 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 1159 "/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) 
# 1159 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 1159 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    
# 1159 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1159 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1159 "/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) 
# 1159 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 1159 "/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 + advxb - 1)%sf(k_loop, l_loop, q_loop)
                                pressure_val = q_prim_vf%vf(e_idx)%sf(k_loop, l_loop, q_loop)
                                flux_face1 = flux_src_n_vf%vf(advxb)%sf(k_loop, l_loop, q_loop)
                                flux_face2 = flux_src_n_vf%vf(advxb)%sf(k_loop - 1, l_loop, q_loop)
                                rhs_vf(i_fluid_loop + intxb - 1)%sf(k_loop, l_loop, q_loop) = &
                                    rhs_vf(i_fluid_loop + intxb - 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
 
# 1176 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 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"
 
# 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
# 1176 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
            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
 
 
# 1189 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1189 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 1189 "/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) 
# 1189 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 1189 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    
# 1189 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1189 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1189 "/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) 
# 1189 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 1189 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
            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
 
# 1202 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1202 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 1202 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc end parallel loop
# 1202 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 1202 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    
# 1202 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1202 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp end target teams loop
# 1202 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 1202 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
 
            if (model_eqns == 3) then
 
# 1205 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1205 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 1205 "/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) 
# 1205 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 1205 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    
# 1205 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1205 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1205 "/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) 
# 1205 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 1205 "/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 + advxb - 1)%sf(q, k, l)
                                pressure_val = q_prim_vf%vf(e_idx)%sf(q, k, l)
                                flux_face1 = flux_src_n_vf%vf(advxb)%sf(q, k, l)
                                flux_face2 = flux_src_n_vf%vf(advxb)%sf(q, k - 1, l)
                                rhs_vf(i_fluid_loop + intxb - 1)%sf(q, k, l) = &
                                    rhs_vf(i_fluid_loop + intxb - 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 + intxb - 1)%sf(q, k, l) = &
                                        rhs_vf(i_fluid_loop + intxb - 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
 
# 1227 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1227 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 1227 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc end parallel loop
# 1227 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 1227 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    
# 1227 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1227 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp end target teams loop
# 1227 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 1227 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
            end if
 
            if (cyl_coord) then
 
# 1231 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1231 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 1231 "/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) 
# 1231 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 1231 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    
# 1231 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1231 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1231 "/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) 
# 1231 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 1231 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
                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
 
# 1244 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1244 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 1244 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc end parallel loop
# 1244 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 1244 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    
# 1244 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1244 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp end target teams loop
# 1244 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 1244 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
            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
 
# 1258 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1258 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 1258 "/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) 
# 1258 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 1258 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    
# 1258 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1258 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1258 "/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) 
# 1258 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 1258 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
                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(contxe + 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
 
# 1273 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1273 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 1273 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc end parallel loop
# 1273 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 1273 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    
# 1273 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1273 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp end target teams loop
# 1273 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 1273 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
 
# 1274 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1274 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 1274 "/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) 
# 1274 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 1274 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    
# 1274 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1274 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1274 "/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) 
# 1274 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 1274 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
                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
 
# 1287 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1287 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 1287 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc end parallel loop
# 1287 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 1287 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    
# 1287 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1287 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp end target teams loop
# 1287 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 1287 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
            else ! Cartesian Coordinates
 
# 1289 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1289 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 1289 "/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) 
# 1289 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 1289 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    
# 1289 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1289 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1289 "/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) 
# 1289 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 1289 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
                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
 
# 1302 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1302 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 1302 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc end parallel loop
# 1302 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 1302 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    
# 1302 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1302 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp end target teams loop
# 1302 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 1302 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
            end if
 
            if (model_eqns == 3) then
 
# 1306 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1306 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 1306 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc 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) 
# 1306 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 1306 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    
# 1306 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1306 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1306 "/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) 
# 1306 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 1306 "/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 + advxb - 1)%sf(l, q, k)
                                pressure_val = q_prim_vf%vf(e_idx)%sf(l, q, k)
                                flux_face1 = flux_src_n_vf%vf(advxb)%sf(l, q, k)
                                flux_face2 = flux_src_n_vf%vf(advxb)%sf(l, q, k - 1)
                                rhs_vf(i_fluid_loop + intxb - 1)%sf(l, q, k) = &
                                    rhs_vf(i_fluid_loop + intxb - 1)%sf(l, q, k) - &
                                    inv_ds*advected_qty_val*pressure_val*(flux_face1 - flux_face2)
                            end do
                        end do
                    end do
                end do
 
# 1323 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1323 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 1323 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc end parallel loop
# 1323 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 1323 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    
# 1323 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1323 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp end target teams loop
# 1323 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 1323 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
            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
 
        !> @brief Adds 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
 
# 1352 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1352 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 1352 "/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) 
# 1352 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 1352 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    
# 1352 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1352 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1352 "/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) 
# 1352 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 1352 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
                    do j_adv = advxb, advxe
                        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(contxe + 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
 
# 1367 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1367 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 1367 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc end parallel loop
# 1367 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 1367 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    
# 1367 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1367 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp end target teams loop
# 1367 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 1367 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
                else ! Other Riemann solvers
                    if (alt_soundspeed) then
                        if (bubbles_euler .neqv. .true.) then
 
# 1371 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1371 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 1371 "/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) 
# 1371 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 1371 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    
# 1371 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1371 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1371 "/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) 
# 1371 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 1371 "/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(advxe)%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(advxe)%sf(k_idx, l_idx, q_idx)
                                        local_flux2 = flux_src_n_vf_arg%vf(advxe)%sf(k_idx - 1, l_idx, q_idx)
                                        rhs_vf_arg(advxe)%sf(k_idx, l_idx, q_idx) = rhs_vf_arg(advxe)%sf(k_idx, l_idx, q_idx) + &
                                                                                    local_inv_ds*local_term_coeff*(local_flux1 - local_flux2)
                                    end do; end do; end do
 
# 1382 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1382 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 1382 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc end parallel loop
# 1382 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 1382 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    
# 1382 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1382 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp end target teams loop
# 1382 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 1382 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
 
 
# 1384 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1384 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 1384 "/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) 
# 1384 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 1384 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    
# 1384 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1384 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1384 "/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) 
# 1384 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 1384 "/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(advxb)%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(advxb)%sf(k_idx, l_idx, q_idx)
                                        local_flux2 = flux_src_n_vf_arg%vf(advxb)%sf(k_idx - 1, l_idx, q_idx)
                                        rhs_vf_arg(advxb)%sf(k_idx, l_idx, q_idx) = rhs_vf_arg(advxb)%sf(k_idx, l_idx, q_idx) + &
                                                                                    local_inv_ds*local_term_coeff*(local_flux1 - local_flux2)
                                    end do; end do; end do
 
# 1395 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1395 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 1395 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc end parallel loop
# 1395 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 1395 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    
# 1395 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1395 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp end target teams loop
# 1395 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 1395 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
                        end if
                    else ! NOT alt_soundspeed
 
# 1398 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1398 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 1398 "/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) 
# 1398 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 1398 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    
# 1398 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1398 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1398 "/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) 
# 1398 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 1398 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
                        do j_adv = advxb, advxe
                            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
 
# 1409 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1409 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 1409 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc end parallel loop
# 1409 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 1409 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    
# 1409 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1409 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp end target teams loop
# 1409 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 1409 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
                    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
 
# 1416 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1416 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 1416 "/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) 
# 1416 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 1416 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    
# 1416 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1416 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1416 "/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) 
# 1416 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 1416 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
                    do j_adv = advxb, advxe
                        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(contxe + 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
 
# 1431 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1431 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 1431 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc end parallel loop
# 1431 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 1431 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    
# 1431 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1431 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp end target teams loop
# 1431 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 1431 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
                else ! Other Riemann solvers
                    if (alt_soundspeed) then
                        if (bubbles_euler .neqv. .true.) then
 
# 1435 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1435 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 1435 "/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) 
# 1435 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 1435 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    
# 1435 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1435 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1435 "/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) 
# 1435 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 1435 "/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(advxe)%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(advxe)%sf(q_idx, k_idx, l_idx)
                                        local_flux2 = flux_src_n_vf_arg%vf(advxe)%sf(q_idx, k_idx - 1, l_idx)
                                        rhs_vf_arg(advxe)%sf(q_idx, k_idx, l_idx) = rhs_vf_arg(advxe)%sf(q_idx, k_idx, l_idx) + &
                                                                                    local_inv_ds*local_term_coeff*(local_flux1 - local_flux2)
                                        if (cyl_coord) then
                                            rhs_vf_arg(advxe)%sf(q_idx, k_idx, l_idx) = rhs_vf_arg(advxe)%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
 
# 1450 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 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 end parallel loop
# 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"
 
# 1450 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp end target teams loop
# 1450 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 1450 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
 
 
# 1452 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1452 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 1452 "/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) 
# 1452 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 1452 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    
# 1452 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1452 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1452 "/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) 
# 1452 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 1452 "/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(advxb)%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(advxb)%sf(q_idx, k_idx, l_idx)
                                        local_flux2 = flux_src_n_vf_arg%vf(advxb)%sf(q_idx, k_idx - 1, l_idx)
                                        rhs_vf_arg(advxb)%sf(q_idx, k_idx, l_idx) = rhs_vf_arg(advxb)%sf(q_idx, k_idx, l_idx) + &
                                                                                    local_inv_ds*local_term_coeff*(local_flux1 - local_flux2)
                                        if (cyl_coord) then
                                            rhs_vf_arg(advxb)%sf(q_idx, k_idx, l_idx) = rhs_vf_arg(advxb)%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
 
# 1467 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1467 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 1467 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc end parallel loop
# 1467 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 1467 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    
# 1467 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1467 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp end target teams loop
# 1467 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 1467 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
                        end if
                    else ! NOT alt_soundspeed
 
# 1470 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1470 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 1470 "/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) 
# 1470 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 1470 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    
# 1470 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1470 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1470 "/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) 
# 1470 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 1470 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
                        do j_adv = advxb, advxe
                            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
 
# 1481 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1481 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 1481 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc end parallel loop
# 1481 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 1481 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    
# 1481 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1481 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp end target teams loop
# 1481 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 1481 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
                    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
 
# 1493 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1493 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 1493 "/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) 
# 1493 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 1493 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    
# 1493 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1493 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1493 "/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) 
# 1493 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 1493 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
                    do j_adv = advxb, advxe
                        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(contxe + 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
 
# 1508 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1508 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 1508 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc end parallel loop
# 1508 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 1508 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    
# 1508 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1508 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp end target teams loop
# 1508 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 1508 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
                else ! Other Riemann solvers
                    if (alt_soundspeed) then
                        if (bubbles_euler .neqv. .true.) then
 
# 1512 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1512 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 1512 "/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) 
# 1512 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 1512 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    
# 1512 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1512 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1512 "/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) 
# 1512 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 1512 "/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(advxe)%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(advxe)%sf(l_idx, q_idx, k_idx)
                                        local_flux2 = flux_src_n_vf_arg%vf(advxe)%sf(l_idx, q_idx, k_idx - 1)
                                        rhs_vf_arg(advxe)%sf(l_idx, q_idx, k_idx) = rhs_vf_arg(advxe)%sf(l_idx, q_idx, k_idx) + &
                                                                                    local_inv_ds*local_term_coeff*(local_flux1 - local_flux2)
                                    end do; end do; end do
 
# 1523 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1523 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 1523 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc end parallel loop
# 1523 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 1523 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    
# 1523 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1523 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp end target teams loop
# 1523 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 1523 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
 
 
# 1525 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1525 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 1525 "/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) 
# 1525 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 1525 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    
# 1525 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1525 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1525 "/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) 
# 1525 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 1525 "/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(advxb)%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(advxb)%sf(l_idx, q_idx, k_idx)
                                        local_flux2 = flux_src_n_vf_arg%vf(advxb)%sf(l_idx, q_idx, k_idx - 1)
                                        rhs_vf_arg(advxb)%sf(l_idx, q_idx, k_idx) = rhs_vf_arg(advxb)%sf(l_idx, q_idx, k_idx) + &
                                                                                    local_inv_ds*local_term_coeff*(local_flux1 - local_flux2)
                                    end do; end do; end do
 
# 1536 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1536 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 1536 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc end parallel loop
# 1536 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 1536 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    
# 1536 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1536 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp end target teams loop
# 1536 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 1536 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
                        end if
                    else ! NOT alt_soundspeed
 
# 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(4) gang vector default(present) private(j_adv, k_idx, l_idx, q_idx, local_inv_ds, local_term_coeff, local_flux1, local_flux2) 
# 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(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) 
# 1539 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 1539 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
                        do j_adv = advxb, advxe
                            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
 
# 1550 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1550 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 1550 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc end parallel loop
# 1550 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 1550 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    
# 1550 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1550 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp end target teams loop
# 1550 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 1550 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
                    end if
                end if
            end select
        end subroutine s_add_directional_advection_source_terms
 
    end subroutine s_compute_advection_source_term
 
    !> @brief Adds 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
 
# 1573 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1573 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 1573 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc parallel loop collapse(3) gang vector default(present) private(j, k, l) 
# 1573 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 1573 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    
# 1573 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1573 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1573 "/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) 
# 1573 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 1573 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
                do l = 0, p
                    do k = 0, n
                        do j = 0, m
                            rhs_vf(c_idx)%sf(j, k, l) = &
                                rhs_vf(c_idx)%sf(j, k, l) + 1._wp/dx(j)* &
                                q_prim_vf(c_idx)%sf(j, k, l)* &
                                (flux_src_n_in(advxb)%sf(j, k, l) - &
                                 flux_src_n_in(advxb)%sf(j - 1, k, l))
                        end do
                    end do
                end do
 
# 1585 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1585 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 1585 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc end parallel loop
# 1585 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 1585 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    
# 1585 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1585 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp end target teams loop
# 1585 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 1585 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
            end if
 
            if ((surface_tension .or. viscous) .or. chem_params%diffusion) then
 
# 1589 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1589 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 1589 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc parallel loop collapse(3) gang vector default(present) private(j, k, l) 
# 1589 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 1589 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    
# 1589 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1589 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1589 "/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) 
# 1589 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 1589 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
                do l = 0, p
                    do k = 0, n
                        do j = 0, m
                            if (surface_tension .or. viscous) then
 
# 1594 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 1594 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc loop seq 
# 1594 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 1594 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1594 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
                                do i = momxb, e_idx
                                    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
 
# 1604 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 1604 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc loop seq 
# 1604 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 1604 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1604 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
                                do i = chemxb, chemxe
                                    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(e_idx)%sf(j, k, l) = &
                                        rhs_vf(e_idx)%sf(j, k, l) + 1._wp/dx(j)* &
                                        (flux_src_n_in(e_idx)%sf(j - 1, k, l) &
                                         - flux_src_n_in(e_idx)%sf(j, k, l))
                                end if
                            end if
                        end do
                    end do
                end do
 
# 1622 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1622 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 1622 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc end parallel loop
# 1622 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 1622 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    
# 1622 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1622 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp end target teams loop
# 1622 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 1622 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
            end if
 
        elseif (idir == 2) then ! y-direction
 
            if (surface_tension) then
 
# 1628 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1628 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 1628 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc parallel loop collapse(3) gang vector default(present) private(j, k, l) 
# 1628 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 1628 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    
# 1628 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1628 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1628 "/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) 
# 1628 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 1628 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
                do l = 0, p
                    do k = 0, n
                        do j = 0, m
                            rhs_vf(c_idx)%sf(j, k, l) = &
                                rhs_vf(c_idx)%sf(j, k, l) + 1._wp/dy(k)* &
                                q_prim_vf(c_idx)%sf(j, k, l)* &
                                (flux_src_n_in(advxb)%sf(j, k, l) - &
                                 flux_src_n_in(advxb)%sf(j, k - 1, l))
                        end do
                    end do
                end do
 
# 1640 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1640 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 1640 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc end parallel loop
# 1640 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 1640 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    
# 1640 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1640 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp end target teams loop
# 1640 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 1640 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
            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(mom_idx%beg:mom_idx%end), &
                                                                           dq_prim_dy_vf(mom_idx%beg:mom_idx%end), &
                                                                           dq_prim_dz_vf(mom_idx%beg:mom_idx%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(mom_idx%beg:mom_idx%end), &
                                                                           dq_prim_dy_vf(mom_idx%beg:mom_idx%end), &
                                                                           dq_prim_dy_vf(mom_idx%beg:mom_idx%end), &
                                                                           tau_re_vf, &
                                                                           idwbuff(1), idwbuff(2), idwbuff(3))
                    end if
 
 
# 1661 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1661 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 1661 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc parallel loop collapse(2) gang vector default(present) private(i, j, l) 
# 1661 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 1661 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    
# 1661 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1661 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1661 "/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) 
# 1661 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 1661 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
                    do l = 0, p
                        do j = 0, m
 
# 1664 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 1664 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc loop seq 
# 1664 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 1664 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1664 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
                            do i = momxb, e_idx
                                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
 
# 1673 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1673 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 1673 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc end parallel loop
# 1673 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 1673 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    
# 1673 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1673 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp end target teams loop
# 1673 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 1673 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
 
                end if
 
 
# 1677 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 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 parallel loop collapse(3) gang vector default(present) private(i, j, k, l) 
# 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"
    
# 1677 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1677 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1677 "/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) 
# 1677 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 1677 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
                do l = 0, p
                    do k = 1, n
                        do j = 0, m
 
# 1681 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 1681 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc loop seq 
# 1681 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 1681 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1681 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
                            do i = momxb, e_idx
                                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
 
# 1691 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1691 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 1691 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc end parallel loop
# 1691 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 1691 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    
# 1691 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1691 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp end target teams loop
# 1691 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 1691 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
 
            else
 
                if ((surface_tension .or. viscous) .or. chem_params%diffusion) then
 
# 1696 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1696 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 1696 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc parallel loop collapse(3) gang vector default(present) private(i, j, k, l) 
# 1696 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 1696 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    
# 1696 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1696 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1696 "/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) 
# 1696 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 1696 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
                    do l = 0, p
                        do k = 0, n
                            do j = 0, m
                                if (surface_tension .or. viscous) then
 
# 1701 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 1701 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc loop seq 
# 1701 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 1701 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1701 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
                                    do i = momxb, e_idx
                                        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
 
# 1711 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 1711 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc loop seq 
# 1711 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 1711 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1711 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
                                    do i = chemxb, chemxe
                                        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(e_idx)%sf(j, k, l) = &
                                            rhs_vf(e_idx)%sf(j, k, l) + 1._wp/dy(k)* &
                                            (flux_src_n_in(e_idx)%sf(j, k - 1, l) &
                                             - flux_src_n_in(e_idx)%sf(j, k, l))
                                    end if
                                end if
                            end do
                        end do
                    end do
 
# 1728 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1728 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 1728 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc end parallel loop
# 1728 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 1728 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    
# 1728 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1728 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp end target teams loop
# 1728 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 1728 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
                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
 
 
# 1737 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1737 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 1737 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc parallel loop collapse(3) gang vector default(present) private(i, j, k, l) 
# 1737 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 1737 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    
# 1737 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1737 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1737 "/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) 
# 1737 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 1737 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
                    do l = 0, p
                        do k = 1, n
                            do j = 0, m
 
# 1741 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 1741 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc loop seq 
# 1741 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 1741 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1741 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
                                do i = momxb, e_idx
                                    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
 
# 1751 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1751 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 1751 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc end parallel loop
# 1751 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 1751 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    
# 1751 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1751 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp end target teams loop
# 1751 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 1751 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
 
                    if (viscous .or. dummy) then
 
# 1754 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1754 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 1754 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc parallel loop collapse(2) gang vector default(present) private(i, j, l) 
# 1754 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 1754 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    
# 1754 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1754 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1754 "/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) 
# 1754 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 1754 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
                        do l = 0, p
                            do j = 0, m
 
# 1757 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 1757 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc loop seq 
# 1757 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 1757 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1757 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
                                do i = momxb, e_idx
                                    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
 
# 1765 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1765 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 1765 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc end parallel loop
# 1765 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 1765 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    
# 1765 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1765 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp end target teams loop
# 1765 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 1765 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
                    end if
                else
 
 
# 1769 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1769 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 1769 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc parallel loop collapse(3) gang vector default(present) private(i, j, k, l) 
# 1769 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 1769 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    
# 1769 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1769 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1769 "/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) 
# 1769 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 1769 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
                    do l = 0, p
                        do k = 0, n
                            do j = 0, m
 
# 1773 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 1773 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc loop seq 
# 1773 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 1773 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1773 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
                                do i = momxb, e_idx
                                    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
 
# 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 end parallel loop
# 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"
    
# 1783 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1783 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp end target teams loop
# 1783 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 1783 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
                end if
            end if
 
        elseif (idir == 3) then ! z-direction
 
            if (surface_tension) then
 
# 1790 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1790 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 1790 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc parallel loop collapse(3) gang vector default(present) private(j, k, l) 
# 1790 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 1790 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    
# 1790 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1790 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1790 "/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) 
# 1790 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 1790 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
                do l = 0, p
                    do k = 0, n
                        do j = 0, m
                            rhs_vf(c_idx)%sf(j, k, l) = &
                                rhs_vf(c_idx)%sf(j, k, l) + 1._wp/dz(l)* &
                                q_prim_vf(c_idx)%sf(j, k, l)* &
                                (flux_src_n_in(advxb)%sf(j, k, l) - &
                                 flux_src_n_in(advxb)%sf(j, k, l - 1))
                        end do
                    end do
                end do
 
# 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 end parallel loop
# 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"
    
# 1802 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1802 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp end target teams loop
# 1802 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 1802 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
            end if
 
            if ((surface_tension .or. viscous) .or. chem_params%diffusion) then
 
# 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 parallel loop collapse(3) gang vector default(present) private(i, j, k, l) 
# 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"
    
# 1806 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1806 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1806 "/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) 
# 1806 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 1806 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
                do l = 0, p
                    do k = 0, n
                        do j = 0, m
                            if (surface_tension .or. viscous) then
 
# 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 loop seq 
# 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"
 
# 1811 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
                                do i = momxb, e_idx
                                    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
 
# 1821 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 1821 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc loop seq 
# 1821 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 1821 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1821 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
                                do i = chemxb, chemxe
                                    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(e_idx)%sf(j, k, l) = &
                                        rhs_vf(e_idx)%sf(j, k, l) + 1._wp/dz(l)* &
                                        (flux_src_n_in(e_idx)%sf(j, k, l - 1) &
                                         - flux_src_n_in(e_idx)%sf(j, k, l))
                                end if
                            end if
                        end do
                    end do
                end do
 
# 1838 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1838 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 1838 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc end parallel loop
# 1838 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 1838 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    
# 1838 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1838 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp end target teams loop
# 1838 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 1838 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
            end if
 
            if (grid_geometry == 3) then
 
# 1842 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1842 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 1842 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc parallel loop collapse(3) gang vector default(present) private(j, k, l) 
# 1842 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 1842 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    
# 1842 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1842 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1842 "/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) 
# 1842 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 1842 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
                do l = 0, p
                    do k = 0, n
                        do j = 0, m
                            rhs_vf(momxb + 1)%sf(j, k, l) = &
                                rhs_vf(momxb + 1)%sf(j, k, l) + 5.e-1_wp* &
                                (flux_src_n_in(momxe)%sf(j, k, l - 1) &
                                 + flux_src_n_in(momxe)%sf(j, k, l))
 
                            rhs_vf(momxe)%sf(j, k, l) = &
                                rhs_vf(momxe)%sf(j, k, l) - 5.e-1_wp* &
                                (flux_src_n_in(momxb + 1)%sf(j, k, l - 1) &
                                 + flux_src_n_in(momxb + 1)%sf(j, k, l))
                        end do
                    end do
                end do
 
# 1858 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1858 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 1858 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc end parallel loop
# 1858 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 1858 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    
# 1858 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1858 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp end target teams loop
# 1858 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 1858 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
            end if
        end if
 
    end subroutine s_compute_additional_physics_rhs
 
    !>  The purpose of this subroutine is to WENO-reconstruct the
        !!      left and the right cell-boundary values, including values
        !!      at the Gaussian quadrature points, from the cell-averaged
        !!      variables.
        !!  @param v_vf Cell-average variables
        !!  @param vL_x Left reconstructed cell-boundary values in x
        !!  @param vL_y Left reconstructed cell-boundary values in y
        !!  @param vL_z Left reconstructed cell-boundary values in z
        !!  @param vR_x Right reconstructed cell-boundary values in x
        !!  @param vR_y Right reconstructed cell-boundary values in y
        !!  @param vR_z Right reconstructed cell-boundary values in z
        !!  @param norm_dir Splitting coordinate direction
    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
 
# 1889 "/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
 
                elseif (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
# 1889 "/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
 
                elseif (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
# 1928 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    end subroutine s_reconstruct_cell_boundary_values
 
    !> @brief Performs 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
 
# 1945 "/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
 
                elseif (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
 
 
# 1963 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 1963 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc update device(is1, is2, is3, iv) 
# 1963 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 1963 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp target update to(is1, is2, is3, iv) 
# 1963 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
            end if
# 1945 "/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
 
                elseif (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
 
 
# 1963 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 1963 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc update device(is1, is2, is3, iv) 
# 1963 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 1963 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp target update to(is1, is2, is3, iv) 
# 1963 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
            end if
# 1966 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
        if (recon_dir == 1) then
 
# 1968 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1968 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 1968 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc parallel loop collapse(4) gang vector default(present) private(i, j, k, l) 
# 1968 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 1968 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    
# 1968 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1968 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1968 "/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) 
# 1968 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 1968 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
            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
 
# 1979 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1979 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 1979 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc end parallel loop
# 1979 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 1979 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    
# 1979 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1979 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp end target teams loop
# 1979 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 1979 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
        else if (recon_dir == 2) then
 
# 1981 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1981 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 1981 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc parallel loop collapse(4) gang vector default(present) private(i, j, k, l) 
# 1981 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 1981 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    
# 1981 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1981 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1981 "/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) 
# 1981 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 1981 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
            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
 
# 1992 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1992 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 1992 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc end parallel loop
# 1992 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 1992 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    
# 1992 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1992 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp end target teams loop
# 1992 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 1992 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
        else if (recon_dir == 3) then
 
# 1994 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1994 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 1994 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc parallel loop collapse(4) gang vector default(present) private(i, j, k, l) 
# 1994 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 1994 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    
# 1994 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1994 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1994 "/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) 
# 1994 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 1994 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
            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
 
# 2005 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 2005 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 2005 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc end parallel loop
# 2005 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 2005 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    
# 2005 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 2005 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp end target teams loop
# 2005 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 2005 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
        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 = cont_idx%beg, cont_idx%end
                if (relativity) then
                    ! Cons and Prim densities are different for relativity
#ifdef MFC_DEBUG
# 2021 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    block
# 2021 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        use iso_fortran_env, only: output_unit
# 2021 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 2021 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        print *, 'm_rhs.fpp:2021: ', '@:DEALLOCATE(q_cons_qp%vf(j)%sf)'
# 2021 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 2021 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        call flush (output_unit)
# 2021 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    end block
# 2021 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 2021 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 2021 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 2021 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc exit data delete(q_cons_qp%vf(j)%sf) 
# 2021 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 2021 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp target exit data map(release:q_cons_qp%vf(j)%sf) 
# 2021 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 2021 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    deallocate (q_cons_qp%vf(j)%sf)
#ifdef MFC_DEBUG
# 2022 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    block
# 2022 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        use iso_fortran_env, only: output_unit
# 2022 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 2022 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        print *, 'm_rhs.fpp:2022: ', '@:DEALLOCATE(q_prim_qp%vf(j)%sf)'
# 2022 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 2022 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        call flush (output_unit)
# 2022 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    end block
# 2022 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 2022 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 2022 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 2022 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc exit data delete(q_prim_qp%vf(j)%sf) 
# 2022 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 2022 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp target exit data map(release:q_prim_qp%vf(j)%sf) 
# 2022 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 2022 "/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 = adv_idx%beg, adv_idx%end
                nullify (q_prim_qp%vf(j)%sf)
            end do
 
            do j = mom_idx%beg, e_idx
#ifdef MFC_DEBUG
# 2033 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    block
# 2033 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        use iso_fortran_env, only: output_unit
# 2033 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 2033 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        print *, 'm_rhs.fpp:2033: ', '@:DEALLOCATE(q_cons_qp%vf(j)%sf)'
# 2033 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 2033 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        call flush (output_unit)
# 2033 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    end block
# 2033 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 2033 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 2033 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 2033 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc exit data delete(q_cons_qp%vf(j)%sf) 
# 2033 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 2033 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp target exit data map(release:q_cons_qp%vf(j)%sf) 
# 2033 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 2033 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    deallocate (q_cons_qp%vf(j)%sf)
#ifdef MFC_DEBUG
# 2034 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    block
# 2034 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        use iso_fortran_env, only: output_unit
# 2034 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 2034 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        print *, 'm_rhs.fpp:2034: ', '@:DEALLOCATE(q_prim_qp%vf(j)%sf)'
# 2034 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 2034 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        call flush (output_unit)
# 2034 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    end block
# 2034 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 2034 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 2034 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 2034 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc exit data delete(q_prim_qp%vf(j)%sf) 
# 2034 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 2034 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp target exit data map(release:q_prim_qp%vf(j)%sf) 
# 2034 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 2034 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    deallocate (q_prim_qp%vf(j)%sf)
            end do
        end if
 
#ifdef MFC_DEBUG
# 2038 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    block
# 2038 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        use iso_fortran_env, only: output_unit
# 2038 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 2038 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        print *, 'm_rhs.fpp:2038: ', '@:DEALLOCATE(q_cons_qp%vf, q_prim_qp%vf)'
# 2038 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 2038 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        call flush (output_unit)
# 2038 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    end block
# 2038 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 2038 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 2038 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 2038 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc exit data delete(q_cons_qp%vf, q_prim_qp%vf) 
# 2038 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 2038 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp target exit data map(release:q_cons_qp%vf, q_prim_qp%vf) 
# 2038 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 2038 "/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
# 2041 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    block
# 2041 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        use iso_fortran_env, only: output_unit
# 2041 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 2041 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        print *, 'm_rhs.fpp:2041: ', '@:DEALLOCATE(qL_rsx_vf, qR_rsx_vf)'
# 2041 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 2041 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        call flush (output_unit)
# 2041 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    end block
# 2041 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 2041 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 2041 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 2041 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc exit data delete(qL_rsx_vf, qR_rsx_vf) 
# 2041 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 2041 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp target exit data map(release:qL_rsx_vf, qR_rsx_vf) 
# 2041 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 2041 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    deallocate (ql_rsx_vf, qr_rsx_vf)
 
            if (n > 0) then
#ifdef MFC_DEBUG
# 2044 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    block
# 2044 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        use iso_fortran_env, only: output_unit
# 2044 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 2044 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        print *, 'm_rhs.fpp:2044: ', '@:DEALLOCATE(qL_rsy_vf, qR_rsy_vf)'
# 2044 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 2044 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        call flush (output_unit)
# 2044 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    end block
# 2044 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 2044 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 2044 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 2044 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc exit data delete(qL_rsy_vf, qR_rsy_vf) 
# 2044 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 2044 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp target exit data map(release:qL_rsy_vf, qR_rsy_vf) 
# 2044 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 2044 "/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
# 2048 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    block
# 2048 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        use iso_fortran_env, only: output_unit
# 2048 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 2048 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        print *, 'm_rhs.fpp:2048: ', '@:DEALLOCATE(qL_rsz_vf, qR_rsz_vf)'
# 2048 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 2048 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        call flush (output_unit)
# 2048 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    end block
# 2048 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 2048 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 2048 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 2048 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc exit data delete(qL_rsz_vf, qR_rsz_vf) 
# 2048 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 2048 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp target exit data map(release:qL_rsz_vf, qR_rsz_vf) 
# 2048 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 2048 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    deallocate (ql_rsz_vf, qr_rsz_vf)
            end if
 
            if (viscous) then
                do l = mom_idx%beg, mom_idx%end
#ifdef MFC_DEBUG
# 2053 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    block
# 2053 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        use iso_fortran_env, only: output_unit
# 2053 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 2053 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        print *, 'm_rhs.fpp:2053: ', '@:DEALLOCATE(dq_prim_dx_qp(1)%vf(l)%sf)'
# 2053 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 2053 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        call flush (output_unit)
# 2053 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    end block
# 2053 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 2053 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 2053 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 2053 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc exit data delete(dq_prim_dx_qp(1)%vf(l)%sf) 
# 2053 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 2053 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp target exit data map(release:dq_prim_dx_qp(1)%vf(l)%sf) 
# 2053 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 2053 "/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 = mom_idx%beg, mom_idx%end
#ifdef MFC_DEBUG
# 2059 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    block
# 2059 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        use iso_fortran_env, only: output_unit
# 2059 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 2059 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        print *, 'm_rhs.fpp:2059: ', '@:DEALLOCATE(dq_prim_dy_qp(1)%vf(l)%sf)'
# 2059 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 2059 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        call flush (output_unit)
# 2059 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    end block
# 2059 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 2059 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 2059 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 2059 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc exit data delete(dq_prim_dy_qp(1)%vf(l)%sf) 
# 2059 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 2059 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp target exit data map(release:dq_prim_dy_qp(1)%vf(l)%sf) 
# 2059 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 2059 "/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 = mom_idx%beg, mom_idx%end
#ifdef MFC_DEBUG
# 2064 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    block
# 2064 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        use iso_fortran_env, only: output_unit
# 2064 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 2064 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        print *, 'm_rhs.fpp:2064: ', '@:DEALLOCATE(dq_prim_dz_qp(1)%vf(l)%sf)'
# 2064 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 2064 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        call flush (output_unit)
# 2064 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    end block
# 2064 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 2064 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 2064 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 2064 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc exit data delete(dq_prim_dz_qp(1)%vf(l)%sf) 
# 2064 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 2064 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp target exit data map(release:dq_prim_dz_qp(1)%vf(l)%sf) 
# 2064 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 2064 "/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
# 2070 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    block
# 2070 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        use iso_fortran_env, only: output_unit
# 2070 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 2070 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        print *, 'm_rhs.fpp:2070: ', '@:DEALLOCATE(dq_prim_dx_qp(1)%vf)'
# 2070 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 2070 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        call flush (output_unit)
# 2070 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    end block
# 2070 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 2070 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 2070 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 2070 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc exit data delete(dq_prim_dx_qp(1)%vf) 
# 2070 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 2070 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp target exit data map(release:dq_prim_dx_qp(1)%vf) 
# 2070 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 2070 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    deallocate (dq_prim_dx_qp(1)%vf)
#ifdef MFC_DEBUG
# 2071 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    block
# 2071 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        use iso_fortran_env, only: output_unit
# 2071 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 2071 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        print *, 'm_rhs.fpp:2071: ', '@:DEALLOCATE(dq_prim_dy_qp(1)%vf)'
# 2071 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 2071 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        call flush (output_unit)
# 2071 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    end block
# 2071 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 2071 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 2071 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 2071 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc exit data delete(dq_prim_dy_qp(1)%vf) 
# 2071 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 2071 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp target exit data map(release:dq_prim_dy_qp(1)%vf) 
# 2071 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 2071 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    deallocate (dq_prim_dy_qp(1)%vf)
#ifdef MFC_DEBUG
# 2072 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    block
# 2072 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        use iso_fortran_env, only: output_unit
# 2072 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 2072 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        print *, 'm_rhs.fpp:2072: ', '@:DEALLOCATE(dq_prim_dz_qp(1)%vf)'
# 2072 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 2072 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        call flush (output_unit)
# 2072 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    end block
# 2072 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 2072 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 2072 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 2072 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc exit data delete(dq_prim_dz_qp(1)%vf) 
# 2072 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 2072 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp target exit data map(release:dq_prim_dz_qp(1)%vf) 
# 2072 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 2072 "/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 = mom_idx%beg, mom_idx%end
#ifdef MFC_DEBUG
# 2077 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    block
# 2077 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        use iso_fortran_env, only: output_unit
# 2077 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 2077 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        print *, 'm_rhs.fpp:2077: ', '@:DEALLOCATE(dqL_prim_dx_n(i)%vf(l)%sf)'
# 2077 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 2077 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        call flush (output_unit)
# 2077 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    end block
# 2077 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 2077 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 2077 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 2077 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc exit data delete(dqL_prim_dx_n(i)%vf(l)%sf) 
# 2077 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 2077 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp target exit data map(release:dqL_prim_dx_n(i)%vf(l)%sf) 
# 2077 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 2077 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    deallocate (dql_prim_dx_n(i)%vf(l)%sf)
#ifdef MFC_DEBUG
# 2078 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    block
# 2078 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        use iso_fortran_env, only: output_unit
# 2078 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 2078 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        print *, 'm_rhs.fpp:2078: ', '@:DEALLOCATE(dqR_prim_dx_n(i)%vf(l)%sf)'
# 2078 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 2078 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        call flush (output_unit)
# 2078 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    end block
# 2078 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 2078 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 2078 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 2078 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc exit data delete(dqR_prim_dx_n(i)%vf(l)%sf) 
# 2078 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 2078 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp target exit data map(release:dqR_prim_dx_n(i)%vf(l)%sf) 
# 2078 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 2078 "/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 = mom_idx%beg, mom_idx%end
#ifdef MFC_DEBUG
# 2083 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    block
# 2083 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        use iso_fortran_env, only: output_unit
# 2083 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 2083 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        print *, 'm_rhs.fpp:2083: ', '@:DEALLOCATE(dqL_prim_dy_n(i)%vf(l)%sf)'
# 2083 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 2083 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        call flush (output_unit)
# 2083 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    end block
# 2083 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 2083 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 2083 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 2083 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc exit data delete(dqL_prim_dy_n(i)%vf(l)%sf) 
# 2083 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 2083 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp target exit data map(release:dqL_prim_dy_n(i)%vf(l)%sf) 
# 2083 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 2083 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    deallocate (dql_prim_dy_n(i)%vf(l)%sf)
#ifdef MFC_DEBUG
# 2084 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    block
# 2084 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        use iso_fortran_env, only: output_unit
# 2084 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 2084 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        print *, 'm_rhs.fpp:2084: ', '@:DEALLOCATE(dqR_prim_dy_n(i)%vf(l)%sf)'
# 2084 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 2084 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        call flush (output_unit)
# 2084 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    end block
# 2084 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 2084 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 2084 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 2084 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc exit data delete(dqR_prim_dy_n(i)%vf(l)%sf) 
# 2084 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 2084 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp target exit data map(release:dqR_prim_dy_n(i)%vf(l)%sf) 
# 2084 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 2084 "/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 = mom_idx%beg, mom_idx%end
#ifdef MFC_DEBUG
# 2090 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    block
# 2090 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        use iso_fortran_env, only: output_unit
# 2090 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 2090 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        print *, 'm_rhs.fpp:2090: ', '@:DEALLOCATE(dqL_prim_dz_n(i)%vf(l)%sf)'
# 2090 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 2090 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        call flush (output_unit)
# 2090 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    end block
# 2090 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 2090 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 2090 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 2090 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc exit data delete(dqL_prim_dz_n(i)%vf(l)%sf) 
# 2090 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 2090 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp target exit data map(release:dqL_prim_dz_n(i)%vf(l)%sf) 
# 2090 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 2090 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    deallocate (dql_prim_dz_n(i)%vf(l)%sf)
#ifdef MFC_DEBUG
# 2091 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    block
# 2091 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        use iso_fortran_env, only: output_unit
# 2091 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 2091 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        print *, 'm_rhs.fpp:2091: ', '@:DEALLOCATE(dqR_prim_dz_n(i)%vf(l)%sf)'
# 2091 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 2091 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        call flush (output_unit)
# 2091 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    end block
# 2091 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 2091 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 2091 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 2091 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc exit data delete(dqR_prim_dz_n(i)%vf(l)%sf) 
# 2091 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 2091 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp target exit data map(release:dqR_prim_dz_n(i)%vf(l)%sf) 
# 2091 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 2091 "/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
# 2095 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    block
# 2095 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        use iso_fortran_env, only: output_unit
# 2095 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 2095 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        print *, 'm_rhs.fpp:2095: ', '@:DEALLOCATE(dqL_prim_dx_n(i)%vf)'
# 2095 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 2095 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        call flush (output_unit)
# 2095 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    end block
# 2095 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 2095 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 2095 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 2095 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc exit data delete(dqL_prim_dx_n(i)%vf) 
# 2095 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 2095 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp target exit data map(release:dqL_prim_dx_n(i)%vf) 
# 2095 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 2095 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    deallocate (dql_prim_dx_n(i)%vf)
#ifdef MFC_DEBUG
# 2096 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    block
# 2096 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        use iso_fortran_env, only: output_unit
# 2096 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 2096 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        print *, 'm_rhs.fpp:2096: ', '@:DEALLOCATE(dqL_prim_dy_n(i)%vf)'
# 2096 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 2096 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        call flush (output_unit)
# 2096 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    end block
# 2096 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 2096 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 2096 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 2096 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc exit data delete(dqL_prim_dy_n(i)%vf) 
# 2096 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 2096 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp target exit data map(release:dqL_prim_dy_n(i)%vf) 
# 2096 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 2096 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    deallocate (dql_prim_dy_n(i)%vf)
#ifdef MFC_DEBUG
# 2097 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    block
# 2097 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        use iso_fortran_env, only: output_unit
# 2097 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 2097 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        print *, 'm_rhs.fpp:2097: ', '@:DEALLOCATE(dqL_prim_dz_n(i)%vf)'
# 2097 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 2097 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        call flush (output_unit)
# 2097 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    end block
# 2097 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 2097 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 2097 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 2097 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc exit data delete(dqL_prim_dz_n(i)%vf) 
# 2097 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 2097 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp target exit data map(release:dqL_prim_dz_n(i)%vf) 
# 2097 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 2097 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    deallocate (dql_prim_dz_n(i)%vf)
#ifdef MFC_DEBUG
# 2098 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    block
# 2098 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        use iso_fortran_env, only: output_unit
# 2098 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 2098 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        print *, 'm_rhs.fpp:2098: ', '@:DEALLOCATE(dqR_prim_dx_n(i)%vf)'
# 2098 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 2098 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        call flush (output_unit)
# 2098 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    end block
# 2098 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 2098 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 2098 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 2098 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc exit data delete(dqR_prim_dx_n(i)%vf) 
# 2098 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 2098 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp target exit data map(release:dqR_prim_dx_n(i)%vf) 
# 2098 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 2098 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    deallocate (dqr_prim_dx_n(i)%vf)
#ifdef MFC_DEBUG
# 2099 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    block
# 2099 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        use iso_fortran_env, only: output_unit
# 2099 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 2099 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        print *, 'm_rhs.fpp:2099: ', '@:DEALLOCATE(dqR_prim_dy_n(i)%vf)'
# 2099 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 2099 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        call flush (output_unit)
# 2099 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    end block
# 2099 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 2099 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 2099 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 2099 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc exit data delete(dqR_prim_dy_n(i)%vf) 
# 2099 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 2099 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp target exit data map(release:dqR_prim_dy_n(i)%vf) 
# 2099 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 2099 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    deallocate (dqr_prim_dy_n(i)%vf)
#ifdef MFC_DEBUG
# 2100 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    block
# 2100 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        use iso_fortran_env, only: output_unit
# 2100 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 2100 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        print *, 'm_rhs.fpp:2100: ', '@:DEALLOCATE(dqR_prim_dz_n(i)%vf)'
# 2100 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 2100 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        call flush (output_unit)
# 2100 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    end block
# 2100 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 2100 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 2100 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 2100 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc exit data delete(dqR_prim_dz_n(i)%vf) 
# 2100 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 2100 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp target exit data map(release:dqR_prim_dz_n(i)%vf) 
# 2100 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 2100 "/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
# 2104 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    block
# 2104 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        use iso_fortran_env, only: output_unit
# 2104 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 2104 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        print *, 'm_rhs.fpp:2104: ', '@:DEALLOCATE(dqL_rsx_vf, dqR_rsx_vf)'
# 2104 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 2104 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        call flush (output_unit)
# 2104 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    end block
# 2104 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 2104 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 2104 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 2104 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc exit data delete(dqL_rsx_vf, dqR_rsx_vf) 
# 2104 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 2104 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp target exit data map(release:dqL_rsx_vf, dqR_rsx_vf) 
# 2104 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 2104 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    deallocate (dql_rsx_vf, dqr_rsx_vf)
 
                    if (n > 0) then
#ifdef MFC_DEBUG
# 2107 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    block
# 2107 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        use iso_fortran_env, only: output_unit
# 2107 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 2107 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        print *, 'm_rhs.fpp:2107: ', '@:DEALLOCATE(dqL_rsy_vf, dqR_rsy_vf)'
# 2107 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 2107 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        call flush (output_unit)
# 2107 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    end block
# 2107 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 2107 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 2107 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 2107 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc exit data delete(dqL_rsy_vf, dqR_rsy_vf) 
# 2107 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 2107 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp target exit data map(release:dqL_rsy_vf, dqR_rsy_vf) 
# 2107 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 2107 "/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
# 2111 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    block
# 2111 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        use iso_fortran_env, only: output_unit
# 2111 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 2111 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        print *, 'm_rhs.fpp:2111: ', '@:DEALLOCATE(dqL_rsz_vf, dqR_rsz_vf)'
# 2111 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 2111 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        call flush (output_unit)
# 2111 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    end block
# 2111 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 2111 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 2111 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 2111 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc exit data delete(dqL_rsz_vf, dqR_rsz_vf) 
# 2111 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 2111 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp target exit data map(release:dqL_rsz_vf, dqR_rsz_vf) 
# 2111 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 2111 "/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
# 2117 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    block
# 2117 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        use iso_fortran_env, only: output_unit
# 2117 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 2117 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        print *, 'm_rhs.fpp:2117: ', '@:DEALLOCATE(tau_re_vf(cont_idx%end + i)%sf)'
# 2117 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 2117 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        call flush (output_unit)
# 2117 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    end block
# 2117 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 2117 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 2117 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 2117 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc exit data delete(tau_re_vf(cont_idx%end + i)%sf) 
# 2117 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 2117 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp target exit data map(release:tau_re_vf(cont_idx%end + i)%sf) 
# 2117 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 2117 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    deallocate (tau_re_vf(cont_idx%end + i)%sf)
                    end do
#ifdef MFC_DEBUG
# 2119 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    block
# 2119 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        use iso_fortran_env, only: output_unit
# 2119 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 2119 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        print *, 'm_rhs.fpp:2119: ', '@:DEALLOCATE(tau_re_vf(e_idx)%sf)'
# 2119 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 2119 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        call flush (output_unit)
# 2119 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    end block
# 2119 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 2119 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 2119 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 2119 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc exit data delete(tau_re_vf(e_idx)%sf) 
# 2119 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 2119 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp target exit data map(release:tau_re_vf(e_idx)%sf) 
# 2119 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 2119 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    deallocate (tau_re_vf(e_idx)%sf)
#ifdef MFC_DEBUG
# 2120 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    block
# 2120 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        use iso_fortran_env, only: output_unit
# 2120 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 2120 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        print *, 'm_rhs.fpp:2120: ', '@:DEALLOCATE(tau_re_vf)'
# 2120 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 2120 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        call flush (output_unit)
# 2120 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    end block
# 2120 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 2120 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 2120 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 2120 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc exit data delete(tau_re_vf) 
# 2120 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 2120 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp target exit data map(release:tau_re_vf) 
# 2120 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 2120 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    deallocate (tau_re_vf)
                end if
            end if
#ifdef MFC_DEBUG
# 2123 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    block
# 2123 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        use iso_fortran_env, only: output_unit
# 2123 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 2123 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        print *, 'm_rhs.fpp:2123: ', '@:DEALLOCATE(dqL_prim_dx_n, dqL_prim_dy_n, dqL_prim_dz_n)'
# 2123 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 2123 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        call flush (output_unit)
# 2123 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    end block
# 2123 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 2123 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 2123 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 2123 "/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) 
# 2123 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 2123 "/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) 
# 2123 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 2123 "/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
# 2124 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    block
# 2124 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        use iso_fortran_env, only: output_unit
# 2124 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 2124 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        print *, 'm_rhs.fpp:2124: ', '@:DEALLOCATE(dqR_prim_dx_n, dqR_prim_dy_n, dqR_prim_dz_n)'
# 2124 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 2124 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        call flush (output_unit)
# 2124 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    end block
# 2124 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 2124 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 2124 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 2124 "/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) 
# 2124 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 2124 "/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) 
# 2124 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 2124 "/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
 
# 2128 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 2128 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc exit data delete(alf_sum%sf) 
# 2128 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 2128 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp target exit data map(release:alf_sum%sf) 
# 2128 "/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
# 2138 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    block
# 2138 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        use iso_fortran_env, only: output_unit
# 2138 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 2138 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        print *, 'm_rhs.fpp:2138: ', '@:DEALLOCATE(flux_gsrc_n(i)%vf(l)%sf)'
# 2138 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 2138 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        call flush (output_unit)
# 2138 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    end block
# 2138 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 2138 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 2138 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 2138 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc exit data delete(flux_gsrc_n(i)%vf(l)%sf) 
# 2138 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 2138 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp target exit data map(release:flux_gsrc_n(i)%vf(l)%sf) 
# 2138 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 2138 "/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
# 2142 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    block
# 2142 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        use iso_fortran_env, only: output_unit
# 2142 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 2142 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        print *, 'm_rhs.fpp:2142: ', '@:DEALLOCATE(flux_n(i)%vf(l)%sf)'
# 2142 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 2142 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        call flush (output_unit)
# 2142 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    end block
# 2142 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 2142 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 2142 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 2142 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc exit data delete(flux_n(i)%vf(l)%sf) 
# 2142 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 2142 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp target exit data map(release:flux_n(i)%vf(l)%sf) 
# 2142 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 2142 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    deallocate (flux_n(i)%vf(l)%sf)
#ifdef MFC_DEBUG
# 2143 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    block
# 2143 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        use iso_fortran_env, only: output_unit
# 2143 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 2143 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        print *, 'm_rhs.fpp:2143: ', '@:DEALLOCATE(flux_gsrc_n(i)%vf(l)%sf)'
# 2143 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 2143 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        call flush (output_unit)
# 2143 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    end block
# 2143 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 2143 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 2143 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 2143 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc exit data delete(flux_gsrc_n(i)%vf(l)%sf) 
# 2143 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 2143 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp target exit data map(release:flux_gsrc_n(i)%vf(l)%sf) 
# 2143 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 2143 "/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 = mom_idx%beg, e_idx
#ifdef MFC_DEBUG
# 2148 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    block
# 2148 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        use iso_fortran_env, only: output_unit
# 2148 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 2148 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        print *, 'm_rhs.fpp:2148: ', '@:DEALLOCATE(flux_src_n(i)%vf(l)%sf)'
# 2148 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 2148 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        call flush (output_unit)
# 2148 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    end block
# 2148 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 2148 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 2148 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 2148 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc exit data delete(flux_src_n(i)%vf(l)%sf) 
# 2148 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 2148 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp target exit data map(release:flux_src_n(i)%vf(l)%sf) 
# 2148 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 2148 "/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
# 2153 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    block
# 2153 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        use iso_fortran_env, only: output_unit
# 2153 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 2153 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        print *, 'm_rhs.fpp:2153: ', '@:DEALLOCATE(flux_src_n(i)%vf(E_idx)%sf)'
# 2153 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 2153 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        call flush (output_unit)
# 2153 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    end block
# 2153 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 2153 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 2153 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 2153 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc exit data delete(flux_src_n(i)%vf(E_idx)%sf) 
# 2153 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 2153 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp target exit data map(release:flux_src_n(i)%vf(E_idx)%sf) 
# 2153 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 2153 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    deallocate (flux_src_n(i)%vf(e_idx)%sf)
                    end if
 
                    if (riemann_solver == 1 .or. riemann_solver == 4) then
                        do l = adv_idx%beg + 1, adv_idx%end
#ifdef MFC_DEBUG
# 2158 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    block
# 2158 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        use iso_fortran_env, only: output_unit
# 2158 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 2158 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        print *, 'm_rhs.fpp:2158: ', '@:DEALLOCATE(flux_src_n(i)%vf(l)%sf)'
# 2158 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 2158 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        call flush (output_unit)
# 2158 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    end block
# 2158 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 2158 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 2158 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 2158 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc exit data delete(flux_src_n(i)%vf(l)%sf) 
# 2158 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 2158 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp target exit data map(release:flux_src_n(i)%vf(l)%sf) 
# 2158 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 2158 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    deallocate (flux_src_n(i)%vf(l)%sf)
                        end do
                    else
                        do l = adv_idx%beg + 1, adv_idx%end
                            nullify (flux_src_n(i)%vf(l)%sf)
                        end do
                    end if
 
#ifdef MFC_DEBUG
# 2166 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    block
# 2166 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        use iso_fortran_env, only: output_unit
# 2166 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 2166 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        print *, 'm_rhs.fpp:2166: ', '@:DEALLOCATE(flux_src_n(i)%vf(adv_idx%beg)%sf)'
# 2166 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 2166 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        call flush (output_unit)
# 2166 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    end block
# 2166 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 2166 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 2166 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 2166 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc exit data delete(flux_src_n(i)%vf(adv_idx%beg)%sf) 
# 2166 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 2166 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp target exit data map(release:flux_src_n(i)%vf(adv_idx%beg)%sf) 
# 2166 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 2166 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    deallocate (flux_src_n(i)%vf(adv_idx%beg)%sf)
                end if
 
#ifdef MFC_DEBUG
# 2169 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    block
# 2169 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        use iso_fortran_env, only: output_unit
# 2169 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 2169 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        print *, 'm_rhs.fpp:2169: ', '@:DEALLOCATE(flux_n(i)%vf, flux_src_n(i)%vf, flux_gsrc_n(i)%vf)'
# 2169 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 2169 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        call flush (output_unit)
# 2169 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    end block
# 2169 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 2169 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 2169 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 2169 "/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) 
# 2169 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 2169 "/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) 
# 2169 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 2169 "/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
# 2172 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    block
# 2172 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        use iso_fortran_env, only: output_unit
# 2172 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 2172 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        print *, 'm_rhs.fpp:2172: ', '@:DEALLOCATE(flux_n, flux_src_n, flux_gsrc_n)'
# 2172 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 2172 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        call flush (output_unit)
# 2172 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    end block
# 2172 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 2172 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 2172 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 2172 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc exit data delete(flux_n, flux_src_n, flux_gsrc_n) 
# 2172 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 2172 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp target exit data map(release:flux_n, flux_src_n, flux_gsrc_n) 
# 2172 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 2172 "/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