m_rhs.fpp.f90

Go to the documentation of this file.

# 1 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!>
!! @file
!! @brief Contains module m_rhs
 
# 1 "/home/runner/work/MFC/MFC/src/common/include/case.fpp" 1
! This file exists so that Fypp can be run without generating case.fpp files for
! each target. This is useful when generating documentation, for example. This
! should also let MFC be built with CMake directly, without invoking mfc.sh.
 
! For pre-process.
# 9 "/home/runner/work/MFC/MFC/src/common/include/case.fpp"
 
! For moving immersed boundaries in simulation
# 14 "/home/runner/work/MFC/MFC/src/common/include/case.fpp"
# 6 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp" 2
# 1 "/home/runner/work/MFC/MFC/src/common/include/macros.fpp" 1
# 1 "/home/runner/work/MFC/MFC/src/common/include/parallel_macros.fpp" 1
# 1 "/home/runner/work/MFC/MFC/src/common/include/shared_parallel_macros.fpp" 1
# 2 "/home/runner/work/MFC/MFC/src/common/include/shared_parallel_macros.fpp"
# 3 "/home/runner/work/MFC/MFC/src/common/include/shared_parallel_macros.fpp"
# 4 "/home/runner/work/MFC/MFC/src/common/include/shared_parallel_macros.fpp"
# 5 "/home/runner/work/MFC/MFC/src/common/include/shared_parallel_macros.fpp"
# 6 "/home/runner/work/MFC/MFC/src/common/include/shared_parallel_macros.fpp"
 
# 8 "/home/runner/work/MFC/MFC/src/common/include/shared_parallel_macros.fpp"
# 9 "/home/runner/work/MFC/MFC/src/common/include/shared_parallel_macros.fpp"
# 10 "/home/runner/work/MFC/MFC/src/common/include/shared_parallel_macros.fpp"
 
# 17 "/home/runner/work/MFC/MFC/src/common/include/shared_parallel_macros.fpp"
 
# 46 "/home/runner/work/MFC/MFC/src/common/include/shared_parallel_macros.fpp"
 
# 58 "/home/runner/work/MFC/MFC/src/common/include/shared_parallel_macros.fpp"
 
# 68 "/home/runner/work/MFC/MFC/src/common/include/shared_parallel_macros.fpp"
 
# 98 "/home/runner/work/MFC/MFC/src/common/include/shared_parallel_macros.fpp"
 
# 110 "/home/runner/work/MFC/MFC/src/common/include/shared_parallel_macros.fpp"
 
# 120 "/home/runner/work/MFC/MFC/src/common/include/shared_parallel_macros.fpp"
! New line at end of file is required for FYPP
# 2 "/home/runner/work/MFC/MFC/src/common/include/parallel_macros.fpp" 2
# 1 "/home/runner/work/MFC/MFC/src/common/include/omp_macros.fpp" 1
# 1 "/home/runner/work/MFC/MFC/src/common/include/shared_parallel_macros.fpp" 1
# 2 "/home/runner/work/MFC/MFC/src/common/include/shared_parallel_macros.fpp"
# 3 "/home/runner/work/MFC/MFC/src/common/include/shared_parallel_macros.fpp"
# 4 "/home/runner/work/MFC/MFC/src/common/include/shared_parallel_macros.fpp"
# 5 "/home/runner/work/MFC/MFC/src/common/include/shared_parallel_macros.fpp"
# 6 "/home/runner/work/MFC/MFC/src/common/include/shared_parallel_macros.fpp"
 
# 8 "/home/runner/work/MFC/MFC/src/common/include/shared_parallel_macros.fpp"
# 9 "/home/runner/work/MFC/MFC/src/common/include/shared_parallel_macros.fpp"
# 10 "/home/runner/work/MFC/MFC/src/common/include/shared_parallel_macros.fpp"
 
# 17 "/home/runner/work/MFC/MFC/src/common/include/shared_parallel_macros.fpp"
 
# 46 "/home/runner/work/MFC/MFC/src/common/include/shared_parallel_macros.fpp"
 
# 58 "/home/runner/work/MFC/MFC/src/common/include/shared_parallel_macros.fpp"
 
# 68 "/home/runner/work/MFC/MFC/src/common/include/shared_parallel_macros.fpp"
 
# 98 "/home/runner/work/MFC/MFC/src/common/include/shared_parallel_macros.fpp"
 
# 110 "/home/runner/work/MFC/MFC/src/common/include/shared_parallel_macros.fpp"
 
# 120 "/home/runner/work/MFC/MFC/src/common/include/shared_parallel_macros.fpp"
! New line at end of file is required for FYPP
# 2 "/home/runner/work/MFC/MFC/src/common/include/omp_macros.fpp" 2
 
# 4 "/home/runner/work/MFC/MFC/src/common/include/omp_macros.fpp"
# 5 "/home/runner/work/MFC/MFC/src/common/include/omp_macros.fpp"
# 6 "/home/runner/work/MFC/MFC/src/common/include/omp_macros.fpp"
# 7 "/home/runner/work/MFC/MFC/src/common/include/omp_macros.fpp"
# 8 "/home/runner/work/MFC/MFC/src/common/include/omp_macros.fpp"
 
# 20 "/home/runner/work/MFC/MFC/src/common/include/omp_macros.fpp"
 
# 43 "/home/runner/work/MFC/MFC/src/common/include/omp_macros.fpp"
 
# 48 "/home/runner/work/MFC/MFC/src/common/include/omp_macros.fpp"
 
# 53 "/home/runner/work/MFC/MFC/src/common/include/omp_macros.fpp"
 
# 58 "/home/runner/work/MFC/MFC/src/common/include/omp_macros.fpp"
 
# 63 "/home/runner/work/MFC/MFC/src/common/include/omp_macros.fpp"
 
# 68 "/home/runner/work/MFC/MFC/src/common/include/omp_macros.fpp"
 
# 76 "/home/runner/work/MFC/MFC/src/common/include/omp_macros.fpp"
 
# 81 "/home/runner/work/MFC/MFC/src/common/include/omp_macros.fpp"
 
# 86 "/home/runner/work/MFC/MFC/src/common/include/omp_macros.fpp"
 
# 91 "/home/runner/work/MFC/MFC/src/common/include/omp_macros.fpp"
 
# 96 "/home/runner/work/MFC/MFC/src/common/include/omp_macros.fpp"
 
# 101 "/home/runner/work/MFC/MFC/src/common/include/omp_macros.fpp"
 
# 106 "/home/runner/work/MFC/MFC/src/common/include/omp_macros.fpp"
 
# 111 "/home/runner/work/MFC/MFC/src/common/include/omp_macros.fpp"
 
# 116 "/home/runner/work/MFC/MFC/src/common/include/omp_macros.fpp"
 
# 121 "/home/runner/work/MFC/MFC/src/common/include/omp_macros.fpp"
 
# 151 "/home/runner/work/MFC/MFC/src/common/include/omp_macros.fpp"
 
# 192 "/home/runner/work/MFC/MFC/src/common/include/omp_macros.fpp"
 
# 206 "/home/runner/work/MFC/MFC/src/common/include/omp_macros.fpp"
 
# 231 "/home/runner/work/MFC/MFC/src/common/include/omp_macros.fpp"
 
# 242 "/home/runner/work/MFC/MFC/src/common/include/omp_macros.fpp"
 
# 244 "/home/runner/work/MFC/MFC/src/common/include/omp_macros.fpp"
# 255 "/home/runner/work/MFC/MFC/src/common/include/omp_macros.fpp"
 
# 284 "/home/runner/work/MFC/MFC/src/common/include/omp_macros.fpp"
 
# 294 "/home/runner/work/MFC/MFC/src/common/include/omp_macros.fpp"
 
# 304 "/home/runner/work/MFC/MFC/src/common/include/omp_macros.fpp"
 
# 313 "/home/runner/work/MFC/MFC/src/common/include/omp_macros.fpp"
 
# 330 "/home/runner/work/MFC/MFC/src/common/include/omp_macros.fpp"
 
# 340 "/home/runner/work/MFC/MFC/src/common/include/omp_macros.fpp"
 
# 347 "/home/runner/work/MFC/MFC/src/common/include/omp_macros.fpp"
 
# 353 "/home/runner/work/MFC/MFC/src/common/include/omp_macros.fpp"
 
# 359 "/home/runner/work/MFC/MFC/src/common/include/omp_macros.fpp"
 
# 365 "/home/runner/work/MFC/MFC/src/common/include/omp_macros.fpp"
 
# 371 "/home/runner/work/MFC/MFC/src/common/include/omp_macros.fpp"
 
# 377 "/home/runner/work/MFC/MFC/src/common/include/omp_macros.fpp"
! New line at end of file is required for FYPP
# 3 "/home/runner/work/MFC/MFC/src/common/include/parallel_macros.fpp" 2
# 1 "/home/runner/work/MFC/MFC/src/common/include/acc_macros.fpp" 1
# 1 "/home/runner/work/MFC/MFC/src/common/include/shared_parallel_macros.fpp" 1
# 2 "/home/runner/work/MFC/MFC/src/common/include/shared_parallel_macros.fpp"
# 3 "/home/runner/work/MFC/MFC/src/common/include/shared_parallel_macros.fpp"
# 4 "/home/runner/work/MFC/MFC/src/common/include/shared_parallel_macros.fpp"
# 5 "/home/runner/work/MFC/MFC/src/common/include/shared_parallel_macros.fpp"
# 6 "/home/runner/work/MFC/MFC/src/common/include/shared_parallel_macros.fpp"
 
# 8 "/home/runner/work/MFC/MFC/src/common/include/shared_parallel_macros.fpp"
# 9 "/home/runner/work/MFC/MFC/src/common/include/shared_parallel_macros.fpp"
# 10 "/home/runner/work/MFC/MFC/src/common/include/shared_parallel_macros.fpp"
 
# 17 "/home/runner/work/MFC/MFC/src/common/include/shared_parallel_macros.fpp"
 
# 46 "/home/runner/work/MFC/MFC/src/common/include/shared_parallel_macros.fpp"
 
# 58 "/home/runner/work/MFC/MFC/src/common/include/shared_parallel_macros.fpp"
 
# 68 "/home/runner/work/MFC/MFC/src/common/include/shared_parallel_macros.fpp"
 
# 98 "/home/runner/work/MFC/MFC/src/common/include/shared_parallel_macros.fpp"
 
# 110 "/home/runner/work/MFC/MFC/src/common/include/shared_parallel_macros.fpp"
 
# 120 "/home/runner/work/MFC/MFC/src/common/include/shared_parallel_macros.fpp"
! New line at end of file is required for FYPP
# 2 "/home/runner/work/MFC/MFC/src/common/include/acc_macros.fpp" 2
 
# 7 "/home/runner/work/MFC/MFC/src/common/include/acc_macros.fpp"
 
# 17 "/home/runner/work/MFC/MFC/src/common/include/acc_macros.fpp"
 
# 22 "/home/runner/work/MFC/MFC/src/common/include/acc_macros.fpp"
 
# 27 "/home/runner/work/MFC/MFC/src/common/include/acc_macros.fpp"
 
# 32 "/home/runner/work/MFC/MFC/src/common/include/acc_macros.fpp"
 
# 37 "/home/runner/work/MFC/MFC/src/common/include/acc_macros.fpp"
 
# 42 "/home/runner/work/MFC/MFC/src/common/include/acc_macros.fpp"
 
# 47 "/home/runner/work/MFC/MFC/src/common/include/acc_macros.fpp"
 
# 52 "/home/runner/work/MFC/MFC/src/common/include/acc_macros.fpp"
 
# 57 "/home/runner/work/MFC/MFC/src/common/include/acc_macros.fpp"
 
# 62 "/home/runner/work/MFC/MFC/src/common/include/acc_macros.fpp"
 
# 73 "/home/runner/work/MFC/MFC/src/common/include/acc_macros.fpp"
 
# 78 "/home/runner/work/MFC/MFC/src/common/include/acc_macros.fpp"
 
# 83 "/home/runner/work/MFC/MFC/src/common/include/acc_macros.fpp"
 
# 88 "/home/runner/work/MFC/MFC/src/common/include/acc_macros.fpp"
 
# 103 "/home/runner/work/MFC/MFC/src/common/include/acc_macros.fpp"
 
# 131 "/home/runner/work/MFC/MFC/src/common/include/acc_macros.fpp"
 
# 160 "/home/runner/work/MFC/MFC/src/common/include/acc_macros.fpp"
 
# 175 "/home/runner/work/MFC/MFC/src/common/include/acc_macros.fpp"
 
# 193 "/home/runner/work/MFC/MFC/src/common/include/acc_macros.fpp"
 
# 215 "/home/runner/work/MFC/MFC/src/common/include/acc_macros.fpp"
 
# 244 "/home/runner/work/MFC/MFC/src/common/include/acc_macros.fpp"
 
# 259 "/home/runner/work/MFC/MFC/src/common/include/acc_macros.fpp"
 
# 269 "/home/runner/work/MFC/MFC/src/common/include/acc_macros.fpp"
 
# 278 "/home/runner/work/MFC/MFC/src/common/include/acc_macros.fpp"
 
# 294 "/home/runner/work/MFC/MFC/src/common/include/acc_macros.fpp"
 
# 304 "/home/runner/work/MFC/MFC/src/common/include/acc_macros.fpp"
 
# 311 "/home/runner/work/MFC/MFC/src/common/include/acc_macros.fpp"
! New line at end of file is required for FYPP
# 4 "/home/runner/work/MFC/MFC/src/common/include/parallel_macros.fpp" 2
 
! GPU parallel region (scalar reductions, maxval/minval)
# 23 "/home/runner/work/MFC/MFC/src/common/include/parallel_macros.fpp"
 
! GPU parallel loop over threads (most common GPU macro)
# 43 "/home/runner/work/MFC/MFC/src/common/include/parallel_macros.fpp"
 
! Required closing for GPU_PARALLEL_LOOP
# 55 "/home/runner/work/MFC/MFC/src/common/include/parallel_macros.fpp"
 
! Mark routine for device compilation
# 112 "/home/runner/work/MFC/MFC/src/common/include/parallel_macros.fpp"
 
! Declare device-resident data
# 130 "/home/runner/work/MFC/MFC/src/common/include/parallel_macros.fpp"
 
! Inner loop within a GPU parallel region
# 145 "/home/runner/work/MFC/MFC/src/common/include/parallel_macros.fpp"
 
! Scoped GPU data region
# 164 "/home/runner/work/MFC/MFC/src/common/include/parallel_macros.fpp"
 
! Host code with device pointers (for MPI with GPU buffers)
# 193 "/home/runner/work/MFC/MFC/src/common/include/parallel_macros.fpp"
 
! Allocate device memory (unscoped)
# 207 "/home/runner/work/MFC/MFC/src/common/include/parallel_macros.fpp"
 
! Free device memory
# 219 "/home/runner/work/MFC/MFC/src/common/include/parallel_macros.fpp"
 
! Atomic operation on device
# 231 "/home/runner/work/MFC/MFC/src/common/include/parallel_macros.fpp"
 
! End atomic capture block
# 242 "/home/runner/work/MFC/MFC/src/common/include/parallel_macros.fpp"
 
! Copy data between host and device
# 254 "/home/runner/work/MFC/MFC/src/common/include/parallel_macros.fpp"
 
! Synchronization barrier
# 266 "/home/runner/work/MFC/MFC/src/common/include/parallel_macros.fpp"
 
! Import GPU library module (openacc or omp_lib)
# 275 "/home/runner/work/MFC/MFC/src/common/include/parallel_macros.fpp"
 
! Emit code only for AMD compiler
# 282 "/home/runner/work/MFC/MFC/src/common/include/parallel_macros.fpp"
 
! Emit code for non-Cray compilers
# 289 "/home/runner/work/MFC/MFC/src/common/include/parallel_macros.fpp"
 
! Emit code only for Cray compiler
# 296 "/home/runner/work/MFC/MFC/src/common/include/parallel_macros.fpp"
 
! Emit code for non-NVIDIA compilers
# 303 "/home/runner/work/MFC/MFC/src/common/include/parallel_macros.fpp"
 
# 305 "/home/runner/work/MFC/MFC/src/common/include/parallel_macros.fpp"
# 306 "/home/runner/work/MFC/MFC/src/common/include/parallel_macros.fpp"
! New line at end of file is required for FYPP
# 2 "/home/runner/work/MFC/MFC/src/common/include/macros.fpp" 2
 
# 14 "/home/runner/work/MFC/MFC/src/common/include/macros.fpp"
 
! Caution: This macro requires the use of a binding script to set CUDA_VISIBLE_DEVICES, such that we have one GPU device per MPI
! rank. That's because for both cudaMemAdvise (preferred location) and cudaMemPrefetchAsync we use location = device_id = 0. For an
! example see misc/nvidia_uvm/bind.sh. NVIDIA unified memory page placement hint
# 57 "/home/runner/work/MFC/MFC/src/common/include/macros.fpp"
 
! Allocate and create GPU device memory
# 77 "/home/runner/work/MFC/MFC/src/common/include/macros.fpp"
 
! Free GPU device memory and deallocate
# 85 "/home/runner/work/MFC/MFC/src/common/include/macros.fpp"
 
! Cray-specific GPU pointer setup for vector fields
# 109 "/home/runner/work/MFC/MFC/src/common/include/macros.fpp"
 
! Cray-specific GPU pointer setup for scalar fields
# 125 "/home/runner/work/MFC/MFC/src/common/include/macros.fpp"
 
! Cray-specific GPU pointer setup for acoustic source spatials
# 150 "/home/runner/work/MFC/MFC/src/common/include/macros.fpp"
 
# 156 "/home/runner/work/MFC/MFC/src/common/include/macros.fpp"
 
# 163 "/home/runner/work/MFC/MFC/src/common/include/macros.fpp"
! New line at end of file is required for FYPP
# 7 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp" 2
 
!> @brief Assembles the right-hand side of the governing equations using finite-volume flux differencing, Riemann solvers, and
!! physical source terms
module m_rhs
 
    use m_derived_types
    use m_global_parameters
    use m_mpi_proxy
    use m_variables_conversion
    use m_weno
    use m_muscl
    use m_riemann_solvers
    use m_cbc
    use m_bubbles_ee
    use m_bubbles_el
    use m_qbmm
    use m_hypoelastic
    use m_hyperelastic
    use m_acoustic_src
    use m_viscous
    use m_ibm
    use m_nvtx
    use m_boundary_common
    use m_helper
    use m_surface_tension
    use m_body_forces
    use m_chemistry
    use m_igr
    use m_pressure_relaxation
 
    implicit none
 
    private; public :: s_initialize_rhs_module, s_compute_rhs, s_finalize_rhs_module
 
    type(vector_field) :: q_cons_qp  !< WENO-reconstructed cell-average conservative variables at quadrature points
 
# 42 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 42 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc declare create(q_cons_qp) 
# 42 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 42 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp declare target (q_cons_qp) 
# 42 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
 
    type(vector_field) :: q_prim_qp  !< Primitive variables at cell-interior quadrature points
 
# 45 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 45 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc declare create(q_prim_qp) 
# 45 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 45 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp declare target (q_prim_qp) 
# 45 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
 
    !> @name The first-order spatial derivatives of the primitive variables at cell- interior Gaussian quadrature points. These are
    !! WENO-reconstructed from their respective cell-average values, obtained through the application of the divergence theorem on
    !! the integral-average cell-boundary values of the primitive variables, located in qK_prim_n, where K = L or R.
    !> @{
    type(vector_field), allocatable, dimension(:) :: dq_prim_dx_qp, dq_prim_dy_qp, dq_prim_dz_qp
 
# 52 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 52 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc declare create(dq_prim_dx_qp, dq_prim_dy_qp, dq_prim_dz_qp) 
# 52 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 52 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp declare target (dq_prim_dx_qp, dq_prim_dy_qp, dq_prim_dz_qp) 
# 52 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
    !> @}
 
    !> @name The left and right WENO-reconstructed cell-boundary values of the cell- average first-order spatial derivatives of the
    !! primitive variables. The cell-average of the first-order spatial derivatives may be found in the variables dq_prim_ds_qp,
    !! where s = x, y or z.
    !> @{
    type(vector_field), allocatable, dimension(:) :: dql_prim_dx_n, dql_prim_dy_n, dql_prim_dz_n
    type(vector_field), allocatable, dimension(:) :: dqr_prim_dx_n, dqr_prim_dy_n, dqr_prim_dz_n
#if defined(MFC_OpenACC)
 
# 62 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 62 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc declare create(dqL_prim_dx_n, dqL_prim_dy_n, dqL_prim_dz_n) 
# 62 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 62 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp declare target (dqL_prim_dx_n, dqL_prim_dy_n, dqL_prim_dz_n) 
# 62 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
 
# 63 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 63 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc declare create(dqR_prim_dx_n, dqR_prim_dy_n, dqR_prim_dz_n) 
# 63 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 63 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp declare target (dqR_prim_dx_n, dqR_prim_dy_n, dqR_prim_dz_n) 
# 63 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
#endif
    !> @}
 
    type(scalar_field), allocatable, dimension(:) :: tau_re_vf
 
# 68 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 68 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc declare create(tau_Re_vf) 
# 68 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 68 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp declare target (tau_Re_vf) 
# 68 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
 
    type(vector_field) :: gm_alpha_qp  !< Volume fraction gradient magnitudes at cell-interior quadrature points
 
# 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(gm_alpha_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 (gm_alpha_qp) 
# 71 "/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)
 
# 79 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 79 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc declare create(gm_alphaL_n, gm_alphaR_n) 
# 79 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 79 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp declare target (gm_alphaL_n, gm_alphaR_n) 
# 79 "/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)
 
# 91 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 91 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc declare create(flux_n, flux_src_n, flux_gsrc_n) 
# 91 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 91 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp declare target (flux_n, flux_src_n, flux_gsrc_n) 
# 91 "/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)
 
# 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(qL_prim, qR_prim) 
# 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 (qL_prim, qR_prim) 
# 97 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
#endif
 
    type(int_bounds_info) :: iv  !< Vector field indical bounds
 
# 101 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 101 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc declare create(iv) 
# 101 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 101 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp declare target (iv) 
# 101 "/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
 
# 106 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 106 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc declare create(irx, iry, irz) 
# 106 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 106 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp declare target (irx, iry, irz) 
# 106 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
 
    type(int_bounds_info) :: is1, is2, is3
    !> @}
 
# 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(is1, is2, is3) 
# 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 (is1, is2, is3) 
# 110 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
 
    !> @name Saved fluxes for testing
    !> @{
    type(scalar_field) :: alf_sum
    !> @}
 
# 116 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 116 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc declare create(alf_sum) 
# 116 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 116 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp declare target (alf_sum) 
# 116 "/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
 
# 121 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 121 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc declare create(blkmod1, blkmod2, alpha1, alpha2, Kterm) 
# 121 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 121 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp declare target (blkmod1, blkmod2, alpha1, alpha2, Kterm) 
# 121 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
 
# 122 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 122 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc declare create(qL_rsx_vf, qL_rsy_vf, qL_rsz_vf, qR_rsx_vf, qR_rsy_vf, qR_rsz_vf) 
# 122 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 122 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp declare target (qL_rsx_vf, qL_rsy_vf, qL_rsz_vf, qR_rsx_vf, qR_rsy_vf, qR_rsz_vf) 
# 122 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
 
# 123 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 123 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc declare create(dqL_rsx_vf, dqL_rsy_vf, dqL_rsz_vf, dqR_rsx_vf, dqR_rsy_vf, dqR_rsz_vf) 
# 123 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 123 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp declare target (dqL_rsx_vf, dqL_rsy_vf, dqL_rsz_vf, dqR_rsx_vf, dqR_rsy_vf, dqR_rsz_vf) 
# 123 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
 
    real(wp), allocatable, dimension(:,:,:) :: nbub  !< Bubble number density
 
# 126 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 126 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc declare create(nbub) 
# 126 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 126 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp declare target (nbub) 
# 126 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
 
contains
 
    !> Initialize the RHS module
    impure subroutine s_initialize_rhs_module
 
        integer :: i, j, k, l, id  !< Generic loop iterators
 
 
# 135 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 135 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc enter data copyin(idwbuff) 
# 135 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 135 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp target enter data map(to:idwbuff) 
# 135 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
 
# 136 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 136 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc update device(idwbuff) 
# 136 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 136 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp target update to(idwbuff) 
# 136 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
 
