m_global_parameters_common.fpp.f90

Go to the documentation of this file.

# 1 "/home/runner/work/MFC/MFC/src/common/m_global_parameters_common.fpp"
!>
!! @file
!! @brief Contains module m_global_parameters_common
 
# 1 "/home/runner/work/MFC/MFC/src/common/include/case.fpp" 1
! This file exists so that Fypp can be run without generating case.fpp files for
! each target. This is useful when generating documentation, for example. This
! should also let MFC be built with CMake directly, without invoking mfc.sh.
 
! For pre-process.
# 8 "/home/runner/work/MFC/MFC/src/common/include/case.fpp"
 
! For moving immersed boundaries in simulation
# 12 "/home/runner/work/MFC/MFC/src/common/include/case.fpp"
# 6 "/home/runner/work/MFC/MFC/src/common/m_global_parameters_common.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"
 
# 167 "/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"
 
# 167 "/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"
 
# 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"
 
# 126 "/home/runner/work/MFC/MFC/src/common/include/omp_macros.fpp"
 
# 156 "/home/runner/work/MFC/MFC/src/common/include/omp_macros.fpp"
 
# 197 "/home/runner/work/MFC/MFC/src/common/include/omp_macros.fpp"
 
# 211 "/home/runner/work/MFC/MFC/src/common/include/omp_macros.fpp"
 
# 236 "/home/runner/work/MFC/MFC/src/common/include/omp_macros.fpp"
 
# 247 "/home/runner/work/MFC/MFC/src/common/include/omp_macros.fpp"
 
# 249 "/home/runner/work/MFC/MFC/src/common/include/omp_macros.fpp"
# 260 "/home/runner/work/MFC/MFC/src/common/include/omp_macros.fpp"
 
# 310 "/home/runner/work/MFC/MFC/src/common/include/omp_macros.fpp"
 
# 320 "/home/runner/work/MFC/MFC/src/common/include/omp_macros.fpp"
 
# 330 "/home/runner/work/MFC/MFC/src/common/include/omp_macros.fpp"
 
# 339 "/home/runner/work/MFC/MFC/src/common/include/omp_macros.fpp"
 
# 356 "/home/runner/work/MFC/MFC/src/common/include/omp_macros.fpp"
 
# 366 "/home/runner/work/MFC/MFC/src/common/include/omp_macros.fpp"
 
# 373 "/home/runner/work/MFC/MFC/src/common/include/omp_macros.fpp"
 
# 379 "/home/runner/work/MFC/MFC/src/common/include/omp_macros.fpp"
 
# 385 "/home/runner/work/MFC/MFC/src/common/include/omp_macros.fpp"
 
# 391 "/home/runner/work/MFC/MFC/src/common/include/omp_macros.fpp"
 
# 397 "/home/runner/work/MFC/MFC/src/common/include/omp_macros.fpp"
 
# 403 "/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"
 
# 167 "/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.
# 55 "/home/runner/work/MFC/MFC/src/common/include/macros.fpp"
 
! Allocate and create GPU device memory
# 75 "/home/runner/work/MFC/MFC/src/common/include/macros.fpp"
 
! Free GPU device memory and deallocate
# 83 "/home/runner/work/MFC/MFC/src/common/include/macros.fpp"
 
! Cray-specific GPU pointer setup for vector fields
# 107 "/home/runner/work/MFC/MFC/src/common/include/macros.fpp"
 
! Cray-specific GPU pointer setup for scalar fields
# 123 "/home/runner/work/MFC/MFC/src/common/include/macros.fpp"
 
! Cray-specific GPU pointer setup for acoustic source spatials
# 148 "/home/runner/work/MFC/MFC/src/common/include/macros.fpp"
 
# 154 "/home/runner/work/MFC/MFC/src/common/include/macros.fpp"
 
# 161 "/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/common/m_global_parameters_common.fpp" 2
 
!> @brief Shared global parameters and equation-index setup for all three executables. Each per-target m_global_parameters uses this
!! module (default-public, so all symbols re-export to downstream consumers via two-hop use-association).
module m_global_parameters_common
 
#ifdef MFC_MPI
    use mpi
#endif
 
    use m_derived_types
    use m_thermochem, only: num_species
    use m_constants, only: model_eqns_gamma_law, model_eqns_5eq, model_eqns_6eq, recon_type_weno, recon_type_muscl, name_len, &
        & dflt_int, dflt_real
 
    implicit none
 
    ! All namelist-bound scalar and array declarations (per-target, regenerated at build time by the ninja custom command)
# 1 "/home/runner/work/MFC/MFC/build/include/simulation/generated_decls.fpp" 1
! AUTO-GENERATED - do not edit directly. Regenerate: cmake reconfigure
!
real(wp)                :: adc_kappa
real(wp)                :: bx0
real(wp)                :: ca
real(wp)                :: r0ref
real(wp)                :: re_inv
real(wp)                :: web
logical                 :: acoustic_source
logical                 :: adap_dt
integer                 :: adap_dt_max_iters
real(wp)                :: adap_dt_tol
logical                 :: adv_n
real(wp)                :: alf_factor
real(wp)                :: alpha_bar
logical                 :: alt_soundspeed
integer                 :: avg_state
logical                 :: bf_spatial_support
logical                 :: bf_x
logical                 :: bf_y
logical                 :: bf_z
integer                 :: bubble_model
logical                 :: bubbles_euler
logical                 :: bubbles_lagrange
character(LEN=path_len) :: case_dir
logical                 :: cfl_adap_dt
logical                 :: cfl_const_dt
real(wp)                :: cfl_target
real(wp)                :: coefficient_of_restitution
integer                 :: collision_model
real(wp)                :: collision_time
logical                 :: cont_damage
real(wp)                :: cont_damage_s
logical                 :: cyl_coord
logical                 :: down_sample
real(wp)                :: dt
integer                 :: fd_order
logical                 :: fft_wrt
logical                 :: file_per_process
real(wp)                :: g_x
real(wp)                :: g_y
real(wp)                :: g_z
logical                 :: hll_u_interface
logical                 :: hyper_cleaning
real(wp)                :: hyper_cleaning_speed
real(wp)                :: hyper_cleaning_tau
logical                 :: hypo_hll_interface_rhs
logical                 :: hypoelasticity
logical                 :: ib
real(wp)                :: ib_coefficient_of_friction
integer                 :: ib_neighborhood_radius
logical                 :: ib_state_wrt
real(wp)                :: ic_beta
real(wp)                :: ic_eps
integer                 :: int_comp
real(wp)                :: k_x
real(wp)                :: k_y
real(wp)                :: k_z
integer                 :: low_mach
integer                 :: m
logical                 :: many_ib_patch_parallelism
logical                 :: mixture_err
integer                 :: model_eqns
logical                 :: mp_weno
logical                 :: mpp_lim
real(wp)                :: muscl_eps
integer                 :: n
integer                 :: n_start
logical                 :: null_weights
integer                 :: num_bc_patches
integer                 :: num_ibs
integer                 :: num_igr_iters
integer                 :: num_igr_warm_start_iters
integer                 :: num_particle_clouds
integer                 :: num_probes
integer                 :: num_source
integer                 :: num_stl_models
integer                 :: num_turbulent_sources
integer                 :: nv_uvm_igr_temps_on_gpu
logical                 :: nv_uvm_out_of_core
logical                 :: nv_uvm_pref_gpu
integer                 :: p
real(wp)                :: p_x
real(wp)                :: p_y
real(wp)                :: p_z
real(wp)                :: palpha_eps
logical                 :: parallel_io
real(wp)                :: pi_fac
real(wp)                :: poly_sigma
logical                 :: polydisperse
logical                 :: polytropic
integer                 :: precision
logical                 :: prim_vars_wrt
logical                 :: probe_wrt
real(wp)                :: ptgalpha_eps
logical                 :: qbmm
logical                 :: rdma_mpi
logical                 :: reactive_burn
logical                 :: relax
integer                 :: relax_model
logical                 :: riemann_hypo_adc
integer                 :: riemann_solver
logical                 :: run_time_info
real(wp)                :: sigr
real(wp)                :: sigma
logical                 :: surface_tension
real(wp)                :: synth_u_inf
integer                 :: synth_n_shells
integer                 :: synth_seed
logical                 :: synthetic_turbulence
real(wp)                :: t_save
integer                 :: t_step_old
integer                 :: t_step_print
integer                 :: t_step_save
integer                 :: t_step_start
integer                 :: t_step_stop
real(wp)                :: t_stop
real(wp)                :: tau_star
real(wp)                :: teno_ct
integer                 :: thermal
integer                 :: time_stepper
real(wp)                :: w_x
real(wp)                :: w_y
real(wp)                :: w_z
integer                 :: wave_speeds
logical                 :: weno_re_flux
logical                 :: weno_avg
real(wp)                :: weno_eps
type(physical_parameters), dimension(num_fluids_max) :: fluid_pp !< Per-fluid stiffened-gas EOS parameters, Reynolds numbers, and shear modulus
type(subgrid_bubble_physical_parameters) :: bub_pp !< Subgrid bubble physical parameters
type(ib_patch_parameters), dimension(num_ib_patches_max_namelist) :: patch_ib !< Immersed boundary patch parameters
 
# 132 "/home/runner/work/MFC/MFC/build/include/simulation/generated_decls.fpp"
#if defined(MFC_OpenACC)
# 132 "/home/runner/work/MFC/MFC/build/include/simulation/generated_decls.fpp"
!$acc declare create(patch_ib) 
# 132 "/home/runner/work/MFC/MFC/build/include/simulation/generated_decls.fpp"
#elif defined(MFC_OpenMP)
# 132 "/home/runner/work/MFC/MFC/build/include/simulation/generated_decls.fpp"
!$omp declare target (patch_ib) 
# 132 "/home/runner/work/MFC/MFC/build/include/simulation/generated_decls.fpp"
#endif
type(ib_airfoil_parameters), dimension(num_ib_airfoils_max) :: ib_airfoil !< Per-airfoil NACA user inputs
 
# 134 "/home/runner/work/MFC/MFC/build/include/simulation/generated_decls.fpp"
#if defined(MFC_OpenACC)
# 134 "/home/runner/work/MFC/MFC/build/include/simulation/generated_decls.fpp"
!$acc declare create(ib_airfoil) 
# 134 "/home/runner/work/MFC/MFC/build/include/simulation/generated_decls.fpp"
#elif defined(MFC_OpenMP)
# 134 "/home/runner/work/MFC/MFC/build/include/simulation/generated_decls.fpp"
!$omp declare target (ib_airfoil) 
# 134 "/home/runner/work/MFC/MFC/build/include/simulation/generated_decls.fpp"
#endif
type(ib_stl_parameters), dimension(num_stl_models_max) :: stl_models !< Per-STL model parameters
 
# 136 "/home/runner/work/MFC/MFC/build/include/simulation/generated_decls.fpp"
#if defined(MFC_OpenACC)
# 136 "/home/runner/work/MFC/MFC/build/include/simulation/generated_decls.fpp"
!$acc declare create(stl_models) 
# 136 "/home/runner/work/MFC/MFC/build/include/simulation/generated_decls.fpp"
#elif defined(MFC_OpenMP)
# 136 "/home/runner/work/MFC/MFC/build/include/simulation/generated_decls.fpp"
!$omp declare target (stl_models) 
# 136 "/home/runner/work/MFC/MFC/build/include/simulation/generated_decls.fpp"
#endif
type(vec3_dt), dimension(num_probes_max) :: probe
type(acoustic_parameters), dimension(num_probes_max) :: acoustic !< Acoustic source parameters
 
# 139 "/home/runner/work/MFC/MFC/build/include/simulation/generated_decls.fpp"
#if defined(MFC_OpenACC)
# 139 "/home/runner/work/MFC/MFC/build/include/simulation/generated_decls.fpp"
!$acc declare create(acoustic) 
# 139 "/home/runner/work/MFC/MFC/build/include/simulation/generated_decls.fpp"
#elif defined(MFC_OpenMP)
# 139 "/home/runner/work/MFC/MFC/build/include/simulation/generated_decls.fpp"
!$omp declare target (acoustic) 
# 139 "/home/runner/work/MFC/MFC/build/include/simulation/generated_decls.fpp"
#endif
type(chemistry_parameters)          :: chem_params
 
# 141 "/home/runner/work/MFC/MFC/build/include/simulation/generated_decls.fpp"
#if defined(MFC_OpenACC)
# 141 "/home/runner/work/MFC/MFC/build/include/simulation/generated_decls.fpp"
!$acc declare create(chem_params) 
# 141 "/home/runner/work/MFC/MFC/build/include/simulation/generated_decls.fpp"
#elif defined(MFC_OpenMP)
# 141 "/home/runner/work/MFC/MFC/build/include/simulation/generated_decls.fpp"
!$omp declare target (chem_params) 
# 141 "/home/runner/work/MFC/MFC/build/include/simulation/generated_decls.fpp"
#endif
type(reactive_burn_parameters)      :: rburn !< Condensed-phase reactive-burn (programmed detonation) parameters
 
# 143 "/home/runner/work/MFC/MFC/build/include/simulation/generated_decls.fpp"
#if defined(MFC_OpenACC)
# 143 "/home/runner/work/MFC/MFC/build/include/simulation/generated_decls.fpp"
!$acc declare create(rburn) 
# 143 "/home/runner/work/MFC/MFC/build/include/simulation/generated_decls.fpp"
#elif defined(MFC_OpenMP)
# 143 "/home/runner/work/MFC/MFC/build/include/simulation/generated_decls.fpp"
!$omp declare target (rburn) 
# 143 "/home/runner/work/MFC/MFC/build/include/simulation/generated_decls.fpp"
#endif
type(bubbles_lagrange_parameters)   :: lag_params !< Lagrange bubbles' parameters
 
# 145 "/home/runner/work/MFC/MFC/build/include/simulation/generated_decls.fpp"
#if defined(MFC_OpenACC)
# 145 "/home/runner/work/MFC/MFC/build/include/simulation/generated_decls.fpp"
!$acc declare create(lag_params) 
# 145 "/home/runner/work/MFC/MFC/build/include/simulation/generated_decls.fpp"
#elif defined(MFC_OpenMP)
# 145 "/home/runner/work/MFC/MFC/build/include/simulation/generated_decls.fpp"
!$omp declare target (lag_params) 
# 145 "/home/runner/work/MFC/MFC/build/include/simulation/generated_decls.fpp"
#endif
type(particle_cloud_parameters), dimension(num_particle_clouds_max) :: particle_cloud !< Particle bed specifications
type(spbf_parameters)               :: spatial_bf !< Parameters for spatially supported body force (Wei & Freund, JFM 2005)
 
# 148 "/home/runner/work/MFC/MFC/build/include/simulation/generated_decls.fpp"
#if defined(MFC_OpenACC)
# 148 "/home/runner/work/MFC/MFC/build/include/simulation/generated_decls.fpp"
!$acc declare create(spatial_bf) 
# 148 "/home/runner/work/MFC/MFC/build/include/simulation/generated_decls.fpp"
#elif defined(MFC_OpenMP)
# 148 "/home/runner/work/MFC/MFC/build/include/simulation/generated_decls.fpp"
!$omp declare target (spatial_bf) 
# 148 "/home/runner/work/MFC/MFC/build/include/simulation/generated_decls.fpp"
#endif
 
# 149 "/home/runner/work/MFC/MFC/build/include/simulation/generated_decls.fpp"
#if defined(MFC_OpenACC)
# 149 "/home/runner/work/MFC/MFC/build/include/simulation/generated_decls.fpp"
!$acc declare create(ADC_kappa) 
# 149 "/home/runner/work/MFC/MFC/build/include/simulation/generated_decls.fpp"
#elif defined(MFC_OpenMP)
# 149 "/home/runner/work/MFC/MFC/build/include/simulation/generated_decls.fpp"
!$omp declare target (ADC_kappa) 
# 149 "/home/runner/work/MFC/MFC/build/include/simulation/generated_decls.fpp"
#endif
 
# 150 "/home/runner/work/MFC/MFC/build/include/simulation/generated_decls.fpp"
#if defined(MFC_OpenACC)
# 150 "/home/runner/work/MFC/MFC/build/include/simulation/generated_decls.fpp"
!$acc declare create(Bx0) 
# 150 "/home/runner/work/MFC/MFC/build/include/simulation/generated_decls.fpp"
#elif defined(MFC_OpenMP)
# 150 "/home/runner/work/MFC/MFC/build/include/simulation/generated_decls.fpp"
!$omp declare target (Bx0) 
# 150 "/home/runner/work/MFC/MFC/build/include/simulation/generated_decls.fpp"
#endif
 
# 151 "/home/runner/work/MFC/MFC/build/include/simulation/generated_decls.fpp"
#if defined(MFC_OpenACC)
# 151 "/home/runner/work/MFC/MFC/build/include/simulation/generated_decls.fpp"
!$acc declare create(Ca) 
# 151 "/home/runner/work/MFC/MFC/build/include/simulation/generated_decls.fpp"
#elif defined(MFC_OpenMP)
# 151 "/home/runner/work/MFC/MFC/build/include/simulation/generated_decls.fpp"
!$omp declare target (Ca) 
# 151 "/home/runner/work/MFC/MFC/build/include/simulation/generated_decls.fpp"
#endif
 
# 152 "/home/runner/work/MFC/MFC/build/include/simulation/generated_decls.fpp"
#if defined(MFC_OpenACC)
# 152 "/home/runner/work/MFC/MFC/build/include/simulation/generated_decls.fpp"
!$acc declare create(R0ref) 
# 152 "/home/runner/work/MFC/MFC/build/include/simulation/generated_decls.fpp"
#elif defined(MFC_OpenMP)
# 152 "/home/runner/work/MFC/MFC/build/include/simulation/generated_decls.fpp"
!$omp declare target (R0ref) 
# 152 "/home/runner/work/MFC/MFC/build/include/simulation/generated_decls.fpp"
#endif
 
# 153 "/home/runner/work/MFC/MFC/build/include/simulation/generated_decls.fpp"
#if defined(MFC_OpenACC)
# 153 "/home/runner/work/MFC/MFC/build/include/simulation/generated_decls.fpp"
!$acc declare create(Re_inv) 
# 153 "/home/runner/work/MFC/MFC/build/include/simulation/generated_decls.fpp"
#elif defined(MFC_OpenMP)
# 153 "/home/runner/work/MFC/MFC/build/include/simulation/generated_decls.fpp"
!$omp declare target (Re_inv) 
# 153 "/home/runner/work/MFC/MFC/build/include/simulation/generated_decls.fpp"
#endif
 
# 154 "/home/runner/work/MFC/MFC/build/include/simulation/generated_decls.fpp"
#if defined(MFC_OpenACC)
# 154 "/home/runner/work/MFC/MFC/build/include/simulation/generated_decls.fpp"
!$acc declare create(Web) 
# 154 "/home/runner/work/MFC/MFC/build/include/simulation/generated_decls.fpp"
#elif defined(MFC_OpenMP)
# 154 "/home/runner/work/MFC/MFC/build/include/simulation/generated_decls.fpp"
!$omp declare target (Web) 
# 154 "/home/runner/work/MFC/MFC/build/include/simulation/generated_decls.fpp"
#endif
 
# 155 "/home/runner/work/MFC/MFC/build/include/simulation/generated_decls.fpp"
#if defined(MFC_OpenACC)
# 155 "/home/runner/work/MFC/MFC/build/include/simulation/generated_decls.fpp"
!$acc declare create(acoustic_source) 
# 155 "/home/runner/work/MFC/MFC/build/include/simulation/generated_decls.fpp"
#elif defined(MFC_OpenMP)
# 155 "/home/runner/work/MFC/MFC/build/include/simulation/generated_decls.fpp"
!$omp declare target (acoustic_source) 
# 155 "/home/runner/work/MFC/MFC/build/include/simulation/generated_decls.fpp"
#endif
 
# 156 "/home/runner/work/MFC/MFC/build/include/simulation/generated_decls.fpp"
#if defined(MFC_OpenACC)
# 156 "/home/runner/work/MFC/MFC/build/include/simulation/generated_decls.fpp"
!$acc declare create(adap_dt) 
# 156 "/home/runner/work/MFC/MFC/build/include/simulation/generated_decls.fpp"
#elif defined(MFC_OpenMP)
# 156 "/home/runner/work/MFC/MFC/build/include/simulation/generated_decls.fpp"
!$omp declare target (adap_dt) 
# 156 "/home/runner/work/MFC/MFC/build/include/simulation/generated_decls.fpp"
#endif
 
# 157 "/home/runner/work/MFC/MFC/build/include/simulation/generated_decls.fpp"
#if defined(MFC_OpenACC)
# 157 "/home/runner/work/MFC/MFC/build/include/simulation/generated_decls.fpp"
!$acc declare create(adap_dt_max_iters) 
# 157 "/home/runner/work/MFC/MFC/build/include/simulation/generated_decls.fpp"
#elif defined(MFC_OpenMP)
# 157 "/home/runner/work/MFC/MFC/build/include/simulation/generated_decls.fpp"
!$omp declare target (adap_dt_max_iters) 
# 157 "/home/runner/work/MFC/MFC/build/include/simulation/generated_decls.fpp"
#endif
 
# 158 "/home/runner/work/MFC/MFC/build/include/simulation/generated_decls.fpp"
#if defined(MFC_OpenACC)
# 158 "/home/runner/work/MFC/MFC/build/include/simulation/generated_decls.fpp"
!$acc declare create(adap_dt_tol) 
# 158 "/home/runner/work/MFC/MFC/build/include/simulation/generated_decls.fpp"
#elif defined(MFC_OpenMP)
# 158 "/home/runner/work/MFC/MFC/build/include/simulation/generated_decls.fpp"
!$omp declare target (adap_dt_tol) 
# 158 "/home/runner/work/MFC/MFC/build/include/simulation/generated_decls.fpp"
#endif
 
# 159 "/home/runner/work/MFC/MFC/build/include/simulation/generated_decls.fpp"
#if defined(MFC_OpenACC)
# 159 "/home/runner/work/MFC/MFC/build/include/simulation/generated_decls.fpp"
!$acc declare create(adv_n) 
# 159 "/home/runner/work/MFC/MFC/build/include/simulation/generated_decls.fpp"
#elif defined(MFC_OpenMP)
# 159 "/home/runner/work/MFC/MFC/build/include/simulation/generated_decls.fpp"
!$omp declare target (adv_n) 
# 159 "/home/runner/work/MFC/MFC/build/include/simulation/generated_decls.fpp"
#endif
 
# 160 "/home/runner/work/MFC/MFC/build/include/simulation/generated_decls.fpp"
#if defined(MFC_OpenACC)
# 160 "/home/runner/work/MFC/MFC/build/include/simulation/generated_decls.fpp"
!$acc declare create(alpha_bar) 
# 160 "/home/runner/work/MFC/MFC/build/include/simulation/generated_decls.fpp"
#elif defined(MFC_OpenMP)
# 160 "/home/runner/work/MFC/MFC/build/include/simulation/generated_decls.fpp"
!$omp declare target (alpha_bar) 
# 160 "/home/runner/work/MFC/MFC/build/include/simulation/generated_decls.fpp"
#endif
 