#ifdef MFC_DEBUG
# 138 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    block
# 138 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        use iso_fortran_env, only: output_unit
# 138 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 138 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        print *, 'm_rhs.fpp:138: ', '@:ALLOCATE(q_cons_qp%vf(1:sys_size))'
# 138 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 138 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        call flush (output_unit)
# 138 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    end block
# 138 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 138 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    allocate (q_cons_qp%vf(1:sys_size))
# 138 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 138 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 138 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 138 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc enter data create(q_cons_qp%vf) 
# 138 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 138 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp target enter data map(always,alloc:q_cons_qp%vf) 
# 138 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
#ifdef MFC_DEBUG
# 139 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    block
# 139 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        use iso_fortran_env, only: output_unit
# 139 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 139 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        print *, 'm_rhs.fpp:139: ', '@:ALLOCATE(q_prim_qp%vf(1:sys_size))'
# 139 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 139 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        call flush (output_unit)
# 139 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    end block
# 139 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 139 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    allocate (q_prim_qp%vf(1:sys_size))
# 139 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 139 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 139 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 139 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc enter data create(q_prim_qp%vf) 
# 139 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 139 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp target enter data map(always,alloc:q_prim_qp%vf) 
# 139 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
 
        if (.not. igr) then
            do l = 1, sys_size
#ifdef MFC_DEBUG
# 143 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    block
# 143 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        use iso_fortran_env, only: output_unit
# 143 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 143 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        print *, 'm_rhs.fpp:143: ', '@:ALLOCATE(q_cons_qp%vf(l)%sf(idwbuff(1)%beg:idwbuff(1)%end, idwbuff(2)%beg:idwbuff(2)%end, idwbuff(3)%beg:idwbuff(3)%end))'
# 143 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 143 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        call flush (output_unit)
# 143 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    end block
# 143 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 143 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    allocate (q_cons_qp%vf(l)%sf(idwbuff(1)%beg:idwbuff(1)%end, idwbuff(2)%beg:idwbuff(2)%end,  idwbuff(3)%beg:idwbuff(3)%end))
# 143 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 143 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 143 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 143 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc enter data create(q_cons_qp%vf(l)%sf) 
# 143 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 143 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp target enter data map(always,alloc:q_cons_qp%vf(l)%sf) 
# 143 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 145 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
            end do
            do l = mom_idx%beg, e_idx
#ifdef MFC_DEBUG
# 147 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    block
# 147 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        use iso_fortran_env, only: output_unit
# 147 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 147 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        print *, 'm_rhs.fpp:147: ', '@: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))'
# 147 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 147 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        call flush (output_unit)
# 147 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    end block
# 147 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 147 "/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))
# 147 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 147 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 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 enter data create(q_prim_qp%vf(l)%sf) 
# 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 target enter data map(always,alloc:q_prim_qp%vf(l)%sf) 
# 147 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 149 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
            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
# 156 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    block
# 156 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        use iso_fortran_env, only: output_unit
# 156 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 156 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        print *, 'm_rhs.fpp:156: ', '@: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))'
# 156 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 156 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        call flush (output_unit)
# 156 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    end block
# 156 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 156 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    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))
# 156 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 156 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 156 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 156 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc enter data create(q_prim_qp%vf(l)%sf) 
# 156 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 156 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp target enter data map(always,alloc:q_prim_qp%vf(l)%sf) 
# 156 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 158 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
            end do
        else
            do l = adv_idx%end + 1, sys_size
#ifdef MFC_DEBUG
# 161 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    block
# 161 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        use iso_fortran_env, only: output_unit
# 161 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 161 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        print *, 'm_rhs.fpp:161: ', '@:ALLOCATE(q_prim_qp%vf(l)%sf(idwbuff(1)%beg:idwbuff(1)%end, idwbuff(2)%beg:idwbuff(2)%end, idwbuff(3)%beg:idwbuff(3)%end))'
# 161 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 161 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        call flush (output_unit)
# 161 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    end block
# 161 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 161 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    allocate (q_prim_qp%vf(l)%sf(idwbuff(1)%beg:idwbuff(1)%end, idwbuff(2)%beg:idwbuff(2)%end,  idwbuff(3)%beg:idwbuff(3)%end))
# 161 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 161 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 161 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 161 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc enter data create(q_prim_qp%vf(l)%sf) 
# 161 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 161 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp target enter data map(always,alloc:q_prim_qp%vf(l)%sf) 
# 161 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 163 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
            end do
        end if
 
        if (.not. igr) then
#ifdef _CRAYFTN
# 167 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    block
# 167 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        integer :: macros_setup_vfs_i
# 167 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 167 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#ifdef MFC_DEBUG
# 167 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    block
# 167 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        use iso_fortran_env, only: output_unit
# 167 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 167 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        print *, 'm_rhs.fpp:167: ', '@:ACC_SETUP_VFs(q_cons_qp, q_prim_qp)'
# 167 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 167 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        call flush (output_unit)
# 167 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    end block
# 167 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 167 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 167 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 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 enter data copyin(q_cons_qp) 
# 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 target enter data map(to:q_cons_qp) 
# 167 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 167 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 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 enter data copyin(q_cons_qp%vf) 
# 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 target enter data map(to:q_cons_qp%vf) 
# 167 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 167 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
            if (allocated(q_cons_qp%vf)) then
# 167 "/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)
# 167 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
                    if (associated(q_cons_qp%vf(macros_setup_vfs_i)%sf)) then
# 167 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 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 enter data copyin(q_cons_qp%vf(macros_setup_vfs_i)) 
# 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 target enter data map(to:q_cons_qp%vf(macros_setup_vfs_i)) 
# 167 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 167 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 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 enter data copyin(q_cons_qp%vf(macros_setup_vfs_i)%sf) 
# 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 target enter data map(to:q_cons_qp%vf(macros_setup_vfs_i)%sf) 
# 167 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 167 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
                    end if
# 167 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
                end do
# 167 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
            end if
# 167 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 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 enter data copyin(q_prim_qp) 
# 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 target enter data map(to:q_prim_qp) 
# 167 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 167 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 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 enter data copyin(q_prim_qp%vf) 
# 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 target enter data map(to:q_prim_qp%vf) 
# 167 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 167 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
            if (allocated(q_prim_qp%vf)) then
# 167 "/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)
# 167 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
                    if (associated(q_prim_qp%vf(macros_setup_vfs_i)%sf)) then
# 167 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 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 enter data copyin(q_prim_qp%vf(macros_setup_vfs_i)) 
# 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 target enter data map(to:q_prim_qp%vf(macros_setup_vfs_i)) 
# 167 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 167 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 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 enter data copyin(q_prim_qp%vf(macros_setup_vfs_i)%sf) 
# 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 target enter data map(to:q_prim_qp%vf(macros_setup_vfs_i)%sf) 
# 167 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 167 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
                    end if
# 167 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
                end do
# 167 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
            end if
# 167 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    end block
# 167 "/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
# 172 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    block
# 172 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        use iso_fortran_env, only: output_unit
# 172 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 172 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        print *, 'm_rhs.fpp:172: ', '@: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))'
# 172 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 172 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        call flush (output_unit)
# 172 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    end block
# 172 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 172 "/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))
# 172 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 172 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 172 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 172 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc enter data create(q_prim_qp%vf(l)%sf) 
# 172 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 172 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp target enter data map(always,alloc:q_prim_qp%vf(l)%sf) 
# 172 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 174 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
                else
                    q_prim_qp%vf(l)%sf => q_cons_qp%vf(l)%sf
 
# 176 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 176 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc enter data copyin(q_prim_qp%vf(l)%sf) 
# 176 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 176 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp target enter data map(to:q_prim_qp%vf(l)%sf) 
# 176 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
 
# 177 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 177 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc enter data attach(q_prim_qp%vf(l)%sf) 
# 177 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 177 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp target enter data map(always,to:q_prim_qp%vf(l)%sf) 
# 177 "/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
 
# 183 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 183 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc enter data copyin(q_prim_qp%vf(l)%sf) 
# 183 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 183 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp target enter data map(to:q_prim_qp%vf(l)%sf) 
# 183 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
 
# 184 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 184 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc enter data attach(q_prim_qp%vf(l)%sf) 
# 184 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 184 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp target enter data map(always,to:q_prim_qp%vf(l)%sf) 
# 184 "/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
 
# 190 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 190 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc enter data copyin(q_prim_qp%vf(c_idx)%sf) 
# 190 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 190 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp target enter data map(to:q_prim_qp%vf(c_idx)%sf) 
# 190 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
 
# 191 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 191 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc enter data attach(q_prim_qp%vf(c_idx)%sf) 
# 191 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 191 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp target enter data map(always,to:q_prim_qp%vf(c_idx)%sf) 
# 191 "/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
 
# 196 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 196 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc enter data copyin(q_prim_qp%vf(psi_idx)%sf) 
# 196 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 196 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp target enter data map(to:q_prim_qp%vf(psi_idx)%sf) 
# 196 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
 
# 197 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 197 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc enter data attach(q_prim_qp%vf(psi_idx)%sf) 
# 197 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 197 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp target enter data map(always,to:q_prim_qp%vf(psi_idx)%sf) 
# 197 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
        end if
 
        if (.not. igr) then
#ifdef MFC_DEBUG
# 201 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    block
# 201 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        use iso_fortran_env, only: output_unit
# 201 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 201 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        print *, 'm_rhs.fpp:201: ', '@:ALLOCATE(flux_n(1:num_dims))'
# 201 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 201 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        call flush (output_unit)
# 201 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    end block
# 201 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 201 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    allocate (flux_n(1:num_dims))
# 201 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 201 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 201 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 201 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc enter data create(flux_n) 
# 201 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 201 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp target enter data map(always,alloc:flux_n) 
# 201 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
#ifdef MFC_DEBUG
# 202 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    block
# 202 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        use iso_fortran_env, only: output_unit
# 202 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 202 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        print *, 'm_rhs.fpp:202: ', '@:ALLOCATE(flux_src_n(1:num_dims))'
# 202 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 202 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        call flush (output_unit)
# 202 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    end block
# 202 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 202 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    allocate (flux_src_n(1:num_dims))
# 202 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 202 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 202 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 202 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc enter data create(flux_src_n) 
# 202 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 202 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp target enter data map(always,alloc:flux_src_n) 
# 202 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
#ifdef MFC_DEBUG
# 203 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    block
# 203 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        use iso_fortran_env, only: output_unit
# 203 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 203 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        print *, 'm_rhs.fpp:203: ', '@:ALLOCATE(flux_gsrc_n(1:num_dims))'
# 203 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 203 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        call flush (output_unit)
# 203 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    end block
# 203 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 203 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    allocate (flux_gsrc_n(1:num_dims))
# 203 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 203 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 203 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 203 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc enter data create(flux_gsrc_n) 
# 203 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 203 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp target enter data map(always,alloc:flux_gsrc_n) 
# 203 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
 
            do i = 1, num_dims
#ifdef MFC_DEBUG
# 206 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    block
# 206 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        use iso_fortran_env, only: output_unit
# 206 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 206 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        print *, 'm_rhs.fpp:206: ', '@:ALLOCATE(flux_n(i)%vf(1:sys_size))'
# 206 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 206 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        call flush (output_unit)
# 206 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    end block
# 206 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 206 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    allocate (flux_n(i)%vf(1:sys_size))
# 206 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 206 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 206 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 206 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc enter data create(flux_n(i)%vf) 
# 206 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 206 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp target enter data map(always,alloc:flux_n(i)%vf) 
# 206 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
#ifdef MFC_DEBUG
# 207 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    block
# 207 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        use iso_fortran_env, only: output_unit
# 207 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 207 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        print *, 'm_rhs.fpp:207: ', '@:ALLOCATE(flux_src_n(i)%vf(1:sys_size))'
# 207 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 207 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        call flush (output_unit)
# 207 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    end block
# 207 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 207 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    allocate (flux_src_n(i)%vf(1:sys_size))
# 207 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 207 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 207 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 207 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc enter data create(flux_src_n(i)%vf) 
# 207 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 207 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp target enter data map(always,alloc:flux_src_n(i)%vf) 
# 207 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
#ifdef MFC_DEBUG
# 208 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    block
# 208 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        use iso_fortran_env, only: output_unit
# 208 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 208 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        print *, 'm_rhs.fpp:208: ', '@:ALLOCATE(flux_gsrc_n(i)%vf(1:sys_size))'
# 208 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 208 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        call flush (output_unit)
# 208 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    end block
# 208 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 208 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    allocate (flux_gsrc_n(i)%vf(1:sys_size))
# 208 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 208 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 208 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 208 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc enter data create(flux_gsrc_n(i)%vf) 
# 208 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 208 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp target enter data map(always,alloc:flux_gsrc_n(i)%vf) 
# 208 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
 
                if (i == 1) then
                    do l = 1, sys_size
#ifdef MFC_DEBUG
# 212 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    block
# 212 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        use iso_fortran_env, only: output_unit
# 212 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 212 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        print *, 'm_rhs.fpp:212: ', '@:ALLOCATE(flux_n(i)%vf(l)%sf(idwbuff(1)%beg:idwbuff(1)%end, idwbuff(2)%beg:idwbuff(2)%end, idwbuff(3)%beg:idwbuff(3)%end))'
# 212 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 212 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        call flush (output_unit)
# 212 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    end block
# 212 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 212 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    allocate (flux_n(i)%vf(l)%sf(idwbuff(1)%beg:idwbuff(1)%end, idwbuff(2)%beg:idwbuff(2)%end,  idwbuff(3)%beg:idwbuff(3)%end))
# 212 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 212 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 212 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 212 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc enter data create(flux_n(i)%vf(l)%sf) 
# 212 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 212 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp target enter data map(always,alloc:flux_n(i)%vf(l)%sf) 
# 212 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 214 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#ifdef MFC_DEBUG
# 214 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    block
# 214 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        use iso_fortran_env, only: output_unit
# 214 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 214 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        print *, 'm_rhs.fpp:214: ', '@:ALLOCATE(flux_gsrc_n(i)%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 (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))
# 214 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 214 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 214 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 214 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc enter data create(flux_gsrc_n(i)%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:flux_gsrc_n(i)%vf(l)%sf) 
# 214 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 216 "/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
# 220 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    block
# 220 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        use iso_fortran_env, only: output_unit
# 220 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 220 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        print *, 'm_rhs.fpp:220: ', '@: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))'
# 220 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 220 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        call flush (output_unit)
# 220 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    end block
# 220 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 220 "/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))
# 220 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 220 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 220 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 220 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc enter data create(flux_src_n(i)%vf(l)%sf) 
# 220 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 220 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp target enter data map(always,alloc:flux_src_n(i)%vf(l)%sf) 
# 220 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 222 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
                        end do
                    end if
 
#ifdef MFC_DEBUG
# 225 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    block
# 225 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        use iso_fortran_env, only: output_unit
# 225 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 225 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        print *, 'm_rhs.fpp:225: ', '@: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))'
# 225 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 225 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        call flush (output_unit)
# 225 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    end block
# 225 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 225 "/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))
# 225 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 225 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 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 create(flux_src_n(i)%vf(adv_idx%beg)%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,alloc:flux_src_n(i)%vf(adv_idx%beg)%sf) 
# 225 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 227 "/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
# 230 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    block
# 230 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        use iso_fortran_env, only: output_unit
# 230 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 230 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        print *, 'm_rhs.fpp:230: ', '@:ALLOCATE(flux_src_n(i)%vf(l)%sf(idwbuff(1)%beg:idwbuff(1)%end, idwbuff(2)%beg:idwbuff(2)%end, idwbuff(3)%beg:idwbuff(3)%end))'
# 230 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 230 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        call flush (output_unit)
# 230 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    end block
# 230 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 230 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    allocate (flux_src_n(i)%vf(l)%sf(idwbuff(1)%beg:idwbuff(1)%end, idwbuff(2)%beg:idwbuff(2)%end,  idwbuff(3)%beg:idwbuff(3)%end))
# 230 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 230 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 230 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 230 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc enter data create(flux_src_n(i)%vf(l)%sf) 
# 230 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 230 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp target enter data map(always,alloc:flux_src_n(i)%vf(l)%sf) 
# 230 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 232 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
                        end do
                    end if
 
                    if (chemistry) then
                        do l = chemxb, chemxe
#ifdef MFC_DEBUG
# 237 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    block
# 237 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        use iso_fortran_env, only: output_unit
# 237 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 237 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        print *, 'm_rhs.fpp:237: ', '@: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))'
# 237 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 237 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        call flush (output_unit)
# 237 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    end block
# 237 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 237 "/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))
# 237 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 237 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 237 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 237 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc enter data create(flux_src_n(i)%vf(l)%sf) 
# 237 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 237 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp target enter data map(always,alloc:flux_src_n(i)%vf(l)%sf) 
# 237 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 239 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
                        end do
                        if (chem_params%diffusion .and. .not. viscous) then
#ifdef MFC_DEBUG
# 241 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    block
# 241 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        use iso_fortran_env, only: output_unit
# 241 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 241 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        print *, 'm_rhs.fpp:241: ', '@: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))'
# 241 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 241 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        call flush (output_unit)
# 241 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    end block
# 241 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 241 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    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))
# 241 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 241 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 241 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 241 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc enter data create(flux_src_n(i)%vf(E_idx)%sf) 
# 241 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 241 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp target enter data map(always,alloc:flux_src_n(i)%vf(E_idx)%sf) 
# 241 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 243 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
                        end if
                    end if
                else
                    do l = 1, sys_size
#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(i)%vf(l)%sf(idwbuff(1)%beg:idwbuff(1)%end, idwbuff(2)%beg:idwbuff(2)%end, idwbuff(3)%beg:idwbuff(3)%end))'
# 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(i)%vf(l)%sf(idwbuff(1)%beg:idwbuff(1)%end, idwbuff(2)%beg:idwbuff(2)%end,  idwbuff(3)%beg:idwbuff(3)%end))
# 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(i)%vf(l)%sf) 
# 247 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 247 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp target enter data map(always,alloc:flux_gsrc_n(i)%vf(l)%sf) 
# 247 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 249 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
                    end do
                end if
 
#ifdef _CRAYFTN
# 252 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    block
# 252 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        integer :: macros_setup_vfs_i
# 252 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 252 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#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: ', '@:ACC_SETUP_VFs(flux_n(i))'
# 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"
 
# 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 copyin(flux_n(i)) 
# 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(to:flux_n(i)) 
# 252 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 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 copyin(flux_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(to:flux_n(i)%vf) 
# 252 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 252 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
            if (allocated(flux_n(i)%vf)) then
# 252 "/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)
# 252 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
                    if (associated(flux_n(i)%vf(macros_setup_vfs_i)%sf)) then
# 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 copyin(flux_n(i)%vf(macros_setup_vfs_i)) 
# 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(to:flux_n(i)%vf(macros_setup_vfs_i)) 
# 252 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 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 copyin(flux_n(i)%vf(macros_setup_vfs_i)%sf) 
# 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(to:flux_n(i)%vf(macros_setup_vfs_i)%sf) 
# 252 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 252 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
                    end if
# 252 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
                end do
# 252 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
            end if
# 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
#ifdef _CRAYFTN
# 253 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    block
# 253 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        integer :: macros_setup_vfs_i
# 253 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 253 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#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: ', '@:ACC_SETUP_VFs(flux_src_n(i), flux_gsrc_n(i))'
# 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"
 
# 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 copyin(flux_src_n(i)) 
# 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(to:flux_src_n(i)) 
# 253 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 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 copyin(flux_src_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(to:flux_src_n(i)%vf) 
# 253 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 253 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
            if (allocated(flux_src_n(i)%vf)) then
# 253 "/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)
# 253 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
                    if (associated(flux_src_n(i)%vf(macros_setup_vfs_i)%sf)) then
# 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 copyin(flux_src_n(i)%vf(macros_setup_vfs_i)) 
# 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(to:flux_src_n(i)%vf(macros_setup_vfs_i)) 
# 253 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 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 copyin(flux_src_n(i)%vf(macros_setup_vfs_i)%sf) 
# 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(to:flux_src_n(i)%vf(macros_setup_vfs_i)%sf) 
# 253 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 253 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
                    end if
# 253 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
                end do
# 253 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
            end if
# 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 copyin(flux_gsrc_n(i)) 
# 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(to:flux_gsrc_n(i)) 
# 253 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 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 copyin(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(to:flux_gsrc_n(i)%vf) 
# 253 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 253 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
            if (allocated(flux_gsrc_n(i)%vf)) then
# 253 "/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)
# 253 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
                    if (associated(flux_gsrc_n(i)%vf(macros_setup_vfs_i)%sf)) then
# 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 copyin(flux_gsrc_n(i)%vf(macros_setup_vfs_i)) 
# 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(to:flux_gsrc_n(i)%vf(macros_setup_vfs_i)) 
# 253 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 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 copyin(flux_gsrc_n(i)%vf(macros_setup_vfs_i)%sf) 
# 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(to:flux_gsrc_n(i)%vf(macros_setup_vfs_i)%sf) 
# 253 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 253 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
                    end if
# 253 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
                end do
# 253 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
            end if
# 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
 
                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
 
# 259 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 259 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc enter data attach(flux_src_n(i)%vf(l)%sf) 
# 259 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 259 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp target enter data map(always,to:flux_src_n(i)%vf(l)%sf) 
# 259 "/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
 
# 265 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 265 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc enter data attach(flux_n(i)%vf(l)%sf) 
# 265 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 265 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp target enter data map(always,to:flux_n(i)%vf(l)%sf) 
# 265 "/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
 
# 267 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 267 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc enter data attach(flux_src_n(i)%vf(l)%sf) 
# 267 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 267 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp target enter data map(always,to:flux_src_n(i)%vf(l)%sf) 
# 267 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
                    end do
                end if
            end do
        end if
 
        if ((.not. igr) .or. dummy) then
#ifdef MFC_DEBUG
# 274 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    block
# 274 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        use iso_fortran_env, only: output_unit
# 274 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 274 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        print *, 'm_rhs.fpp:274: ', '@:ALLOCATE(dq_prim_dx_qp(1:1))'
# 274 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 274 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        call flush (output_unit)
# 274 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    end block
# 274 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 274 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    allocate (dq_prim_dx_qp(1:1))
# 274 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 274 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 274 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 274 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc enter data create(dq_prim_dx_qp) 
# 274 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 274 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp target enter data map(always,alloc:dq_prim_dx_qp) 
# 274 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
#ifdef MFC_DEBUG
# 275 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    block
# 275 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        use iso_fortran_env, only: output_unit
# 275 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 275 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        print *, 'm_rhs.fpp:275: ', '@:ALLOCATE(dq_prim_dy_qp(1:1))'
# 275 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 275 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        call flush (output_unit)
# 275 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    end block
# 275 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 275 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    allocate (dq_prim_dy_qp(1:1))
# 275 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 275 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 275 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 275 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc enter data create(dq_prim_dy_qp) 
# 275 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 275 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp target enter data map(always,alloc:dq_prim_dy_qp) 
# 275 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
#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(dq_prim_dz_qp(1:1))'
# 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 (dq_prim_dz_qp(1:1))
# 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(dq_prim_dz_qp) 
# 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:dq_prim_dz_qp) 
# 276 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
 
#ifdef MFC_DEBUG
# 278 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    block
# 278 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        use iso_fortran_env, only: output_unit
# 278 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 278 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        print *, 'm_rhs.fpp:278: ', '@:ALLOCATE(qL_prim(1:num_dims))'
# 278 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 278 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        call flush (output_unit)
# 278 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    end block
# 278 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 278 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    allocate (ql_prim(1:num_dims))
# 278 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 278 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 278 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 278 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc enter data create(qL_prim) 
# 278 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 278 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp target enter data map(always,alloc:qL_prim) 
# 278 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
#ifdef MFC_DEBUG
# 279 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    block
# 279 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        use iso_fortran_env, only: output_unit
# 279 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 279 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        print *, 'm_rhs.fpp:279: ', '@:ALLOCATE(qR_prim(1:num_dims))'
# 279 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 279 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        call flush (output_unit)
# 279 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    end block
# 279 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 279 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    allocate (qr_prim(1:num_dims))
# 279 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 279 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 279 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 279 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc enter data create(qR_prim) 
# 279 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 279 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp target enter data map(always,alloc:qR_prim) 
# 279 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
 
#ifdef MFC_DEBUG
# 281 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    block
# 281 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        use iso_fortran_env, only: output_unit
# 281 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 281 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        print *, 'm_rhs.fpp:281: ', '@:ALLOCATE(dqL_prim_dx_n(1:num_dims))'
# 281 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 281 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        call flush (output_unit)
# 281 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    end block
# 281 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 281 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    allocate (dql_prim_dx_n(1:num_dims))
# 281 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 281 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 281 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 281 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc enter data create(dqL_prim_dx_n) 
# 281 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 281 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp target enter data map(always,alloc:dqL_prim_dx_n) 
# 281 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
#ifdef MFC_DEBUG
# 282 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    block
# 282 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        use iso_fortran_env, only: output_unit
# 282 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 282 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        print *, 'm_rhs.fpp:282: ', '@:ALLOCATE(dqL_prim_dy_n(1:num_dims))'
# 282 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 282 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        call flush (output_unit)
# 282 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    end block
# 282 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 282 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    allocate (dql_prim_dy_n(1:num_dims))
# 282 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 282 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 282 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 282 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc enter data create(dqL_prim_dy_n) 
# 282 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 282 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp target enter data map(always,alloc:dqL_prim_dy_n) 
# 282 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
#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(dqL_prim_dz_n(1:num_dims))'
# 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 (dql_prim_dz_n(1:num_dims))
# 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(dqL_prim_dz_n) 
# 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:dqL_prim_dz_n) 
# 283 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
#ifdef MFC_DEBUG
# 284 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    block
# 284 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        use iso_fortran_env, only: output_unit
# 284 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 284 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        print *, 'm_rhs.fpp:284: ', '@:ALLOCATE(dqR_prim_dx_n(1:num_dims))'
# 284 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 284 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        call flush (output_unit)
# 284 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    end block
# 284 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 284 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    allocate (dqr_prim_dx_n(1:num_dims))
# 284 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 284 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 284 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 284 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc enter data create(dqR_prim_dx_n) 
# 284 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 284 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp target enter data map(always,alloc:dqR_prim_dx_n) 
# 284 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
#ifdef MFC_DEBUG
# 285 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    block
# 285 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        use iso_fortran_env, only: output_unit
# 285 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 285 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        print *, 'm_rhs.fpp:285: ', '@:ALLOCATE(dqR_prim_dy_n(1:num_dims))'
# 285 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 285 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        call flush (output_unit)
# 285 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    end block
# 285 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 285 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    allocate (dqr_prim_dy_n(1:num_dims))
# 285 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 285 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 285 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 285 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc enter data create(dqR_prim_dy_n) 
# 285 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 285 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp target enter data map(always,alloc:dqR_prim_dy_n) 
# 285 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
#ifdef MFC_DEBUG
# 286 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    block
# 286 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        use iso_fortran_env, only: output_unit
# 286 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 286 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        print *, 'm_rhs.fpp:286: ', '@:ALLOCATE(dqR_prim_dz_n(1:num_dims))'
# 286 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 286 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        call flush (output_unit)
# 286 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    end block
# 286 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 286 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    allocate (dqr_prim_dz_n(1:num_dims))
# 286 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 286 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 286 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 286 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc enter data create(dqR_prim_dz_n) 
# 286 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 286 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp target enter data map(always,alloc:dqR_prim_dz_n) 
# 286 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
 
            do i = 1, num_dims
#ifdef MFC_DEBUG
# 289 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    block
# 289 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        use iso_fortran_env, only: output_unit
# 289 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 289 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        print *, 'm_rhs.fpp:289: ', '@:ALLOCATE(qL_prim(i)%vf(1:sys_size))'
# 289 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 289 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        call flush (output_unit)
# 289 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    end block
# 289 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 289 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    allocate (ql_prim(i)%vf(1:sys_size))
# 289 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 289 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 289 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 289 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc enter data create(qL_prim(i)%vf) 
# 289 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 289 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp target enter data map(always,alloc:qL_prim(i)%vf) 
# 289 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
#ifdef MFC_DEBUG
# 290 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    block
# 290 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        use iso_fortran_env, only: output_unit
# 290 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 290 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        print *, 'm_rhs.fpp:290: ', '@:ALLOCATE(qR_prim(i)%vf(1:sys_size))'
# 290 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 290 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        call flush (output_unit)
# 290 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    end block
# 290 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 290 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    allocate (qr_prim(i)%vf(1:sys_size))
# 290 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 290 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 290 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 290 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc enter data create(qR_prim(i)%vf) 
# 290 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 290 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp target enter data map(always,alloc:qR_prim(i)%vf) 
# 290 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
                do l = mom_idx%beg, mom_idx%end
#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(qL_prim(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 (ql_prim(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(qL_prim(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:qL_prim(i)%vf(l)%sf) 
# 292 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 294 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#ifdef MFC_DEBUG
# 294 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    block
# 294 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        use iso_fortran_env, only: output_unit
# 294 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 294 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        print *, 'm_rhs.fpp:294: ', '@: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))'
# 294 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 294 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        call flush (output_unit)
# 294 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    end block
# 294 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 294 "/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))
# 294 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 294 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 294 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 294 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc enter data create(qR_prim(i)%vf(l)%sf) 
# 294 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 294 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp target enter data map(always,alloc:qR_prim(i)%vf(l)%sf) 
# 294 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 296 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
                end do
#ifdef _CRAYFTN
# 297 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    block
# 297 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        integer :: macros_setup_vfs_i
# 297 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 297 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#ifdef MFC_DEBUG
# 297 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    block
# 297 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        use iso_fortran_env, only: output_unit
# 297 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 297 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        print *, 'm_rhs.fpp:297: ', '@:ACC_SETUP_VFs(qL_prim(i), qR_prim(i))'
# 297 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 297 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        call flush (output_unit)
# 297 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    end block
# 297 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 297 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 297 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 297 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 297 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc enter data copyin(qL_prim(i)) 
# 297 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 297 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp target enter data map(to:qL_prim(i)) 
# 297 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 297 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 297 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 297 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc enter data copyin(qL_prim(i)%vf) 
# 297 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 297 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp target enter data map(to:qL_prim(i)%vf) 
# 297 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 297 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
            if (allocated(ql_prim(i)%vf)) then
# 297 "/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)
# 297 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
                    if (associated(ql_prim(i)%vf(macros_setup_vfs_i)%sf)) then
# 297 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 297 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 297 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc enter data copyin(qL_prim(i)%vf(macros_setup_vfs_i)) 
# 297 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 297 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp target enter data map(to:qL_prim(i)%vf(macros_setup_vfs_i)) 
# 297 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 297 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 297 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 297 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc enter data copyin(qL_prim(i)%vf(macros_setup_vfs_i)%sf) 
# 297 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 297 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp target enter data map(to:qL_prim(i)%vf(macros_setup_vfs_i)%sf) 
# 297 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 297 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
                    end if
# 297 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
                end do
# 297 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
            end if
# 297 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 297 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 297 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc enter data copyin(qR_prim(i)) 
# 297 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 297 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp target enter data map(to:qR_prim(i)) 
# 297 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 297 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 297 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 297 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc enter data copyin(qR_prim(i)%vf) 
# 297 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 297 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp target enter data map(to:qR_prim(i)%vf) 
# 297 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 297 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
            if (allocated(qr_prim(i)%vf)) then
# 297 "/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)
# 297 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
                    if (associated(qr_prim(i)%vf(macros_setup_vfs_i)%sf)) then
# 297 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 297 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 297 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc enter data copyin(qR_prim(i)%vf(macros_setup_vfs_i)) 
# 297 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 297 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp target enter data map(to:qR_prim(i)%vf(macros_setup_vfs_i)) 
# 297 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 297 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 297 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 297 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc enter data copyin(qR_prim(i)%vf(macros_setup_vfs_i)%sf) 
# 297 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 297 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp target enter data map(to:qR_prim(i)%vf(macros_setup_vfs_i)%sf) 
# 297 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 297 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
                    end if
# 297 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
                end do
# 297 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
            end if
# 297 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    end block
# 297 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
            end do
 
#ifdef MFC_DEBUG
# 300 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    block
# 300 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        use iso_fortran_env, only: output_unit
# 300 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 300 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        print *, 'm_rhs.fpp:300: ', '@:ALLOCATE(qL_rsx_vf(idwbuff(1)%beg:idwbuff(1)%end, idwbuff(2)%beg:idwbuff(2)%end, idwbuff(3)%beg:idwbuff(3)%end, 1:sys_size))'
# 300 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 300 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        call flush (output_unit)
# 300 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    end block
# 300 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 300 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    allocate (ql_rsx_vf(idwbuff(1)%beg:idwbuff(1)%end, idwbuff(2)%beg:idwbuff(2)%end, idwbuff(3)%beg:idwbuff(3)%end,  1:sys_size))
# 300 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 300 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 300 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 300 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc enter data create(qL_rsx_vf) 
# 300 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 300 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp target enter data map(always,alloc:qL_rsx_vf) 
# 300 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 302 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#ifdef MFC_DEBUG
# 302 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    block
# 302 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        use iso_fortran_env, only: output_unit
# 302 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 302 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        print *, 'm_rhs.fpp:302: ', '@:ALLOCATE(qR_rsx_vf(idwbuff(1)%beg:idwbuff(1)%end, idwbuff(2)%beg:idwbuff(2)%end, idwbuff(3)%beg:idwbuff(3)%end, 1:sys_size))'
# 302 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 302 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        call flush (output_unit)
# 302 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    end block
# 302 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 302 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    allocate (qr_rsx_vf(idwbuff(1)%beg:idwbuff(1)%end, idwbuff(2)%beg:idwbuff(2)%end, idwbuff(3)%beg:idwbuff(3)%end,  1:sys_size))
# 302 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 302 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 302 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 302 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc enter data create(qR_rsx_vf) 
# 302 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 302 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp target enter data map(always,alloc:qR_rsx_vf) 
# 302 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 304 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
            if (n > 0) then
#ifdef MFC_DEBUG
# 306 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    block
# 306 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        use iso_fortran_env, only: output_unit
# 306 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 306 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        print *, 'm_rhs.fpp:306: ', '@:ALLOCATE(qL_rsy_vf(idwbuff(2)%beg:idwbuff(2)%end, idwbuff(1)%beg:idwbuff(1)%end, idwbuff(3)%beg:idwbuff(3)%end, 1:sys_size))'
# 306 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 306 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        call flush (output_unit)
# 306 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    end block
# 306 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 306 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    allocate (ql_rsy_vf(idwbuff(2)%beg:idwbuff(2)%end, idwbuff(1)%beg:idwbuff(1)%end, idwbuff(3)%beg:idwbuff(3)%end,  1:sys_size))
# 306 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 306 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 306 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 306 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc enter data create(qL_rsy_vf) 
# 306 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 306 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp target enter data map(always,alloc:qL_rsy_vf) 
# 306 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 308 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#ifdef MFC_DEBUG
# 308 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    block
# 308 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        use iso_fortran_env, only: output_unit
# 308 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 308 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        print *, 'm_rhs.fpp:308: ', '@:ALLOCATE(qR_rsy_vf(idwbuff(2)%beg:idwbuff(2)%end, idwbuff(1)%beg:idwbuff(1)%end, idwbuff(3)%beg:idwbuff(3)%end, 1:sys_size))'
# 308 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 308 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        call flush (output_unit)
# 308 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    end block
# 308 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 308 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    allocate (qr_rsy_vf(idwbuff(2)%beg:idwbuff(2)%end, idwbuff(1)%beg:idwbuff(1)%end, idwbuff(3)%beg:idwbuff(3)%end,  1:sys_size))
# 308 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 308 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 308 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 308 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc enter data create(qR_rsy_vf) 
# 308 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 308 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp target enter data map(always,alloc:qR_rsy_vf) 
# 308 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 310 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
            else
#ifdef MFC_DEBUG
# 311 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    block
# 311 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        use iso_fortran_env, only: output_unit
# 311 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 311 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        print *, 'm_rhs.fpp:311: ', '@: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))'
# 311 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 311 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        call flush (output_unit)
# 311 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    end block
# 311 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 311 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    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))
# 311 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 311 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 311 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 311 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc enter data create(qL_rsy_vf) 
# 311 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 311 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp target enter data map(always,alloc:qL_rsy_vf) 
# 311 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 313 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#ifdef MFC_DEBUG
# 313 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    block
# 313 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        use iso_fortran_env, only: output_unit
# 313 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 313 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        print *, 'm_rhs.fpp:313: ', '@:ALLOCATE(qR_rsy_vf(idwbuff(1)%beg:idwbuff(1)%end, idwbuff(2)%beg:idwbuff(2)%end, idwbuff(3)%beg:idwbuff(3)%end, 1:sys_size))'
# 313 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 313 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        call flush (output_unit)
# 313 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    end block
# 313 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 313 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    allocate (qr_rsy_vf(idwbuff(1)%beg:idwbuff(1)%end, idwbuff(2)%beg:idwbuff(2)%end, idwbuff(3)%beg:idwbuff(3)%end,  1:sys_size))
# 313 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 313 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 313 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 313 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc enter data create(qR_rsy_vf) 
# 313 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 313 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp target enter data map(always,alloc:qR_rsy_vf) 
# 313 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 315 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
            end if
 
            if (p > 0) then
#ifdef MFC_DEBUG
# 318 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    block
# 318 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        use iso_fortran_env, only: output_unit
# 318 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 318 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        print *, 'm_rhs.fpp:318: ', '@:ALLOCATE(qL_rsz_vf(idwbuff(3)%beg:idwbuff(3)%end, idwbuff(2)%beg:idwbuff(2)%end, idwbuff(1)%beg:idwbuff(1)%end, 1:sys_size))'
# 318 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 318 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        call flush (output_unit)
# 318 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    end block
# 318 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 318 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    allocate (ql_rsz_vf(idwbuff(3)%beg:idwbuff(3)%end, idwbuff(2)%beg:idwbuff(2)%end, idwbuff(1)%beg:idwbuff(1)%end,  1:sys_size))
# 318 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 318 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 318 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 318 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc enter data create(qL_rsz_vf) 
# 318 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 318 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp target enter data map(always,alloc:qL_rsz_vf) 
# 318 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 320 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#ifdef MFC_DEBUG
# 320 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    block
# 320 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        use iso_fortran_env, only: output_unit
# 320 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 320 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        print *, 'm_rhs.fpp:320: ', '@: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))'
# 320 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 320 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        call flush (output_unit)
# 320 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    end block
# 320 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 320 "/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))
# 320 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 320 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 320 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 320 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc enter data create(qR_rsz_vf) 
# 320 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 320 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp target enter data map(always,alloc:qR_rsz_vf) 
# 320 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 322 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
            else
#ifdef MFC_DEBUG
# 323 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    block
# 323 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        use iso_fortran_env, only: output_unit
# 323 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 323 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        print *, 'm_rhs.fpp:323: ', '@:ALLOCATE(qL_rsz_vf(idwbuff(1)%beg:idwbuff(1)%end, idwbuff(2)%beg:idwbuff(2)%end, idwbuff(3)%beg:idwbuff(3)%end, 1:sys_size))'
# 323 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 323 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        call flush (output_unit)
# 323 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    end block
# 323 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 323 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    allocate (ql_rsz_vf(idwbuff(1)%beg:idwbuff(1)%end, idwbuff(2)%beg:idwbuff(2)%end, idwbuff(3)%beg:idwbuff(3)%end,  1:sys_size))
# 323 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 323 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 323 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 323 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc enter data create(qL_rsz_vf) 
# 323 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 323 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp target enter data map(always,alloc:qL_rsz_vf) 
# 323 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 325 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#ifdef MFC_DEBUG
# 325 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    block
# 325 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        use iso_fortran_env, only: output_unit
# 325 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 325 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        print *, 'm_rhs.fpp:325: ', '@: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))'
# 325 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 325 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        call flush (output_unit)
# 325 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    end block
# 325 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 325 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    allocate (qr_rsz_vf(idwbuff(1)%beg:idwbuff(1)%end, idwbuff(2)%beg:idwbuff(2)%end, idwbuff(3)%beg:idwbuff(3)%end,  1:sys_size))
# 325 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 325 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 325 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 325 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc enter data create(qR_rsz_vf) 
# 325 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 325 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp target enter data map(always,alloc:qR_rsz_vf) 
# 325 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 327 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
            end if
 
            if (.not. viscous) then
                do i = 1, num_dims
#ifdef MFC_DEBUG
# 331 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    block
# 331 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        use iso_fortran_env, only: output_unit
# 331 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 331 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        print *, 'm_rhs.fpp:331: ', '@:ALLOCATE(dqL_prim_dx_n(i)%vf(1:sys_size))'
# 331 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 331 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        call flush (output_unit)
# 331 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    end block
# 331 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 331 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    allocate (dql_prim_dx_n(i)%vf(1:sys_size))
# 331 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 331 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 331 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 331 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc enter data create(dqL_prim_dx_n(i)%vf) 
# 331 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 331 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp target enter data map(always,alloc:dqL_prim_dx_n(i)%vf) 
# 331 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
#ifdef MFC_DEBUG
# 332 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    block
# 332 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        use iso_fortran_env, only: output_unit
# 332 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 332 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        print *, 'm_rhs.fpp:332: ', '@:ALLOCATE(dqL_prim_dy_n(i)%vf(1:sys_size))'
# 332 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 332 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        call flush (output_unit)
# 332 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    end block
# 332 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 332 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    allocate (dql_prim_dy_n(i)%vf(1:sys_size))
# 332 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 332 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 332 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 332 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc enter data create(dqL_prim_dy_n(i)%vf) 
# 332 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 332 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp target enter data map(always,alloc:dqL_prim_dy_n(i)%vf) 
# 332 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
#ifdef MFC_DEBUG
# 333 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    block
# 333 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        use iso_fortran_env, only: output_unit
# 333 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 333 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        print *, 'm_rhs.fpp:333: ', '@:ALLOCATE(dqL_prim_dz_n(i)%vf(1:sys_size))'
# 333 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 333 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        call flush (output_unit)
# 333 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    end block
# 333 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 333 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    allocate (dql_prim_dz_n(i)%vf(1:sys_size))
# 333 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 333 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 333 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 333 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc enter data create(dqL_prim_dz_n(i)%vf) 
# 333 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 333 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp target enter data map(always,alloc:dqL_prim_dz_n(i)%vf) 
# 333 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
#ifdef MFC_DEBUG
# 334 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    block
# 334 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        use iso_fortran_env, only: output_unit
# 334 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 334 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        print *, 'm_rhs.fpp:334: ', '@:ALLOCATE(dqR_prim_dx_n(i)%vf(1:sys_size))'
# 334 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 334 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        call flush (output_unit)
# 334 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    end block
# 334 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 334 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    allocate (dqr_prim_dx_n(i)%vf(1:sys_size))
# 334 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 334 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 334 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 334 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc enter data create(dqR_prim_dx_n(i)%vf) 
# 334 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 334 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp target enter data map(always,alloc:dqR_prim_dx_n(i)%vf) 
# 334 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
#ifdef MFC_DEBUG
# 335 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    block
# 335 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        use iso_fortran_env, only: output_unit
# 335 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 335 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        print *, 'm_rhs.fpp:335: ', '@:ALLOCATE(dqR_prim_dy_n(i)%vf(1:sys_size))'
# 335 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 335 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        call flush (output_unit)
# 335 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    end block
# 335 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 335 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    allocate (dqr_prim_dy_n(i)%vf(1:sys_size))
# 335 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 335 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 335 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 335 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc enter data create(dqR_prim_dy_n(i)%vf) 
# 335 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 335 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp target enter data map(always,alloc:dqR_prim_dy_n(i)%vf) 
# 335 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
#ifdef MFC_DEBUG
# 336 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    block
# 336 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        use iso_fortran_env, only: output_unit
# 336 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 336 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        print *, 'm_rhs.fpp:336: ', '@:ALLOCATE(dqR_prim_dz_n(i)%vf(1:sys_size))'
# 336 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 336 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        call flush (output_unit)
# 336 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    end block
# 336 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 336 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    allocate (dqr_prim_dz_n(i)%vf(1:sys_size))
# 336 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 336 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 336 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 336 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc enter data create(dqR_prim_dz_n(i)%vf) 
# 336 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 336 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp target enter data map(always,alloc:dqR_prim_dz_n(i)%vf) 
# 336 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
 
                    do l = momxb, momxe
#ifdef MFC_DEBUG
# 339 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    block
# 339 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        use iso_fortran_env, only: output_unit
# 339 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 339 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        print *, 'm_rhs.fpp:339: ', '@:ALLOCATE(dqL_prim_dx_n(i)%vf(l)%sf(1:1, 1:1, 1:1))'
# 339 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 339 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        call flush (output_unit)
# 339 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    end block
# 339 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 339 "/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))
# 339 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 339 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 339 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 339 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc enter data create(dqL_prim_dx_n(i)%vf(l)%sf) 
# 339 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 339 "/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) 
# 339 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
#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(dqL_prim_dy_n(i)%vf(l)%sf(1:1, 1:1, 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 (dql_prim_dy_n(i)%vf(l)%sf(1:1, 1:1, 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(dqL_prim_dy_n(i)%vf(l)%sf) 
# 340 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 340 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp target enter data map(always,alloc:dqL_prim_dy_n(i)%vf(l)%sf) 
# 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(dqL_prim_dz_n(i)%vf(l)%sf(1:1, 1:1, 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 (dql_prim_dz_n(i)%vf(l)%sf(1:1, 1:1, 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(dqL_prim_dz_n(i)%vf(l)%sf) 
# 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:dqL_prim_dz_n(i)%vf(l)%sf) 
# 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(dqR_prim_dx_n(i)%vf(l)%sf(1:1, 1:1, 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 (dqr_prim_dx_n(i)%vf(l)%sf(1:1, 1:1, 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(dqR_prim_dx_n(i)%vf(l)%sf) 
# 342 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 342 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp target enter data map(always,alloc:dqR_prim_dx_n(i)%vf(l)%sf) 
# 342 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
#ifdef MFC_DEBUG
# 343 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    block
# 343 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        use iso_fortran_env, only: output_unit
# 343 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 343 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        print *, 'm_rhs.fpp:343: ', '@:ALLOCATE(dqR_prim_dy_n(i)%vf(l)%sf(1:1, 1:1, 1:1))'
# 343 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 343 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        call flush (output_unit)
# 343 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    end block
# 343 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 343 "/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))
# 343 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 343 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 343 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 343 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc enter data create(dqR_prim_dy_n(i)%vf(l)%sf) 
# 343 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 343 "/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) 
# 343 "/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(dqR_prim_dz_n(i)%vf(l)%sf(1:1, 1:1, 1:1))'
# 344 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 344 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        call flush (output_unit)
# 344 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    end block
# 344 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 344 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    allocate (dqr_prim_dz_n(i)%vf(l)%sf(1:1, 1:1, 1:1))
# 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(dqR_prim_dz_n(i)%vf(l)%sf) 
# 344 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 344 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp target enter data map(always,alloc:dqR_prim_dz_n(i)%vf(l)%sf) 
# 344 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
                    end do
#ifdef _CRAYFTN
# 346 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    block
# 346 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        integer :: macros_setup_vfs_i
# 346 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 346 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#ifdef MFC_DEBUG
# 346 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    block
# 346 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        use iso_fortran_env, only: output_unit
# 346 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 346 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        print *, 'm_rhs.fpp:346: ', '@:ACC_SETUP_VFs(dqL_prim_dx_n(i), dqL_prim_dy_n(i), dqL_prim_dz_n(i))'
# 346 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 346 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        call flush (output_unit)
# 346 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    end block
# 346 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 346 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 346 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 346 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 346 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc enter data copyin(dqL_prim_dx_n(i)) 
# 346 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 346 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp target enter data map(to:dqL_prim_dx_n(i)) 
# 346 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 346 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 346 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 346 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc enter data copyin(dqL_prim_dx_n(i)%vf) 
# 346 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 346 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp target enter data map(to:dqL_prim_dx_n(i)%vf) 
# 346 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 346 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
            if (allocated(dql_prim_dx_n(i)%vf)) then
# 346 "/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)
# 346 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
                    if (associated(dql_prim_dx_n(i)%vf(macros_setup_vfs_i)%sf)) then
# 346 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 346 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 346 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc enter data copyin(dqL_prim_dx_n(i)%vf(macros_setup_vfs_i)) 
# 346 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 346 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp target enter data map(to:dqL_prim_dx_n(i)%vf(macros_setup_vfs_i)) 
# 346 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 346 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 346 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 346 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc enter data copyin(dqL_prim_dx_n(i)%vf(macros_setup_vfs_i)%sf) 
# 346 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 346 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp target enter data map(to:dqL_prim_dx_n(i)%vf(macros_setup_vfs_i)%sf) 
# 346 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 346 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
                    end if
# 346 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
                end do
# 346 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
            end if