# 161 "/home/runner/work/MFC/MFC/build/include/simulation/generated_decls.fpp"
#if defined(MFC_OpenACC)
# 161 "/home/runner/work/MFC/MFC/build/include/simulation/generated_decls.fpp"
!$acc declare create(alt_soundspeed) 
# 161 "/home/runner/work/MFC/MFC/build/include/simulation/generated_decls.fpp"
#elif defined(MFC_OpenMP)
# 161 "/home/runner/work/MFC/MFC/build/include/simulation/generated_decls.fpp"
!$omp declare target (alt_soundspeed) 
# 161 "/home/runner/work/MFC/MFC/build/include/simulation/generated_decls.fpp"
#endif
 
# 162 "/home/runner/work/MFC/MFC/build/include/simulation/generated_decls.fpp"
#if defined(MFC_OpenACC)
# 162 "/home/runner/work/MFC/MFC/build/include/simulation/generated_decls.fpp"
!$acc declare create(avg_state) 
# 162 "/home/runner/work/MFC/MFC/build/include/simulation/generated_decls.fpp"
#elif defined(MFC_OpenMP)
# 162 "/home/runner/work/MFC/MFC/build/include/simulation/generated_decls.fpp"
!$omp declare target (avg_state) 
# 162 "/home/runner/work/MFC/MFC/build/include/simulation/generated_decls.fpp"
#endif
 
# 163 "/home/runner/work/MFC/MFC/build/include/simulation/generated_decls.fpp"
#if defined(MFC_OpenACC)
# 163 "/home/runner/work/MFC/MFC/build/include/simulation/generated_decls.fpp"
!$acc declare create(bubble_model) 
# 163 "/home/runner/work/MFC/MFC/build/include/simulation/generated_decls.fpp"
#elif defined(MFC_OpenMP)
# 163 "/home/runner/work/MFC/MFC/build/include/simulation/generated_decls.fpp"
!$omp declare target (bubble_model) 
# 163 "/home/runner/work/MFC/MFC/build/include/simulation/generated_decls.fpp"
#endif
 
# 164 "/home/runner/work/MFC/MFC/build/include/simulation/generated_decls.fpp"
#if defined(MFC_OpenACC)
# 164 "/home/runner/work/MFC/MFC/build/include/simulation/generated_decls.fpp"
!$acc declare create(bubbles_euler) 
# 164 "/home/runner/work/MFC/MFC/build/include/simulation/generated_decls.fpp"
#elif defined(MFC_OpenMP)
# 164 "/home/runner/work/MFC/MFC/build/include/simulation/generated_decls.fpp"
!$omp declare target (bubbles_euler) 
# 164 "/home/runner/work/MFC/MFC/build/include/simulation/generated_decls.fpp"
#endif
 
# 165 "/home/runner/work/MFC/MFC/build/include/simulation/generated_decls.fpp"
#if defined(MFC_OpenACC)
# 165 "/home/runner/work/MFC/MFC/build/include/simulation/generated_decls.fpp"
!$acc declare create(bubbles_lagrange) 
# 165 "/home/runner/work/MFC/MFC/build/include/simulation/generated_decls.fpp"
#elif defined(MFC_OpenMP)
# 165 "/home/runner/work/MFC/MFC/build/include/simulation/generated_decls.fpp"
!$omp declare target (bubbles_lagrange) 
# 165 "/home/runner/work/MFC/MFC/build/include/simulation/generated_decls.fpp"
#endif
 
# 166 "/home/runner/work/MFC/MFC/build/include/simulation/generated_decls.fpp"
#if defined(MFC_OpenACC)
# 166 "/home/runner/work/MFC/MFC/build/include/simulation/generated_decls.fpp"
!$acc declare create(cfl_target) 
# 166 "/home/runner/work/MFC/MFC/build/include/simulation/generated_decls.fpp"
#elif defined(MFC_OpenMP)
# 166 "/home/runner/work/MFC/MFC/build/include/simulation/generated_decls.fpp"
!$omp declare target (cfl_target) 
# 166 "/home/runner/work/MFC/MFC/build/include/simulation/generated_decls.fpp"
#endif
 
# 167 "/home/runner/work/MFC/MFC/build/include/simulation/generated_decls.fpp"
#if defined(MFC_OpenACC)
# 167 "/home/runner/work/MFC/MFC/build/include/simulation/generated_decls.fpp"
!$acc declare create(cont_damage) 
# 167 "/home/runner/work/MFC/MFC/build/include/simulation/generated_decls.fpp"
#elif defined(MFC_OpenMP)
# 167 "/home/runner/work/MFC/MFC/build/include/simulation/generated_decls.fpp"
!$omp declare target (cont_damage) 
# 167 "/home/runner/work/MFC/MFC/build/include/simulation/generated_decls.fpp"
#endif
 
# 168 "/home/runner/work/MFC/MFC/build/include/simulation/generated_decls.fpp"
#if defined(MFC_OpenACC)
# 168 "/home/runner/work/MFC/MFC/build/include/simulation/generated_decls.fpp"
!$acc declare create(cont_damage_s) 
# 168 "/home/runner/work/MFC/MFC/build/include/simulation/generated_decls.fpp"
#elif defined(MFC_OpenMP)
# 168 "/home/runner/work/MFC/MFC/build/include/simulation/generated_decls.fpp"
!$omp declare target (cont_damage_s) 
# 168 "/home/runner/work/MFC/MFC/build/include/simulation/generated_decls.fpp"
#endif
 
# 169 "/home/runner/work/MFC/MFC/build/include/simulation/generated_decls.fpp"
#if defined(MFC_OpenACC)
# 169 "/home/runner/work/MFC/MFC/build/include/simulation/generated_decls.fpp"
!$acc declare create(cyl_coord) 
# 169 "/home/runner/work/MFC/MFC/build/include/simulation/generated_decls.fpp"
#elif defined(MFC_OpenMP)
# 169 "/home/runner/work/MFC/MFC/build/include/simulation/generated_decls.fpp"
!$omp declare target (cyl_coord) 
# 169 "/home/runner/work/MFC/MFC/build/include/simulation/generated_decls.fpp"
#endif
 
# 170 "/home/runner/work/MFC/MFC/build/include/simulation/generated_decls.fpp"
#if defined(MFC_OpenACC)
# 170 "/home/runner/work/MFC/MFC/build/include/simulation/generated_decls.fpp"
!$acc declare create(down_sample) 
# 170 "/home/runner/work/MFC/MFC/build/include/simulation/generated_decls.fpp"
#elif defined(MFC_OpenMP)
# 170 "/home/runner/work/MFC/MFC/build/include/simulation/generated_decls.fpp"
!$omp declare target (down_sample) 
# 170 "/home/runner/work/MFC/MFC/build/include/simulation/generated_decls.fpp"
#endif
 
# 171 "/home/runner/work/MFC/MFC/build/include/simulation/generated_decls.fpp"
#if defined(MFC_OpenACC)
# 171 "/home/runner/work/MFC/MFC/build/include/simulation/generated_decls.fpp"
!$acc declare create(dt) 
# 171 "/home/runner/work/MFC/MFC/build/include/simulation/generated_decls.fpp"
#elif defined(MFC_OpenMP)
# 171 "/home/runner/work/MFC/MFC/build/include/simulation/generated_decls.fpp"
!$omp declare target (dt) 
# 171 "/home/runner/work/MFC/MFC/build/include/simulation/generated_decls.fpp"
#endif
 
# 172 "/home/runner/work/MFC/MFC/build/include/simulation/generated_decls.fpp"
#if defined(MFC_OpenACC)
# 172 "/home/runner/work/MFC/MFC/build/include/simulation/generated_decls.fpp"
!$acc declare create(fd_order) 
# 172 "/home/runner/work/MFC/MFC/build/include/simulation/generated_decls.fpp"
#elif defined(MFC_OpenMP)
# 172 "/home/runner/work/MFC/MFC/build/include/simulation/generated_decls.fpp"
!$omp declare target (fd_order) 
# 172 "/home/runner/work/MFC/MFC/build/include/simulation/generated_decls.fpp"
#endif
 
# 173 "/home/runner/work/MFC/MFC/build/include/simulation/generated_decls.fpp"
#if defined(MFC_OpenACC)
# 173 "/home/runner/work/MFC/MFC/build/include/simulation/generated_decls.fpp"
!$acc declare create(hll_u_interface) 
# 173 "/home/runner/work/MFC/MFC/build/include/simulation/generated_decls.fpp"
#elif defined(MFC_OpenMP)
# 173 "/home/runner/work/MFC/MFC/build/include/simulation/generated_decls.fpp"
!$omp declare target (hll_u_interface) 
# 173 "/home/runner/work/MFC/MFC/build/include/simulation/generated_decls.fpp"
#endif
 
# 174 "/home/runner/work/MFC/MFC/build/include/simulation/generated_decls.fpp"
#if defined(MFC_OpenACC)
# 174 "/home/runner/work/MFC/MFC/build/include/simulation/generated_decls.fpp"
!$acc declare create(hyper_cleaning) 
# 174 "/home/runner/work/MFC/MFC/build/include/simulation/generated_decls.fpp"
#elif defined(MFC_OpenMP)
# 174 "/home/runner/work/MFC/MFC/build/include/simulation/generated_decls.fpp"
!$omp declare target (hyper_cleaning) 
# 174 "/home/runner/work/MFC/MFC/build/include/simulation/generated_decls.fpp"
#endif
 
# 175 "/home/runner/work/MFC/MFC/build/include/simulation/generated_decls.fpp"
#if defined(MFC_OpenACC)
# 175 "/home/runner/work/MFC/MFC/build/include/simulation/generated_decls.fpp"
!$acc declare create(hyper_cleaning_speed) 
# 175 "/home/runner/work/MFC/MFC/build/include/simulation/generated_decls.fpp"
#elif defined(MFC_OpenMP)
# 175 "/home/runner/work/MFC/MFC/build/include/simulation/generated_decls.fpp"
!$omp declare target (hyper_cleaning_speed) 
# 175 "/home/runner/work/MFC/MFC/build/include/simulation/generated_decls.fpp"
#endif
 
# 176 "/home/runner/work/MFC/MFC/build/include/simulation/generated_decls.fpp"
#if defined(MFC_OpenACC)
# 176 "/home/runner/work/MFC/MFC/build/include/simulation/generated_decls.fpp"
!$acc declare create(hyper_cleaning_tau) 
# 176 "/home/runner/work/MFC/MFC/build/include/simulation/generated_decls.fpp"
#elif defined(MFC_OpenMP)
# 176 "/home/runner/work/MFC/MFC/build/include/simulation/generated_decls.fpp"
!$omp declare target (hyper_cleaning_tau) 
# 176 "/home/runner/work/MFC/MFC/build/include/simulation/generated_decls.fpp"
#endif
 
# 177 "/home/runner/work/MFC/MFC/build/include/simulation/generated_decls.fpp"
#if defined(MFC_OpenACC)
# 177 "/home/runner/work/MFC/MFC/build/include/simulation/generated_decls.fpp"
!$acc declare create(hypo_hll_interface_rhs) 
# 177 "/home/runner/work/MFC/MFC/build/include/simulation/generated_decls.fpp"
#elif defined(MFC_OpenMP)
# 177 "/home/runner/work/MFC/MFC/build/include/simulation/generated_decls.fpp"
!$omp declare target (hypo_hll_interface_rhs) 
# 177 "/home/runner/work/MFC/MFC/build/include/simulation/generated_decls.fpp"
#endif
 
# 178 "/home/runner/work/MFC/MFC/build/include/simulation/generated_decls.fpp"
#if defined(MFC_OpenACC)
# 178 "/home/runner/work/MFC/MFC/build/include/simulation/generated_decls.fpp"
!$acc declare create(hypoelasticity) 
# 178 "/home/runner/work/MFC/MFC/build/include/simulation/generated_decls.fpp"
#elif defined(MFC_OpenMP)
# 178 "/home/runner/work/MFC/MFC/build/include/simulation/generated_decls.fpp"
!$omp declare target (hypoelasticity) 
# 178 "/home/runner/work/MFC/MFC/build/include/simulation/generated_decls.fpp"
#endif
 
# 179 "/home/runner/work/MFC/MFC/build/include/simulation/generated_decls.fpp"
#if defined(MFC_OpenACC)
# 179 "/home/runner/work/MFC/MFC/build/include/simulation/generated_decls.fpp"
!$acc declare create(ib) 
# 179 "/home/runner/work/MFC/MFC/build/include/simulation/generated_decls.fpp"
#elif defined(MFC_OpenMP)
# 179 "/home/runner/work/MFC/MFC/build/include/simulation/generated_decls.fpp"
!$omp declare target (ib) 
# 179 "/home/runner/work/MFC/MFC/build/include/simulation/generated_decls.fpp"
#endif
 
# 180 "/home/runner/work/MFC/MFC/build/include/simulation/generated_decls.fpp"
#if defined(MFC_OpenACC)
# 180 "/home/runner/work/MFC/MFC/build/include/simulation/generated_decls.fpp"
!$acc declare create(ib_coefficient_of_friction) 
# 180 "/home/runner/work/MFC/MFC/build/include/simulation/generated_decls.fpp"
#elif defined(MFC_OpenMP)
# 180 "/home/runner/work/MFC/MFC/build/include/simulation/generated_decls.fpp"
!$omp declare target (ib_coefficient_of_friction) 
# 180 "/home/runner/work/MFC/MFC/build/include/simulation/generated_decls.fpp"
#endif
 
# 181 "/home/runner/work/MFC/MFC/build/include/simulation/generated_decls.fpp"
#if defined(MFC_OpenACC)
# 181 "/home/runner/work/MFC/MFC/build/include/simulation/generated_decls.fpp"
!$acc declare create(ic_beta) 
# 181 "/home/runner/work/MFC/MFC/build/include/simulation/generated_decls.fpp"
#elif defined(MFC_OpenMP)
# 181 "/home/runner/work/MFC/MFC/build/include/simulation/generated_decls.fpp"
!$omp declare target (ic_beta) 
# 181 "/home/runner/work/MFC/MFC/build/include/simulation/generated_decls.fpp"
#endif
 
# 182 "/home/runner/work/MFC/MFC/build/include/simulation/generated_decls.fpp"
#if defined(MFC_OpenACC)
# 182 "/home/runner/work/MFC/MFC/build/include/simulation/generated_decls.fpp"
!$acc declare create(ic_eps) 
# 182 "/home/runner/work/MFC/MFC/build/include/simulation/generated_decls.fpp"
#elif defined(MFC_OpenMP)
# 182 "/home/runner/work/MFC/MFC/build/include/simulation/generated_decls.fpp"
!$omp declare target (ic_eps) 
# 182 "/home/runner/work/MFC/MFC/build/include/simulation/generated_decls.fpp"
#endif
 
# 183 "/home/runner/work/MFC/MFC/build/include/simulation/generated_decls.fpp"
#if defined(MFC_OpenACC)
# 183 "/home/runner/work/MFC/MFC/build/include/simulation/generated_decls.fpp"
!$acc declare create(int_comp) 
# 183 "/home/runner/work/MFC/MFC/build/include/simulation/generated_decls.fpp"
#elif defined(MFC_OpenMP)
# 183 "/home/runner/work/MFC/MFC/build/include/simulation/generated_decls.fpp"
!$omp declare target (int_comp) 
# 183 "/home/runner/work/MFC/MFC/build/include/simulation/generated_decls.fpp"
#endif
 
# 184 "/home/runner/work/MFC/MFC/build/include/simulation/generated_decls.fpp"
#if defined(MFC_OpenACC)
# 184 "/home/runner/work/MFC/MFC/build/include/simulation/generated_decls.fpp"
!$acc declare create(low_Mach) 
# 184 "/home/runner/work/MFC/MFC/build/include/simulation/generated_decls.fpp"
#elif defined(MFC_OpenMP)
# 184 "/home/runner/work/MFC/MFC/build/include/simulation/generated_decls.fpp"
!$omp declare target (low_Mach) 
# 184 "/home/runner/work/MFC/MFC/build/include/simulation/generated_decls.fpp"
#endif
 
# 185 "/home/runner/work/MFC/MFC/build/include/simulation/generated_decls.fpp"
#if defined(MFC_OpenACC)
# 185 "/home/runner/work/MFC/MFC/build/include/simulation/generated_decls.fpp"
!$acc declare create(m) 
# 185 "/home/runner/work/MFC/MFC/build/include/simulation/generated_decls.fpp"
#elif defined(MFC_OpenMP)
# 185 "/home/runner/work/MFC/MFC/build/include/simulation/generated_decls.fpp"
!$omp declare target (m) 
# 185 "/home/runner/work/MFC/MFC/build/include/simulation/generated_decls.fpp"
#endif
 
# 186 "/home/runner/work/MFC/MFC/build/include/simulation/generated_decls.fpp"
#if defined(MFC_OpenACC)
# 186 "/home/runner/work/MFC/MFC/build/include/simulation/generated_decls.fpp"
!$acc declare create(mixture_err) 
# 186 "/home/runner/work/MFC/MFC/build/include/simulation/generated_decls.fpp"
#elif defined(MFC_OpenMP)
# 186 "/home/runner/work/MFC/MFC/build/include/simulation/generated_decls.fpp"
!$omp declare target (mixture_err) 
# 186 "/home/runner/work/MFC/MFC/build/include/simulation/generated_decls.fpp"
#endif
 
# 187 "/home/runner/work/MFC/MFC/build/include/simulation/generated_decls.fpp"
#if defined(MFC_OpenACC)
# 187 "/home/runner/work/MFC/MFC/build/include/simulation/generated_decls.fpp"
!$acc declare create(model_eqns) 
# 187 "/home/runner/work/MFC/MFC/build/include/simulation/generated_decls.fpp"
#elif defined(MFC_OpenMP)
# 187 "/home/runner/work/MFC/MFC/build/include/simulation/generated_decls.fpp"
!$omp declare target (model_eqns) 
# 187 "/home/runner/work/MFC/MFC/build/include/simulation/generated_decls.fpp"
#endif
 
# 188 "/home/runner/work/MFC/MFC/build/include/simulation/generated_decls.fpp"
#if defined(MFC_OpenACC)
# 188 "/home/runner/work/MFC/MFC/build/include/simulation/generated_decls.fpp"
!$acc declare create(mp_weno) 
# 188 "/home/runner/work/MFC/MFC/build/include/simulation/generated_decls.fpp"
#elif defined(MFC_OpenMP)
# 188 "/home/runner/work/MFC/MFC/build/include/simulation/generated_decls.fpp"
!$omp declare target (mp_weno) 
# 188 "/home/runner/work/MFC/MFC/build/include/simulation/generated_decls.fpp"
#endif
 
# 189 "/home/runner/work/MFC/MFC/build/include/simulation/generated_decls.fpp"
#if defined(MFC_OpenACC)
# 189 "/home/runner/work/MFC/MFC/build/include/simulation/generated_decls.fpp"
!$acc declare create(mpp_lim) 
# 189 "/home/runner/work/MFC/MFC/build/include/simulation/generated_decls.fpp"
#elif defined(MFC_OpenMP)
# 189 "/home/runner/work/MFC/MFC/build/include/simulation/generated_decls.fpp"
!$omp declare target (mpp_lim) 
# 189 "/home/runner/work/MFC/MFC/build/include/simulation/generated_decls.fpp"
#endif
 
# 190 "/home/runner/work/MFC/MFC/build/include/simulation/generated_decls.fpp"
#if defined(MFC_OpenACC)
# 190 "/home/runner/work/MFC/MFC/build/include/simulation/generated_decls.fpp"
!$acc declare create(muscl_eps) 
# 190 "/home/runner/work/MFC/MFC/build/include/simulation/generated_decls.fpp"
#elif defined(MFC_OpenMP)
# 190 "/home/runner/work/MFC/MFC/build/include/simulation/generated_decls.fpp"
!$omp declare target (muscl_eps) 
# 190 "/home/runner/work/MFC/MFC/build/include/simulation/generated_decls.fpp"
#endif
 
# 191 "/home/runner/work/MFC/MFC/build/include/simulation/generated_decls.fpp"
#if defined(MFC_OpenACC)
# 191 "/home/runner/work/MFC/MFC/build/include/simulation/generated_decls.fpp"
!$acc declare create(n) 
# 191 "/home/runner/work/MFC/MFC/build/include/simulation/generated_decls.fpp"
#elif defined(MFC_OpenMP)
# 191 "/home/runner/work/MFC/MFC/build/include/simulation/generated_decls.fpp"
!$omp declare target (n) 
# 191 "/home/runner/work/MFC/MFC/build/include/simulation/generated_decls.fpp"
#endif
 
# 192 "/home/runner/work/MFC/MFC/build/include/simulation/generated_decls.fpp"
#if defined(MFC_OpenACC)
# 192 "/home/runner/work/MFC/MFC/build/include/simulation/generated_decls.fpp"
!$acc declare create(num_ibs) 
# 192 "/home/runner/work/MFC/MFC/build/include/simulation/generated_decls.fpp"
#elif defined(MFC_OpenMP)
# 192 "/home/runner/work/MFC/MFC/build/include/simulation/generated_decls.fpp"
!$omp declare target (num_ibs) 
# 192 "/home/runner/work/MFC/MFC/build/include/simulation/generated_decls.fpp"
#endif
 
# 193 "/home/runner/work/MFC/MFC/build/include/simulation/generated_decls.fpp"
#if defined(MFC_OpenACC)
# 193 "/home/runner/work/MFC/MFC/build/include/simulation/generated_decls.fpp"
!$acc declare create(num_source) 
# 193 "/home/runner/work/MFC/MFC/build/include/simulation/generated_decls.fpp"
#elif defined(MFC_OpenMP)
# 193 "/home/runner/work/MFC/MFC/build/include/simulation/generated_decls.fpp"
!$omp declare target (num_source) 
# 193 "/home/runner/work/MFC/MFC/build/include/simulation/generated_decls.fpp"
#endif
 
# 194 "/home/runner/work/MFC/MFC/build/include/simulation/generated_decls.fpp"
#if defined(MFC_OpenACC)
# 194 "/home/runner/work/MFC/MFC/build/include/simulation/generated_decls.fpp"
!$acc declare create(num_turbulent_sources) 
# 194 "/home/runner/work/MFC/MFC/build/include/simulation/generated_decls.fpp"
#elif defined(MFC_OpenMP)
# 194 "/home/runner/work/MFC/MFC/build/include/simulation/generated_decls.fpp"
!$omp declare target (num_turbulent_sources) 
# 194 "/home/runner/work/MFC/MFC/build/include/simulation/generated_decls.fpp"
#endif
 
# 195 "/home/runner/work/MFC/MFC/build/include/simulation/generated_decls.fpp"
#if defined(MFC_OpenACC)
# 195 "/home/runner/work/MFC/MFC/build/include/simulation/generated_decls.fpp"
!$acc declare create(p) 
# 195 "/home/runner/work/MFC/MFC/build/include/simulation/generated_decls.fpp"
#elif defined(MFC_OpenMP)
# 195 "/home/runner/work/MFC/MFC/build/include/simulation/generated_decls.fpp"
!$omp declare target (p) 
# 195 "/home/runner/work/MFC/MFC/build/include/simulation/generated_decls.fpp"
#endif
 
# 196 "/home/runner/work/MFC/MFC/build/include/simulation/generated_decls.fpp"
#if defined(MFC_OpenACC)
# 196 "/home/runner/work/MFC/MFC/build/include/simulation/generated_decls.fpp"
!$acc declare create(palpha_eps) 
# 196 "/home/runner/work/MFC/MFC/build/include/simulation/generated_decls.fpp"
#elif defined(MFC_OpenMP)
# 196 "/home/runner/work/MFC/MFC/build/include/simulation/generated_decls.fpp"
!$omp declare target (palpha_eps) 
# 196 "/home/runner/work/MFC/MFC/build/include/simulation/generated_decls.fpp"
#endif
 