# 346 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 346 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 346 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc enter data copyin(dqL_prim_dy_n(i)) 
# 346 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 346 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp target enter data map(to:dqL_prim_dy_n(i)) 
# 346 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 346 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 346 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 346 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc enter data copyin(dqL_prim_dy_n(i)%vf) 
# 346 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 346 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp target enter data map(to:dqL_prim_dy_n(i)%vf) 
# 346 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 346 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
            if (allocated(dql_prim_dy_n(i)%vf)) then
# 346 "/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)
# 346 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
                    if (associated(dql_prim_dy_n(i)%vf(macros_setup_vfs_i)%sf)) then
# 346 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 346 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 346 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc enter data copyin(dqL_prim_dy_n(i)%vf(macros_setup_vfs_i)) 
# 346 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 346 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp target enter data map(to:dqL_prim_dy_n(i)%vf(macros_setup_vfs_i)) 
# 346 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 346 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 346 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 346 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc enter data copyin(dqL_prim_dy_n(i)%vf(macros_setup_vfs_i)%sf) 
# 346 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 346 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp target enter data map(to:dqL_prim_dy_n(i)%vf(macros_setup_vfs_i)%sf) 
# 346 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 346 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
                    end if
# 346 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
                end do
# 346 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
            end if
# 346 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 346 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 346 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc enter data copyin(dqL_prim_dz_n(i)) 
# 346 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 346 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp target enter data map(to:dqL_prim_dz_n(i)) 
# 346 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 346 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 346 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 346 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc enter data copyin(dqL_prim_dz_n(i)%vf) 
# 346 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 346 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp target enter data map(to:dqL_prim_dz_n(i)%vf) 
# 346 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 346 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
            if (allocated(dql_prim_dz_n(i)%vf)) then
# 346 "/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)
# 346 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
                    if (associated(dql_prim_dz_n(i)%vf(macros_setup_vfs_i)%sf)) then
# 346 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 346 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 346 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc enter data copyin(dqL_prim_dz_n(i)%vf(macros_setup_vfs_i)) 
# 346 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 346 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp target enter data map(to:dqL_prim_dz_n(i)%vf(macros_setup_vfs_i)) 
# 346 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 346 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 346 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 346 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc enter data copyin(dqL_prim_dz_n(i)%vf(macros_setup_vfs_i)%sf) 
# 346 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 346 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp target enter data map(to:dqL_prim_dz_n(i)%vf(macros_setup_vfs_i)%sf) 
# 346 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 346 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
                    end if
# 346 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
                end do
# 346 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
            end if
# 346 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    end block
# 346 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
#ifdef _CRAYFTN
# 347 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    block
# 347 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        integer :: macros_setup_vfs_i
# 347 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 347 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#ifdef MFC_DEBUG
# 347 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    block
# 347 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        use iso_fortran_env, only: output_unit
# 347 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 347 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        print *, 'm_rhs.fpp:347: ', '@:ACC_SETUP_VFs(dqR_prim_dx_n(i), dqR_prim_dy_n(i), dqR_prim_dz_n(i))'
# 347 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 347 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        call flush (output_unit)
# 347 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    end block
# 347 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 347 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 347 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 347 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 347 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc enter data copyin(dqR_prim_dx_n(i)) 
# 347 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 347 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp target enter data map(to:dqR_prim_dx_n(i)) 
# 347 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 347 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 347 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 347 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc enter data copyin(dqR_prim_dx_n(i)%vf) 
# 347 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 347 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp target enter data map(to:dqR_prim_dx_n(i)%vf) 
# 347 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 347 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
            if (allocated(dqr_prim_dx_n(i)%vf)) then
# 347 "/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)
# 347 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
                    if (associated(dqr_prim_dx_n(i)%vf(macros_setup_vfs_i)%sf)) then
# 347 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 347 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 347 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc enter data copyin(dqR_prim_dx_n(i)%vf(macros_setup_vfs_i)) 
# 347 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 347 "/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)) 
# 347 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 347 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 347 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 347 "/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) 
# 347 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 347 "/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) 
# 347 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 347 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
                    end if
# 347 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
                end do
# 347 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
            end if
# 347 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 347 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 347 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc enter data copyin(dqR_prim_dy_n(i)) 
# 347 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 347 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp target enter data map(to:dqR_prim_dy_n(i)) 
# 347 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 347 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 347 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 347 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc enter data copyin(dqR_prim_dy_n(i)%vf) 
# 347 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 347 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp target enter data map(to:dqR_prim_dy_n(i)%vf) 
# 347 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 347 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
            if (allocated(dqr_prim_dy_n(i)%vf)) then
# 347 "/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)
# 347 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
                    if (associated(dqr_prim_dy_n(i)%vf(macros_setup_vfs_i)%sf)) then
# 347 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 347 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 347 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc enter data copyin(dqR_prim_dy_n(i)%vf(macros_setup_vfs_i)) 
# 347 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 347 "/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)) 
# 347 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 347 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 347 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 347 "/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) 
# 347 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 347 "/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) 
# 347 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 347 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
                    end if
# 347 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
                end do
# 347 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
            end if
# 347 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 347 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 347 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc enter data copyin(dqR_prim_dz_n(i)) 
# 347 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 347 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp target enter data map(to:dqR_prim_dz_n(i)) 
# 347 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 347 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 347 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 347 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc enter data copyin(dqR_prim_dz_n(i)%vf) 
# 347 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 347 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp target enter data map(to:dqR_prim_dz_n(i)%vf) 
# 347 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 347 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
            if (allocated(dqr_prim_dz_n(i)%vf)) then
# 347 "/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)
# 347 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
                    if (associated(dqr_prim_dz_n(i)%vf(macros_setup_vfs_i)%sf)) then
# 347 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 347 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 347 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc enter data copyin(dqR_prim_dz_n(i)%vf(macros_setup_vfs_i)) 
# 347 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 347 "/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)) 
# 347 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 347 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 347 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 347 "/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) 
# 347 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 347 "/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) 
# 347 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 347 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
                    end if
# 347 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
                end do
# 347 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
            end if
# 347 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    end block
# 347 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
                end do
            end if
 
            if (viscous) then
#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(tau_Re_vf(1:sys_size))'
# 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 (tau_re_vf(1:sys_size))
# 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(tau_Re_vf) 
# 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:tau_Re_vf) 
# 352 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
                do i = 1, num_dims
#ifdef MFC_DEBUG
# 354 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    block
# 354 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        use iso_fortran_env, only: output_unit
# 354 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 354 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        print *, 'm_rhs.fpp:354: ', '@: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))'
# 354 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 354 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        call flush (output_unit)
# 354 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    end block
# 354 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 354 "/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))
# 354 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 354 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 354 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 354 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc enter data create(tau_Re_vf(cont_idx%end + i)%sf) 
# 354 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 354 "/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) 
# 354 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 356 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#ifdef _CRAYFTN
# 356 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    block
# 356 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#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: ', '@:ACC_SETUP_SFs(tau_Re_vf(cont_idx%end + i))'
# 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"
 
# 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 copyin(tau_Re_vf(cont_idx%end + i)) 
# 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(to:tau_Re_vf(cont_idx%end + i)) 
# 356 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 356 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
            if (associated(tau_re_vf(cont_idx%end + i)%sf)) then
# 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 copyin(tau_Re_vf(cont_idx%end + i)%sf) 
# 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(to:tau_Re_vf(cont_idx%end + i)%sf) 
# 356 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 356 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
            end if
# 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
                end do
#ifdef MFC_DEBUG
# 358 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    block
# 358 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        use iso_fortran_env, only: output_unit
# 358 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 358 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        print *, 'm_rhs.fpp:358: ', '@:ALLOCATE(tau_Re_vf(E_idx)%sf(idwbuff(1)%beg:idwbuff(1)%end, idwbuff(2)%beg:idwbuff(2)%end, idwbuff(3)%beg:idwbuff(3)%end))'
# 358 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 358 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        call flush (output_unit)
# 358 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    end block
# 358 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 358 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    allocate (tau_re_vf(e_idx)%sf(idwbuff(1)%beg:idwbuff(1)%end, idwbuff(2)%beg:idwbuff(2)%end,  idwbuff(3)%beg:idwbuff(3)%end))
# 358 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 358 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 358 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 358 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc enter data create(tau_Re_vf(E_idx)%sf) 
# 358 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 358 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp target enter data map(always,alloc:tau_Re_vf(E_idx)%sf) 
# 358 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 360 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#ifdef _CRAYFTN
# 360 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    block
# 360 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#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: ', '@:ACC_SETUP_SFs(tau_Re_vf(E_idx))'
# 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"
 
# 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 copyin(tau_Re_vf(E_idx)) 
# 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(to:tau_Re_vf(E_idx)) 
# 360 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 360 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
            if (associated(tau_re_vf(e_idx)%sf)) then
# 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 copyin(tau_Re_vf(E_idx)%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(to:tau_Re_vf(E_idx)%sf) 
# 360 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 360 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
            end if
# 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
 
#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: ', '@:ALLOCATE(dq_prim_dx_qp(1)%vf(1:sys_size))'
# 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"
    allocate (dq_prim_dx_qp(1)%vf(1:sys_size))
# 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 create(dq_prim_dx_qp(1)%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(always,alloc:dq_prim_dx_qp(1)%vf) 
# 362 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
#ifdef MFC_DEBUG
# 363 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    block
# 363 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        use iso_fortran_env, only: output_unit
# 363 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 363 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        print *, 'm_rhs.fpp:363: ', '@:ALLOCATE(dq_prim_dy_qp(1)%vf(1:sys_size))'
# 363 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 363 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        call flush (output_unit)
# 363 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    end block
# 363 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 363 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    allocate (dq_prim_dy_qp(1)%vf(1:sys_size))
# 363 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 363 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 363 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 363 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc enter data create(dq_prim_dy_qp(1)%vf) 
# 363 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 363 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp target enter data map(always,alloc:dq_prim_dy_qp(1)%vf) 
# 363 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
#ifdef MFC_DEBUG
# 364 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    block
# 364 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        use iso_fortran_env, only: output_unit
# 364 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 364 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        print *, 'm_rhs.fpp:364: ', '@:ALLOCATE(dq_prim_dz_qp(1)%vf(1:sys_size))'
# 364 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 364 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        call flush (output_unit)
# 364 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    end block
# 364 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 364 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    allocate (dq_prim_dz_qp(1)%vf(1:sys_size))
# 364 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 364 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 364 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 364 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc enter data create(dq_prim_dz_qp(1)%vf) 
# 364 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 364 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp target enter data map(always,alloc:dq_prim_dz_qp(1)%vf) 
# 364 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
 
                do l = mom_idx%beg, mom_idx%end
#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(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))'
# 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 (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))
# 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(dq_prim_dx_qp(1)%vf(l)%sf) 
# 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:dq_prim_dx_qp(1)%vf(l)%sf) 
# 367 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 369 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
                end do
 
#ifdef _CRAYFTN
# 371 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    block
# 371 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        integer :: macros_setup_vfs_i
# 371 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 371 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#ifdef MFC_DEBUG
# 371 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    block
# 371 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        use iso_fortran_env, only: output_unit
# 371 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 371 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        print *, 'm_rhs.fpp:371: ', '@:ACC_SETUP_VFs(dq_prim_dx_qp(1))'
# 371 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 371 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        call flush (output_unit)
# 371 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    end block
# 371 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 371 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 371 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 371 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 371 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc enter data copyin(dq_prim_dx_qp(1)) 
# 371 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 371 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp target enter data map(to:dq_prim_dx_qp(1)) 
# 371 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 371 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 371 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 371 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc enter data copyin(dq_prim_dx_qp(1)%vf) 
# 371 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 371 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp target enter data map(to:dq_prim_dx_qp(1)%vf) 
# 371 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 371 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
            if (allocated(dq_prim_dx_qp(1)%vf)) then
# 371 "/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)
# 371 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
                    if (associated(dq_prim_dx_qp(1)%vf(macros_setup_vfs_i)%sf)) then
# 371 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 371 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 371 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc enter data copyin(dq_prim_dx_qp(1)%vf(macros_setup_vfs_i)) 
# 371 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 371 "/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)) 
# 371 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 371 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 371 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 371 "/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) 
# 371 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 371 "/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) 
# 371 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 371 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
                    end if
# 371 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
                end do
# 371 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
            end if
# 371 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    end block
# 371 "/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
# 375 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    block
# 375 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        use iso_fortran_env, only: output_unit
# 375 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 375 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        print *, 'm_rhs.fpp:375: ', '@:ALLOCATE(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))'
# 375 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 375 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        call flush (output_unit)
# 375 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    end block
# 375 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 375 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    allocate (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))
# 375 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 375 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 375 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 375 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc enter data create(dq_prim_dy_qp(1)%vf(l)%sf) 
# 375 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 375 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp target enter data map(always,alloc:dq_prim_dy_qp(1)%vf(l)%sf) 
# 375 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 377 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
                    end do
 
#ifdef _CRAYFTN
# 379 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    block
# 379 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        integer :: macros_setup_vfs_i
# 379 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 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: ', '@:ACC_SETUP_VFs(dq_prim_dy_qp(1))'
# 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"
 
# 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 copyin(dq_prim_dy_qp(1)) 
# 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(to:dq_prim_dy_qp(1)) 
# 379 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 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 copyin(dq_prim_dy_qp(1)%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(to:dq_prim_dy_qp(1)%vf) 
# 379 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 379 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
            if (allocated(dq_prim_dy_qp(1)%vf)) then
# 379 "/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)
# 379 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
                    if (associated(dq_prim_dy_qp(1)%vf(macros_setup_vfs_i)%sf)) then
# 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 copyin(dq_prim_dy_qp(1)%vf(macros_setup_vfs_i)) 
# 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(to:dq_prim_dy_qp(1)%vf(macros_setup_vfs_i)) 
# 379 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 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 copyin(dq_prim_dy_qp(1)%vf(macros_setup_vfs_i)%sf) 
# 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(to:dq_prim_dy_qp(1)%vf(macros_setup_vfs_i)%sf) 
# 379 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 379 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
                    end if
# 379 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
                end do
# 379 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
            end if
# 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
 
                    if (p > 0) then
                        do l = mom_idx%beg, mom_idx%end
#ifdef MFC_DEBUG
# 383 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    block
# 383 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        use iso_fortran_env, only: output_unit
# 383 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 383 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        print *, 'm_rhs.fpp:383: ', '@:ALLOCATE(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))'
# 383 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 383 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        call flush (output_unit)
# 383 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    end block
# 383 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 383 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    allocate (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))
# 383 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 383 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 383 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 383 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc enter data create(dq_prim_dz_qp(1)%vf(l)%sf) 
# 383 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 383 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp target enter data map(always,alloc:dq_prim_dz_qp(1)%vf(l)%sf) 
# 383 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 385 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
                        end do
#ifdef _CRAYFTN
# 386 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    block
# 386 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        integer :: macros_setup_vfs_i
# 386 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 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: ', '@:ACC_SETUP_VFs(dq_prim_dz_qp(1))'
# 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"
 
# 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 copyin(dq_prim_dz_qp(1)) 
# 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(to:dq_prim_dz_qp(1)) 
# 386 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 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 copyin(dq_prim_dz_qp(1)%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(to:dq_prim_dz_qp(1)%vf) 
# 386 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 386 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
            if (allocated(dq_prim_dz_qp(1)%vf)) then
# 386 "/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)
# 386 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
                    if (associated(dq_prim_dz_qp(1)%vf(macros_setup_vfs_i)%sf)) then
# 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 copyin(dq_prim_dz_qp(1)%vf(macros_setup_vfs_i)) 
# 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(to:dq_prim_dz_qp(1)%vf(macros_setup_vfs_i)) 
# 386 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 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 copyin(dq_prim_dz_qp(1)%vf(macros_setup_vfs_i)%sf) 
# 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(to:dq_prim_dz_qp(1)%vf(macros_setup_vfs_i)%sf) 
# 386 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 386 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
                    end if
# 386 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
                end do
# 386 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
            end if
# 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
                    end if
                end if
 
                do i = 1, num_dims
#ifdef MFC_DEBUG
# 391 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    block
# 391 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        use iso_fortran_env, only: output_unit
# 391 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 391 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        print *, 'm_rhs.fpp:391: ', '@:ALLOCATE(dqL_prim_dx_n(i)%vf(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 (dql_prim_dx_n(i)%vf(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(dqL_prim_dx_n(i)%vf) 
# 391 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 391 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp target enter data map(always,alloc:dqL_prim_dx_n(i)%vf) 
# 391 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
#ifdef MFC_DEBUG
# 392 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    block
# 392 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        use iso_fortran_env, only: output_unit
# 392 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 392 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        print *, 'm_rhs.fpp:392: ', '@:ALLOCATE(dqL_prim_dy_n(i)%vf(1:sys_size))'
# 392 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 392 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        call flush (output_unit)
# 392 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    end block
# 392 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 392 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    allocate (dql_prim_dy_n(i)%vf(1:sys_size))
# 392 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 392 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 392 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 392 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc enter data create(dqL_prim_dy_n(i)%vf) 
# 392 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 392 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp target enter data map(always,alloc:dqL_prim_dy_n(i)%vf) 
# 392 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
#ifdef MFC_DEBUG
# 393 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    block
# 393 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        use iso_fortran_env, only: output_unit
# 393 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 393 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        print *, 'm_rhs.fpp:393: ', '@:ALLOCATE(dqL_prim_dz_n(i)%vf(1:sys_size))'
# 393 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 393 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        call flush (output_unit)
# 393 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    end block
# 393 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 393 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    allocate (dql_prim_dz_n(i)%vf(1:sys_size))
# 393 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 393 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 393 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 393 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc enter data create(dqL_prim_dz_n(i)%vf) 
# 393 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 393 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp target enter data map(always,alloc:dqL_prim_dz_n(i)%vf) 
# 393 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
#ifdef MFC_DEBUG
# 394 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    block
# 394 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        use iso_fortran_env, only: output_unit
# 394 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 394 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        print *, 'm_rhs.fpp:394: ', '@:ALLOCATE(dqR_prim_dx_n(i)%vf(1:sys_size))'
# 394 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 394 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        call flush (output_unit)
# 394 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    end block
# 394 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 394 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    allocate (dqr_prim_dx_n(i)%vf(1:sys_size))
# 394 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 394 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 394 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 394 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc enter data create(dqR_prim_dx_n(i)%vf) 
# 394 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 394 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp target enter data map(always,alloc:dqR_prim_dx_n(i)%vf) 
# 394 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
#ifdef MFC_DEBUG
# 395 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    block
# 395 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        use iso_fortran_env, only: output_unit
# 395 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 395 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        print *, 'm_rhs.fpp:395: ', '@:ALLOCATE(dqR_prim_dy_n(i)%vf(1:sys_size))'
# 395 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 395 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        call flush (output_unit)
# 395 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    end block
# 395 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 395 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    allocate (dqr_prim_dy_n(i)%vf(1:sys_size))
# 395 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 395 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 395 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 395 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc enter data create(dqR_prim_dy_n(i)%vf) 
# 395 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 395 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp target enter data map(always,alloc:dqR_prim_dy_n(i)%vf) 
# 395 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
#ifdef MFC_DEBUG
# 396 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    block
# 396 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        use iso_fortran_env, only: output_unit
# 396 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 396 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        print *, 'm_rhs.fpp:396: ', '@:ALLOCATE(dqR_prim_dz_n(i)%vf(1:sys_size))'
# 396 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 396 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        call flush (output_unit)
# 396 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    end block
# 396 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 396 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    allocate (dqr_prim_dz_n(i)%vf(1:sys_size))
# 396 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 396 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 396 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 396 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc enter data create(dqR_prim_dz_n(i)%vf) 
# 396 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 396 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp target enter data map(always,alloc:dqR_prim_dz_n(i)%vf) 
# 396 "/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
# 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(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))'
# 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 (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))
# 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(dqL_prim_dx_n(i)%vf(l)%sf) 
# 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:dqL_prim_dx_n(i)%vf(l)%sf) 
# 401 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 403 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#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_dx_n(i)%vf(l)%sf(idwbuff(1)%beg:idwbuff(1)%end, idwbuff(2)%beg:idwbuff(2)%end, idwbuff(3)%beg:idwbuff(3)%end))'
# 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_dx_n(i)%vf(l)%sf(idwbuff(1)%beg:idwbuff(1)%end, idwbuff(2)%beg:idwbuff(2)%end,  idwbuff(3)%beg:idwbuff(3)%end))
# 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_dx_n(i)%vf(l)%sf) 
# 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_dx_n(i)%vf(l)%sf) 
# 403 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 405 "/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
# 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(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))'
# 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 (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))
# 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(dqL_prim_dy_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:dqL_prim_dy_n(i)%vf(l)%sf) 
# 409 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 411 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#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_dy_n(i)%vf(l)%sf(idwbuff(1)%beg:idwbuff(1)%end, idwbuff(2)%beg:idwbuff(2)%end, idwbuff(3)%beg:idwbuff(3)%end))'
# 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_dy_n(i)%vf(l)%sf(idwbuff(1)%beg:idwbuff(1)%end, idwbuff(2)%beg:idwbuff(2)%end,  idwbuff(3)%beg:idwbuff(3)%end))
# 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_dy_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_dy_n(i)%vf(l)%sf) 
# 411 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 413 "/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
# 418 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    block
# 418 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        use iso_fortran_env, only: output_unit
# 418 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 418 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        print *, 'm_rhs.fpp:418: ', '@:ALLOCATE(dqL_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))'
# 418 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 418 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        call flush (output_unit)
# 418 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    end block
# 418 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 418 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    allocate (dql_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))
# 418 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 418 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 418 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 418 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc enter data create(dqL_prim_dz_n(i)%vf(l)%sf) 
# 418 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 418 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp target enter data map(always,alloc:dqL_prim_dz_n(i)%vf(l)%sf) 
# 418 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 420 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#ifdef MFC_DEBUG
# 420 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    block
# 420 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        use iso_fortran_env, only: output_unit
# 420 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 420 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        print *, 'm_rhs.fpp:420: ', '@:ALLOCATE(dqR_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))'
# 420 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 420 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        call flush (output_unit)
# 420 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    end block
# 420 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 420 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    allocate (dqr_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))
# 420 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 420 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 420 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 420 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc enter data create(dqR_prim_dz_n(i)%vf(l)%sf) 
# 420 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 420 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp target enter data map(always,alloc:dqR_prim_dz_n(i)%vf(l)%sf) 
# 420 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 422 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
                        end do
                    end if
 
#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"
        integer :: macros_setup_vfs_i
# 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_VFs(dqL_prim_dx_n(i), dqL_prim_dy_n(i), dqL_prim_dz_n(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(dqL_prim_dx_n(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:dqL_prim_dx_n(i)) 
# 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"
#if defined(MFC_OpenACC)
# 425 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc enter data copyin(dqL_prim_dx_n(i)%vf) 
# 425 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 425 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp target enter data map(to:dqL_prim_dx_n(i)%vf) 
# 425 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 425 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
            if (allocated(dql_prim_dx_n(i)%vf)) then