# 197 "/home/runner/work/MFC/MFC/build/include/simulation/generated_decls.fpp"
#if defined(MFC_OpenACC)
# 197 "/home/runner/work/MFC/MFC/build/include/simulation/generated_decls.fpp"
!$acc declare create(pi_fac) 
# 197 "/home/runner/work/MFC/MFC/build/include/simulation/generated_decls.fpp"
#elif defined(MFC_OpenMP)
# 197 "/home/runner/work/MFC/MFC/build/include/simulation/generated_decls.fpp"
!$omp declare target (pi_fac) 
# 197 "/home/runner/work/MFC/MFC/build/include/simulation/generated_decls.fpp"
#endif
 
# 198 "/home/runner/work/MFC/MFC/build/include/simulation/generated_decls.fpp"
#if defined(MFC_OpenACC)
# 198 "/home/runner/work/MFC/MFC/build/include/simulation/generated_decls.fpp"
!$acc declare create(poly_sigma) 
# 198 "/home/runner/work/MFC/MFC/build/include/simulation/generated_decls.fpp"
#elif defined(MFC_OpenMP)
# 198 "/home/runner/work/MFC/MFC/build/include/simulation/generated_decls.fpp"
!$omp declare target (poly_sigma) 
# 198 "/home/runner/work/MFC/MFC/build/include/simulation/generated_decls.fpp"
#endif
 
# 199 "/home/runner/work/MFC/MFC/build/include/simulation/generated_decls.fpp"
#if defined(MFC_OpenACC)
# 199 "/home/runner/work/MFC/MFC/build/include/simulation/generated_decls.fpp"
!$acc declare create(polydisperse) 
# 199 "/home/runner/work/MFC/MFC/build/include/simulation/generated_decls.fpp"
#elif defined(MFC_OpenMP)
# 199 "/home/runner/work/MFC/MFC/build/include/simulation/generated_decls.fpp"
!$omp declare target (polydisperse) 
# 199 "/home/runner/work/MFC/MFC/build/include/simulation/generated_decls.fpp"
#endif
 
# 200 "/home/runner/work/MFC/MFC/build/include/simulation/generated_decls.fpp"
#if defined(MFC_OpenACC)
# 200 "/home/runner/work/MFC/MFC/build/include/simulation/generated_decls.fpp"
!$acc declare create(polytropic) 
# 200 "/home/runner/work/MFC/MFC/build/include/simulation/generated_decls.fpp"
#elif defined(MFC_OpenMP)
# 200 "/home/runner/work/MFC/MFC/build/include/simulation/generated_decls.fpp"
!$omp declare target (polytropic) 
# 200 "/home/runner/work/MFC/MFC/build/include/simulation/generated_decls.fpp"
#endif
 
# 201 "/home/runner/work/MFC/MFC/build/include/simulation/generated_decls.fpp"
#if defined(MFC_OpenACC)
# 201 "/home/runner/work/MFC/MFC/build/include/simulation/generated_decls.fpp"
!$acc declare create(ptgalpha_eps) 
# 201 "/home/runner/work/MFC/MFC/build/include/simulation/generated_decls.fpp"
#elif defined(MFC_OpenMP)
# 201 "/home/runner/work/MFC/MFC/build/include/simulation/generated_decls.fpp"
!$omp declare target (ptgalpha_eps) 
# 201 "/home/runner/work/MFC/MFC/build/include/simulation/generated_decls.fpp"
#endif
 
# 202 "/home/runner/work/MFC/MFC/build/include/simulation/generated_decls.fpp"
#if defined(MFC_OpenACC)
# 202 "/home/runner/work/MFC/MFC/build/include/simulation/generated_decls.fpp"
!$acc declare create(qbmm) 
# 202 "/home/runner/work/MFC/MFC/build/include/simulation/generated_decls.fpp"
#elif defined(MFC_OpenMP)
# 202 "/home/runner/work/MFC/MFC/build/include/simulation/generated_decls.fpp"
!$omp declare target (qbmm) 
# 202 "/home/runner/work/MFC/MFC/build/include/simulation/generated_decls.fpp"
#endif
 
# 203 "/home/runner/work/MFC/MFC/build/include/simulation/generated_decls.fpp"
#if defined(MFC_OpenACC)
# 203 "/home/runner/work/MFC/MFC/build/include/simulation/generated_decls.fpp"
!$acc declare create(relax) 
# 203 "/home/runner/work/MFC/MFC/build/include/simulation/generated_decls.fpp"
#elif defined(MFC_OpenMP)
# 203 "/home/runner/work/MFC/MFC/build/include/simulation/generated_decls.fpp"
!$omp declare target (relax) 
# 203 "/home/runner/work/MFC/MFC/build/include/simulation/generated_decls.fpp"
#endif
 
# 204 "/home/runner/work/MFC/MFC/build/include/simulation/generated_decls.fpp"
#if defined(MFC_OpenACC)
# 204 "/home/runner/work/MFC/MFC/build/include/simulation/generated_decls.fpp"
!$acc declare create(relax_model) 
# 204 "/home/runner/work/MFC/MFC/build/include/simulation/generated_decls.fpp"
#elif defined(MFC_OpenMP)
# 204 "/home/runner/work/MFC/MFC/build/include/simulation/generated_decls.fpp"
!$omp declare target (relax_model) 
# 204 "/home/runner/work/MFC/MFC/build/include/simulation/generated_decls.fpp"
#endif
 
# 205 "/home/runner/work/MFC/MFC/build/include/simulation/generated_decls.fpp"
#if defined(MFC_OpenACC)
# 205 "/home/runner/work/MFC/MFC/build/include/simulation/generated_decls.fpp"
!$acc declare create(riemann_hypo_ADC) 
# 205 "/home/runner/work/MFC/MFC/build/include/simulation/generated_decls.fpp"
#elif defined(MFC_OpenMP)
# 205 "/home/runner/work/MFC/MFC/build/include/simulation/generated_decls.fpp"
!$omp declare target (riemann_hypo_ADC) 
# 205 "/home/runner/work/MFC/MFC/build/include/simulation/generated_decls.fpp"
#endif
 
# 206 "/home/runner/work/MFC/MFC/build/include/simulation/generated_decls.fpp"
#if defined(MFC_OpenACC)
# 206 "/home/runner/work/MFC/MFC/build/include/simulation/generated_decls.fpp"
!$acc declare create(sigma) 
# 206 "/home/runner/work/MFC/MFC/build/include/simulation/generated_decls.fpp"
#elif defined(MFC_OpenMP)
# 206 "/home/runner/work/MFC/MFC/build/include/simulation/generated_decls.fpp"
!$omp declare target (sigma) 
# 206 "/home/runner/work/MFC/MFC/build/include/simulation/generated_decls.fpp"
#endif
 
# 207 "/home/runner/work/MFC/MFC/build/include/simulation/generated_decls.fpp"
#if defined(MFC_OpenACC)
# 207 "/home/runner/work/MFC/MFC/build/include/simulation/generated_decls.fpp"
!$acc declare create(surface_tension) 
# 207 "/home/runner/work/MFC/MFC/build/include/simulation/generated_decls.fpp"
#elif defined(MFC_OpenMP)
# 207 "/home/runner/work/MFC/MFC/build/include/simulation/generated_decls.fpp"
!$omp declare target (surface_tension) 
# 207 "/home/runner/work/MFC/MFC/build/include/simulation/generated_decls.fpp"
#endif
 
# 208 "/home/runner/work/MFC/MFC/build/include/simulation/generated_decls.fpp"
#if defined(MFC_OpenACC)
# 208 "/home/runner/work/MFC/MFC/build/include/simulation/generated_decls.fpp"
!$acc declare create(synth_U_inf) 
# 208 "/home/runner/work/MFC/MFC/build/include/simulation/generated_decls.fpp"
#elif defined(MFC_OpenMP)
# 208 "/home/runner/work/MFC/MFC/build/include/simulation/generated_decls.fpp"
!$omp declare target (synth_U_inf) 
# 208 "/home/runner/work/MFC/MFC/build/include/simulation/generated_decls.fpp"
#endif
 
# 209 "/home/runner/work/MFC/MFC/build/include/simulation/generated_decls.fpp"
#if defined(MFC_OpenACC)
# 209 "/home/runner/work/MFC/MFC/build/include/simulation/generated_decls.fpp"
!$acc declare create(synthetic_turbulence) 
# 209 "/home/runner/work/MFC/MFC/build/include/simulation/generated_decls.fpp"
#elif defined(MFC_OpenMP)
# 209 "/home/runner/work/MFC/MFC/build/include/simulation/generated_decls.fpp"
!$omp declare target (synthetic_turbulence) 
# 209 "/home/runner/work/MFC/MFC/build/include/simulation/generated_decls.fpp"
#endif
 
# 210 "/home/runner/work/MFC/MFC/build/include/simulation/generated_decls.fpp"
#if defined(MFC_OpenACC)
# 210 "/home/runner/work/MFC/MFC/build/include/simulation/generated_decls.fpp"
!$acc declare create(tau_star) 
# 210 "/home/runner/work/MFC/MFC/build/include/simulation/generated_decls.fpp"
#elif defined(MFC_OpenMP)
# 210 "/home/runner/work/MFC/MFC/build/include/simulation/generated_decls.fpp"
!$omp declare target (tau_star) 
# 210 "/home/runner/work/MFC/MFC/build/include/simulation/generated_decls.fpp"
#endif
 
# 211 "/home/runner/work/MFC/MFC/build/include/simulation/generated_decls.fpp"
#if defined(MFC_OpenACC)
# 211 "/home/runner/work/MFC/MFC/build/include/simulation/generated_decls.fpp"
!$acc declare create(teno_CT) 
# 211 "/home/runner/work/MFC/MFC/build/include/simulation/generated_decls.fpp"
#elif defined(MFC_OpenMP)
# 211 "/home/runner/work/MFC/MFC/build/include/simulation/generated_decls.fpp"
!$omp declare target (teno_CT) 
# 211 "/home/runner/work/MFC/MFC/build/include/simulation/generated_decls.fpp"
#endif
 
# 212 "/home/runner/work/MFC/MFC/build/include/simulation/generated_decls.fpp"
#if defined(MFC_OpenACC)
# 212 "/home/runner/work/MFC/MFC/build/include/simulation/generated_decls.fpp"
!$acc declare create(thermal) 
# 212 "/home/runner/work/MFC/MFC/build/include/simulation/generated_decls.fpp"
#elif defined(MFC_OpenMP)
# 212 "/home/runner/work/MFC/MFC/build/include/simulation/generated_decls.fpp"
!$omp declare target (thermal) 
# 212 "/home/runner/work/MFC/MFC/build/include/simulation/generated_decls.fpp"
#endif
 
# 213 "/home/runner/work/MFC/MFC/build/include/simulation/generated_decls.fpp"
#if defined(MFC_OpenACC)
# 213 "/home/runner/work/MFC/MFC/build/include/simulation/generated_decls.fpp"
!$acc declare create(weno_eps) 
# 213 "/home/runner/work/MFC/MFC/build/include/simulation/generated_decls.fpp"
#elif defined(MFC_OpenMP)
# 213 "/home/runner/work/MFC/MFC/build/include/simulation/generated_decls.fpp"
!$omp declare target (weno_eps) 
# 213 "/home/runner/work/MFC/MFC/build/include/simulation/generated_decls.fpp"
#endif
# 25 "/home/runner/work/MFC/MFC/src/common/m_global_parameters_common.fpp" 2
 
    ! Case-optimization declarations: parameters (under MFC_CASE_OPTIMIZATION) or plain variables for
    ! num_dims, num_vels, weno_polyn, muscl_polyn, weno_num_stencils, wenojs, igr, etc.
# 1 "/home/runner/work/MFC/MFC/build/include/simulation/generated_case_opt_decls.fpp" 1
! AUTO-GENERATED - do not edit directly. Regenerate: cmake reconfigure
!
# 27 "/home/runner/work/MFC/MFC/build/include/simulation/generated_case_opt_decls.fpp"
    integer                 :: num_dims
    integer                 :: num_vels
    integer                 :: weno_polyn
    integer                 :: muscl_polyn
    integer                 :: weno_num_stencils
    logical                 :: wenojs
    logical                 :: igr
    integer                 :: igr_iter_solver
    integer                 :: igr_order
    logical                 :: igr_pres_lim
    logical                 :: mapped_weno
    logical                 :: mhd
    integer                 :: muscl_lim
    integer                 :: muscl_order
    integer                 :: num_fluids
    integer                 :: recon_type
    logical                 :: relativity
    logical                 :: teno
    logical                 :: viscous
    integer                 :: weno_order
    logical                 :: wenoz
    real(wp)                :: wenoz_q
 
# 49 "/home/runner/work/MFC/MFC/build/include/simulation/generated_case_opt_decls.fpp"
#if defined(MFC_OpenACC)
# 49 "/home/runner/work/MFC/MFC/build/include/simulation/generated_case_opt_decls.fpp"
!$acc declare create(igr) 
# 49 "/home/runner/work/MFC/MFC/build/include/simulation/generated_case_opt_decls.fpp"
#elif defined(MFC_OpenMP)
# 49 "/home/runner/work/MFC/MFC/build/include/simulation/generated_case_opt_decls.fpp"
!$omp declare target (igr) 
# 49 "/home/runner/work/MFC/MFC/build/include/simulation/generated_case_opt_decls.fpp"
#endif
 
# 50 "/home/runner/work/MFC/MFC/build/include/simulation/generated_case_opt_decls.fpp"
#if defined(MFC_OpenACC)
# 50 "/home/runner/work/MFC/MFC/build/include/simulation/generated_case_opt_decls.fpp"
!$acc declare create(igr_iter_solver) 
# 50 "/home/runner/work/MFC/MFC/build/include/simulation/generated_case_opt_decls.fpp"
#elif defined(MFC_OpenMP)
# 50 "/home/runner/work/MFC/MFC/build/include/simulation/generated_case_opt_decls.fpp"
!$omp declare target (igr_iter_solver) 
# 50 "/home/runner/work/MFC/MFC/build/include/simulation/generated_case_opt_decls.fpp"
#endif
 
# 51 "/home/runner/work/MFC/MFC/build/include/simulation/generated_case_opt_decls.fpp"
#if defined(MFC_OpenACC)
# 51 "/home/runner/work/MFC/MFC/build/include/simulation/generated_case_opt_decls.fpp"
!$acc declare create(igr_order) 
# 51 "/home/runner/work/MFC/MFC/build/include/simulation/generated_case_opt_decls.fpp"
#elif defined(MFC_OpenMP)
# 51 "/home/runner/work/MFC/MFC/build/include/simulation/generated_case_opt_decls.fpp"
!$omp declare target (igr_order) 
# 51 "/home/runner/work/MFC/MFC/build/include/simulation/generated_case_opt_decls.fpp"
#endif
 
# 52 "/home/runner/work/MFC/MFC/build/include/simulation/generated_case_opt_decls.fpp"
#if defined(MFC_OpenACC)
# 52 "/home/runner/work/MFC/MFC/build/include/simulation/generated_case_opt_decls.fpp"
!$acc declare create(igr_pres_lim) 
# 52 "/home/runner/work/MFC/MFC/build/include/simulation/generated_case_opt_decls.fpp"
#elif defined(MFC_OpenMP)
# 52 "/home/runner/work/MFC/MFC/build/include/simulation/generated_case_opt_decls.fpp"
!$omp declare target (igr_pres_lim) 
# 52 "/home/runner/work/MFC/MFC/build/include/simulation/generated_case_opt_decls.fpp"
#endif
 
# 53 "/home/runner/work/MFC/MFC/build/include/simulation/generated_case_opt_decls.fpp"
#if defined(MFC_OpenACC)
# 53 "/home/runner/work/MFC/MFC/build/include/simulation/generated_case_opt_decls.fpp"
!$acc declare create(mapped_weno) 
# 53 "/home/runner/work/MFC/MFC/build/include/simulation/generated_case_opt_decls.fpp"
#elif defined(MFC_OpenMP)
# 53 "/home/runner/work/MFC/MFC/build/include/simulation/generated_case_opt_decls.fpp"
!$omp declare target (mapped_weno) 
# 53 "/home/runner/work/MFC/MFC/build/include/simulation/generated_case_opt_decls.fpp"
#endif
 
# 54 "/home/runner/work/MFC/MFC/build/include/simulation/generated_case_opt_decls.fpp"
#if defined(MFC_OpenACC)
# 54 "/home/runner/work/MFC/MFC/build/include/simulation/generated_case_opt_decls.fpp"
!$acc declare create(mhd) 
# 54 "/home/runner/work/MFC/MFC/build/include/simulation/generated_case_opt_decls.fpp"
#elif defined(MFC_OpenMP)
# 54 "/home/runner/work/MFC/MFC/build/include/simulation/generated_case_opt_decls.fpp"
!$omp declare target (mhd) 
# 54 "/home/runner/work/MFC/MFC/build/include/simulation/generated_case_opt_decls.fpp"
#endif
 
# 55 "/home/runner/work/MFC/MFC/build/include/simulation/generated_case_opt_decls.fpp"
#if defined(MFC_OpenACC)
# 55 "/home/runner/work/MFC/MFC/build/include/simulation/generated_case_opt_decls.fpp"
!$acc declare create(muscl_lim) 
# 55 "/home/runner/work/MFC/MFC/build/include/simulation/generated_case_opt_decls.fpp"
#elif defined(MFC_OpenMP)
# 55 "/home/runner/work/MFC/MFC/build/include/simulation/generated_case_opt_decls.fpp"
!$omp declare target (muscl_lim) 
# 55 "/home/runner/work/MFC/MFC/build/include/simulation/generated_case_opt_decls.fpp"
#endif
 
# 56 "/home/runner/work/MFC/MFC/build/include/simulation/generated_case_opt_decls.fpp"
#if defined(MFC_OpenACC)
# 56 "/home/runner/work/MFC/MFC/build/include/simulation/generated_case_opt_decls.fpp"
!$acc declare create(muscl_order) 
# 56 "/home/runner/work/MFC/MFC/build/include/simulation/generated_case_opt_decls.fpp"
#elif defined(MFC_OpenMP)
# 56 "/home/runner/work/MFC/MFC/build/include/simulation/generated_case_opt_decls.fpp"
!$omp declare target (muscl_order) 
# 56 "/home/runner/work/MFC/MFC/build/include/simulation/generated_case_opt_decls.fpp"
#endif
 
# 57 "/home/runner/work/MFC/MFC/build/include/simulation/generated_case_opt_decls.fpp"
#if defined(MFC_OpenACC)
# 57 "/home/runner/work/MFC/MFC/build/include/simulation/generated_case_opt_decls.fpp"
!$acc declare create(muscl_polyn) 
# 57 "/home/runner/work/MFC/MFC/build/include/simulation/generated_case_opt_decls.fpp"
#elif defined(MFC_OpenMP)
# 57 "/home/runner/work/MFC/MFC/build/include/simulation/generated_case_opt_decls.fpp"
!$omp declare target (muscl_polyn) 
# 57 "/home/runner/work/MFC/MFC/build/include/simulation/generated_case_opt_decls.fpp"
#endif
 
# 58 "/home/runner/work/MFC/MFC/build/include/simulation/generated_case_opt_decls.fpp"
#if defined(MFC_OpenACC)
# 58 "/home/runner/work/MFC/MFC/build/include/simulation/generated_case_opt_decls.fpp"
!$acc declare create(num_dims) 
# 58 "/home/runner/work/MFC/MFC/build/include/simulation/generated_case_opt_decls.fpp"
#elif defined(MFC_OpenMP)
# 58 "/home/runner/work/MFC/MFC/build/include/simulation/generated_case_opt_decls.fpp"
!$omp declare target (num_dims) 
# 58 "/home/runner/work/MFC/MFC/build/include/simulation/generated_case_opt_decls.fpp"
#endif
 
# 59 "/home/runner/work/MFC/MFC/build/include/simulation/generated_case_opt_decls.fpp"
#if defined(MFC_OpenACC)
# 59 "/home/runner/work/MFC/MFC/build/include/simulation/generated_case_opt_decls.fpp"
!$acc declare create(num_fluids) 
# 59 "/home/runner/work/MFC/MFC/build/include/simulation/generated_case_opt_decls.fpp"
#elif defined(MFC_OpenMP)
# 59 "/home/runner/work/MFC/MFC/build/include/simulation/generated_case_opt_decls.fpp"
!$omp declare target (num_fluids) 
# 59 "/home/runner/work/MFC/MFC/build/include/simulation/generated_case_opt_decls.fpp"
#endif
 
# 60 "/home/runner/work/MFC/MFC/build/include/simulation/generated_case_opt_decls.fpp"
#if defined(MFC_OpenACC)
# 60 "/home/runner/work/MFC/MFC/build/include/simulation/generated_case_opt_decls.fpp"
!$acc declare create(num_vels) 
# 60 "/home/runner/work/MFC/MFC/build/include/simulation/generated_case_opt_decls.fpp"
#elif defined(MFC_OpenMP)
# 60 "/home/runner/work/MFC/MFC/build/include/simulation/generated_case_opt_decls.fpp"
!$omp declare target (num_vels) 
# 60 "/home/runner/work/MFC/MFC/build/include/simulation/generated_case_opt_decls.fpp"
#endif
 
# 61 "/home/runner/work/MFC/MFC/build/include/simulation/generated_case_opt_decls.fpp"
#if defined(MFC_OpenACC)
# 61 "/home/runner/work/MFC/MFC/build/include/simulation/generated_case_opt_decls.fpp"
!$acc declare create(recon_type) 
# 61 "/home/runner/work/MFC/MFC/build/include/simulation/generated_case_opt_decls.fpp"
#elif defined(MFC_OpenMP)
# 61 "/home/runner/work/MFC/MFC/build/include/simulation/generated_case_opt_decls.fpp"
!$omp declare target (recon_type) 
# 61 "/home/runner/work/MFC/MFC/build/include/simulation/generated_case_opt_decls.fpp"
#endif
 
# 62 "/home/runner/work/MFC/MFC/build/include/simulation/generated_case_opt_decls.fpp"
#if defined(MFC_OpenACC)
# 62 "/home/runner/work/MFC/MFC/build/include/simulation/generated_case_opt_decls.fpp"
!$acc declare create(relativity) 
# 62 "/home/runner/work/MFC/MFC/build/include/simulation/generated_case_opt_decls.fpp"
#elif defined(MFC_OpenMP)
# 62 "/home/runner/work/MFC/MFC/build/include/simulation/generated_case_opt_decls.fpp"
!$omp declare target (relativity) 
# 62 "/home/runner/work/MFC/MFC/build/include/simulation/generated_case_opt_decls.fpp"
#endif
 
# 63 "/home/runner/work/MFC/MFC/build/include/simulation/generated_case_opt_decls.fpp"
#if defined(MFC_OpenACC)
# 63 "/home/runner/work/MFC/MFC/build/include/simulation/generated_case_opt_decls.fpp"
!$acc declare create(teno) 
# 63 "/home/runner/work/MFC/MFC/build/include/simulation/generated_case_opt_decls.fpp"
#elif defined(MFC_OpenMP)
# 63 "/home/runner/work/MFC/MFC/build/include/simulation/generated_case_opt_decls.fpp"
!$omp declare target (teno) 
# 63 "/home/runner/work/MFC/MFC/build/include/simulation/generated_case_opt_decls.fpp"
#endif
 