# 425 "/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)
# 425 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
                    if (associated(dql_prim_dx_n(i)%vf(macros_setup_vfs_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(dqL_prim_dx_n(i)%vf(macros_setup_vfs_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:dqL_prim_dx_n(i)%vf(macros_setup_vfs_i)) 
# 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"
#if defined(MFC_OpenACC)
# 425 "/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) 
# 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:dqL_prim_dx_n(i)%vf(macros_setup_vfs_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 do
# 425 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
            end if
# 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(dqL_prim_dy_n(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:dqL_prim_dy_n(i)) 
# 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"
#if defined(MFC_OpenACC)
# 425 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc enter data copyin(dqL_prim_dy_n(i)%vf) 
# 425 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 425 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp target enter data map(to:dqL_prim_dy_n(i)%vf) 
# 425 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 425 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
            if (allocated(dql_prim_dy_n(i)%vf)) then
# 425 "/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)
# 425 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
                    if (associated(dql_prim_dy_n(i)%vf(macros_setup_vfs_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(dqL_prim_dy_n(i)%vf(macros_setup_vfs_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:dqL_prim_dy_n(i)%vf(macros_setup_vfs_i)) 
# 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"
#if defined(MFC_OpenACC)
# 425 "/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) 
# 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:dqL_prim_dy_n(i)%vf(macros_setup_vfs_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 do
# 425 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
            end if
# 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(dqL_prim_dz_n(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:dqL_prim_dz_n(i)) 
# 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"
#if defined(MFC_OpenACC)
# 425 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc enter data copyin(dqL_prim_dz_n(i)%vf) 
# 425 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 425 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp target enter data map(to:dqL_prim_dz_n(i)%vf) 
# 425 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 425 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
            if (allocated(dql_prim_dz_n(i)%vf)) then
# 425 "/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)
# 425 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
                    if (associated(dql_prim_dz_n(i)%vf(macros_setup_vfs_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(dqL_prim_dz_n(i)%vf(macros_setup_vfs_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:dqL_prim_dz_n(i)%vf(macros_setup_vfs_i)) 
# 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"
#if defined(MFC_OpenACC)
# 425 "/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) 
# 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:dqL_prim_dz_n(i)%vf(macros_setup_vfs_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 do
# 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
#ifdef _CRAYFTN
# 426 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    block
# 426 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        integer :: macros_setup_vfs_i
# 426 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 426 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#ifdef MFC_DEBUG
# 426 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    block
# 426 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        use iso_fortran_env, only: output_unit
# 426 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 426 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        print *, 'm_rhs.fpp:426: ', '@:ACC_SETUP_VFs(dqR_prim_dx_n(i), dqR_prim_dy_n(i), dqR_prim_dz_n(i))'
# 426 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 426 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        call flush (output_unit)
# 426 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    end block
# 426 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 426 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 426 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 426 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 426 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc enter data copyin(dqR_prim_dx_n(i)) 
# 426 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 426 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp target enter data map(to:dqR_prim_dx_n(i)) 
# 426 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 426 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 426 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 426 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc enter data copyin(dqR_prim_dx_n(i)%vf) 
# 426 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 426 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp target enter data map(to:dqR_prim_dx_n(i)%vf) 
# 426 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 426 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
            if (allocated(dqr_prim_dx_n(i)%vf)) then
# 426 "/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)
# 426 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
                    if (associated(dqr_prim_dx_n(i)%vf(macros_setup_vfs_i)%sf)) then
# 426 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 426 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 426 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc enter data copyin(dqR_prim_dx_n(i)%vf(macros_setup_vfs_i)) 
# 426 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 426 "/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)) 
# 426 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 426 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 426 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 426 "/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) 
# 426 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 426 "/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) 
# 426 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 426 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
                    end if
# 426 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
                end do
# 426 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
            end if
# 426 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 426 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 426 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc enter data copyin(dqR_prim_dy_n(i)) 
# 426 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 426 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp target enter data map(to:dqR_prim_dy_n(i)) 
# 426 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 426 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 426 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 426 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc enter data copyin(dqR_prim_dy_n(i)%vf) 
# 426 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 426 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp target enter data map(to:dqR_prim_dy_n(i)%vf) 
# 426 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 426 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
            if (allocated(dqr_prim_dy_n(i)%vf)) then
# 426 "/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)
# 426 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
                    if (associated(dqr_prim_dy_n(i)%vf(macros_setup_vfs_i)%sf)) then
# 426 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 426 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 426 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc enter data copyin(dqR_prim_dy_n(i)%vf(macros_setup_vfs_i)) 
# 426 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 426 "/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)) 
# 426 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 426 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 426 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 426 "/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) 
# 426 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 426 "/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) 
# 426 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 426 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
                    end if
# 426 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
                end do
# 426 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
            end if
# 426 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 426 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 426 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc enter data copyin(dqR_prim_dz_n(i)) 
# 426 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 426 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp target enter data map(to:dqR_prim_dz_n(i)) 
# 426 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 426 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 426 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 426 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc enter data copyin(dqR_prim_dz_n(i)%vf) 
# 426 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 426 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp target enter data map(to:dqR_prim_dz_n(i)%vf) 
# 426 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 426 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
            if (allocated(dqr_prim_dz_n(i)%vf)) then
# 426 "/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)
# 426 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
                    if (associated(dqr_prim_dz_n(i)%vf(macros_setup_vfs_i)%sf)) then
# 426 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 426 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 426 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc enter data copyin(dqR_prim_dz_n(i)%vf(macros_setup_vfs_i)) 
# 426 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 426 "/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)) 
# 426 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 426 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 426 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 426 "/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) 
# 426 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 426 "/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) 
# 426 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 426 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
                    end if
# 426 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
                end do
# 426 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
            end if
# 426 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    end block
# 426 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
                end do
 
                if (weno_re_flux) then
#ifdef MFC_DEBUG
# 430 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    block
# 430 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        use iso_fortran_env, only: output_unit
# 430 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 430 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        print *, 'm_rhs.fpp:430: ', '@:ALLOCATE(dqL_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))'
# 430 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 430 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        call flush (output_unit)
# 430 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    end block
# 430 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 430 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    allocate (dql_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))
# 430 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 430 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 430 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 430 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc enter data create(dqL_rsx_vf) 
# 430 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 430 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp target enter data map(always,alloc:dqL_rsx_vf) 
# 430 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 432 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#ifdef MFC_DEBUG
# 432 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    block
# 432 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        use iso_fortran_env, only: output_unit
# 432 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 432 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        print *, 'm_rhs.fpp:432: ', '@:ALLOCATE(dqR_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))'
# 432 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 432 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        call flush (output_unit)
# 432 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    end block
# 432 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 432 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    allocate (dqr_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))
# 432 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 432 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 432 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 432 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc enter data create(dqR_rsx_vf) 
# 432 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 432 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp target enter data map(always,alloc:dqR_rsx_vf) 
# 432 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 434 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
                    if (n > 0) then
#ifdef MFC_DEBUG
# 436 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    block
# 436 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        use iso_fortran_env, only: output_unit
# 436 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 436 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        print *, 'm_rhs.fpp:436: ', '@: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))'
# 436 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 436 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        call flush (output_unit)
# 436 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    end block
# 436 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 436 "/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))
# 436 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 436 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 436 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 436 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc enter data create(dqL_rsy_vf) 
# 436 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 436 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp target enter data map(always,alloc:dqL_rsy_vf) 
# 436 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 438 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#ifdef MFC_DEBUG
# 438 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    block
# 438 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        use iso_fortran_env, only: output_unit
# 438 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 438 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        print *, 'm_rhs.fpp:438: ', '@: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))'
# 438 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 438 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        call flush (output_unit)
# 438 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    end block
# 438 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 438 "/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))
# 438 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 438 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 438 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 438 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc enter data create(dqR_rsy_vf) 
# 438 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 438 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp target enter data map(always,alloc:dqR_rsy_vf) 
# 438 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 440 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
                    else
#ifdef MFC_DEBUG
# 441 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    block
# 441 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        use iso_fortran_env, only: output_unit
# 441 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 441 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        print *, 'm_rhs.fpp:441: ', '@: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))'
# 441 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 441 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        call flush (output_unit)
# 441 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    end block
# 441 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 441 "/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))
# 441 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 441 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 441 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 441 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc enter data create(dqL_rsy_vf) 
# 441 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 441 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp target enter data map(always,alloc:dqL_rsy_vf) 
# 441 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 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: ', '@: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))'
# 443 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 443 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        call flush (output_unit)
# 443 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    end block
# 443 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 443 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    allocate (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))
# 443 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 443 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 443 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 443 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc enter data create(dqR_rsy_vf) 
# 443 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 443 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp target enter data map(always,alloc:dqR_rsy_vf) 
# 443 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 445 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
                    end if
 
                    if (p > 0) then
#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(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))'
# 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 (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))
# 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(dqL_rsz_vf) 
# 448 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 448 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp target enter data map(always,alloc:dqL_rsz_vf) 
# 448 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 450 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#ifdef MFC_DEBUG
# 450 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    block
# 450 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        use iso_fortran_env, only: output_unit
# 450 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 450 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        print *, 'm_rhs.fpp:450: ', '@: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))'
# 450 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 450 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        call flush (output_unit)
# 450 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    end block
# 450 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 450 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    allocate (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))
# 450 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 450 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 450 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 450 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc enter data create(dqR_rsz_vf) 
# 450 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 450 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp target enter data map(always,alloc:dqR_rsz_vf) 
# 450 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 452 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
                    else
#ifdef MFC_DEBUG
# 453 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    block
# 453 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        use iso_fortran_env, only: output_unit
# 453 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 453 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        print *, 'm_rhs.fpp:453: ', '@:ALLOCATE(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))'
# 453 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 453 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        call flush (output_unit)
# 453 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    end block
# 453 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 453 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    allocate (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))
# 453 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 453 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 453 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 453 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc enter data create(dqL_rsz_vf) 
# 453 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 453 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp target enter data map(always,alloc:dqL_rsz_vf) 
# 453 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 455 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#ifdef MFC_DEBUG
# 455 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    block
# 455 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        use iso_fortran_env, only: output_unit
# 455 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 455 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        print *, 'm_rhs.fpp:455: ', '@:ALLOCATE(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))'
# 455 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 455 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        call flush (output_unit)
# 455 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    end block
# 455 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 455 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    allocate (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))
# 455 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 455 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 455 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 455 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc enter data create(dqR_rsz_vf) 
# 455 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 455 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp target enter data map(always,alloc:dqR_rsz_vf) 
# 455 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 457 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
                    end if
                end if  ! end allocation for weno_Re_flux
            else
#ifdef MFC_DEBUG
# 460 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    block
# 460 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        use iso_fortran_env, only: output_unit
# 460 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 460 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        print *, 'm_rhs.fpp:460: ', '@:ALLOCATE(dq_prim_dx_qp(1)%vf(1:sys_size))'
# 460 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 460 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        call flush (output_unit)
# 460 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    end block
# 460 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 460 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    allocate (dq_prim_dx_qp(1)%vf(1:sys_size))
# 460 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 460 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 460 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 460 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc enter data create(dq_prim_dx_qp(1)%vf) 
# 460 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 460 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp target enter data map(always,alloc:dq_prim_dx_qp(1)%vf) 
# 460 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
#ifdef MFC_DEBUG
# 461 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    block
# 461 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        use iso_fortran_env, only: output_unit
# 461 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 461 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        print *, 'm_rhs.fpp:461: ', '@:ALLOCATE(dq_prim_dy_qp(1)%vf(1:sys_size))'
# 461 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 461 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        call flush (output_unit)
# 461 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    end block
# 461 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 461 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    allocate (dq_prim_dy_qp(1)%vf(1:sys_size))
# 461 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 461 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 461 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 461 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc enter data create(dq_prim_dy_qp(1)%vf) 
# 461 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 461 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp target enter data map(always,alloc:dq_prim_dy_qp(1)%vf) 
# 461 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
#ifdef MFC_DEBUG
# 462 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    block
# 462 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        use iso_fortran_env, only: output_unit
# 462 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 462 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        print *, 'm_rhs.fpp:462: ', '@:ALLOCATE(dq_prim_dz_qp(1)%vf(1:sys_size))'
# 462 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 462 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        call flush (output_unit)
# 462 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    end block
# 462 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 462 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    allocate (dq_prim_dz_qp(1)%vf(1:sys_size))
# 462 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 462 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 462 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 462 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc enter data create(dq_prim_dz_qp(1)%vf) 
# 462 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 462 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp target enter data map(always,alloc:dq_prim_dz_qp(1)%vf) 
# 462 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
 
                do l = momxb, momxe
#ifdef MFC_DEBUG
# 465 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    block
# 465 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        use iso_fortran_env, only: output_unit
# 465 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 465 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        print *, 'm_rhs.fpp:465: ', '@:ALLOCATE(dq_prim_dx_qp(1)%vf(l)%sf(0, 0, 0))'
# 465 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 465 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        call flush (output_unit)
# 465 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    end block
# 465 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 465 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    allocate (dq_prim_dx_qp(1)%vf(l)%sf(0, 0, 0))
# 465 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 465 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 465 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 465 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc enter data create(dq_prim_dx_qp(1)%vf(l)%sf) 
# 465 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 465 "/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) 
# 465 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
#ifdef _CRAYFTN
# 466 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    block
# 466 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        integer :: macros_setup_vfs_i
# 466 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 466 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#ifdef MFC_DEBUG
# 466 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    block
# 466 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        use iso_fortran_env, only: output_unit
# 466 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 466 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        print *, 'm_rhs.fpp:466: ', '@:ACC_SETUP_VFs(dq_prim_dx_qp(1))'
# 466 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 466 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        call flush (output_unit)
# 466 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    end block
# 466 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 466 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 466 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 466 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 466 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc enter data copyin(dq_prim_dx_qp(1)) 
# 466 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 466 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp target enter data map(to:dq_prim_dx_qp(1)) 
# 466 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 466 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 466 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 466 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc enter data copyin(dq_prim_dx_qp(1)%vf) 
# 466 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 466 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp target enter data map(to:dq_prim_dx_qp(1)%vf) 
# 466 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 466 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
            if (allocated(dq_prim_dx_qp(1)%vf)) then
# 466 "/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)
# 466 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
                    if (associated(dq_prim_dx_qp(1)%vf(macros_setup_vfs_i)%sf)) then
# 466 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 466 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 466 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc enter data copyin(dq_prim_dx_qp(1)%vf(macros_setup_vfs_i)) 
# 466 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 466 "/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)) 
# 466 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 466 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 466 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 466 "/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) 
# 466 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 466 "/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) 
# 466 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 466 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
                    end if
# 466 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
                end do
# 466 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
            end if
# 466 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    end block
# 466 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
                    if (n > 0) then
#ifdef MFC_DEBUG
# 468 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    block
# 468 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        use iso_fortran_env, only: output_unit
# 468 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 468 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        print *, 'm_rhs.fpp:468: ', '@:ALLOCATE(dq_prim_dy_qp(1)%vf(l)%sf(0, 0, 0))'
# 468 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 468 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        call flush (output_unit)
# 468 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    end block
# 468 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 468 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    allocate (dq_prim_dy_qp(1)%vf(l)%sf(0, 0, 0))
# 468 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 468 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 468 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 468 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc enter data create(dq_prim_dy_qp(1)%vf(l)%sf) 
# 468 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 468 "/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) 
# 468 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
#ifdef _CRAYFTN
# 469 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    block
# 469 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        integer :: macros_setup_vfs_i
# 469 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 469 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#ifdef MFC_DEBUG
# 469 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    block
# 469 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        use iso_fortran_env, only: output_unit
# 469 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 469 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        print *, 'm_rhs.fpp:469: ', '@:ACC_SETUP_VFs(dq_prim_dy_qp(1))'
# 469 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 469 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        call flush (output_unit)
# 469 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    end block
# 469 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 469 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 469 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 469 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 469 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc enter data copyin(dq_prim_dy_qp(1)) 
# 469 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 469 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp target enter data map(to:dq_prim_dy_qp(1)) 
# 469 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 469 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 469 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 469 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc enter data copyin(dq_prim_dy_qp(1)%vf) 
# 469 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 469 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp target enter data map(to:dq_prim_dy_qp(1)%vf) 
# 469 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 469 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
            if (allocated(dq_prim_dy_qp(1)%vf)) then
# 469 "/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)
# 469 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
                    if (associated(dq_prim_dy_qp(1)%vf(macros_setup_vfs_i)%sf)) then
# 469 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 469 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 469 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc enter data copyin(dq_prim_dy_qp(1)%vf(macros_setup_vfs_i)) 
# 469 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 469 "/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)) 
# 469 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 469 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 469 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 469 "/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) 
# 469 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 469 "/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) 
# 469 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 469 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
                    end if
# 469 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
                end do
# 469 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
            end if
# 469 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    end block
# 469 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
                        if (p > 0) then
#ifdef MFC_DEBUG
# 471 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    block
# 471 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        use iso_fortran_env, only: output_unit
# 471 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 471 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        print *, 'm_rhs.fpp:471: ', '@:ALLOCATE(dq_prim_dz_qp(1)%vf(l)%sf(0, 0, 0))'
# 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 (dq_prim_dz_qp(1)%vf(l)%sf(0, 0, 0))
# 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(dq_prim_dz_qp(1)%vf(l)%sf) 
# 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:dq_prim_dz_qp(1)%vf(l)%sf) 
# 471 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
#ifdef _CRAYFTN
# 472 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    block
# 472 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        integer :: macros_setup_vfs_i
# 472 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 472 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#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: ', '@:ACC_SETUP_VFs(dq_prim_dz_qp(1))'
# 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"
 
# 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 copyin(dq_prim_dz_qp(1)) 
# 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(to:dq_prim_dz_qp(1)) 
# 472 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 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 copyin(dq_prim_dz_qp(1)%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(to:dq_prim_dz_qp(1)%vf) 
# 472 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 472 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
            if (allocated(dq_prim_dz_qp(1)%vf)) then
# 472 "/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)
# 472 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
                    if (associated(dq_prim_dz_qp(1)%vf(macros_setup_vfs_i)%sf)) then
# 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 copyin(dq_prim_dz_qp(1)%vf(macros_setup_vfs_i)) 
# 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(to:dq_prim_dz_qp(1)%vf(macros_setup_vfs_i)) 
# 472 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 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 copyin(dq_prim_dz_qp(1)%vf(macros_setup_vfs_i)%sf) 
# 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(to:dq_prim_dz_qp(1)%vf(macros_setup_vfs_i)%sf) 
# 472 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 472 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
                    end if
# 472 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
                end do
# 472 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
            end if
# 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
                        end if
                    end if
                end do
            end if  ! end allocation of viscous variables
 
 
# 478 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 478 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 478 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc parallel loop collapse(4) gang vector default(present) private(i, j, k, l, id) 
# 478 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 478 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 478 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 478 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 478 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$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) 
# 478 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
            do id = 1, num_dims
                do i = 1, sys_size
                    do l = idwbuff(3)%beg, idwbuff(3)%end
                        do k = idwbuff(2)%beg, idwbuff(2)%end
                            do j = idwbuff(1)%beg, idwbuff(1)%end
                                flux_gsrc_n(id)%vf(i)%sf(j, k, l) = 0._wp
                            end do
                        end do
                    end do
                end do
            end do
 
# 490 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 490 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc end parallel loop
# 490 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 490 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 490 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp end target teams loop
# 490 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
        end if  ! end allocation for .not. igr
 
        if (qbmm) then
#ifdef MFC_DEBUG
# 494 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    block
# 494 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        use iso_fortran_env, only: output_unit
# 494 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 494 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        print *, 'm_rhs.fpp:494: ', '@:ALLOCATE(mom_sp(1:nmomsp), mom_3d(0:2, 0:2, nb))'
# 494 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 494 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        call flush (output_unit)
# 494 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    end block
# 494 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 494 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    allocate (mom_sp(1:nmomsp), mom_3d(0:2, 0:2, nb))
# 494 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 494 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 494 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 494 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 494 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc enter data create(mom_sp, mom_3d) 
# 494 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 494 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp target enter data map(always,alloc:mom_sp, mom_3d) 
# 494 "/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
# 499 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    block
# 499 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        use iso_fortran_env, only: output_unit
# 499 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 499 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        print *, 'm_rhs.fpp:499: ', '@:ALLOCATE(mom_3d(i, j, k)%sf(idwbuff(1)%beg:idwbuff(1)%end, idwbuff(2)%beg:idwbuff(2)%end, idwbuff(3)%beg:idwbuff(3)%end))'
# 499 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 499 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        call flush (output_unit)
# 499 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    end block
# 499 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 499 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    allocate (mom_3d(i, j, k)%sf(idwbuff(1)%beg:idwbuff(1)%end, idwbuff(2)%beg:idwbuff(2)%end,  idwbuff(3)%beg:idwbuff(3)%end))
# 499 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 499 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 499 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 499 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc enter data create(mom_3d(i, j, k)%sf) 
# 499 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 499 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp target enter data map(always,alloc:mom_3d(i, j, k)%sf) 
# 499 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 501 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#ifdef _CRAYFTN
# 501 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    block
# 501 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#ifdef MFC_DEBUG
# 501 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    block
# 501 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        use iso_fortran_env, only: output_unit
# 501 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 501 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        print *, 'm_rhs.fpp:501: ', '@:ACC_SETUP_SFs(mom_3d(i, j, k))'
# 501 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 501 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        call flush (output_unit)
# 501 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    end block
# 501 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 501 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 501 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 501 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 501 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc enter data copyin(mom_3d(i, j, k)) 
# 501 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 501 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp target enter data map(to:mom_3d(i, j, k)) 
# 501 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 501 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
            if (associated(mom_3d(i, j, k)%sf)) then
# 501 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 501 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 501 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc enter data copyin(mom_3d(i, j, k)%sf) 
# 501 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 501 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp target enter data map(to:mom_3d(i, j, k)%sf) 
# 501 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 501 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
            end if
# 501 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    end block
# 501 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
                    end do
                end do
            end do
 
            do i = 1, nmomsp
#ifdef MFC_DEBUG
# 507 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    block
# 507 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        use iso_fortran_env, only: output_unit
# 507 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 507 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        print *, 'm_rhs.fpp:507: ', '@:ALLOCATE(mom_sp(i)%sf(idwbuff(1)%beg:idwbuff(1)%end, idwbuff(2)%beg:idwbuff(2)%end, idwbuff(3)%beg:idwbuff(3)%end))'
# 507 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 507 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        call flush (output_unit)
# 507 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    end block
# 507 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 507 "/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))
# 507 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 507 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 507 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 507 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc enter data create(mom_sp(i)%sf) 
# 507 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 507 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp target enter data map(always,alloc:mom_sp(i)%sf) 
# 507 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 509 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#ifdef _CRAYFTN
# 509 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    block
# 509 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#ifdef MFC_DEBUG
# 509 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    block
# 509 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        use iso_fortran_env, only: output_unit
# 509 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 509 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        print *, 'm_rhs.fpp:509: ', '@:ACC_SETUP_SFs(mom_sp(i))'
# 509 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 509 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        call flush (output_unit)
# 509 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    end block
# 509 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 509 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 509 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 509 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 509 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc enter data copyin(mom_sp(i)) 
# 509 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 509 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp target enter data map(to:mom_sp(i)) 
# 509 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 509 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
            if (associated(mom_sp(i)%sf)) then
# 509 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 509 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 509 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc enter data copyin(mom_sp(i)%sf) 
# 509 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 509 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp target enter data map(to:mom_sp(i)%sf) 
# 509 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 509 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
            end if
# 509 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    end block
# 509 "/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
# 514 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    block
# 514 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        use iso_fortran_env, only: output_unit
# 514 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 514 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        print *, 'm_rhs.fpp:514: ', '@:ALLOCATE(alf_sum%sf(idwbuff(1)%beg:idwbuff(1)%end, idwbuff(2)%beg:idwbuff(2)%end, idwbuff(3)%beg:idwbuff(3)%end))'
# 514 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 514 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        call flush (output_unit)
# 514 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    end block
# 514 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 514 "/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))
# 514 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 514 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 514 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 514 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc enter data create(alf_sum%sf) 
# 514 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 514 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp target enter data map(always,alloc:alf_sum%sf) 
# 514 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
        end if
        if (.not. igr) then
#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: ', '@:ALLOCATE(gm_alphaL_n(1:num_dims))'
# 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"
    allocate (gm_alphal_n(1:num_dims))
# 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 create(gm_alphaL_n) 
# 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(always,alloc:gm_alphaL_n) 
# 517 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
#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: ', '@:ALLOCATE(gm_alphaR_n(1:num_dims))'
# 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"
    allocate (gm_alphar_n(1:num_dims))
# 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 create(gm_alphaR_n) 
# 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(always,alloc:gm_alphaR_n) 
# 518 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
        end if
 
        if (alt_soundspeed) 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(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))'
# 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 (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))
# 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"
 
# 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"
 
# 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(blkmod1, blkmod2, alpha1, alpha2, Kterm) 
# 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:blkmod1, blkmod2, alpha1, alpha2, Kterm) 
# 522 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 524 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        end if
 
        call s_initialize_pressure_relaxation_module
 
        if (bubbles_euler) then
#ifdef MFC_DEBUG
# 529 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    block
# 529 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        use iso_fortran_env, only: output_unit
# 529 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 529 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        print *, 'm_rhs.fpp:529: ', '@:ALLOCATE(nbub(0:m, 0:n, 0:p))'
# 529 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 529 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        call flush (output_unit)
# 529 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    end block
# 529 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 529 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    allocate (nbub(0:m, 0:n, 0:p))
# 529 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 529 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 529 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 529 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc enter data create(nbub) 
# 529 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 529 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp target enter data map(always,alloc:nbub) 
# 529 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
        end if
 
    end subroutine s_initialize_rhs_module
 
    !> Compute the right-hand side of the semi-discrete governing equations for a single time stage
    impure subroutine s_compute_rhs(q_cons_vf, q_T_sf, q_prim_vf, bc_type, rhs_vf, pb_in, rhs_pb, mv_in, rhs_mv, t_step, &
 
        & time_avg, stage)
 
        type(scalar_field), dimension(sys_size), intent(inout)                                     :: q_cons_vf
        type(scalar_field), intent(inout)                                                          :: q_t_sf
        type(scalar_field), dimension(sys_size), intent(inout)                                     :: q_prim_vf
        type(integer_field), dimension(1:num_dims,1:2), intent(in)                                 :: bc_type
        type(scalar_field), dimension(sys_size), intent(inout)                                     :: rhs_vf
        real(stp), dimension(idwbuff(1)%beg:,idwbuff(2)%beg:,idwbuff(3)%beg:,1:,1:), intent(inout) :: pb_in
 
        real(wp), dimension(idwbuff(1)%beg:,idwbuff(2)%beg:,idwbuff(3)%beg:,1:,1:), &
             & intent(inout) &
             & :: rhs_pb  ! TODO :: I think these other two variables need to be stp as well, but it doesn't compile like that right now
        real(stp), dimension(idwbuff(1)%beg:,idwbuff(2)%beg:,idwbuff(3)%beg:,1:,1:), intent(inout) :: mv_in
        real(wp), dimension(idwbuff(1)%beg:,idwbuff(2)%beg:,idwbuff(3)%beg:,1:,1:), intent(inout) :: rhs_mv
        integer, intent(in) :: t_step
        real(wp), intent(inout) :: time_avg
        integer, intent(in) :: stage
        real(wp) :: t_start, t_finish
        integer :: id
        integer(kind=8) :: i, j, k, l, q  !< Generic loop iterators
 
        ! RHS: halo exchange -> reconstruct -> Riemann solve -> flux difference -> source terms
 
        call nvtxstartrange("COMPUTE-RHS")
 
        call cpu_time(t_start)
 
        if (.not. igr .or. dummy) then
            ! Association/Population of Working Variables
 
# 566 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 566 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 566 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc parallel loop collapse(4) gang vector default(present) private(i, j, k, l) 
# 566 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 566 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 566 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 566 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 566 "/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) 
# 566 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
            do i = 1, sys_size
                do l = idwbuff(3)%beg, idwbuff(3)%end
                    do k = idwbuff(2)%beg, idwbuff(2)%end
                        do j = idwbuff(1)%beg, idwbuff(1)%end
                            q_cons_qp%vf(i)%sf(j, k, l) = q_cons_vf(i)%sf(j, k, l)
                        end do
                    end do
                end do
            end do
 
# 576 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 576 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc end parallel loop
# 576 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 576 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 576 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp end target teams loop
# 576 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
 
            ! Converting Conservative to Primitive Variables
 
            if (mpp_lim .and. bubbles_euler) then
 
# 581 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 581 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 581 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc parallel loop collapse(3) gang vector default(present) private(j, k, l) 
# 581 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 581 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 581 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 581 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 581 "/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) 
# 581 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
                do l = idwbuff(3)%beg, idwbuff(3)%end
                    do k = idwbuff(2)%beg, idwbuff(2)%end
                        do j = idwbuff(1)%beg, idwbuff(1)%end
                            alf_sum%sf(j, k, l) = 0._wp
 
# 586 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 586 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc loop seq 
# 586 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 586 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 586 "/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
 
# 590 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 590 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc loop seq 
# 590 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 590 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 590 "/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
 
# 598 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 598 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc end parallel loop
# 598 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 598 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 598 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp end target teams loop
# 598 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
            end if
        end if
 
        if (igr .or. dummy) then
            call nvtxstartrange("RHS-COMMUNICATION")
            call s_populate_variables_buffers(bc_type, q_cons_vf, pb_in, mv_in)
            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
 
        ! Loop over coordinate directions for dimensional splitting
        do id = 1, num_dims
            if (igr .or. dummy) then
                if (id == 1) then
 
# 648 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 648 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 648 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc parallel loop collapse(4) gang vector default(present) private(i, j, k, l) 
# 648 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 648 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 648 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 648 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 648 "/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) 
# 648 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
                    do l = -1, p + 1
                        do k = -1, n + 1
                            do j = -1, m + 1
                                do i = 1, sys_size
                                    rhs_vf(i)%sf(j, k, l) = 0._stp
                                end do
                            end do
                        end do
                    end do
 
# 658 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 658 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc end parallel loop
# 658 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 658 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 658 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp end target teams loop
# 658 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
                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
                else if (id == 2) then
                    irx%beg = 0; iry%beg = -1; irz%beg = 0
                else
                    irx%beg = 0; iry%beg = 0; irz%beg = -1
                end if
                irx%end = m; iry%end = n; irz%end = p
                ! Computing Riemann Solver Flux and Source Flux
                call nvtxstartrange("RHS-RIEMANN-SOLVER")
                call s_riemann_solver(qr_rsx_vf, qr_rsy_vf, qr_rsz_vf, dqr_prim_dx_n(id)%vf, dqr_prim_dy_n(id)%vf, &
                                      & dqr_prim_dz_n(id)%vf, qr_prim(id)%vf, ql_rsx_vf, ql_rsy_vf, ql_rsz_vf, &
                                      & dql_prim_dx_n(id)%vf, dql_prim_dy_n(id)%vf, dql_prim_dz_n(id)%vf, ql_prim(id)%vf, &
                                      & q_prim_qp%vf, flux_n(id)%vf, flux_src_n(id)%vf, flux_gsrc_n(id)%vf, id, irx, iry, irz)
                call nvtxendrange
 
                ! Additional physics and source terms RHS addition for advection source
                call nvtxstartrange("RHS-ADVECTION-SRC")
                call s_compute_advection_source_term(id, rhs_vf, q_cons_qp, q_prim_qp, flux_src_n(id))
                call nvtxendrange
 
                ! RHS additions for hypoelasticity
                call nvtxstartrange("RHS-HYPOELASTICITY")
                if (hypoelasticity) call s_compute_hypoelastic_rhs(id, q_prim_qp%vf, rhs_vf)
                call nvtxendrange
 
                ! RHS for diffusion
                if (chemistry .and. chem_params%diffusion) then
                    call nvtxstartrange("RHS-CHEM-DIFFUSION")
                    call s_compute_chemistry_diffusion_flux(id, q_prim_qp%vf, flux_src_n(id)%vf, irx, iry, irz)
                    call nvtxendrange
                end if
 
                ! Viscous stress contribution to RHS
                if (viscous .or. surface_tension .or. chem_params%diffusion) then
                    call nvtxstartrange("RHS-ADD-PHYSICS")
                    call s_compute_additional_physics_rhs(id, q_prim_qp%vf, rhs_vf, flux_src_n(id)%vf, dq_prim_dx_qp(1)%vf, &
                                                          & dq_prim_dy_qp(1)%vf, dq_prim_dz_qp(1)%vf)
                    call nvtxendrange
                end if
 
                ! Bubble dynamics source terms
                if (bubbles_euler) then
                    call nvtxstartrange("RHS-BUBBLES-COMPUTE")
                    call s_compute_bubbles_ee_rhs(id, q_prim_qp%vf, divu)
                    call nvtxendrange
                end if
 
                ! RHS additions for qbmm bubbles
                if (qbmm) then
                    call nvtxstartrange("RHS-QBMM")
                    call s_compute_qbmm_rhs(id, q_cons_qp%vf, q_prim_qp%vf, rhs_vf, flux_n(id)%vf, pb_in, rhs_pb)
                    call nvtxendrange
                end if
                ! END: Additional physics and source terms
 
                if (hyper_cleaning) then
 
# 803 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 803 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 803 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc parallel loop collapse(3) gang vector default(present) private(j, k, l) 
# 803 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 803 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 803 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 803 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 803 "/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) 
# 803 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
                    do l = 0, p
                        do k = 0, n
                            do j = 0, m
                                rhs_vf(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
 
# 812 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 812 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc end parallel loop
# 812 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 812 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 812 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp end target teams loop
# 812 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
                end if
 
                ! END: Additional physics and source terms
            end if
        end do
        ! END: Dimensional Splitting Loop
 
        if (ib) then
 
# 821 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 821 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 821 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc parallel loop collapse(3) gang vector default(present) private(i, j, k, l) 
# 821 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 821 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 821 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 821 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 821 "/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) 
# 821 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
            do l = 0, p
                do k = 0, n
                    do j = 0, m
                        if (ib_markers%sf(j, k, l) /= 0) then
                            do i = 1, sys_size
                                rhs_vf(i)%sf(j, k, l) = 0._wp
                            end do
                        end if
                    end do
                end do
            end do
 
# 833 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 833 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc end parallel loop
# 833 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 833 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 833 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp end target teams loop
# 833 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
        end if
 
        ! Additional Physics and Source Terms Additions for acoustic_source
        if (acoustic_source) then
            call nvtxstartrange("RHS-ACOUSTIC-SRC")
            call s_acoustic_src_calculations(q_cons_qp%vf(1:sys_size), q_prim_qp%vf(1:sys_size), rhs_vf)
            call nvtxendrange
        end if
 
        ! Add bubbles source term
        if (bubbles_euler .and. (.not. adap_dt) .and. (.not. qbmm)) then
            call nvtxstartrange("RHS-BUBBLES-SRC")
            call s_compute_bubble_ee_source(q_cons_qp%vf(1:sys_size), q_prim_qp%vf(1:sys_size), rhs_vf, divu)
            call nvtxendrange
        end if
 
        if (bubbles_lagrange) then
            ! RHS additions for sub-grid bubbles_lagrange
            call nvtxstartrange("RHS-EL-BUBBLES-SRC")
            call s_compute_bubbles_el_source(q_cons_qp%vf(1:sys_size), q_prim_qp%vf(1:sys_size), rhs_vf)
            call nvtxendrange
            ! Compute bubble dynamics
            if (.not. adap_dt) then
                call nvtxstartrange("RHS-EL-BUBBLES-DYN")
                call s_compute_bubble_el_dynamics(q_prim_qp%vf(1:sys_size), stage)
                call nvtxendrange
            end if
        end if
 
        if (chemistry .and. chem_params%reactions) then
            call nvtxstartrange("RHS-CHEM-REACTIONS")
            call s_compute_chemistry_reaction_flux(rhs_vf, q_cons_qp%vf, q_t_sf, q_prim_qp%vf, idwint)
            call nvtxendrange
        end if
 
        if (cont_damage) call s_compute_damage_state(q_cons_qp%vf, rhs_vf)
 
        ! END: Additional physics and source terms
 
        if (run_time_info .or. probe_wrt .or. ib .or. bubbles_lagrange) then
            if (.not. igr .or. dummy) then
 
# 875 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 875 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 875 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc parallel loop collapse(4) gang vector default(present) private(i, j, k, l) 
# 875 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 875 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 875 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 875 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 875 "/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) 
# 875 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
                do i = 1, sys_size
                    do l = idwbuff(3)%beg, idwbuff(3)%end
                        do k = idwbuff(2)%beg, idwbuff(2)%end
                            do j = idwbuff(1)%beg, idwbuff(1)%end
                                q_prim_vf(i)%sf(j, k, l) = q_prim_qp%vf(i)%sf(j, k, l)
                            end do
                        end do
                    end do
                end do
 
# 885 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 885 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc end parallel loop
# 885 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 885 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 885 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp end target teams loop
# 885 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
            end if
        end if
 
        call cpu_time(t_finish)
 
        if (t_step >= 2) then
            time_avg = (abs(t_finish - t_start) + (t_step - 2)*time_avg)/(t_step - 1)
        else
            time_avg = 0._wp
        end if
 
        call nvtxendrange
 
    end subroutine s_compute_rhs
 
    !> Accumulate advection source contributions from a given coordinate direction into the RHS
    subroutine s_compute_advection_source_term(idir, rhs_vf, q_cons_vf, q_prim_vf, flux_src_n_vf)
 
        integer, intent(in) :: idir
        type(scalar_field), dimension(sys_size), intent(inout) :: rhs_vf
        type(vector_field), intent(inout) :: q_cons_vf
        type(vector_field), intent(inout) :: q_prim_vf
        type(vector_field), intent(inout) :: flux_src_n_vf
        integer :: j, k, l, q              !< Loop iterators from original, meaning varies
        integer :: k_loop, l_loop, q_loop  !< Standardized spatial loop iterators 0:m, 0:n, 0:p
        integer :: i_fluid_loop
        real(wp) :: inv_ds, flux_face1, flux_face2
        real(wp) :: advected_qty_val, pressure_val, velocity_val
 
        if (alt_soundspeed) then
 
# 916 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 916 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 916 "/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) 
# 916 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 916 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 916 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 916 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 916 "/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) 
# 916 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
            do q_loop = 0, p
                do l_loop = 0, n
                    do k_loop = 0, m
                        blkmod1(k_loop, l_loop, q_loop) = ((gammas(1) + 1._wp)*q_prim_vf%vf(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
 
# 939 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 939 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc end parallel loop
# 939 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 939 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 939 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp end target teams loop
# 939 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
        end if
 
        select case (idir)
        case (1)  ! x-direction
            if (bc_x%beg <= bc_char_slip_wall .and. bc_x%beg >= bc_char_sup_outflow) then
                call s_cbc(q_prim_vf%vf, flux_n(idir)%vf, flux_src_n_vf%vf, idir, -1, irx, iry, irz)
            end if
            if (bc_x%end <= bc_char_slip_wall .and. bc_x%end >= bc_char_sup_outflow) then
                call s_cbc(q_prim_vf%vf, flux_n(idir)%vf, flux_src_n_vf%vf, idir, 1, irx, iry, irz)
            end if
 
 
# 951 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 951 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 951 "/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) 
# 951 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 951 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 951 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 951 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 951 "/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) 
# 951 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
            do j = 1, sys_size
                do q_loop = 0, p
                    do l_loop = 0, n
                        do k_loop = 0, m
                            inv_ds = 1._wp/dx(k_loop)
                            flux_face1 = flux_n(1)%vf(j)%sf(k_loop - 1, l_loop, q_loop)
                            flux_face2 = flux_n(1)%vf(j)%sf(k_loop, l_loop, q_loop)
                            rhs_vf(j)%sf(k_loop, l_loop, q_loop) = inv_ds*(flux_face1 - flux_face2)
                        end do
                    end do
                end do
            end do
 
# 964 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 964 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc end parallel loop
# 964 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 964 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 964 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp end target teams loop
# 964 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
 
            if (model_eqns == 3) then
 
# 967 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 967 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 967 "/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) 
# 967 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 967 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 967 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 967 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 967 "/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) 
# 967 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 969 "/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
 
# 985 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 985 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc end parallel loop
# 985 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 985 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 985 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp end target teams loop
# 985 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
            end if
 
            call s_add_directional_advection_source_terms(idir, rhs_vf, q_cons_vf, q_prim_vf, flux_src_n_vf, kterm)
        case (2)  ! y-direction
            if (bc_y%beg <= bc_char_slip_wall .and. bc_y%beg >= bc_char_sup_outflow) then
                call s_cbc(q_prim_vf%vf, flux_n(idir)%vf, flux_src_n_vf%vf, idir, -1, irx, iry, irz)
            end if
            if (bc_y%end <= bc_char_slip_wall .and. bc_y%end >= bc_char_sup_outflow) then
                call s_cbc(q_prim_vf%vf, flux_n(idir)%vf, flux_src_n_vf%vf, idir, 1, irx, iry, irz)
            end if
 
 
# 997 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 997 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 997 "/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) 
# 997 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 997 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 997 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 997 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 997 "/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) 
# 997 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
            do j = 1, sys_size
                do l = 0, p
                    do k = 0, n
                        do q = 0, m
                            inv_ds = 1._wp/dy(k)
                            flux_face1 = flux_n(2)%vf(j)%sf(q, k - 1, l)
                            flux_face2 = flux_n(2)%vf(j)%sf(q, k, l)
                            rhs_vf(j)%sf(q, k, l) = rhs_vf(j)%sf(q, k, l) + inv_ds*(flux_face1 - flux_face2)
                        end do
                    end do
                end do
            end do
 
# 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"
!$omp end target teams loop
# 1010 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
 
            if (model_eqns == 3) then
 
# 1013 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1013 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 1013 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc parallel loop collapse(4) gang vector default(present) private(i_fluid_loop, k, l, q, inv_ds, advected_qty_val, pressure_val, flux_face1, flux_face2) 
# 1013 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 1013 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1013 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1013 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1013 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp target teams loop defaultmap(firstprivate:scalar) bind(teams,parallel) collapse(4) defaultmap(tofrom:aggregate) defaultmap(tofrom:allocatable) defaultmap(tofrom:pointer) private(i_fluid_loop, k, l, q, inv_ds, advected_qty_val, pressure_val, flux_face1, flux_face2) 
# 1013 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 1015 "/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
 
# 1034 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 1034 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc end parallel loop
# 1034 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 1034 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1034 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp end target teams loop
# 1034 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
            end if
 
            if (cyl_coord) then
 
# 1038 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1038 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 1038 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc parallel loop collapse(4) gang vector default(present) private(j, k, l, q, flux_face1, flux_face2) 
# 1038 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 1038 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1038 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1038 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1038 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp target teams loop defaultmap(firstprivate:scalar) bind(teams,parallel) collapse(4) defaultmap(tofrom:aggregate) defaultmap(tofrom:allocatable) defaultmap(tofrom:pointer) private(j, k, l, q, flux_face1, flux_face2) 
# 1038 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
                do j = 1, sys_size
                    do l = 0, p
                        do k = 0, n
                            do q = 0, m
                                flux_face1 = flux_gsrc_n(2)%vf(j)%sf(q, k - 1, l)
                                flux_face2 = flux_gsrc_n(2)%vf(j)%sf(q, k, l)
                                rhs_vf(j)%sf(q, k, l) = rhs_vf(j)%sf(q, k, l) - 5.e-1_wp/y_cc(k)*(flux_face1 + flux_face2)
                            end do
                        end do
                    end do
                end do
 
# 1050 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 1050 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc end parallel loop
# 1050 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 1050 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1050 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp end target teams loop
# 1050 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
            end if
 
            call s_add_directional_advection_source_terms(idir, rhs_vf, q_cons_vf, q_prim_vf, flux_src_n_vf, kterm)
        case (3)  ! z-direction
            if (bc_z%beg <= bc_char_slip_wall .and. bc_z%beg >= bc_char_sup_outflow) then
                call s_cbc(q_prim_vf%vf, flux_n(idir)%vf, flux_src_n_vf%vf, idir, -1, irx, iry, irz)
            end if
            if (bc_z%end <= bc_char_slip_wall .and. bc_z%end >= bc_char_sup_outflow) then
                call s_cbc(q_prim_vf%vf, flux_n(idir)%vf, flux_src_n_vf%vf, idir, 1, irx, iry, irz)
            end if
 
            if (grid_geometry == 3) then  ! Cylindrical Coordinates
 
# 1063 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1063 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 1063 "/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) 
# 1063 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 1063 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1063 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1063 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1063 "/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) 
# 1063 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
                do j = 1, sys_size
                    do k = 0, p
                        do q = 0, n
                            do l = 0, m
                                inv_ds = 1._wp/(dz(k)*y_cc(q))
                                velocity_val = q_prim_vf%vf(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
 
# 1077 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 1077 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc end parallel loop
# 1077 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 1077 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1077 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp end target teams loop
# 1077 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
 
# 1078 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1078 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 1078 "/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) 
# 1078 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 1078 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1078 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1078 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1078 "/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) 
# 1078 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
                do j = 1, sys_size
                    do k = 0, p
                        do q = 0, n
                            do l = 0, m
                                flux_face1 = flux_gsrc_n(3)%vf(j)%sf(l, q, k - 1)
                                flux_face2 = flux_gsrc_n(3)%vf(j)%sf(l, q, k)
                                rhs_vf(j)%sf(l, q, k) = rhs_vf(j)%sf(l, q, k) - 5.e-1_wp/y_cc(q)*(flux_face1 + flux_face2)
                            end do
                        end do
                    end do
                end do
 
# 1090 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 1090 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc end parallel loop
# 1090 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 1090 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1090 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp end target teams loop
# 1090 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
            else  ! Cartesian Coordinates
 
# 1092 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1092 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 1092 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc parallel loop collapse(4) gang vector default(present) private(j, k, l, q, inv_ds, flux_face1, flux_face2) 
# 1092 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 1092 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1092 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1092 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1092 "/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) 
# 1092 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
                do j = 1, sys_size
                    do k = 0, p
                        do q = 0, n
                            do l = 0, m
                                inv_ds = 1._wp/dz(k)
                                flux_face1 = flux_n(3)%vf(j)%sf(l, q, k - 1)
                                flux_face2 = flux_n(3)%vf(j)%sf(l, q, k)
                                rhs_vf(j)%sf(l, q, k) = rhs_vf(j)%sf(l, q, k) + inv_ds*(flux_face1 - flux_face2)
                            end do
                        end do
                    end do
                end do
 
# 1105 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 1105 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc end parallel loop
# 1105 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 1105 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1105 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp end target teams loop
# 1105 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
            end if
 
            if (model_eqns == 3) then
 
# 1109 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1109 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 1109 "/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) 
# 1109 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 1109 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1109 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1109 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1109 "/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) 
# 1109 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 1111 "/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
 
# 1126 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 1126 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc end parallel loop
# 1126 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 1126 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1126 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp end target teams loop
# 1126 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
            end if
 
            call s_add_directional_advection_source_terms(idir, rhs_vf, q_cons_vf, q_prim_vf, flux_src_n_vf, kterm)
        end select
 
    contains
 
        !> Add the advection source flux-difference terms for a single coordinate direction to the RHS
        subroutine s_add_directional_advection_source_terms(current_idir, rhs_vf_arg, q_cons_vf_arg, q_prim_vf_arg, &
 
            & flux_src_n_vf_arg, Kterm_arg)
            integer, intent(in)                                    :: current_idir
            type(scalar_field), dimension(sys_size), intent(inout) :: rhs_vf_arg
            type(vector_field), intent(in)                         :: q_cons_vf_arg
            type(vector_field), intent(in)                         :: q_prim_vf_arg
            type(vector_field), intent(in)                         :: flux_src_n_vf_arg
            ! CORRECTED DECLARATION FOR Kterm_arg:
            real(wp), allocatable, dimension(:,:,:), intent(in) :: Kterm_arg
            integer                                             :: j_adv, k_idx, l_idx, q_idx
            real(wp)                                            :: local_inv_ds, local_term_coeff, local_flux1, local_flux2
            real(wp)                                            :: local_q_cons_val, local_k_term_val
            logical                                             :: use_standard_riemann
 
            select case (current_idir)
            case (1)  ! x-direction
                use_standard_riemann = (riemann_solver == 1 .or. riemann_solver == 4)
                if (use_standard_riemann) then
 
# 1154 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1154 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 1154 "/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) 
# 1154 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 1154 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1154 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1154 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1154 "/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) 
# 1154 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 1156 "/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
 
# 1170 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 1170 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc end parallel loop
# 1170 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 1170 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1170 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp end target teams loop
# 1170 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
                else  ! Other Riemann solvers
                    if (alt_soundspeed) then
                        if (bubbles_euler .neqv. .true.) then
 
# 1174 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1174 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 1174 "/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) 
# 1174 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 1174 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1174 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1174 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1174 "/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) 
# 1174 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 1176 "/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
 
# 1186 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 1186 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc end parallel loop
# 1186 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 1186 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1186 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp end target teams loop
# 1186 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
 
 
# 1188 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1188 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 1188 "/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) 
# 1188 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 1188 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1188 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1188 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1188 "/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) 
# 1188 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 1190 "/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
 
# 1200 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 1200 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc end parallel loop
# 1200 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 1200 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1200 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp end target teams loop
# 1200 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
                        end if
                    else  ! NOT alt_soundspeed
 
# 1203 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1203 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 1203 "/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) 
# 1203 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 1203 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1203 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1203 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1203 "/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) 
# 1203 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 1205 "/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
 
# 1215 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 1215 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc end parallel loop
# 1215 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 1215 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1215 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp end target teams loop
# 1215 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
                    end if
                end if
            case (2)
                ! y-direction: loops q_idx (x), k_idx (y), l_idx (z); sf(q_idx, k_idx, l_idx); dy(k_idx); Kterm(q_idx,k_idx,l_idx)
                use_standard_riemann = (riemann_solver == 1 .or. riemann_solver == 4)
                if (use_standard_riemann) then
 
# 1222 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1222 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 1222 "/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) 
# 1222 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 1222 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1222 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1222 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1222 "/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) 
# 1222 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 1224 "/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
 
# 1238 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 1238 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc end parallel loop
# 1238 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 1238 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1238 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp end target teams loop
# 1238 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
                else  ! Other Riemann solvers
                    if (alt_soundspeed) then
                        if (bubbles_euler .neqv. .true.) then
 
# 1242 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1242 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 1242 "/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) 
# 1242 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 1242 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1242 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1242 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1242 "/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) 
# 1242 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 1244 "/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
 
# 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 end parallel loop
# 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"
!$omp end target teams loop
# 1258 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
 
 
# 1260 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1260 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 1260 "/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) 
# 1260 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 1260 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1260 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1260 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1260 "/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) 
# 1260 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 1262 "/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
 
# 1276 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 1276 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc end parallel loop
# 1276 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 1276 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1276 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp end target teams loop
# 1276 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
                        end if
                    else  ! NOT alt_soundspeed
 
# 1279 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1279 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 1279 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc parallel loop collapse(4) gang vector default(present) private(j_adv, k_idx, l_idx, q_idx, local_inv_ds, local_term_coeff, local_flux1, local_flux2) 
# 1279 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 1279 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1279 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1279 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1279 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp target teams loop defaultmap(firstprivate:scalar) bind(teams,parallel) collapse(4) defaultmap(tofrom:aggregate) defaultmap(tofrom:allocatable) defaultmap(tofrom:pointer) private(j_adv, k_idx, l_idx, q_idx, local_inv_ds, local_term_coeff, local_flux1, local_flux2) 
# 1279 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 1281 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
                        do j_adv = 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
 
# 1291 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 1291 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc end parallel loop
# 1291 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 1291 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1291 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp end target teams loop
# 1291 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
                    end if
                end if
            case (3)
                ! z-direction: loops l_idx (x), q_idx (y), k_idx (z); sf(l_idx, q_idx, k_idx); dz(k_idx); Kterm(l_idx,q_idx,k_idx)
                if (grid_geometry == 3) then
                    use_standard_riemann = (riemann_solver == 1)
                else
                    use_standard_riemann = (riemann_solver == 1 .or. riemann_solver == 4)
                end if
 
                if (use_standard_riemann) then
 
# 1303 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1303 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 1303 "/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) 
# 1303 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 1303 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1303 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1303 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1303 "/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) 
# 1303 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 1305 "/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
 
# 1319 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 1319 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc end parallel loop
# 1319 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 1319 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1319 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp end target teams loop
# 1319 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
                else  ! Other Riemann solvers
                    if (alt_soundspeed) then
                        if (bubbles_euler .neqv. .true.) then
 
# 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 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) 
# 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"
 
# 1323 "/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) 
# 1323 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 1325 "/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
 
# 1335 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 1335 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc end parallel loop
# 1335 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 1335 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1335 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp end target teams loop
# 1335 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
 
 
# 1337 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1337 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 1337 "/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) 
# 1337 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 1337 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1337 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1337 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1337 "/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) 
# 1337 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 1339 "/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
 
# 1349 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 1349 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc end parallel loop
# 1349 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 1349 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1349 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp end target teams loop
# 1349 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
                        end if
                    else  ! NOT alt_soundspeed
 
# 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
# 1354 "/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
 
# 1364 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 1364 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc end parallel loop
# 1364 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 1364 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1364 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp end target teams loop
# 1364 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
                    end if
                end if
            end select
 
        end subroutine s_add_directional_advection_source_terms
 
    end subroutine s_compute_advection_source_term
 
    !> Add viscous, surface-tension, and species-diffusion source flux contributions to the RHS for a given direction
    subroutine s_compute_additional_physics_rhs(idir, q_prim_vf, rhs_vf, flux_src_n_in, dq_prim_dx_vf, dq_prim_dy_vf, dq_prim_dz_vf)
 
        integer, intent(in)                                    :: idir
        type(scalar_field), dimension(sys_size), intent(in)    :: q_prim_vf
        type(scalar_field), dimension(sys_size), intent(inout) :: rhs_vf
        type(scalar_field), dimension(sys_size), intent(in)    :: flux_src_n_in
        type(scalar_field), dimension(sys_size), intent(in)    :: dq_prim_dx_vf, dq_prim_dy_vf, dq_prim_dz_vf
        integer                                                :: i, j, k, l
 
        if (idir == 1) then  ! x-direction
 
            if (surface_tension) then
 
# 1386 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1386 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 1386 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc parallel loop collapse(3) gang vector default(present) private(j, k, l) 
# 1386 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 1386 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1386 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1386 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1386 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp target teams loop defaultmap(firstprivate:scalar) bind(teams,parallel) collapse(3) defaultmap(tofrom:aggregate) defaultmap(tofrom:allocatable) defaultmap(tofrom:pointer) private(j, k, l) 
# 1386 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
                do l = 0, p
                    do k = 0, n
                        do j = 0, m
                            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
 
# 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"
!$omp end target teams loop
# 1395 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
            end if
 
            if ((surface_tension .or. viscous) .or. chem_params%diffusion) then
 
# 1399 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1399 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 1399 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc parallel loop collapse(3) gang vector default(present) private(j, k, l) 
# 1399 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 1399 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1399 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1399 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1399 "/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) 
# 1399 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
                do l = 0, p
                    do k = 0, n
                        do j = 0, m
                            if (surface_tension .or. viscous) then
 
# 1404 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 1404 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc loop seq 
# 1404 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 1404 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1404 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#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
 
# 1412 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 1412 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc loop seq 
# 1412 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 1412 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1412 "/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
 
# 1427 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 1427 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc end parallel loop
# 1427 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 1427 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1427 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp end target teams loop
# 1427 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
            end if
        else if (idir == 2) then  ! y-direction
            if (surface_tension) then
 
# 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 parallel loop collapse(3) gang vector default(present) private(j, k, l) 
# 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"
 
# 1431 "/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) 
# 1431 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
                do l = 0, p
                    do k = 0, n
                        do j = 0, m
                            rhs_vf(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
 
# 1440 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 1440 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc end parallel loop
# 1440 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 1440 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1440 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp end target teams loop
# 1440 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
            end if
 
            if (cyl_coord .and. ((bc_y%beg == -2) .or. (bc_y%beg == -14))) then
                if (viscous .or. dummy) then
                    if (p > 0) then
                        call s_compute_viscous_stress_cylindrical_boundary(q_prim_vf, dq_prim_dx_vf(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_dz_vf(mom_idx%beg:mom_idx%end), tau_re_vf, &
                            & idwbuff(1), idwbuff(2), idwbuff(3))
                    end if
 
 
# 1455 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1455 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 1455 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc parallel loop collapse(2) gang vector default(present) private(i, j, l) 
# 1455 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 1455 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1455 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1455 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1455 "/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) 
# 1455 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
                    do l = 0, p
                        do j = 0, m
 
# 1458 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 1458 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc loop seq 
# 1458 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 1458 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1458 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#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
 
# 1465 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 1465 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc end parallel loop
# 1465 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 1465 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1465 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp end target teams loop
# 1465 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
                end if
 
 
# 1468 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1468 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 1468 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc parallel loop collapse(3) gang vector default(present) private(i, j, k, l) 
# 1468 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 1468 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1468 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1468 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1468 "/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) 
# 1468 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
                do l = 0, p
                    do k = 1, n
                        do j = 0, m
 
# 1472 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 1472 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc loop seq 
# 1472 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 1472 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1472 "/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
 
# 1480 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 1480 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc end parallel loop
# 1480 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 1480 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1480 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp end target teams loop
# 1480 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
            else
                if ((surface_tension .or. viscous) .or. chem_params%diffusion) then
 
# 1483 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1483 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 1483 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc parallel loop collapse(3) gang vector default(present) private(i, j, k, l) 
# 1483 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 1483 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1483 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1483 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1483 "/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) 
# 1483 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
                    do l = 0, p
                        do k = 0, n
                            do j = 0, m
                                if (surface_tension .or. viscous) then
 
# 1488 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 1488 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc loop seq 
# 1488 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 1488 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1488 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#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
 
# 1496 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 1496 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc loop seq 
# 1496 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 1496 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1496 "/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
 
# 1510 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 1510 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc end parallel loop
# 1510 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 1510 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1510 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp end target teams loop
# 1510 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
                end if
            end if
 
            ! Applying the geometrical viscous Riemann source fluxes calculated as average of values at cell boundaries
            if (cyl_coord) then
                if ((bc_y%beg == -2) .or. (bc_y%beg == -14)) then
 
# 1517 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1517 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 1517 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc parallel loop collapse(3) gang vector default(present) private(i, j, k, l) 
# 1517 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 1517 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1517 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1517 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1517 "/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) 
# 1517 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
                    do l = 0, p
                        do k = 1, n
                            do j = 0, m
 
# 1521 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 1521 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc loop seq 
# 1521 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 1521 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1521 "/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
 
# 1529 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 1529 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc end parallel loop
# 1529 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 1529 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1529 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp end target teams loop
# 1529 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
 
                    if (viscous .or. dummy) then
 
# 1532 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1532 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 1532 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc parallel loop collapse(2) gang vector default(present) private(i, j, l) 
# 1532 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 1532 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1532 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1532 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1532 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp target teams loop defaultmap(firstprivate:scalar) bind(teams,parallel) collapse(2) defaultmap(tofrom:aggregate) defaultmap(tofrom:allocatable) defaultmap(tofrom:pointer) private(i, j, l) 
# 1532 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
                        do l = 0, p
                            do j = 0, m
 
# 1535 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 1535 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc loop seq 
# 1535 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 1535 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1535 "/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
 
# 1541 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 1541 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc end parallel loop
# 1541 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 1541 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1541 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp end target teams loop
# 1541 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
                    end if
                else
 
# 1544 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1544 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 1544 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc parallel loop collapse(3) gang vector default(present) private(i, j, k, l) 
# 1544 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 1544 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1544 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1544 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1544 "/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) 
# 1544 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
                    do l = 0, p
                        do k = 0, n
                            do j = 0, m
 
# 1548 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 1548 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc loop seq 
# 1548 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 1548 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1548 "/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
 
# 1556 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 1556 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc end parallel loop
# 1556 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 1556 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1556 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp end target teams loop
# 1556 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
                end if
            end if
        else if (idir == 3) then  ! z-direction
            if (surface_tension) then
 
# 1561 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1561 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 1561 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc parallel loop collapse(3) gang vector default(present) private(j, k, l) 
# 1561 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 1561 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1561 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1561 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1561 "/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) 
# 1561 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
                do l = 0, p
                    do k = 0, n
                        do j = 0, m
                            rhs_vf(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
 
# 1570 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 1570 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc end parallel loop
# 1570 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 1570 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1570 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp end target teams loop
# 1570 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
            end if
 
            if ((surface_tension .or. viscous) .or. chem_params%diffusion) then
 
# 1574 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1574 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 1574 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc parallel loop collapse(3) gang vector default(present) private(i, j, k, l) 
# 1574 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 1574 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1574 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1574 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1574 "/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) 
# 1574 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
                do l = 0, p
                    do k = 0, n
                        do j = 0, m
                            if (surface_tension .or. viscous) then
 
# 1579 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 1579 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc loop seq 
# 1579 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 1579 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1579 "/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
 
# 1587 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 1587 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc loop seq 
# 1587 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 1587 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1587 "/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
 
# 1601 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 1601 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc end parallel loop
# 1601 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 1601 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1601 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp end target teams loop
# 1601 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
            end if
 
            if (grid_geometry == 3) then
 
# 1605 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1605 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 1605 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc parallel loop collapse(3) gang vector default(present) private(j, k, l) 
# 1605 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 1605 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1605 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1605 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1605 "/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) 
# 1605 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
                do l = 0, p
                    do k = 0, n
                        do j = 0, m
                            rhs_vf(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
 
# 1617 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 1617 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc end parallel loop
# 1617 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 1617 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1617 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp end target teams loop
# 1617 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
            end if
        end if
 
    end subroutine s_compute_additional_physics_rhs
 
    !> Reconstruct left and right cell-boundary values from cell-averaged variables
    subroutine s_reconstruct_cell_boundary_values(v_vf, vL_x, vL_y, vL_z, vR_x, vR_y, vR_z, norm_dir)
 
        type(scalar_field), dimension(iv%beg:iv%end), intent(in) :: v_vf
        real(wp), dimension(idwbuff(1)%beg:,idwbuff(2)%beg:,idwbuff(3)%beg:,1:), intent(inout) :: vL_x, vL_y, vL_z
        real(wp), dimension(idwbuff(1)%beg:,idwbuff(2)%beg:,idwbuff(3)%beg:,1:), intent(inout) :: vR_x, vR_y, vR_z
        integer, intent(in) :: norm_dir
        integer :: recon_dir  !< Coordinate direction of the reconstruction
        integer :: i, j, k, l
 
# 1634 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
            if (recon_type == weno_type .or. dummy) then
                ! Reconstruction in s1-direction
                if (norm_dir == 1) then
                    is1 = idwbuff(1); is2 = idwbuff(2); is3 = idwbuff(3)
                    recon_dir = 1; is1%beg = is1%beg + weno_polyn
                    is1%end = is1%end - weno_polyn
                else if (norm_dir == 2) then
                    is1 = idwbuff(2); is2 = idwbuff(1); is3 = idwbuff(3)
                    recon_dir = 2; is1%beg = is1%beg + weno_polyn
                    is1%end = is1%end - weno_polyn
                else
                    is1 = idwbuff(3); is2 = idwbuff(2); is3 = idwbuff(1)
                    recon_dir = 3; is1%beg = is1%beg + weno_polyn
                    is1%end = is1%end - weno_polyn
                end if
 
                if (n > 0) then
                    if (p > 0) then
                        call s_weno (v_vf(iv%beg:iv%end), vl_x(:,:,:,iv%beg:iv%end), vl_y(:,:,:,iv%beg:iv%end), vl_z(:,:,:, &
                                           & iv%beg:iv%end), vr_x(:,:,:,iv%beg:iv%end), vr_y(:,:,:,iv%beg:iv%end), vr_z(:,:,:, &
                                           & iv%beg:iv%end), recon_dir, is1, is2, is3)
                    else
                        call s_weno (v_vf(iv%beg:iv%end), vl_x(:,:,:,iv%beg:iv%end), vl_y(:,:,:,iv%beg:iv%end), vl_z(:,:,:, &
                                           & :), vr_x(:,:,:,iv%beg:iv%end), vr_y(:,:,:,iv%beg:iv%end), vr_z(:,:,:,:), recon_dir, &
                                           & is1, is2, is3)
                    end if
                else
                    call s_weno (v_vf(iv%beg:iv%end), vl_x(:,:,:,iv%beg:iv%end), vl_y(:,:,:,:), vl_z(:,:,:,:), vr_x(:,:,:, &
                                       & iv%beg:iv%end), vr_y(:,:,:,:), vr_z(:,:,:,:), recon_dir, is1, is2, is3)
                end if
            end if
# 1634 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
            if (recon_type == muscl_type .or. dummy) then
                ! Reconstruction in s1-direction
                if (norm_dir == 1) then
                    is1 = idwbuff(1); is2 = idwbuff(2); is3 = idwbuff(3)
                    recon_dir = 1; is1%beg = is1%beg + muscl_polyn
                    is1%end = is1%end - muscl_polyn
                else if (norm_dir == 2) then
                    is1 = idwbuff(2); is2 = idwbuff(1); is3 = idwbuff(3)
                    recon_dir = 2; is1%beg = is1%beg + muscl_polyn
                    is1%end = is1%end - muscl_polyn
                else
                    is1 = idwbuff(3); is2 = idwbuff(2); is3 = idwbuff(1)
                    recon_dir = 3; is1%beg = is1%beg + muscl_polyn
                    is1%end = is1%end - muscl_polyn
                end if
 
                if (n > 0) then
                    if (p > 0) then
                        call s_muscl (v_vf(iv%beg:iv%end), vl_x(:,:,:,iv%beg:iv%end), vl_y(:,:,:,iv%beg:iv%end), vl_z(:,:,:, &
                                           & iv%beg:iv%end), vr_x(:,:,:,iv%beg:iv%end), vr_y(:,:,:,iv%beg:iv%end), vr_z(:,:,:, &
                                           & iv%beg:iv%end), recon_dir, is1, is2, is3)
                    else
                        call s_muscl (v_vf(iv%beg:iv%end), vl_x(:,:,:,iv%beg:iv%end), vl_y(:,:,:,iv%beg:iv%end), vl_z(:,:,:, &
                                           & :), vr_x(:,:,:,iv%beg:iv%end), vr_y(:,:,:,iv%beg:iv%end), vr_z(:,:,:,:), recon_dir, &
                                           & is1, is2, is3)
                    end if
                else
                    call s_muscl (v_vf(iv%beg:iv%end), vl_x(:,:,:,iv%beg:iv%end), vl_y(:,:,:,:), vl_z(:,:,:,:), vr_x(:,:,:, &
                                       & iv%beg:iv%end), vr_y(:,:,:,:), vr_z(:,:,:,:), recon_dir, is1, is2, is3)
                end if
            end if
# 1666 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
    end subroutine s_reconstruct_cell_boundary_values
 
    !> Perform first-order (piecewise constant) reconstruction of left and right cell-boundary values
    subroutine s_reconstruct_cell_boundary_values_first_order(v_vf, vL_x, vL_y, vL_z, vR_x, vR_y, vR_z, norm_dir)
 
        type(scalar_field), dimension(iv%beg:iv%end), intent(in) :: v_vf
        real(wp), dimension(idwbuff(1)%beg:,idwbuff(2)%beg:,idwbuff(3)%beg:,1:), intent(inout) :: vL_x, vL_y, vL_z
        real(wp), dimension(idwbuff(1)%beg:,idwbuff(2)%beg:,idwbuff(3)%beg:,1:), intent(inout) :: vR_x, vR_y, vR_z
        integer, intent(in) :: norm_dir
        integer :: recon_dir  !< Coordinate direction of the WENO reconstruction
        integer :: i, j, k, l
        ! Reconstruction in s1-direction
 
# 1681 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
            if (recon_type == weno_type .or. dummy) then
                if (norm_dir == 1) then
                    is1 = idwbuff(1); is2 = idwbuff(2); is3 = idwbuff(3)
                    recon_dir = 1; is1%beg = is1%beg + weno_polyn
                    is1%end = is1%end - weno_polyn
                else if (norm_dir == 2) then
                    is1 = idwbuff(2); is2 = idwbuff(1); is3 = idwbuff(3)
                    recon_dir = 2; is1%beg = is1%beg + weno_polyn
                    is1%end = is1%end - weno_polyn
                else
                    is1 = idwbuff(3); is2 = idwbuff(2); is3 = idwbuff(1)
                    recon_dir = 3; is1%beg = is1%beg + weno_polyn
                    is1%end = is1%end - weno_polyn
                end if
 
 
# 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 update device(is1, is2, is3, iv) 
# 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"
!$omp target update to(is1, is2, is3, iv) 
# 1696 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
            end if
# 1681 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
            if (recon_type == muscl_type .or. dummy) then
                if (norm_dir == 1) then
                    is1 = idwbuff(1); is2 = idwbuff(2); is3 = idwbuff(3)
                    recon_dir = 1; is1%beg = is1%beg + muscl_polyn
                    is1%end = is1%end - muscl_polyn
                else if (norm_dir == 2) then
                    is1 = idwbuff(2); is2 = idwbuff(1); is3 = idwbuff(3)
                    recon_dir = 2; is1%beg = is1%beg + muscl_polyn
                    is1%end = is1%end - muscl_polyn
                else
                    is1 = idwbuff(3); is2 = idwbuff(2); is3 = idwbuff(1)
                    recon_dir = 3; is1%beg = is1%beg + muscl_polyn
                    is1%end = is1%end - muscl_polyn
                end if
 
 
# 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 update device(is1, is2, is3, iv) 
# 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"
!$omp target update to(is1, is2, is3, iv) 
# 1696 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
            end if
# 1699 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
        if (recon_dir == 1) then
 
# 1701 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 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 parallel loop collapse(4) gang vector default(present) private(i, j, k, l) 
# 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"
 
# 1701 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1701 "/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) 
# 1701 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
            do i = iv%beg, iv%end
                do l = is3%beg, is3%end
                    do k = is2%beg, is2%end
                        do j = is1%beg, is1%end
                            vl_x(j, k, l, i) = v_vf(i)%sf(j, k, l)
                            vr_x(j, k, l, i) = v_vf(i)%sf(j, k, l)
                        end do
                    end do
                end do
            end do
 
# 1712 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 1712 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc end parallel loop
# 1712 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 1712 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1712 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp end target teams loop
# 1712 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
        else if (recon_dir == 2) then
 
# 1714 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1714 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 1714 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc parallel loop collapse(4) gang vector default(present) private(i, j, k, l) 
# 1714 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 1714 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1714 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1714 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1714 "/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) 
# 1714 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
            do i = iv%beg, iv%end
                do l = is3%beg, is3%end
                    do k = is2%beg, is2%end
                        do j = is1%beg, is1%end
                            vl_y(j, k, l, i) = v_vf(i)%sf(k, j, l)
                            vr_y(j, k, l, i) = v_vf(i)%sf(k, j, l)
                        end do
                    end do
                end do
            end do
 
# 1725 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 1725 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc end parallel loop
# 1725 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 1725 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1725 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp end target teams loop
# 1725 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
        else if (recon_dir == 3) then
 
# 1727 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1727 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 1727 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc parallel loop collapse(4) gang vector default(present) private(i, j, k, l) 
# 1727 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 1727 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1727 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1727 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1727 "/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) 
# 1727 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
            do i = iv%beg, iv%end
                do l = is3%beg, is3%end
                    do k = is2%beg, is2%end
                        do j = is1%beg, is1%end
                            vl_z(j, k, l, i) = v_vf(i)%sf(l, k, j)
                            vr_z(j, k, l, i) = v_vf(i)%sf(l, k, j)
                        end do
                    end do
                end do
            end do
 
# 1738 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 1738 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc end parallel loop
# 1738 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 1738 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1738 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp end target teams loop
# 1738 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
        end if
 
    end subroutine s_reconstruct_cell_boundary_values_first_order
 
    !> Module deallocation and/or disassociation procedures
    impure subroutine s_finalize_rhs_module
 
        integer :: i, j, l
 
        call s_finalize_pressure_relaxation_module
 
        if (.not. igr) then
            do j = cont_idx%beg, cont_idx%end
                if (relativity) then
                    ! Cons and Prim densities are different for relativity
#ifdef MFC_DEBUG
# 1754 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    block
# 1754 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        use iso_fortran_env, only: output_unit
# 1754 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1754 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        print *, 'm_rhs.fpp:1754: ', '@:DEALLOCATE(q_cons_qp%vf(j)%sf)'
# 1754 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1754 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        call flush (output_unit)
# 1754 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    end block
# 1754 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 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 exit data delete(q_cons_qp%vf(j)%sf) 
# 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"
!$omp target exit data map(release:q_cons_qp%vf(j)%sf) 
# 1754 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 1754 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    deallocate (q_cons_qp%vf(j)%sf)
#ifdef MFC_DEBUG
# 1755 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    block
# 1755 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        use iso_fortran_env, only: output_unit
# 1755 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1755 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        print *, 'm_rhs.fpp:1755: ', '@:DEALLOCATE(q_prim_qp%vf(j)%sf)'
# 1755 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1755 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        call flush (output_unit)
# 1755 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    end block
# 1755 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 1755 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1755 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 1755 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc exit data delete(q_prim_qp%vf(j)%sf) 
# 1755 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 1755 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp target exit data map(release:q_prim_qp%vf(j)%sf) 
# 1755 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 1755 "/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
# 1766 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    block
# 1766 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        use iso_fortran_env, only: output_unit
# 1766 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1766 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        print *, 'm_rhs.fpp:1766: ', '@:DEALLOCATE(q_cons_qp%vf(j)%sf)'
# 1766 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1766 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        call flush (output_unit)
# 1766 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    end block
# 1766 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 1766 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1766 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 1766 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc exit data delete(q_cons_qp%vf(j)%sf) 
# 1766 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 1766 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp target exit data map(release:q_cons_qp%vf(j)%sf) 
# 1766 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 1766 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    deallocate (q_cons_qp%vf(j)%sf)
#ifdef MFC_DEBUG
# 1767 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    block
# 1767 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        use iso_fortran_env, only: output_unit
# 1767 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1767 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        print *, 'm_rhs.fpp:1767: ', '@:DEALLOCATE(q_prim_qp%vf(j)%sf)'
# 1767 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1767 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        call flush (output_unit)
# 1767 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    end block
# 1767 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 1767 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1767 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 1767 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc exit data delete(q_prim_qp%vf(j)%sf) 
# 1767 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 1767 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp target exit data map(release:q_prim_qp%vf(j)%sf) 
# 1767 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 1767 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    deallocate (q_prim_qp%vf(j)%sf)
            end do
        end if
 
#ifdef MFC_DEBUG
# 1771 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    block
# 1771 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        use iso_fortran_env, only: output_unit
# 1771 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1771 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        print *, 'm_rhs.fpp:1771: ', '@:DEALLOCATE(q_cons_qp%vf, q_prim_qp%vf)'
# 1771 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1771 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        call flush (output_unit)
# 1771 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    end block
# 1771 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 1771 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1771 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 1771 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc exit data delete(q_cons_qp%vf, q_prim_qp%vf) 
# 1771 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 1771 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp target exit data map(release:q_cons_qp%vf, q_prim_qp%vf) 
# 1771 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 1771 "/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
# 1774 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    block
# 1774 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        use iso_fortran_env, only: output_unit
# 1774 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1774 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        print *, 'm_rhs.fpp:1774: ', '@:DEALLOCATE(qL_rsx_vf, qR_rsx_vf)'
# 1774 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1774 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        call flush (output_unit)
# 1774 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    end block
# 1774 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 1774 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1774 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 1774 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc exit data delete(qL_rsx_vf, qR_rsx_vf) 
# 1774 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 1774 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp target exit data map(release:qL_rsx_vf, qR_rsx_vf) 
# 1774 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 1774 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    deallocate (ql_rsx_vf, qr_rsx_vf)
 
            if (n > 0) then
#ifdef MFC_DEBUG
# 1777 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    block
# 1777 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        use iso_fortran_env, only: output_unit
# 1777 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1777 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        print *, 'm_rhs.fpp:1777: ', '@:DEALLOCATE(qL_rsy_vf, qR_rsy_vf)'
# 1777 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1777 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        call flush (output_unit)
# 1777 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    end block
# 1777 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 1777 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1777 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 1777 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc exit data delete(qL_rsy_vf, qR_rsy_vf) 
# 1777 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 1777 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp target exit data map(release:qL_rsy_vf, qR_rsy_vf) 
# 1777 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 1777 "/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
# 1781 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    block
# 1781 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        use iso_fortran_env, only: output_unit
# 1781 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1781 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        print *, 'm_rhs.fpp:1781: ', '@:DEALLOCATE(qL_rsz_vf, qR_rsz_vf)'
# 1781 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1781 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        call flush (output_unit)
# 1781 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    end block
# 1781 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 1781 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1781 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 1781 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc exit data delete(qL_rsz_vf, qR_rsz_vf) 
# 1781 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 1781 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp target exit data map(release:qL_rsz_vf, qR_rsz_vf) 
# 1781 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 1781 "/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
# 1786 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    block
# 1786 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        use iso_fortran_env, only: output_unit
# 1786 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1786 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        print *, 'm_rhs.fpp:1786: ', '@:DEALLOCATE(dq_prim_dx_qp(1)%vf(l)%sf)'
# 1786 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1786 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        call flush (output_unit)
# 1786 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    end block
# 1786 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 1786 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1786 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 1786 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc exit data delete(dq_prim_dx_qp(1)%vf(l)%sf) 
# 1786 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 1786 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp target exit data map(release:dq_prim_dx_qp(1)%vf(l)%sf) 
# 1786 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 1786 "/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
# 1791 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    block
# 1791 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        use iso_fortran_env, only: output_unit
# 1791 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1791 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        print *, 'm_rhs.fpp:1791: ', '@:DEALLOCATE(dq_prim_dy_qp(1)%vf(l)%sf)'
# 1791 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1791 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        call flush (output_unit)
# 1791 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    end block
# 1791 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 1791 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1791 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 1791 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc exit data delete(dq_prim_dy_qp(1)%vf(l)%sf) 
# 1791 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 1791 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp target exit data map(release:dq_prim_dy_qp(1)%vf(l)%sf) 
# 1791 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 1791 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    deallocate (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
# 1796 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    block
# 1796 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        use iso_fortran_env, only: output_unit
# 1796 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1796 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        print *, 'm_rhs.fpp:1796: ', '@:DEALLOCATE(dq_prim_dz_qp(1)%vf(l)%sf)'
# 1796 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1796 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        call flush (output_unit)
# 1796 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    end block
# 1796 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 1796 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1796 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 1796 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc exit data delete(dq_prim_dz_qp(1)%vf(l)%sf) 
# 1796 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 1796 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp target exit data map(release:dq_prim_dz_qp(1)%vf(l)%sf) 
# 1796 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 1796 "/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
# 1801 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    block
# 1801 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        use iso_fortran_env, only: output_unit
# 1801 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1801 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        print *, 'm_rhs.fpp:1801: ', '@:DEALLOCATE(dq_prim_dx_qp(1)%vf)'
# 1801 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1801 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        call flush (output_unit)
# 1801 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    end block
# 1801 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 1801 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1801 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 1801 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc exit data delete(dq_prim_dx_qp(1)%vf) 
# 1801 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 1801 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp target exit data map(release:dq_prim_dx_qp(1)%vf) 
# 1801 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 1801 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    deallocate (dq_prim_dx_qp(1)%vf)
#ifdef MFC_DEBUG
# 1802 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    block
# 1802 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        use iso_fortran_env, only: output_unit
# 1802 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1802 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        print *, 'm_rhs.fpp:1802: ', '@:DEALLOCATE(dq_prim_dy_qp(1)%vf)'
# 1802 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1802 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        call flush (output_unit)
# 1802 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    end block
# 1802 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 1802 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1802 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 1802 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc exit data delete(dq_prim_dy_qp(1)%vf) 
# 1802 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 1802 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp target exit data map(release:dq_prim_dy_qp(1)%vf) 
# 1802 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 1802 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    deallocate (dq_prim_dy_qp(1)%vf)
#ifdef MFC_DEBUG
# 1803 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    block
# 1803 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        use iso_fortran_env, only: output_unit
# 1803 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1803 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        print *, 'm_rhs.fpp:1803: ', '@:DEALLOCATE(dq_prim_dz_qp(1)%vf)'
# 1803 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1803 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        call flush (output_unit)
# 1803 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    end block
# 1803 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 1803 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1803 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 1803 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc exit data delete(dq_prim_dz_qp(1)%vf) 
# 1803 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 1803 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp target exit data map(release:dq_prim_dz_qp(1)%vf) 
# 1803 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 1803 "/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
# 1807 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    block
# 1807 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        use iso_fortran_env, only: output_unit
# 1807 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1807 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        print *, 'm_rhs.fpp:1807: ', '@:DEALLOCATE(dqL_prim_dx_n(i)%vf(l)%sf)'
# 1807 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1807 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        call flush (output_unit)
# 1807 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    end block
# 1807 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 1807 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1807 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 1807 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc exit data delete(dqL_prim_dx_n(i)%vf(l)%sf) 
# 1807 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 1807 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp target exit data map(release:dqL_prim_dx_n(i)%vf(l)%sf) 
# 1807 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 1807 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    deallocate (dql_prim_dx_n(i)%vf(l)%sf)
#ifdef MFC_DEBUG
# 1808 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    block
# 1808 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        use iso_fortran_env, only: output_unit
# 1808 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1808 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        print *, 'm_rhs.fpp:1808: ', '@:DEALLOCATE(dqR_prim_dx_n(i)%vf(l)%sf)'
# 1808 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1808 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        call flush (output_unit)
# 1808 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    end block
# 1808 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 1808 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1808 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 1808 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc exit data delete(dqR_prim_dx_n(i)%vf(l)%sf) 
# 1808 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 1808 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp target exit data map(release:dqR_prim_dx_n(i)%vf(l)%sf) 
# 1808 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 1808 "/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
# 1813 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    block
# 1813 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        use iso_fortran_env, only: output_unit
# 1813 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1813 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        print *, 'm_rhs.fpp:1813: ', '@:DEALLOCATE(dqL_prim_dy_n(i)%vf(l)%sf)'
# 1813 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1813 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        call flush (output_unit)
# 1813 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    end block
# 1813 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 1813 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1813 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 1813 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc exit data delete(dqL_prim_dy_n(i)%vf(l)%sf) 
# 1813 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 1813 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp target exit data map(release:dqL_prim_dy_n(i)%vf(l)%sf) 
# 1813 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 1813 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    deallocate (dql_prim_dy_n(i)%vf(l)%sf)
#ifdef MFC_DEBUG
# 1814 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    block
# 1814 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        use iso_fortran_env, only: output_unit
# 1814 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1814 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        print *, 'm_rhs.fpp:1814: ', '@:DEALLOCATE(dqR_prim_dy_n(i)%vf(l)%sf)'
# 1814 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1814 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        call flush (output_unit)
# 1814 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    end block
# 1814 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 1814 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1814 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 1814 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc exit data delete(dqR_prim_dy_n(i)%vf(l)%sf) 
# 1814 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 1814 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp target exit data map(release:dqR_prim_dy_n(i)%vf(l)%sf) 
# 1814 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 1814 "/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
# 1820 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    block
# 1820 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        use iso_fortran_env, only: output_unit
# 1820 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1820 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        print *, 'm_rhs.fpp:1820: ', '@:DEALLOCATE(dqL_prim_dz_n(i)%vf(l)%sf)'
# 1820 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1820 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        call flush (output_unit)
# 1820 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    end block
# 1820 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 1820 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1820 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 1820 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc exit data delete(dqL_prim_dz_n(i)%vf(l)%sf) 
# 1820 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 1820 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp target exit data map(release:dqL_prim_dz_n(i)%vf(l)%sf) 
# 1820 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 1820 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    deallocate (dql_prim_dz_n(i)%vf(l)%sf)
#ifdef MFC_DEBUG
# 1821 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    block
# 1821 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        use iso_fortran_env, only: output_unit
# 1821 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1821 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        print *, 'm_rhs.fpp:1821: ', '@:DEALLOCATE(dqR_prim_dz_n(i)%vf(l)%sf)'
# 1821 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1821 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        call flush (output_unit)
# 1821 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    end block
# 1821 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 1821 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 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 exit data delete(dqR_prim_dz_n(i)%vf(l)%sf) 
# 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"
!$omp target exit data map(release:dqR_prim_dz_n(i)%vf(l)%sf) 
# 1821 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 1821 "/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
# 1825 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    block
# 1825 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        use iso_fortran_env, only: output_unit
# 1825 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1825 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        print *, 'm_rhs.fpp:1825: ', '@:DEALLOCATE(dqL_prim_dx_n(i)%vf)'
# 1825 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1825 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        call flush (output_unit)
# 1825 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    end block
# 1825 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 1825 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1825 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 1825 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc exit data delete(dqL_prim_dx_n(i)%vf) 
# 1825 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 1825 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp target exit data map(release:dqL_prim_dx_n(i)%vf) 
# 1825 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 1825 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    deallocate (dql_prim_dx_n(i)%vf)
#ifdef MFC_DEBUG
# 1826 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    block
# 1826 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        use iso_fortran_env, only: output_unit
# 1826 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1826 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        print *, 'm_rhs.fpp:1826: ', '@:DEALLOCATE(dqL_prim_dy_n(i)%vf)'
# 1826 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1826 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        call flush (output_unit)
# 1826 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    end block
# 1826 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 1826 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1826 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 1826 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc exit data delete(dqL_prim_dy_n(i)%vf) 
# 1826 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 1826 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp target exit data map(release:dqL_prim_dy_n(i)%vf) 
# 1826 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 1826 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    deallocate (dql_prim_dy_n(i)%vf)
#ifdef MFC_DEBUG
# 1827 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    block
# 1827 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        use iso_fortran_env, only: output_unit
# 1827 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1827 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        print *, 'm_rhs.fpp:1827: ', '@:DEALLOCATE(dqL_prim_dz_n(i)%vf)'
# 1827 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1827 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        call flush (output_unit)
# 1827 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    end block
# 1827 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 1827 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1827 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 1827 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc exit data delete(dqL_prim_dz_n(i)%vf) 
# 1827 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 1827 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp target exit data map(release:dqL_prim_dz_n(i)%vf) 
# 1827 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 1827 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    deallocate (dql_prim_dz_n(i)%vf)
#ifdef MFC_DEBUG
# 1828 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    block
# 1828 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        use iso_fortran_env, only: output_unit
# 1828 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1828 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        print *, 'm_rhs.fpp:1828: ', '@:DEALLOCATE(dqR_prim_dx_n(i)%vf)'
# 1828 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1828 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        call flush (output_unit)
# 1828 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    end block
# 1828 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 1828 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1828 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 1828 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc exit data delete(dqR_prim_dx_n(i)%vf) 
# 1828 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 1828 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp target exit data map(release:dqR_prim_dx_n(i)%vf) 
# 1828 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 1828 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    deallocate (dqr_prim_dx_n(i)%vf)
#ifdef MFC_DEBUG
# 1829 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    block
# 1829 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        use iso_fortran_env, only: output_unit
# 1829 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1829 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        print *, 'm_rhs.fpp:1829: ', '@:DEALLOCATE(dqR_prim_dy_n(i)%vf)'
# 1829 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1829 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        call flush (output_unit)
# 1829 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    end block
# 1829 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 1829 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1829 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 1829 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc exit data delete(dqR_prim_dy_n(i)%vf) 
# 1829 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 1829 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp target exit data map(release:dqR_prim_dy_n(i)%vf) 
# 1829 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 1829 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    deallocate (dqr_prim_dy_n(i)%vf)
#ifdef MFC_DEBUG
# 1830 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    block
# 1830 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        use iso_fortran_env, only: output_unit
# 1830 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1830 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        print *, 'm_rhs.fpp:1830: ', '@:DEALLOCATE(dqR_prim_dz_n(i)%vf)'
# 1830 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1830 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        call flush (output_unit)
# 1830 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    end block
# 1830 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 1830 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1830 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 1830 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc exit data delete(dqR_prim_dz_n(i)%vf) 
# 1830 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 1830 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp target exit data map(release:dqR_prim_dz_n(i)%vf) 
# 1830 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 1830 "/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
# 1834 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    block
# 1834 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        use iso_fortran_env, only: output_unit
# 1834 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1834 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        print *, 'm_rhs.fpp:1834: ', '@:DEALLOCATE(dqL_rsx_vf, dqR_rsx_vf)'
# 1834 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1834 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        call flush (output_unit)
# 1834 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    end block
# 1834 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 1834 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1834 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 1834 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc exit data delete(dqL_rsx_vf, dqR_rsx_vf) 
# 1834 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 1834 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp target exit data map(release:dqL_rsx_vf, dqR_rsx_vf) 
# 1834 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 1834 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    deallocate (dql_rsx_vf, dqr_rsx_vf)
 
                    if (n > 0) then
#ifdef MFC_DEBUG
# 1837 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    block
# 1837 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        use iso_fortran_env, only: output_unit
# 1837 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1837 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        print *, 'm_rhs.fpp:1837: ', '@:DEALLOCATE(dqL_rsy_vf, dqR_rsy_vf)'
# 1837 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1837 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        call flush (output_unit)
# 1837 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    end block
# 1837 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 1837 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1837 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 1837 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc exit data delete(dqL_rsy_vf, dqR_rsy_vf) 
# 1837 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 1837 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp target exit data map(release:dqL_rsy_vf, dqR_rsy_vf) 
# 1837 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 1837 "/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
# 1841 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    block
# 1841 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        use iso_fortran_env, only: output_unit
# 1841 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1841 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        print *, 'm_rhs.fpp:1841: ', '@:DEALLOCATE(dqL_rsz_vf, dqR_rsz_vf)'
# 1841 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1841 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        call flush (output_unit)
# 1841 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    end block
# 1841 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 1841 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1841 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 1841 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc exit data delete(dqL_rsz_vf, dqR_rsz_vf) 
# 1841 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 1841 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp target exit data map(release:dqL_rsz_vf, dqR_rsz_vf) 
# 1841 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 1841 "/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
# 1847 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    block
# 1847 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        use iso_fortran_env, only: output_unit
# 1847 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1847 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        print *, 'm_rhs.fpp:1847: ', '@:DEALLOCATE(tau_re_vf(cont_idx%end + i)%sf)'
# 1847 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1847 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        call flush (output_unit)
# 1847 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    end block
# 1847 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 1847 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1847 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 1847 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc exit data delete(tau_re_vf(cont_idx%end + i)%sf) 
# 1847 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 1847 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp target exit data map(release:tau_re_vf(cont_idx%end + i)%sf) 
# 1847 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 1847 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    deallocate (tau_re_vf(cont_idx%end + i)%sf)
                    end do
#ifdef MFC_DEBUG
# 1849 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    block
# 1849 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        use iso_fortran_env, only: output_unit
# 1849 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1849 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        print *, 'm_rhs.fpp:1849: ', '@:DEALLOCATE(tau_re_vf(e_idx)%sf)'
# 1849 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1849 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        call flush (output_unit)
# 1849 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    end block
# 1849 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 1849 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1849 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 1849 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc exit data delete(tau_re_vf(e_idx)%sf) 
# 1849 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 1849 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp target exit data map(release:tau_re_vf(e_idx)%sf) 
# 1849 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 1849 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    deallocate (tau_re_vf(e_idx)%sf)
#ifdef MFC_DEBUG
# 1850 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    block
# 1850 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        use iso_fortran_env, only: output_unit
# 1850 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1850 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        print *, 'm_rhs.fpp:1850: ', '@:DEALLOCATE(tau_re_vf)'
# 1850 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1850 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        call flush (output_unit)
# 1850 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    end block
# 1850 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 1850 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1850 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 1850 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc exit data delete(tau_re_vf) 
# 1850 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 1850 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp target exit data map(release:tau_re_vf) 
# 1850 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 1850 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    deallocate (tau_re_vf)
                end if
            end if
#ifdef MFC_DEBUG
# 1853 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    block
# 1853 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        use iso_fortran_env, only: output_unit
# 1853 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1853 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        print *, 'm_rhs.fpp:1853: ', '@:DEALLOCATE(dqL_prim_dx_n, dqL_prim_dy_n, dqL_prim_dz_n)'
# 1853 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1853 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        call flush (output_unit)
# 1853 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    end block
# 1853 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 1853 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1853 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 1853 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc exit data delete(dqL_prim_dx_n, dqL_prim_dy_n, dqL_prim_dz_n) 
# 1853 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 1853 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp target exit data map(release:dqL_prim_dx_n, dqL_prim_dy_n, dqL_prim_dz_n) 
# 1853 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 1853 "/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
# 1854 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    block
# 1854 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        use iso_fortran_env, only: output_unit
# 1854 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1854 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        print *, 'm_rhs.fpp:1854: ', '@:DEALLOCATE(dqR_prim_dx_n, dqR_prim_dy_n, dqR_prim_dz_n)'
# 1854 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1854 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        call flush (output_unit)
# 1854 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    end block
# 1854 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 1854 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1854 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 1854 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc exit data delete(dqR_prim_dx_n, dqR_prim_dy_n, dqR_prim_dz_n) 
# 1854 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 1854 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp target exit data map(release:dqR_prim_dx_n, dqR_prim_dy_n, dqR_prim_dz_n) 
# 1854 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 1854 "/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
 
# 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 exit data delete(alf_sum%sf) 
# 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"
!$omp target exit data map(release:alf_sum%sf) 
# 1858 "/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
# 1868 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    block
# 1868 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        use iso_fortran_env, only: output_unit
# 1868 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1868 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        print *, 'm_rhs.fpp:1868: ', '@:DEALLOCATE(flux_gsrc_n(i)%vf(l)%sf)'
# 1868 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1868 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        call flush (output_unit)
# 1868 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    end block
# 1868 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 1868 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1868 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 1868 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc exit data delete(flux_gsrc_n(i)%vf(l)%sf) 
# 1868 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 1868 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp target exit data map(release:flux_gsrc_n(i)%vf(l)%sf) 
# 1868 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 1868 "/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
# 1872 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    block
# 1872 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        use iso_fortran_env, only: output_unit
# 1872 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1872 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        print *, 'm_rhs.fpp:1872: ', '@:DEALLOCATE(flux_n(i)%vf(l)%sf)'
# 1872 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1872 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        call flush (output_unit)
# 1872 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    end block
# 1872 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 1872 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1872 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 1872 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc exit data delete(flux_n(i)%vf(l)%sf) 
# 1872 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 1872 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp target exit data map(release:flux_n(i)%vf(l)%sf) 
# 1872 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 1872 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    deallocate (flux_n(i)%vf(l)%sf)
#ifdef MFC_DEBUG
# 1873 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    block
# 1873 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        use iso_fortran_env, only: output_unit
# 1873 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1873 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        print *, 'm_rhs.fpp:1873: ', '@:DEALLOCATE(flux_gsrc_n(i)%vf(l)%sf)'
# 1873 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1873 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        call flush (output_unit)
# 1873 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    end block
# 1873 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 1873 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1873 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 1873 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc exit data delete(flux_gsrc_n(i)%vf(l)%sf) 
# 1873 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 1873 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp target exit data map(release:flux_gsrc_n(i)%vf(l)%sf) 
# 1873 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 1873 "/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
# 1878 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    block
# 1878 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        use iso_fortran_env, only: output_unit
# 1878 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1878 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        print *, 'm_rhs.fpp:1878: ', '@:DEALLOCATE(flux_src_n(i)%vf(l)%sf)'
# 1878 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1878 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        call flush (output_unit)
# 1878 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    end block
# 1878 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 1878 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1878 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 1878 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc exit data delete(flux_src_n(i)%vf(l)%sf) 
# 1878 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 1878 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp target exit data map(release:flux_src_n(i)%vf(l)%sf) 
# 1878 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 1878 "/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
# 1883 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    block
# 1883 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        use iso_fortran_env, only: output_unit
# 1883 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1883 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        print *, 'm_rhs.fpp:1883: ', '@:DEALLOCATE(flux_src_n(i)%vf(E_idx)%sf)'
# 1883 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1883 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        call flush (output_unit)
# 1883 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    end block
# 1883 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 1883 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1883 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 1883 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc exit data delete(flux_src_n(i)%vf(E_idx)%sf) 
# 1883 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 1883 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp target exit data map(release:flux_src_n(i)%vf(E_idx)%sf) 
# 1883 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 1883 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    deallocate (flux_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
# 1888 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    block
# 1888 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        use iso_fortran_env, only: output_unit
# 1888 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1888 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        print *, 'm_rhs.fpp:1888: ', '@:DEALLOCATE(flux_src_n(i)%vf(l)%sf)'
# 1888 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1888 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        call flush (output_unit)
# 1888 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    end block
# 1888 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 1888 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1888 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 1888 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc exit data delete(flux_src_n(i)%vf(l)%sf) 
# 1888 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 1888 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp target exit data map(release:flux_src_n(i)%vf(l)%sf) 
# 1888 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 1888 "/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
# 1896 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    block
# 1896 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        use iso_fortran_env, only: output_unit
# 1896 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1896 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        print *, 'm_rhs.fpp:1896: ', '@:DEALLOCATE(flux_src_n(i)%vf(adv_idx%beg)%sf)'
# 1896 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1896 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        call flush (output_unit)
# 1896 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    end block
# 1896 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 1896 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1896 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 1896 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc exit data delete(flux_src_n(i)%vf(adv_idx%beg)%sf) 
# 1896 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 1896 "/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) 
# 1896 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 1896 "/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
# 1899 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    block
# 1899 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        use iso_fortran_env, only: output_unit
# 1899 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1899 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        print *, 'm_rhs.fpp:1899: ', '@:DEALLOCATE(flux_n(i)%vf, flux_src_n(i)%vf, flux_gsrc_n(i)%vf)'
# 1899 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1899 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        call flush (output_unit)
# 1899 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    end block
# 1899 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 1899 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1899 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 1899 "/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) 
# 1899 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 1899 "/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) 
# 1899 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 1899 "/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
# 1902 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    block
# 1902 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        use iso_fortran_env, only: output_unit
# 1902 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1902 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        print *, 'm_rhs.fpp:1902: ', '@:DEALLOCATE(flux_n, flux_src_n, flux_gsrc_n)'
# 1902 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1902 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
        call flush (output_unit)
# 1902 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
    end block
# 1902 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 1902 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
 
# 1902 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#if defined(MFC_OpenACC)
# 1902 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$acc exit data delete(flux_n, flux_src_n, flux_gsrc_n) 
# 1902 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#elif defined(MFC_OpenMP)
# 1902 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
!$omp target exit data map(release:flux_n, flux_src_n, flux_gsrc_n) 
# 1902 "/home/runner/work/MFC/MFC/src/simulation/m_rhs.fpp"
#endif
# 1902 "/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