# 64 "/home/runner/work/MFC/MFC/build/include/simulation/generated_case_opt_decls.fpp"
#if defined(MFC_OpenACC)
# 64 "/home/runner/work/MFC/MFC/build/include/simulation/generated_case_opt_decls.fpp"
!$acc declare create(viscous) 
# 64 "/home/runner/work/MFC/MFC/build/include/simulation/generated_case_opt_decls.fpp"
#elif defined(MFC_OpenMP)
# 64 "/home/runner/work/MFC/MFC/build/include/simulation/generated_case_opt_decls.fpp"
!$omp declare target (viscous) 
# 64 "/home/runner/work/MFC/MFC/build/include/simulation/generated_case_opt_decls.fpp"
#endif
 
# 65 "/home/runner/work/MFC/MFC/build/include/simulation/generated_case_opt_decls.fpp"
#if defined(MFC_OpenACC)
# 65 "/home/runner/work/MFC/MFC/build/include/simulation/generated_case_opt_decls.fpp"
!$acc declare create(weno_num_stencils) 
# 65 "/home/runner/work/MFC/MFC/build/include/simulation/generated_case_opt_decls.fpp"
#elif defined(MFC_OpenMP)
# 65 "/home/runner/work/MFC/MFC/build/include/simulation/generated_case_opt_decls.fpp"
!$omp declare target (weno_num_stencils) 
# 65 "/home/runner/work/MFC/MFC/build/include/simulation/generated_case_opt_decls.fpp"
#endif
 
# 66 "/home/runner/work/MFC/MFC/build/include/simulation/generated_case_opt_decls.fpp"
#if defined(MFC_OpenACC)
# 66 "/home/runner/work/MFC/MFC/build/include/simulation/generated_case_opt_decls.fpp"
!$acc declare create(weno_order) 
# 66 "/home/runner/work/MFC/MFC/build/include/simulation/generated_case_opt_decls.fpp"
#elif defined(MFC_OpenMP)
# 66 "/home/runner/work/MFC/MFC/build/include/simulation/generated_case_opt_decls.fpp"
!$omp declare target (weno_order) 
# 66 "/home/runner/work/MFC/MFC/build/include/simulation/generated_case_opt_decls.fpp"
#endif
 
# 67 "/home/runner/work/MFC/MFC/build/include/simulation/generated_case_opt_decls.fpp"
#if defined(MFC_OpenACC)
# 67 "/home/runner/work/MFC/MFC/build/include/simulation/generated_case_opt_decls.fpp"
!$acc declare create(weno_polyn) 
# 67 "/home/runner/work/MFC/MFC/build/include/simulation/generated_case_opt_decls.fpp"
#elif defined(MFC_OpenMP)
# 67 "/home/runner/work/MFC/MFC/build/include/simulation/generated_case_opt_decls.fpp"
!$omp declare target (weno_polyn) 
# 67 "/home/runner/work/MFC/MFC/build/include/simulation/generated_case_opt_decls.fpp"
#endif
 
# 68 "/home/runner/work/MFC/MFC/build/include/simulation/generated_case_opt_decls.fpp"
#if defined(MFC_OpenACC)
# 68 "/home/runner/work/MFC/MFC/build/include/simulation/generated_case_opt_decls.fpp"
!$acc declare create(wenojs) 
# 68 "/home/runner/work/MFC/MFC/build/include/simulation/generated_case_opt_decls.fpp"
#elif defined(MFC_OpenMP)
# 68 "/home/runner/work/MFC/MFC/build/include/simulation/generated_case_opt_decls.fpp"
!$omp declare target (wenojs) 
# 68 "/home/runner/work/MFC/MFC/build/include/simulation/generated_case_opt_decls.fpp"
#endif
 
# 69 "/home/runner/work/MFC/MFC/build/include/simulation/generated_case_opt_decls.fpp"
#if defined(MFC_OpenACC)
# 69 "/home/runner/work/MFC/MFC/build/include/simulation/generated_case_opt_decls.fpp"
!$acc declare create(wenoz) 
# 69 "/home/runner/work/MFC/MFC/build/include/simulation/generated_case_opt_decls.fpp"
#elif defined(MFC_OpenMP)
# 69 "/home/runner/work/MFC/MFC/build/include/simulation/generated_case_opt_decls.fpp"
!$omp declare target (wenoz) 
# 69 "/home/runner/work/MFC/MFC/build/include/simulation/generated_case_opt_decls.fpp"
#endif
 
# 70 "/home/runner/work/MFC/MFC/build/include/simulation/generated_case_opt_decls.fpp"
#if defined(MFC_OpenACC)
# 70 "/home/runner/work/MFC/MFC/build/include/simulation/generated_case_opt_decls.fpp"
!$acc declare create(wenoz_q) 
# 70 "/home/runner/work/MFC/MFC/build/include/simulation/generated_case_opt_decls.fpp"
#elif defined(MFC_OpenMP)
# 70 "/home/runner/work/MFC/MFC/build/include/simulation/generated_case_opt_decls.fpp"
!$omp declare target (wenoz_q) 
# 70 "/home/runner/work/MFC/MFC/build/include/simulation/generated_case_opt_decls.fpp"
#endif
# 72 "/home/runner/work/MFC/MFC/build/include/simulation/generated_case_opt_decls.fpp"
# 29 "/home/runner/work/MFC/MFC/src/common/m_global_parameters_common.fpp" 2
 
    !> @name Annotations of the structure of the state and flux vectors in terms of the size and configuration of the system of
    !! equations
    !> @{
    integer            :: sys_size  !< Number of unknowns in system of equations
    type(eqn_idx_info) :: eqn_idx   !< All conserved-variable equation index ranges and scalars
    !> @}
 
    !> @name Chemistry modeling (Fypp compile-time constant; same value in all targets)
    !> @{
    logical, parameter :: chemistry = .false.
    !> @}
 
    !> @name Hypoelastic shear stress state (identical across all three executables)
    !> @{
    integer                  :: shear_num              !< Number of shear stress components
    integer, dimension(3)    :: shear_indices          !< Indices of the stress components that represent shear stress
    integer                  :: shear_bc_flip_num      !< Number of shear stress components to reflect for boundary conditions
    integer, dimension(3, 2) :: shear_bc_flip_indices  !< Shear stress BC reflection indices (1:3, 1:shear_BC_flip_num)
    !> @}
 
    !> @name Material properties derived from fluid_pp
    !> @{ One declaration is shared by all executables and initialized by m_variables_conversion after the case parameters have been
    !! read.
    real(wp), allocatable, dimension(:) :: gammas, gs_min, pi_infs, ps_inf, cvs, qvs, qvps
 
# 54 "/home/runner/work/MFC/MFC/src/common/m_global_parameters_common.fpp"
#if defined(MFC_OpenACC)
# 54 "/home/runner/work/MFC/MFC/src/common/m_global_parameters_common.fpp"
!$acc declare create(gammas, gs_min, pi_infs, ps_inf, cvs, qvs, qvps) 
# 54 "/home/runner/work/MFC/MFC/src/common/m_global_parameters_common.fpp"
#elif defined(MFC_OpenMP)
# 54 "/home/runner/work/MFC/MFC/src/common/m_global_parameters_common.fpp"
!$omp declare target (gammas, gs_min, pi_infs, ps_inf, cvs, qvs, qvps) 
# 54 "/home/runner/work/MFC/MFC/src/common/m_global_parameters_common.fpp"
#endif
    !> @}
 
    !> @name Fluids participating in shear and bulk viscosity
    !> @{
    integer, dimension(2)                :: re_size = 0
    integer                              :: re_size_max = 0
    integer, allocatable, dimension(:,:) :: re_idx
 
# 62 "/home/runner/work/MFC/MFC/src/common/m_global_parameters_common.fpp"
#if defined(MFC_OpenACC)
# 62 "/home/runner/work/MFC/MFC/src/common/m_global_parameters_common.fpp"
!$acc declare create(Re_size, Re_size_max, Re_idx) 
# 62 "/home/runner/work/MFC/MFC/src/common/m_global_parameters_common.fpp"
#elif defined(MFC_OpenMP)
# 62 "/home/runner/work/MFC/MFC/src/common/m_global_parameters_common.fpp"
!$omp declare target (Re_size, Re_size_max, Re_idx) 
# 62 "/home/runner/work/MFC/MFC/src/common/m_global_parameters_common.fpp"
#endif
    !> @}
 
    !> Minimum cell widths. These are distinct from the per-cell width arrays named dx, dy, and dz in simulation and post-process.
    real(wp) :: dx_min, dy_min, dz_min
 
 
# 68 "/home/runner/work/MFC/MFC/src/common/m_global_parameters_common.fpp"
#if defined(MFC_OpenACC)
# 68 "/home/runner/work/MFC/MFC/src/common/m_global_parameters_common.fpp"
!$acc declare create(sys_size, eqn_idx) 
# 68 "/home/runner/work/MFC/MFC/src/common/m_global_parameters_common.fpp"
#elif defined(MFC_OpenMP)
# 68 "/home/runner/work/MFC/MFC/src/common/m_global_parameters_common.fpp"
!$omp declare target (sys_size, eqn_idx) 
# 68 "/home/runner/work/MFC/MFC/src/common/m_global_parameters_common.fpp"
#endif
 
# 69 "/home/runner/work/MFC/MFC/src/common/m_global_parameters_common.fpp"
#if defined(MFC_OpenACC)
# 69 "/home/runner/work/MFC/MFC/src/common/m_global_parameters_common.fpp"
!$acc declare create(shear_num, shear_indices, shear_BC_flip_num, shear_BC_flip_indices) 
# 69 "/home/runner/work/MFC/MFC/src/common/m_global_parameters_common.fpp"
#elif defined(MFC_OpenMP)
# 69 "/home/runner/work/MFC/MFC/src/common/m_global_parameters_common.fpp"
!$omp declare target (shear_num, shear_indices, shear_BC_flip_num, shear_BC_flip_indices) 
# 69 "/home/runner/work/MFC/MFC/src/common/m_global_parameters_common.fpp"
#endif
 
    !> @name Processor coordinates and parallel-IO addressing (identical declaration across all three targets)
    !> @{
    integer, allocatable, dimension(:) :: proc_coords      !< Processor coordinates in MPI_CART_COMM
    integer, allocatable, dimension(:) :: start_idx        !< Starting cell-center index of local processor in global grid
    integer                            :: num_procs_x = 1  !< Number of MPI ranks in x-direction
    integer                            :: num_procs_y = 1  !< Number of MPI ranks in y-direction
    integer                            :: num_procs_z = 1  !< Number of MPI ranks in z-direction
    !> @}
 
    !> @name MPI info for parallel IO with Lustre file systems (identical across all three targets)
    !> @{
    character(len=name_len) :: mpiiofs
    integer                 :: mpi_info_int
    !> @}
 
contains
 
    !> Initialize equation-index state (eqn_idx and sys_size) from the namelist parameters. This is the shared skeleton: it covers
    !! the model_eqns dispatch, all eqn_idx field assignments, and the hypoelastic/surface-tension/chemistry extensions.
    !!
    !! @param nmom_in  Number of carried moments per R0 location (per-target: pre/post pass an
    !!   integer variable; sim passes its integer parameter nmom = 6).  Used only in the 5eq
    !!   qbmm bubble-index calculation (eqn_idx%bub%end = eqn_idx%adv%end + nb_in*nmom_in).
    !!
    !! Per-target callers are responsible for the following after this call:
    !!   - qbmm_idx allocations and fills (diverge between pre vs sim/post)
    !!   - sim-only: gam = bub_pp%gam_g, nmomsp/nmomtot, Re_idx allocation, GPU_UPDATE calls
    !!   - post-only: beta_idx increment (bubbles_lagrange path), offset/grid allocations
    impure subroutine s_initialize_eqn_idx(nmom_in, nb_in, six_eqn_alf_is_advected)
 
        integer, intent(in) :: nmom_in
        integer, intent(in) :: nb_in
        logical, intent(in) :: six_eqn_alf_is_advected
 
        ! Gamma/Pi_inf Model
 
        if (model_eqns == model_eqns_gamma_law) then
            ! Annotating structure of the state and flux vectors belonging to the system of
            ! equations defined by the selected number of spatial dimensions and the gamma/pi_inf model
            eqn_idx%cont%beg = 1
            eqn_idx%cont%end = eqn_idx%cont%beg
            eqn_idx%mom%beg = eqn_idx%cont%end + 1
            eqn_idx%mom%end = eqn_idx%cont%end + num_vels
            eqn_idx%E = eqn_idx%mom%end + 1
            eqn_idx%adv%beg = eqn_idx%E + 1
            eqn_idx%adv%end = eqn_idx%adv%beg + 1
            eqn_idx%gamma = eqn_idx%adv%beg
            eqn_idx%pi_inf = eqn_idx%adv%end
            sys_size = eqn_idx%adv%end
 
            ! Volume Fraction Model (5-equation model)
        else if (model_eqns == model_eqns_5eq) then
            ! Annotating structure of the state and flux vectors belonging to the system of
            ! equations defined by the selected number of spatial dimensions and the volume fraction model
            eqn_idx%cont%beg = 1
            eqn_idx%cont%end = num_fluids
            eqn_idx%mom%beg = eqn_idx%cont%end + 1
            eqn_idx%mom%end = eqn_idx%cont%end + num_vels
            eqn_idx%E = eqn_idx%mom%end + 1
 
            if (igr) then
                ! IGR: volume fractions after energy (N-1 for N fluids; skipped when num_fluids=1)
                eqn_idx%adv%beg = eqn_idx%E + 1
                eqn_idx%adv%end = eqn_idx%E + num_fluids - 1
            else
                ! WENO/MUSCL + Riemann tracks a total of (N) volume fractions for N fluids
                eqn_idx%adv%beg = eqn_idx%E + 1
                eqn_idx%adv%end = eqn_idx%E + num_fluids
            end if
 
            sys_size = eqn_idx%adv%end
 
            if (bubbles_euler) then
                eqn_idx%alf = eqn_idx%adv%end
            else
                eqn_idx%alf = 1
            end if
 
            if (bubbles_euler) then
                eqn_idx%bub%beg = sys_size + 1
                if (qbmm) then
                    eqn_idx%bub%end = eqn_idx%adv%end + nb_in*nmom_in
                else
                    if (.not. polytropic) then
                        eqn_idx%bub%end = sys_size + 4*nb_in
                    else
                        eqn_idx%bub%end = sys_size + 2*nb_in
                    end if
                end if
                sys_size = eqn_idx%bub%end
 
                if (adv_n) then
                    eqn_idx%n = eqn_idx%bub%end + 1
                    sys_size = eqn_idx%n
                end if
            end if
 
            if (mhd) then
                eqn_idx%B%beg = sys_size + 1
                if (n == 0) then
                    eqn_idx%B%end = sys_size + 2  ! 1D: By, Bz
                else
                    eqn_idx%B%end = sys_size + 3  ! 2D/3D: Bx, By, Bz
                end if
                sys_size = eqn_idx%B%end
            end if
 
            ! Volume Fraction Model (6-equation model)
        else if (model_eqns == model_eqns_6eq) then
            ! Annotating structure of the state and flux vectors belonging to the system of
            ! equations defined by the selected number of spatial dimensions and the volume fraction model
            eqn_idx%cont%beg = 1
            eqn_idx%cont%end = num_fluids
            eqn_idx%mom%beg = eqn_idx%cont%end + 1
            eqn_idx%mom%end = eqn_idx%cont%end + num_vels
            eqn_idx%E = eqn_idx%mom%end + 1
            eqn_idx%adv%beg = eqn_idx%E + 1
            eqn_idx%adv%end = eqn_idx%E + num_fluids
            if (six_eqn_alf_is_advected) eqn_idx%alf = eqn_idx%adv%end
            eqn_idx%int_en%beg = eqn_idx%adv%end + 1
            eqn_idx%int_en%end = eqn_idx%adv%end + num_fluids
            sys_size = eqn_idx%int_en%end
        end if
 
        if (model_eqns == model_eqns_5eq .or. model_eqns == model_eqns_6eq) then
            if (hypoelasticity) then
                eqn_idx%stress%beg = sys_size + 1
                eqn_idx%stress%end = sys_size + (num_dims*(num_dims + 1))/2
                if (cyl_coord) eqn_idx%stress%end = eqn_idx%stress%end + 1
                ! number of stresses is 1 in 1D, 3 in 2D, 4 in 2D-Axisym, 6 in 3D
                sys_size = eqn_idx%stress%end
 
                ! shear stress index is 2 for 2D and 2,4,5 for 3D
                if (num_dims == 1) then
                    shear_num = 0
                else if (num_dims == 2) then
                    shear_num = 1
                    shear_indices(1) = eqn_idx%stress%beg - 1 + 2
                    shear_bc_flip_num = 1
                    shear_bc_flip_indices(1:2,1) = shear_indices(1)
                    ! Both x-dir and y-dir: flip tau_xy only
                else if (num_dims == 3) then
                    shear_num = 3
                    shear_indices(1:3) = eqn_idx%stress%beg - 1 + (/2, 4, 5/)
                    shear_bc_flip_num = 2
                    shear_bc_flip_indices(1,1:2) = shear_indices((/1, 2/))
                    shear_bc_flip_indices(2,1:2) = shear_indices((/1, 3/))
                    shear_bc_flip_indices(3,1:2) = shear_indices((/2, 3/))
                    ! x-dir: flip tau_xy and tau_xz; y-dir: flip tau_xy and tau_yz; z-dir: flip tau_xz and tau_yz
                end if
            end if
 
            if (surface_tension) then
                eqn_idx%c = sys_size + 1
                sys_size = eqn_idx%c
            end if
 
            if (cont_damage) then
                eqn_idx%damage = sys_size + 1
                sys_size = eqn_idx%damage
            end if
 
            if (hyper_cleaning) then
                eqn_idx%psi = sys_size + 1
                sys_size = eqn_idx%psi
            end if
        end if
 
        if (chemistry) then
            eqn_idx%species%beg = sys_size + 1
            eqn_idx%species%end = sys_size + num_species
            sys_size = eqn_idx%species%end
        end if
 
    end subroutine s_initialize_eqn_idx
 
    !> Configure MPI parallel I/O settings and allocate processor coordinate arrays. Shared across all three executables;
    !! num_dims/num_vels are computed here for pre/post unconditionally and for sim only when not case-optimized (in which case they
    !! are compile-time parameters). Callers must have already populated n and p (grid dimensions).
    impure subroutine s_initialize_parallel_io_common
 
#ifdef MFC_MPI
        integer :: ierr  !< Generic flag used to identify and report MPI errors
#endif
 
        ! Under case-optimization, num_dims and num_vels are compile-time parameters; skip assignment.
# 258 "/home/runner/work/MFC/MFC/src/common/m_global_parameters_common.fpp"
            num_dims = 1 + min(1, n) + min(1, p)
 
            if (mhd) then
                num_vels = 3
            else
                num_vels = num_dims
            end if
# 266 "/home/runner/work/MFC/MFC/src/common/m_global_parameters_common.fpp"
 
        allocate (proc_coords(1:num_dims))
 
        if (parallel_io .neqv. .true.) return
 
#ifdef MFC_MPI
        ! Option for Lustre file system (Darter/Comet/Stampede)
        write (mpiiofs, '(A)') '/lustre_'
        mpiiofs = trim(mpiiofs)
        call mpi_info_create(mpi_info_int, ierr)
        call mpi_info_set(mpi_info_int, 'romio_ds_write', 'disable', ierr)
 
        ! Option for UNIX file system (Hooke/Thomson) WRITE(mpiiofs, '(A)') '/ufs_' mpiiofs = TRIM(mpiiofs) mpi_info_int =
        ! MPI_INFO_NULL
 
        allocate (start_idx(1:num_dims))
#endif
 
    end subroutine s_initialize_parallel_io_common
 
    !> Shared finalize core: deallocate proc_coords and start_idx. Per-target finalize routines call this first, then handle their
    !! own extras (qbmm_idx, grid arrays, MPI_IO_DATA null/dealloc - those reference per-target typed variables and stay
    !! per-target).
    impure subroutine s_finalize_global_parameters_common
 
        deallocate (proc_coords)
 
#ifdef MFC_MPI
        if (parallel_io) then
            deallocate (start_idx)
        end if
#endif
 
    end subroutine s_finalize_global_parameters_common
 
    !> Assign default values to the user-input parameters that are shared across all three executables (pre_process, simulation,
    !! post_process). Per-target defaults (bc_io, cfl_dt, precision, nb, chem_params, bub_pp scalar companions, fluid_pp loop, patch
    !! arrays, output flags) remain in the per-target s_assign_default_values_to_user_inputs routines, which call this subroutine
    !! first, then call s_update_cell_bounds(cells_bounds, m, n, p) (cells_bounds is per-target), then apply their own assignments.
    impure subroutine s_assign_common_defaults
 
        ! Logistics
        case_dir = '.'
 
        ! Computational domain parameters (m/n/p set here; caller must call s_update_cell_bounds after)
        m = dflt_int; n = 0; p = 0
 
        cyl_coord = .false.
 
        ! CFL adaptive time-stepping flags
        cfl_adap_dt = .false.
        cfl_const_dt = .false.
 
        ! Time-stepping bookkeeping
        n_start = dflt_int
        t_step_start = dflt_int
 
        ! Simulation algorithm
        model_eqns = dflt_int
        relax = .false.
        relax_model = dflt_int
        hypoelasticity = .false.
        cont_damage = .false.
        hyper_cleaning = .false.
 
        ! Condensed-phase reactive burn
        reactive_burn = .false.
        rburn%k = dflt_real
        rburn%pign = dflt_real
        rburn%pref = dflt_real
        rburn%n = dflt_real
        rburn%ta = 0._wp
 
        ! Case-optimization params: under case-opt these are compile-time constants in sim (skip assignment); in pre/post
        ! MFC_CASE_OPTIMIZATION is always False so the block always executes there.
# 342 "/home/runner/work/MFC/MFC/src/common/m_global_parameters_common.fpp"
            recon_type = recon_type_weno
            weno_order = dflt_int
            muscl_order = dflt_int
            num_fluids = dflt_int
            igr = .false.
            igr_order = dflt_int
            mhd = .false.
            relativity = .false.
            viscous = .false.
# 352 "/home/runner/work/MFC/MFC/src/common/m_global_parameters_common.fpp"
 
        ! Not a case-optimization parameter, so it stays a runtime variable in every build.
        riemann_solver = dflt_int
 
        ! Tait EOS
 
        ! Bubble modeling flags and parameters
        r0ref = dflt_real
        bubbles_euler = .false.
        polydisperse = .false.
        poly_sigma = dflt_real
        qbmm = .false.
        surface_tension = .false.
        adv_n = .false.
        sigma = dflt_real
        bubbles_lagrange = .false.
 
        ! Immersed boundaries
        ib = .false.
        num_ibs = dflt_int
 
        ! MHD (background field)
        bx0 = dflt_real
 
        ! Output and I/O options
        parallel_io = .false.
        file_per_process = .false.
        down_sample = .false.
        fft_wrt = .false.
 
        ! Mixture conversion and sound-speed behavior
        avg_state = dflt_int
        alt_soundspeed = .false.
        mixture_err = .false.
        sigr = dflt_real
        dx_min = dflt_real
        dy_min = dflt_real
        dz_min = dflt_real
 
    end subroutine s_assign_common_defaults
 
end module m_global_parameters_common