MFC
Exascale flow solver
Loading...
Searching...
No Matches
m_global_parameters_common.fpp.f90
Go to the documentation of this file.
1# 1 "/home/runner/work/MFC/MFC/src/common/m_global_parameters_common.fpp"
2!>
3!! @file
4!! @brief Contains module m_global_parameters_common
5
6# 1 "/home/runner/work/MFC/MFC/src/common/include/case.fpp" 1
7! This file exists so that Fypp can be run without generating case.fpp files for
8! each target. This is useful when generating documentation, for example. This
9! should also let MFC be built with CMake directly, without invoking mfc.sh.
10
11! For pre-process.
12# 8 "/home/runner/work/MFC/MFC/src/common/include/case.fpp"
13
14! For moving immersed boundaries in simulation
15# 12 "/home/runner/work/MFC/MFC/src/common/include/case.fpp"
16# 6 "/home/runner/work/MFC/MFC/src/common/m_global_parameters_common.fpp" 2
17# 1 "/home/runner/work/MFC/MFC/src/common/include/macros.fpp" 1
18# 1 "/home/runner/work/MFC/MFC/src/common/include/parallel_macros.fpp" 1
19# 1 "/home/runner/work/MFC/MFC/src/common/include/shared_parallel_macros.fpp" 1
20# 2 "/home/runner/work/MFC/MFC/src/common/include/shared_parallel_macros.fpp"
21# 3 "/home/runner/work/MFC/MFC/src/common/include/shared_parallel_macros.fpp"
22# 4 "/home/runner/work/MFC/MFC/src/common/include/shared_parallel_macros.fpp"
23# 5 "/home/runner/work/MFC/MFC/src/common/include/shared_parallel_macros.fpp"
24# 6 "/home/runner/work/MFC/MFC/src/common/include/shared_parallel_macros.fpp"
25
26# 8 "/home/runner/work/MFC/MFC/src/common/include/shared_parallel_macros.fpp"
27# 9 "/home/runner/work/MFC/MFC/src/common/include/shared_parallel_macros.fpp"
28# 10 "/home/runner/work/MFC/MFC/src/common/include/shared_parallel_macros.fpp"
29
30# 15 "/home/runner/work/MFC/MFC/src/common/include/shared_parallel_macros.fpp"
31# 16 "/home/runner/work/MFC/MFC/src/common/include/shared_parallel_macros.fpp"
32# 17 "/home/runner/work/MFC/MFC/src/common/include/shared_parallel_macros.fpp"
33
34# 24 "/home/runner/work/MFC/MFC/src/common/include/shared_parallel_macros.fpp"
35
36# 53 "/home/runner/work/MFC/MFC/src/common/include/shared_parallel_macros.fpp"
37
38# 65 "/home/runner/work/MFC/MFC/src/common/include/shared_parallel_macros.fpp"
39
40# 75 "/home/runner/work/MFC/MFC/src/common/include/shared_parallel_macros.fpp"
41
42# 105 "/home/runner/work/MFC/MFC/src/common/include/shared_parallel_macros.fpp"
43
44# 117 "/home/runner/work/MFC/MFC/src/common/include/shared_parallel_macros.fpp"
45
46# 127 "/home/runner/work/MFC/MFC/src/common/include/shared_parallel_macros.fpp"
47
48# 174 "/home/runner/work/MFC/MFC/src/common/include/shared_parallel_macros.fpp"
49! New line at end of file is required for FYPP
50# 2 "/home/runner/work/MFC/MFC/src/common/include/parallel_macros.fpp" 2
51# 1 "/home/runner/work/MFC/MFC/src/common/include/omp_macros.fpp" 1
52# 1 "/home/runner/work/MFC/MFC/src/common/include/shared_parallel_macros.fpp" 1
53# 2 "/home/runner/work/MFC/MFC/src/common/include/shared_parallel_macros.fpp"
54# 3 "/home/runner/work/MFC/MFC/src/common/include/shared_parallel_macros.fpp"
55# 4 "/home/runner/work/MFC/MFC/src/common/include/shared_parallel_macros.fpp"
56# 5 "/home/runner/work/MFC/MFC/src/common/include/shared_parallel_macros.fpp"
57# 6 "/home/runner/work/MFC/MFC/src/common/include/shared_parallel_macros.fpp"
58
59# 8 "/home/runner/work/MFC/MFC/src/common/include/shared_parallel_macros.fpp"
60# 9 "/home/runner/work/MFC/MFC/src/common/include/shared_parallel_macros.fpp"
61# 10 "/home/runner/work/MFC/MFC/src/common/include/shared_parallel_macros.fpp"
62
63# 15 "/home/runner/work/MFC/MFC/src/common/include/shared_parallel_macros.fpp"
64# 16 "/home/runner/work/MFC/MFC/src/common/include/shared_parallel_macros.fpp"
65# 17 "/home/runner/work/MFC/MFC/src/common/include/shared_parallel_macros.fpp"
66
67# 24 "/home/runner/work/MFC/MFC/src/common/include/shared_parallel_macros.fpp"
68
69# 53 "/home/runner/work/MFC/MFC/src/common/include/shared_parallel_macros.fpp"
70
71# 65 "/home/runner/work/MFC/MFC/src/common/include/shared_parallel_macros.fpp"
72
73# 75 "/home/runner/work/MFC/MFC/src/common/include/shared_parallel_macros.fpp"
74
75# 105 "/home/runner/work/MFC/MFC/src/common/include/shared_parallel_macros.fpp"
76
77# 117 "/home/runner/work/MFC/MFC/src/common/include/shared_parallel_macros.fpp"
78
79# 127 "/home/runner/work/MFC/MFC/src/common/include/shared_parallel_macros.fpp"
80
81# 174 "/home/runner/work/MFC/MFC/src/common/include/shared_parallel_macros.fpp"
82! New line at end of file is required for FYPP
83# 2 "/home/runner/work/MFC/MFC/src/common/include/omp_macros.fpp" 2
84
85# 4 "/home/runner/work/MFC/MFC/src/common/include/omp_macros.fpp"
86# 5 "/home/runner/work/MFC/MFC/src/common/include/omp_macros.fpp"
87# 6 "/home/runner/work/MFC/MFC/src/common/include/omp_macros.fpp"
88# 7 "/home/runner/work/MFC/MFC/src/common/include/omp_macros.fpp"
89# 8 "/home/runner/work/MFC/MFC/src/common/include/omp_macros.fpp"
90
91# 20 "/home/runner/work/MFC/MFC/src/common/include/omp_macros.fpp"
92
93# 43 "/home/runner/work/MFC/MFC/src/common/include/omp_macros.fpp"
94
95# 48 "/home/runner/work/MFC/MFC/src/common/include/omp_macros.fpp"
96
97# 53 "/home/runner/work/MFC/MFC/src/common/include/omp_macros.fpp"
98
99# 58 "/home/runner/work/MFC/MFC/src/common/include/omp_macros.fpp"
100
101# 63 "/home/runner/work/MFC/MFC/src/common/include/omp_macros.fpp"
102
103# 68 "/home/runner/work/MFC/MFC/src/common/include/omp_macros.fpp"
104
105# 81 "/home/runner/work/MFC/MFC/src/common/include/omp_macros.fpp"
106
107# 86 "/home/runner/work/MFC/MFC/src/common/include/omp_macros.fpp"
108
109# 91 "/home/runner/work/MFC/MFC/src/common/include/omp_macros.fpp"
110
111# 96 "/home/runner/work/MFC/MFC/src/common/include/omp_macros.fpp"
112
113# 101 "/home/runner/work/MFC/MFC/src/common/include/omp_macros.fpp"
114
115# 106 "/home/runner/work/MFC/MFC/src/common/include/omp_macros.fpp"
116
117# 111 "/home/runner/work/MFC/MFC/src/common/include/omp_macros.fpp"
118
119# 116 "/home/runner/work/MFC/MFC/src/common/include/omp_macros.fpp"
120
121# 121 "/home/runner/work/MFC/MFC/src/common/include/omp_macros.fpp"
122
123# 126 "/home/runner/work/MFC/MFC/src/common/include/omp_macros.fpp"
124
125# 156 "/home/runner/work/MFC/MFC/src/common/include/omp_macros.fpp"
126
127# 197 "/home/runner/work/MFC/MFC/src/common/include/omp_macros.fpp"
128
129# 211 "/home/runner/work/MFC/MFC/src/common/include/omp_macros.fpp"
130
131# 236 "/home/runner/work/MFC/MFC/src/common/include/omp_macros.fpp"
132
133# 247 "/home/runner/work/MFC/MFC/src/common/include/omp_macros.fpp"
134
135# 249 "/home/runner/work/MFC/MFC/src/common/include/omp_macros.fpp"
136# 260 "/home/runner/work/MFC/MFC/src/common/include/omp_macros.fpp"
137
138# 310 "/home/runner/work/MFC/MFC/src/common/include/omp_macros.fpp"
139
140# 320 "/home/runner/work/MFC/MFC/src/common/include/omp_macros.fpp"
141
142# 330 "/home/runner/work/MFC/MFC/src/common/include/omp_macros.fpp"
143
144# 339 "/home/runner/work/MFC/MFC/src/common/include/omp_macros.fpp"
145
146# 356 "/home/runner/work/MFC/MFC/src/common/include/omp_macros.fpp"
147
148# 366 "/home/runner/work/MFC/MFC/src/common/include/omp_macros.fpp"
149
150# 373 "/home/runner/work/MFC/MFC/src/common/include/omp_macros.fpp"
151
152# 379 "/home/runner/work/MFC/MFC/src/common/include/omp_macros.fpp"
153
154# 385 "/home/runner/work/MFC/MFC/src/common/include/omp_macros.fpp"
155
156# 391 "/home/runner/work/MFC/MFC/src/common/include/omp_macros.fpp"
157
158# 397 "/home/runner/work/MFC/MFC/src/common/include/omp_macros.fpp"
159
160# 403 "/home/runner/work/MFC/MFC/src/common/include/omp_macros.fpp"
161! New line at end of file is required for FYPP
162# 3 "/home/runner/work/MFC/MFC/src/common/include/parallel_macros.fpp" 2
163# 1 "/home/runner/work/MFC/MFC/src/common/include/acc_macros.fpp" 1
164# 1 "/home/runner/work/MFC/MFC/src/common/include/shared_parallel_macros.fpp" 1
165# 2 "/home/runner/work/MFC/MFC/src/common/include/shared_parallel_macros.fpp"
166# 3 "/home/runner/work/MFC/MFC/src/common/include/shared_parallel_macros.fpp"
167# 4 "/home/runner/work/MFC/MFC/src/common/include/shared_parallel_macros.fpp"
168# 5 "/home/runner/work/MFC/MFC/src/common/include/shared_parallel_macros.fpp"
169# 6 "/home/runner/work/MFC/MFC/src/common/include/shared_parallel_macros.fpp"
170
171# 8 "/home/runner/work/MFC/MFC/src/common/include/shared_parallel_macros.fpp"
172# 9 "/home/runner/work/MFC/MFC/src/common/include/shared_parallel_macros.fpp"
173# 10 "/home/runner/work/MFC/MFC/src/common/include/shared_parallel_macros.fpp"
174
175# 15 "/home/runner/work/MFC/MFC/src/common/include/shared_parallel_macros.fpp"
176# 16 "/home/runner/work/MFC/MFC/src/common/include/shared_parallel_macros.fpp"
177# 17 "/home/runner/work/MFC/MFC/src/common/include/shared_parallel_macros.fpp"
178
179# 24 "/home/runner/work/MFC/MFC/src/common/include/shared_parallel_macros.fpp"
180
181# 53 "/home/runner/work/MFC/MFC/src/common/include/shared_parallel_macros.fpp"
182
183# 65 "/home/runner/work/MFC/MFC/src/common/include/shared_parallel_macros.fpp"
184
185# 75 "/home/runner/work/MFC/MFC/src/common/include/shared_parallel_macros.fpp"
186
187# 105 "/home/runner/work/MFC/MFC/src/common/include/shared_parallel_macros.fpp"
188
189# 117 "/home/runner/work/MFC/MFC/src/common/include/shared_parallel_macros.fpp"
190
191# 127 "/home/runner/work/MFC/MFC/src/common/include/shared_parallel_macros.fpp"
192
193# 174 "/home/runner/work/MFC/MFC/src/common/include/shared_parallel_macros.fpp"
194! New line at end of file is required for FYPP
195# 2 "/home/runner/work/MFC/MFC/src/common/include/acc_macros.fpp" 2
196
197# 7 "/home/runner/work/MFC/MFC/src/common/include/acc_macros.fpp"
198
199# 17 "/home/runner/work/MFC/MFC/src/common/include/acc_macros.fpp"
200
201# 22 "/home/runner/work/MFC/MFC/src/common/include/acc_macros.fpp"
202
203# 27 "/home/runner/work/MFC/MFC/src/common/include/acc_macros.fpp"
204
205# 32 "/home/runner/work/MFC/MFC/src/common/include/acc_macros.fpp"
206
207# 37 "/home/runner/work/MFC/MFC/src/common/include/acc_macros.fpp"
208
209# 42 "/home/runner/work/MFC/MFC/src/common/include/acc_macros.fpp"
210
211# 47 "/home/runner/work/MFC/MFC/src/common/include/acc_macros.fpp"
212
213# 52 "/home/runner/work/MFC/MFC/src/common/include/acc_macros.fpp"
214
215# 57 "/home/runner/work/MFC/MFC/src/common/include/acc_macros.fpp"
216
217# 62 "/home/runner/work/MFC/MFC/src/common/include/acc_macros.fpp"
218
219# 73 "/home/runner/work/MFC/MFC/src/common/include/acc_macros.fpp"
220
221# 78 "/home/runner/work/MFC/MFC/src/common/include/acc_macros.fpp"
222
223# 83 "/home/runner/work/MFC/MFC/src/common/include/acc_macros.fpp"
224
225# 88 "/home/runner/work/MFC/MFC/src/common/include/acc_macros.fpp"
226
227# 103 "/home/runner/work/MFC/MFC/src/common/include/acc_macros.fpp"
228
229# 131 "/home/runner/work/MFC/MFC/src/common/include/acc_macros.fpp"
230
231# 160 "/home/runner/work/MFC/MFC/src/common/include/acc_macros.fpp"
232
233# 175 "/home/runner/work/MFC/MFC/src/common/include/acc_macros.fpp"
234
235# 193 "/home/runner/work/MFC/MFC/src/common/include/acc_macros.fpp"
236
237# 215 "/home/runner/work/MFC/MFC/src/common/include/acc_macros.fpp"
238
239# 244 "/home/runner/work/MFC/MFC/src/common/include/acc_macros.fpp"
240
241# 259 "/home/runner/work/MFC/MFC/src/common/include/acc_macros.fpp"
242
243# 269 "/home/runner/work/MFC/MFC/src/common/include/acc_macros.fpp"
244
245# 278 "/home/runner/work/MFC/MFC/src/common/include/acc_macros.fpp"
246
247# 294 "/home/runner/work/MFC/MFC/src/common/include/acc_macros.fpp"
248
249# 304 "/home/runner/work/MFC/MFC/src/common/include/acc_macros.fpp"
250
251# 311 "/home/runner/work/MFC/MFC/src/common/include/acc_macros.fpp"
252! New line at end of file is required for FYPP
253# 4 "/home/runner/work/MFC/MFC/src/common/include/parallel_macros.fpp" 2
254
255! GPU parallel region (scalar reductions, maxval/minval)
256# 23 "/home/runner/work/MFC/MFC/src/common/include/parallel_macros.fpp"
257
258! GPU parallel loop over threads (most common GPU macro)
259# 43 "/home/runner/work/MFC/MFC/src/common/include/parallel_macros.fpp"
260
261! Required closing for GPU_PARALLEL_LOOP
262# 55 "/home/runner/work/MFC/MFC/src/common/include/parallel_macros.fpp"
263
264! Mark routine for device compilation
265# 112 "/home/runner/work/MFC/MFC/src/common/include/parallel_macros.fpp"
266
267! Declare device-resident data
268# 130 "/home/runner/work/MFC/MFC/src/common/include/parallel_macros.fpp"
269
270! Inner loop within a GPU parallel region
271# 145 "/home/runner/work/MFC/MFC/src/common/include/parallel_macros.fpp"
272
273! Scoped GPU data region
274# 164 "/home/runner/work/MFC/MFC/src/common/include/parallel_macros.fpp"
275
276! Host code with device pointers (for MPI with GPU buffers)
277# 193 "/home/runner/work/MFC/MFC/src/common/include/parallel_macros.fpp"
278
279! Allocate device memory (unscoped)
280# 207 "/home/runner/work/MFC/MFC/src/common/include/parallel_macros.fpp"
281
282! Free device memory
283# 219 "/home/runner/work/MFC/MFC/src/common/include/parallel_macros.fpp"
284
285! Atomic operation on device
286# 231 "/home/runner/work/MFC/MFC/src/common/include/parallel_macros.fpp"
287
288! End atomic capture block
289# 242 "/home/runner/work/MFC/MFC/src/common/include/parallel_macros.fpp"
290
291! Copy data between host and device
292# 254 "/home/runner/work/MFC/MFC/src/common/include/parallel_macros.fpp"
293
294! Synchronization barrier
295# 266 "/home/runner/work/MFC/MFC/src/common/include/parallel_macros.fpp"
296
297! Import GPU library module (openacc or omp_lib)
298# 275 "/home/runner/work/MFC/MFC/src/common/include/parallel_macros.fpp"
299
300! Emit code only for AMD compiler
301# 282 "/home/runner/work/MFC/MFC/src/common/include/parallel_macros.fpp"
302
303! Emit code for non-Cray compilers
304# 289 "/home/runner/work/MFC/MFC/src/common/include/parallel_macros.fpp"
305
306! Emit code only for Cray compiler
307# 296 "/home/runner/work/MFC/MFC/src/common/include/parallel_macros.fpp"
308
309! Emit code for non-NVIDIA compilers
310# 303 "/home/runner/work/MFC/MFC/src/common/include/parallel_macros.fpp"
311
312# 305 "/home/runner/work/MFC/MFC/src/common/include/parallel_macros.fpp"
313# 306 "/home/runner/work/MFC/MFC/src/common/include/parallel_macros.fpp"
314! New line at end of file is required for FYPP
315# 2 "/home/runner/work/MFC/MFC/src/common/include/macros.fpp" 2
316
317# 14 "/home/runner/work/MFC/MFC/src/common/include/macros.fpp"
318
319! Caution: This macro requires the use of a binding script to set CUDA_VISIBLE_DEVICES, such that we have one GPU device per MPI
320! rank. That's because for both cudaMemAdvise (preferred location) and cudaMemPrefetchAsync we use location = device_id = 0. For an
321! example see misc/nvidia_uvm/bind.sh.
322# 52 "/home/runner/work/MFC/MFC/src/common/include/macros.fpp"
323
324! Allocate and create GPU device memory
325# 72 "/home/runner/work/MFC/MFC/src/common/include/macros.fpp"
326
327! Free GPU device memory and deallocate
328# 80 "/home/runner/work/MFC/MFC/src/common/include/macros.fpp"
329
330! Cray-specific GPU pointer setup for vector fields
331# 104 "/home/runner/work/MFC/MFC/src/common/include/macros.fpp"
332
333! Cray-specific GPU pointer setup for scalar fields
334# 120 "/home/runner/work/MFC/MFC/src/common/include/macros.fpp"
335
336! Cray-specific GPU pointer setup for acoustic source spatials
337# 145 "/home/runner/work/MFC/MFC/src/common/include/macros.fpp"
338
339# 151 "/home/runner/work/MFC/MFC/src/common/include/macros.fpp"
340
341# 158 "/home/runner/work/MFC/MFC/src/common/include/macros.fpp"
342! New line at end of file is required for FYPP
343# 7 "/home/runner/work/MFC/MFC/src/common/m_global_parameters_common.fpp" 2
344
345!> @brief Shared global parameters and equation-index setup for all three executables. Each per-target m_global_parameters uses this
346!! module (default-public, so all symbols re-export to downstream consumers via two-hop use-association).
347module m_global_parameters_common
348
349#ifdef MFC_MPI
350 use mpi
351#endif
352
353 use m_derived_types
354 use m_thermochem, only: num_species
355 use m_constants, only: num_fluids_max, model_eqns_gamma_law, model_eqns_5eq, model_eqns_6eq, recon_type_weno, &
356 & recon_type_muscl, name_len, dflt_int, dflt_real, eos_stiffened_gas, eos_ideal_gas
357
358 implicit none
359
360 ! All namelist-bound scalar and array declarations (per-target, regenerated at build time by the ninja custom command)
361# 1 "/home/runner/work/MFC/MFC/build/include/simulation/generated_decls.fpp" 1
362! AUTO-GENERATED - do not edit directly. Regenerate: cmake reconfigure
363!
364real(wp) :: adc_kappa
365real(wp) :: bx0
366real(wp) :: ca
367real(wp) :: r0ref
368real(wp) :: re_inv
369real(wp) :: web
370logical :: acoustic_source
371logical :: adap_dt
372integer :: adap_dt_max_iters
373real(wp) :: adap_dt_tol
374logical :: adv_n
375real(wp) :: alf_factor
376real(wp) :: alpha_bar
377logical :: alt_soundspeed
378integer :: avg_state
379logical :: bf_spatial_support
380logical :: bf_x
381logical :: bf_y
382logical :: bf_z
383integer :: bubble_model
384logical :: bubbles_euler
385logical :: bubbles_lagrange
386character(LEN=path_len) :: case_dir
387logical :: cfl_adap_dt
388logical :: cfl_const_dt
389real(wp) :: cfl_target
390real(wp) :: coefficient_of_restitution
391integer :: collision_model
392integer :: collision_temporal_resolution
393real(wp) :: collision_time
394logical :: cont_damage
395real(wp) :: cont_damage_s
396logical :: cyl_coord
397logical :: down_sample
398real(wp) :: dt
399integer :: fd_order
400logical :: fft_wrt
401logical :: file_per_process
402real(wp) :: g_x
403real(wp) :: g_y
404real(wp) :: g_z
405logical :: hll_u_interface
406logical :: hyper_cleaning
407real(wp) :: hyper_cleaning_speed
408real(wp) :: hyper_cleaning_tau
409logical :: hypo_hll_interface_rhs
410logical :: hypoelasticity
411logical :: ib
412real(wp) :: ib_coefficient_of_friction
413integer :: ib_force_stride
414logical :: ib_force_wrt
415integer :: ib_neighborhood_radius
416logical :: ib_state_wrt
417real(wp) :: ic_beta
418real(wp) :: ic_eps
419integer :: int_comp
420real(wp) :: k_x
421real(wp) :: k_y
422real(wp) :: k_z
423integer :: low_mach
424integer :: m
425logical :: many_ib_patch_parallelism
426logical :: mixture_err
427integer :: model_eqns
428logical :: mp_weno
429logical :: mpp_lim
430real(wp) :: muscl_eps
431integer :: n
432integer :: n_start
433logical :: null_weights
434integer :: num_bc_patches
435integer :: num_ibs
436integer :: num_igr_iters
437integer :: num_igr_warm_start_iters
438integer :: num_particle_clouds
439integer :: num_probes
440integer :: num_source
441integer :: num_stl_models
442integer :: num_turbulent_sources
443integer :: nv_uvm_igr_temps_on_gpu
444logical :: nv_uvm_out_of_core
445logical :: nv_uvm_pref_gpu
446integer :: p
447real(wp) :: p_x
448real(wp) :: p_y
449real(wp) :: p_z
450real(wp) :: palpha_eps
451logical :: parallel_io
452real(wp) :: pi_fac
453real(wp) :: poly_sigma
454logical :: polydisperse
455logical :: polytropic
456integer :: precision
457logical :: prim_vars_wrt
458logical :: probe_wrt
459real(wp) :: ptgalpha_eps
460logical :: qbmm
461real(wp) :: ramp_ratio
462logical :: rdma_mpi
463logical :: reactive_burn
464logical :: relax
465integer :: relax_model
466logical :: riemann_hypo_adc
467integer :: riemann_solver
468logical :: run_time_info
469real(wp) :: sigr
470real(wp) :: sigma
471logical :: surface_tension
472real(wp) :: synth_u_inf
473integer :: synth_n_shells
474integer :: synth_seed
475logical :: synthetic_turbulence
476real(wp) :: t_save
477integer :: t_step_old
478integer :: t_step_print
479integer :: t_step_save
480integer :: t_step_start
481integer :: t_step_stop
482real(wp) :: t_stop
483real(wp) :: tau_star
484real(wp) :: teno_ct
485integer :: thermal
486integer :: time_stepper
487real(wp) :: w_x
488real(wp) :: w_y
489real(wp) :: w_z
490integer :: wave_speeds
491logical :: weno_re_flux
492logical :: weno_avg
493real(wp) :: weno_eps
494type(physical_parameters), dimension(num_fluids_max) :: fluid_pp !< Per-fluid stiffened-gas EOS parameters, Reynolds numbers, and shear modulus
495type(subgrid_bubble_physical_parameters) :: bub_pp !< Subgrid bubble physical parameters
496type(ib_patch_parameters), dimension(num_ib_patches_max_namelist) :: patch_ib !< Immersed boundary patch parameters
497
498# 136 "/home/runner/work/MFC/MFC/build/include/simulation/generated_decls.fpp"
499#if defined(MFC_OpenACC)
500# 136 "/home/runner/work/MFC/MFC/build/include/simulation/generated_decls.fpp"
501!$acc declare create(patch_ib)
502# 136 "/home/runner/work/MFC/MFC/build/include/simulation/generated_decls.fpp"
503#elif defined(MFC_OpenMP)
504# 136 "/home/runner/work/MFC/MFC/build/include/simulation/generated_decls.fpp"
505!$omp declare target (patch_ib)
506# 136 "/home/runner/work/MFC/MFC/build/include/simulation/generated_decls.fpp"
507#endif
508type(ib_airfoil_parameters), dimension(num_ib_airfoils_max) :: ib_airfoil !< Per-airfoil NACA user inputs
509
510# 138 "/home/runner/work/MFC/MFC/build/include/simulation/generated_decls.fpp"
511#if defined(MFC_OpenACC)
512# 138 "/home/runner/work/MFC/MFC/build/include/simulation/generated_decls.fpp"
513!$acc declare create(ib_airfoil)
514# 138 "/home/runner/work/MFC/MFC/build/include/simulation/generated_decls.fpp"
515#elif defined(MFC_OpenMP)
516# 138 "/home/runner/work/MFC/MFC/build/include/simulation/generated_decls.fpp"
517!$omp declare target (ib_airfoil)
518# 138 "/home/runner/work/MFC/MFC/build/include/simulation/generated_decls.fpp"
519#endif
520type(ib_stl_parameters), dimension(num_stl_models_max) :: stl_models !< Per-STL model parameters
521
522# 140 "/home/runner/work/MFC/MFC/build/include/simulation/generated_decls.fpp"
523#if defined(MFC_OpenACC)
524# 140 "/home/runner/work/MFC/MFC/build/include/simulation/generated_decls.fpp"
525!$acc declare create(stl_models)
526# 140 "/home/runner/work/MFC/MFC/build/include/simulation/generated_decls.fpp"
527#elif defined(MFC_OpenMP)
528# 140 "/home/runner/work/MFC/MFC/build/include/simulation/generated_decls.fpp"
529!$omp declare target (stl_models)
530# 140 "/home/runner/work/MFC/MFC/build/include/simulation/generated_decls.fpp"
531#endif
532type(vec3_dt), dimension(num_probes_max) :: probe
533type(acoustic_parameters), dimension(num_probes_max) :: acoustic !< Acoustic source parameters
534
535# 143 "/home/runner/work/MFC/MFC/build/include/simulation/generated_decls.fpp"
536#if defined(MFC_OpenACC)
537# 143 "/home/runner/work/MFC/MFC/build/include/simulation/generated_decls.fpp"
538!$acc declare create(acoustic)
539# 143 "/home/runner/work/MFC/MFC/build/include/simulation/generated_decls.fpp"
540#elif defined(MFC_OpenMP)
541# 143 "/home/runner/work/MFC/MFC/build/include/simulation/generated_decls.fpp"
542!$omp declare target (acoustic)
543# 143 "/home/runner/work/MFC/MFC/build/include/simulation/generated_decls.fpp"
544#endif
545type(chemistry_parameters) :: chem_params
546
547# 145 "/home/runner/work/MFC/MFC/build/include/simulation/generated_decls.fpp"
548#if defined(MFC_OpenACC)
549# 145 "/home/runner/work/MFC/MFC/build/include/simulation/generated_decls.fpp"
550!$acc declare create(chem_params)
551# 145 "/home/runner/work/MFC/MFC/build/include/simulation/generated_decls.fpp"
552#elif defined(MFC_OpenMP)
553# 145 "/home/runner/work/MFC/MFC/build/include/simulation/generated_decls.fpp"
554!$omp declare target (chem_params)
555# 145 "/home/runner/work/MFC/MFC/build/include/simulation/generated_decls.fpp"
556#endif
557type(reactive_burn_parameters) :: rburn !< Condensed-phase reactive-burn (programmed detonation) parameters
558
559# 147 "/home/runner/work/MFC/MFC/build/include/simulation/generated_decls.fpp"
560#if defined(MFC_OpenACC)
561# 147 "/home/runner/work/MFC/MFC/build/include/simulation/generated_decls.fpp"
562!$acc declare create(rburn)
563# 147 "/home/runner/work/MFC/MFC/build/include/simulation/generated_decls.fpp"
564#elif defined(MFC_OpenMP)
565# 147 "/home/runner/work/MFC/MFC/build/include/simulation/generated_decls.fpp"
566!$omp declare target (rburn)
567# 147 "/home/runner/work/MFC/MFC/build/include/simulation/generated_decls.fpp"
568#endif
569type(bubbles_lagrange_parameters) :: lag_params !< Lagrange bubbles' parameters
570
571# 149 "/home/runner/work/MFC/MFC/build/include/simulation/generated_decls.fpp"
572#if defined(MFC_OpenACC)
573# 149 "/home/runner/work/MFC/MFC/build/include/simulation/generated_decls.fpp"
574!$acc declare create(lag_params)
575# 149 "/home/runner/work/MFC/MFC/build/include/simulation/generated_decls.fpp"
576#elif defined(MFC_OpenMP)
577# 149 "/home/runner/work/MFC/MFC/build/include/simulation/generated_decls.fpp"
578!$omp declare target (lag_params)
579# 149 "/home/runner/work/MFC/MFC/build/include/simulation/generated_decls.fpp"
580#endif
581type(particle_cloud_parameters), dimension(num_particle_clouds_max) :: particle_cloud !< Particle bed specifications
582type(spbf_parameters) :: spatial_bf !< Parameters for spatially supported body force (Wei & Freund, JFM 2005)
583
584# 152 "/home/runner/work/MFC/MFC/build/include/simulation/generated_decls.fpp"
585#if defined(MFC_OpenACC)
586# 152 "/home/runner/work/MFC/MFC/build/include/simulation/generated_decls.fpp"
587!$acc declare create(spatial_bf)
588# 152 "/home/runner/work/MFC/MFC/build/include/simulation/generated_decls.fpp"
589#elif defined(MFC_OpenMP)
590# 152 "/home/runner/work/MFC/MFC/build/include/simulation/generated_decls.fpp"
591!$omp declare target (spatial_bf)
592# 152 "/home/runner/work/MFC/MFC/build/include/simulation/generated_decls.fpp"
593#endif
594
595# 153 "/home/runner/work/MFC/MFC/build/include/simulation/generated_decls.fpp"
596#if defined(MFC_OpenACC)
597# 153 "/home/runner/work/MFC/MFC/build/include/simulation/generated_decls.fpp"
598!$acc declare create(ADC_kappa)
599# 153 "/home/runner/work/MFC/MFC/build/include/simulation/generated_decls.fpp"
600#elif defined(MFC_OpenMP)
601# 153 "/home/runner/work/MFC/MFC/build/include/simulation/generated_decls.fpp"
602!$omp declare target (ADC_kappa)
603# 153 "/home/runner/work/MFC/MFC/build/include/simulation/generated_decls.fpp"
604#endif
605
606# 154 "/home/runner/work/MFC/MFC/build/include/simulation/generated_decls.fpp"
607#if defined(MFC_OpenACC)
608# 154 "/home/runner/work/MFC/MFC/build/include/simulation/generated_decls.fpp"
609!$acc declare create(Bx0)
610# 154 "/home/runner/work/MFC/MFC/build/include/simulation/generated_decls.fpp"
611#elif defined(MFC_OpenMP)
612# 154 "/home/runner/work/MFC/MFC/build/include/simulation/generated_decls.fpp"
613!$omp declare target (Bx0)
614# 154 "/home/runner/work/MFC/MFC/build/include/simulation/generated_decls.fpp"
615#endif
616
617# 155 "/home/runner/work/MFC/MFC/build/include/simulation/generated_decls.fpp"
618#if defined(MFC_OpenACC)
619# 155 "/home/runner/work/MFC/MFC/build/include/simulation/generated_decls.fpp"
620!$acc declare create(Ca)
621# 155 "/home/runner/work/MFC/MFC/build/include/simulation/generated_decls.fpp"
622#elif defined(MFC_OpenMP)
623# 155 "/home/runner/work/MFC/MFC/build/include/simulation/generated_decls.fpp"
624!$omp declare target (Ca)
625# 155 "/home/runner/work/MFC/MFC/build/include/simulation/generated_decls.fpp"
626#endif
627
628# 156 "/home/runner/work/MFC/MFC/build/include/simulation/generated_decls.fpp"
629#if defined(MFC_OpenACC)
630# 156 "/home/runner/work/MFC/MFC/build/include/simulation/generated_decls.fpp"
631!$acc declare create(R0ref)
632# 156 "/home/runner/work/MFC/MFC/build/include/simulation/generated_decls.fpp"
633#elif defined(MFC_OpenMP)
634# 156 "/home/runner/work/MFC/MFC/build/include/simulation/generated_decls.fpp"
635!$omp declare target (R0ref)
636# 156 "/home/runner/work/MFC/MFC/build/include/simulation/generated_decls.fpp"
637#endif
638
639# 157 "/home/runner/work/MFC/MFC/build/include/simulation/generated_decls.fpp"
640#if defined(MFC_OpenACC)
641# 157 "/home/runner/work/MFC/MFC/build/include/simulation/generated_decls.fpp"
642!$acc declare create(Re_inv)
643# 157 "/home/runner/work/MFC/MFC/build/include/simulation/generated_decls.fpp"
644#elif defined(MFC_OpenMP)
645# 157 "/home/runner/work/MFC/MFC/build/include/simulation/generated_decls.fpp"
646!$omp declare target (Re_inv)
647# 157 "/home/runner/work/MFC/MFC/build/include/simulation/generated_decls.fpp"
648#endif
649
650# 158 "/home/runner/work/MFC/MFC/build/include/simulation/generated_decls.fpp"
651#if defined(MFC_OpenACC)
652# 158 "/home/runner/work/MFC/MFC/build/include/simulation/generated_decls.fpp"
653!$acc declare create(Web)
654# 158 "/home/runner/work/MFC/MFC/build/include/simulation/generated_decls.fpp"
655#elif defined(MFC_OpenMP)
656# 158 "/home/runner/work/MFC/MFC/build/include/simulation/generated_decls.fpp"
657!$omp declare target (Web)
658# 158 "/home/runner/work/MFC/MFC/build/include/simulation/generated_decls.fpp"
659#endif
660
661# 159 "/home/runner/work/MFC/MFC/build/include/simulation/generated_decls.fpp"
662#if defined(MFC_OpenACC)
663# 159 "/home/runner/work/MFC/MFC/build/include/simulation/generated_decls.fpp"
664!$acc declare create(acoustic_source)
665# 159 "/home/runner/work/MFC/MFC/build/include/simulation/generated_decls.fpp"
666#elif defined(MFC_OpenMP)
667# 159 "/home/runner/work/MFC/MFC/build/include/simulation/generated_decls.fpp"
668!$omp declare target (acoustic_source)
669# 159 "/home/runner/work/MFC/MFC/build/include/simulation/generated_decls.fpp"
670#endif
671
672# 160 "/home/runner/work/MFC/MFC/build/include/simulation/generated_decls.fpp"
673#if defined(MFC_OpenACC)
674# 160 "/home/runner/work/MFC/MFC/build/include/simulation/generated_decls.fpp"
675!$acc declare create(adap_dt)
676# 160 "/home/runner/work/MFC/MFC/build/include/simulation/generated_decls.fpp"
677#elif defined(MFC_OpenMP)
678# 160 "/home/runner/work/MFC/MFC/build/include/simulation/generated_decls.fpp"
679!$omp declare target (adap_dt)
680# 160 "/home/runner/work/MFC/MFC/build/include/simulation/generated_decls.fpp"
681#endif
682
683# 161 "/home/runner/work/MFC/MFC/build/include/simulation/generated_decls.fpp"
684#if defined(MFC_OpenACC)
685# 161 "/home/runner/work/MFC/MFC/build/include/simulation/generated_decls.fpp"
686!$acc declare create(adap_dt_max_iters)
687# 161 "/home/runner/work/MFC/MFC/build/include/simulation/generated_decls.fpp"
688#elif defined(MFC_OpenMP)
689# 161 "/home/runner/work/MFC/MFC/build/include/simulation/generated_decls.fpp"
690!$omp declare target (adap_dt_max_iters)
691# 161 "/home/runner/work/MFC/MFC/build/include/simulation/generated_decls.fpp"
692#endif
693
694# 162 "/home/runner/work/MFC/MFC/build/include/simulation/generated_decls.fpp"
695#if defined(MFC_OpenACC)
696# 162 "/home/runner/work/MFC/MFC/build/include/simulation/generated_decls.fpp"
697!$acc declare create(adap_dt_tol)
698# 162 "/home/runner/work/MFC/MFC/build/include/simulation/generated_decls.fpp"
699#elif defined(MFC_OpenMP)
700# 162 "/home/runner/work/MFC/MFC/build/include/simulation/generated_decls.fpp"
701!$omp declare target (adap_dt_tol)
702# 162 "/home/runner/work/MFC/MFC/build/include/simulation/generated_decls.fpp"
703#endif
704
705# 163 "/home/runner/work/MFC/MFC/build/include/simulation/generated_decls.fpp"
706#if defined(MFC_OpenACC)
707# 163 "/home/runner/work/MFC/MFC/build/include/simulation/generated_decls.fpp"
708!$acc declare create(adv_n)
709# 163 "/home/runner/work/MFC/MFC/build/include/simulation/generated_decls.fpp"
710#elif defined(MFC_OpenMP)
711# 163 "/home/runner/work/MFC/MFC/build/include/simulation/generated_decls.fpp"
712!$omp declare target (adv_n)
713# 163 "/home/runner/work/MFC/MFC/build/include/simulation/generated_decls.fpp"
714#endif
715
716# 164 "/home/runner/work/MFC/MFC/build/include/simulation/generated_decls.fpp"
717#if defined(MFC_OpenACC)
718# 164 "/home/runner/work/MFC/MFC/build/include/simulation/generated_decls.fpp"
719!$acc declare create(alpha_bar)
720# 164 "/home/runner/work/MFC/MFC/build/include/simulation/generated_decls.fpp"
721#elif defined(MFC_OpenMP)
722# 164 "/home/runner/work/MFC/MFC/build/include/simulation/generated_decls.fpp"
723!$omp declare target (alpha_bar)
724# 164 "/home/runner/work/MFC/MFC/build/include/simulation/generated_decls.fpp"
725#endif
726
727# 165 "/home/runner/work/MFC/MFC/build/include/simulation/generated_decls.fpp"
728#if defined(MFC_OpenACC)
729# 165 "/home/runner/work/MFC/MFC/build/include/simulation/generated_decls.fpp"
730!$acc declare create(alt_soundspeed)
731# 165 "/home/runner/work/MFC/MFC/build/include/simulation/generated_decls.fpp"
732#elif defined(MFC_OpenMP)
733# 165 "/home/runner/work/MFC/MFC/build/include/simulation/generated_decls.fpp"
734!$omp declare target (alt_soundspeed)
735# 165 "/home/runner/work/MFC/MFC/build/include/simulation/generated_decls.fpp"
736#endif
737
738# 166 "/home/runner/work/MFC/MFC/build/include/simulation/generated_decls.fpp"
739#if defined(MFC_OpenACC)
740# 166 "/home/runner/work/MFC/MFC/build/include/simulation/generated_decls.fpp"
741!$acc declare create(avg_state)
742# 166 "/home/runner/work/MFC/MFC/build/include/simulation/generated_decls.fpp"
743#elif defined(MFC_OpenMP)
744# 166 "/home/runner/work/MFC/MFC/build/include/simulation/generated_decls.fpp"
745!$omp declare target (avg_state)
746# 166 "/home/runner/work/MFC/MFC/build/include/simulation/generated_decls.fpp"
747#endif
748
749# 167 "/home/runner/work/MFC/MFC/build/include/simulation/generated_decls.fpp"
750#if defined(MFC_OpenACC)
751# 167 "/home/runner/work/MFC/MFC/build/include/simulation/generated_decls.fpp"
752!$acc declare create(bubble_model)
753# 167 "/home/runner/work/MFC/MFC/build/include/simulation/generated_decls.fpp"
754#elif defined(MFC_OpenMP)
755# 167 "/home/runner/work/MFC/MFC/build/include/simulation/generated_decls.fpp"
756!$omp declare target (bubble_model)
757# 167 "/home/runner/work/MFC/MFC/build/include/simulation/generated_decls.fpp"
758#endif
759
760# 168 "/home/runner/work/MFC/MFC/build/include/simulation/generated_decls.fpp"
761#if defined(MFC_OpenACC)
762# 168 "/home/runner/work/MFC/MFC/build/include/simulation/generated_decls.fpp"
763!$acc declare create(bubbles_euler)
764# 168 "/home/runner/work/MFC/MFC/build/include/simulation/generated_decls.fpp"
765#elif defined(MFC_OpenMP)
766# 168 "/home/runner/work/MFC/MFC/build/include/simulation/generated_decls.fpp"
767!$omp declare target (bubbles_euler)
768# 168 "/home/runner/work/MFC/MFC/build/include/simulation/generated_decls.fpp"
769#endif
770
771# 169 "/home/runner/work/MFC/MFC/build/include/simulation/generated_decls.fpp"
772#if defined(MFC_OpenACC)
773# 169 "/home/runner/work/MFC/MFC/build/include/simulation/generated_decls.fpp"
774!$acc declare create(bubbles_lagrange)
775# 169 "/home/runner/work/MFC/MFC/build/include/simulation/generated_decls.fpp"
776#elif defined(MFC_OpenMP)
777# 169 "/home/runner/work/MFC/MFC/build/include/simulation/generated_decls.fpp"
778!$omp declare target (bubbles_lagrange)
779# 169 "/home/runner/work/MFC/MFC/build/include/simulation/generated_decls.fpp"
780#endif
781
782# 170 "/home/runner/work/MFC/MFC/build/include/simulation/generated_decls.fpp"
783#if defined(MFC_OpenACC)
784# 170 "/home/runner/work/MFC/MFC/build/include/simulation/generated_decls.fpp"
785!$acc declare create(cfl_target)
786# 170 "/home/runner/work/MFC/MFC/build/include/simulation/generated_decls.fpp"
787#elif defined(MFC_OpenMP)
788# 170 "/home/runner/work/MFC/MFC/build/include/simulation/generated_decls.fpp"
789!$omp declare target (cfl_target)
790# 170 "/home/runner/work/MFC/MFC/build/include/simulation/generated_decls.fpp"
791#endif
792
793# 171 "/home/runner/work/MFC/MFC/build/include/simulation/generated_decls.fpp"
794#if defined(MFC_OpenACC)
795# 171 "/home/runner/work/MFC/MFC/build/include/simulation/generated_decls.fpp"
796!$acc declare create(cont_damage)
797# 171 "/home/runner/work/MFC/MFC/build/include/simulation/generated_decls.fpp"
798#elif defined(MFC_OpenMP)
799# 171 "/home/runner/work/MFC/MFC/build/include/simulation/generated_decls.fpp"
800!$omp declare target (cont_damage)
801# 171 "/home/runner/work/MFC/MFC/build/include/simulation/generated_decls.fpp"
802#endif
803
804# 172 "/home/runner/work/MFC/MFC/build/include/simulation/generated_decls.fpp"
805#if defined(MFC_OpenACC)
806# 172 "/home/runner/work/MFC/MFC/build/include/simulation/generated_decls.fpp"
807!$acc declare create(cont_damage_s)
808# 172 "/home/runner/work/MFC/MFC/build/include/simulation/generated_decls.fpp"
809#elif defined(MFC_OpenMP)
810# 172 "/home/runner/work/MFC/MFC/build/include/simulation/generated_decls.fpp"
811!$omp declare target (cont_damage_s)
812# 172 "/home/runner/work/MFC/MFC/build/include/simulation/generated_decls.fpp"
813#endif
814
815# 173 "/home/runner/work/MFC/MFC/build/include/simulation/generated_decls.fpp"
816#if defined(MFC_OpenACC)
817# 173 "/home/runner/work/MFC/MFC/build/include/simulation/generated_decls.fpp"
818!$acc declare create(cyl_coord)
819# 173 "/home/runner/work/MFC/MFC/build/include/simulation/generated_decls.fpp"
820#elif defined(MFC_OpenMP)
821# 173 "/home/runner/work/MFC/MFC/build/include/simulation/generated_decls.fpp"
822!$omp declare target (cyl_coord)
823# 173 "/home/runner/work/MFC/MFC/build/include/simulation/generated_decls.fpp"
824#endif
825
826# 174 "/home/runner/work/MFC/MFC/build/include/simulation/generated_decls.fpp"
827#if defined(MFC_OpenACC)
828# 174 "/home/runner/work/MFC/MFC/build/include/simulation/generated_decls.fpp"
829!$acc declare create(down_sample)
830# 174 "/home/runner/work/MFC/MFC/build/include/simulation/generated_decls.fpp"
831#elif defined(MFC_OpenMP)
832# 174 "/home/runner/work/MFC/MFC/build/include/simulation/generated_decls.fpp"
833!$omp declare target (down_sample)
834# 174 "/home/runner/work/MFC/MFC/build/include/simulation/generated_decls.fpp"
835#endif
836
837# 175 "/home/runner/work/MFC/MFC/build/include/simulation/generated_decls.fpp"
838#if defined(MFC_OpenACC)
839# 175 "/home/runner/work/MFC/MFC/build/include/simulation/generated_decls.fpp"
840!$acc declare create(dt)
841# 175 "/home/runner/work/MFC/MFC/build/include/simulation/generated_decls.fpp"
842#elif defined(MFC_OpenMP)
843# 175 "/home/runner/work/MFC/MFC/build/include/simulation/generated_decls.fpp"
844!$omp declare target (dt)
845# 175 "/home/runner/work/MFC/MFC/build/include/simulation/generated_decls.fpp"
846#endif
847
848# 176 "/home/runner/work/MFC/MFC/build/include/simulation/generated_decls.fpp"
849#if defined(MFC_OpenACC)
850# 176 "/home/runner/work/MFC/MFC/build/include/simulation/generated_decls.fpp"
851!$acc declare create(fd_order)
852# 176 "/home/runner/work/MFC/MFC/build/include/simulation/generated_decls.fpp"
853#elif defined(MFC_OpenMP)
854# 176 "/home/runner/work/MFC/MFC/build/include/simulation/generated_decls.fpp"
855!$omp declare target (fd_order)
856# 176 "/home/runner/work/MFC/MFC/build/include/simulation/generated_decls.fpp"
857#endif
858
859# 177 "/home/runner/work/MFC/MFC/build/include/simulation/generated_decls.fpp"
860#if defined(MFC_OpenACC)
861# 177 "/home/runner/work/MFC/MFC/build/include/simulation/generated_decls.fpp"
862!$acc declare create(hll_u_interface)
863# 177 "/home/runner/work/MFC/MFC/build/include/simulation/generated_decls.fpp"
864#elif defined(MFC_OpenMP)
865# 177 "/home/runner/work/MFC/MFC/build/include/simulation/generated_decls.fpp"
866!$omp declare target (hll_u_interface)
867# 177 "/home/runner/work/MFC/MFC/build/include/simulation/generated_decls.fpp"
868#endif
869
870# 178 "/home/runner/work/MFC/MFC/build/include/simulation/generated_decls.fpp"
871#if defined(MFC_OpenACC)
872# 178 "/home/runner/work/MFC/MFC/build/include/simulation/generated_decls.fpp"
873!$acc declare create(hyper_cleaning)
874# 178 "/home/runner/work/MFC/MFC/build/include/simulation/generated_decls.fpp"
875#elif defined(MFC_OpenMP)
876# 178 "/home/runner/work/MFC/MFC/build/include/simulation/generated_decls.fpp"
877!$omp declare target (hyper_cleaning)
878# 178 "/home/runner/work/MFC/MFC/build/include/simulation/generated_decls.fpp"
879#endif
880
881# 179 "/home/runner/work/MFC/MFC/build/include/simulation/generated_decls.fpp"
882#if defined(MFC_OpenACC)
883# 179 "/home/runner/work/MFC/MFC/build/include/simulation/generated_decls.fpp"
884!$acc declare create(hyper_cleaning_speed)
885# 179 "/home/runner/work/MFC/MFC/build/include/simulation/generated_decls.fpp"
886#elif defined(MFC_OpenMP)
887# 179 "/home/runner/work/MFC/MFC/build/include/simulation/generated_decls.fpp"
888!$omp declare target (hyper_cleaning_speed)
889# 179 "/home/runner/work/MFC/MFC/build/include/simulation/generated_decls.fpp"
890#endif
891
892# 180 "/home/runner/work/MFC/MFC/build/include/simulation/generated_decls.fpp"
893#if defined(MFC_OpenACC)
894# 180 "/home/runner/work/MFC/MFC/build/include/simulation/generated_decls.fpp"
895!$acc declare create(hyper_cleaning_tau)
896# 180 "/home/runner/work/MFC/MFC/build/include/simulation/generated_decls.fpp"
897#elif defined(MFC_OpenMP)
898# 180 "/home/runner/work/MFC/MFC/build/include/simulation/generated_decls.fpp"
899!$omp declare target (hyper_cleaning_tau)
900# 180 "/home/runner/work/MFC/MFC/build/include/simulation/generated_decls.fpp"
901#endif
902
903# 181 "/home/runner/work/MFC/MFC/build/include/simulation/generated_decls.fpp"
904#if defined(MFC_OpenACC)
905# 181 "/home/runner/work/MFC/MFC/build/include/simulation/generated_decls.fpp"
906!$acc declare create(hypo_hll_interface_rhs)
907# 181 "/home/runner/work/MFC/MFC/build/include/simulation/generated_decls.fpp"
908#elif defined(MFC_OpenMP)
909# 181 "/home/runner/work/MFC/MFC/build/include/simulation/generated_decls.fpp"
910!$omp declare target (hypo_hll_interface_rhs)
911# 181 "/home/runner/work/MFC/MFC/build/include/simulation/generated_decls.fpp"
912#endif
913
914# 182 "/home/runner/work/MFC/MFC/build/include/simulation/generated_decls.fpp"
915#if defined(MFC_OpenACC)
916# 182 "/home/runner/work/MFC/MFC/build/include/simulation/generated_decls.fpp"
917!$acc declare create(hypoelasticity)
918# 182 "/home/runner/work/MFC/MFC/build/include/simulation/generated_decls.fpp"
919#elif defined(MFC_OpenMP)
920# 182 "/home/runner/work/MFC/MFC/build/include/simulation/generated_decls.fpp"
921!$omp declare target (hypoelasticity)
922# 182 "/home/runner/work/MFC/MFC/build/include/simulation/generated_decls.fpp"
923#endif
924
925# 183 "/home/runner/work/MFC/MFC/build/include/simulation/generated_decls.fpp"
926#if defined(MFC_OpenACC)
927# 183 "/home/runner/work/MFC/MFC/build/include/simulation/generated_decls.fpp"
928!$acc declare create(ib)
929# 183 "/home/runner/work/MFC/MFC/build/include/simulation/generated_decls.fpp"
930#elif defined(MFC_OpenMP)
931# 183 "/home/runner/work/MFC/MFC/build/include/simulation/generated_decls.fpp"
932!$omp declare target (ib)
933# 183 "/home/runner/work/MFC/MFC/build/include/simulation/generated_decls.fpp"
934#endif
935
936# 184 "/home/runner/work/MFC/MFC/build/include/simulation/generated_decls.fpp"
937#if defined(MFC_OpenACC)
938# 184 "/home/runner/work/MFC/MFC/build/include/simulation/generated_decls.fpp"
939!$acc declare create(ib_coefficient_of_friction)
940# 184 "/home/runner/work/MFC/MFC/build/include/simulation/generated_decls.fpp"
941#elif defined(MFC_OpenMP)
942# 184 "/home/runner/work/MFC/MFC/build/include/simulation/generated_decls.fpp"
943!$omp declare target (ib_coefficient_of_friction)
944# 184 "/home/runner/work/MFC/MFC/build/include/simulation/generated_decls.fpp"
945#endif
946
947# 185 "/home/runner/work/MFC/MFC/build/include/simulation/generated_decls.fpp"
948#if defined(MFC_OpenACC)
949# 185 "/home/runner/work/MFC/MFC/build/include/simulation/generated_decls.fpp"
950!$acc declare create(ic_beta)
951# 185 "/home/runner/work/MFC/MFC/build/include/simulation/generated_decls.fpp"
952#elif defined(MFC_OpenMP)
953# 185 "/home/runner/work/MFC/MFC/build/include/simulation/generated_decls.fpp"
954!$omp declare target (ic_beta)
955# 185 "/home/runner/work/MFC/MFC/build/include/simulation/generated_decls.fpp"
956#endif
957
958# 186 "/home/runner/work/MFC/MFC/build/include/simulation/generated_decls.fpp"
959#if defined(MFC_OpenACC)
960# 186 "/home/runner/work/MFC/MFC/build/include/simulation/generated_decls.fpp"
961!$acc declare create(ic_eps)
962# 186 "/home/runner/work/MFC/MFC/build/include/simulation/generated_decls.fpp"
963#elif defined(MFC_OpenMP)
964# 186 "/home/runner/work/MFC/MFC/build/include/simulation/generated_decls.fpp"
965!$omp declare target (ic_eps)
966# 186 "/home/runner/work/MFC/MFC/build/include/simulation/generated_decls.fpp"
967#endif
968
969# 187 "/home/runner/work/MFC/MFC/build/include/simulation/generated_decls.fpp"
970#if defined(MFC_OpenACC)
971# 187 "/home/runner/work/MFC/MFC/build/include/simulation/generated_decls.fpp"
972!$acc declare create(int_comp)
973# 187 "/home/runner/work/MFC/MFC/build/include/simulation/generated_decls.fpp"
974#elif defined(MFC_OpenMP)
975# 187 "/home/runner/work/MFC/MFC/build/include/simulation/generated_decls.fpp"
976!$omp declare target (int_comp)
977# 187 "/home/runner/work/MFC/MFC/build/include/simulation/generated_decls.fpp"
978#endif
979
980# 188 "/home/runner/work/MFC/MFC/build/include/simulation/generated_decls.fpp"
981#if defined(MFC_OpenACC)
982# 188 "/home/runner/work/MFC/MFC/build/include/simulation/generated_decls.fpp"
983!$acc declare create(low_Mach)
984# 188 "/home/runner/work/MFC/MFC/build/include/simulation/generated_decls.fpp"
985#elif defined(MFC_OpenMP)
986# 188 "/home/runner/work/MFC/MFC/build/include/simulation/generated_decls.fpp"
987!$omp declare target (low_Mach)
988# 188 "/home/runner/work/MFC/MFC/build/include/simulation/generated_decls.fpp"
989#endif
990
991# 189 "/home/runner/work/MFC/MFC/build/include/simulation/generated_decls.fpp"
992#if defined(MFC_OpenACC)
993# 189 "/home/runner/work/MFC/MFC/build/include/simulation/generated_decls.fpp"
994!$acc declare create(m)
995# 189 "/home/runner/work/MFC/MFC/build/include/simulation/generated_decls.fpp"
996#elif defined(MFC_OpenMP)
997# 189 "/home/runner/work/MFC/MFC/build/include/simulation/generated_decls.fpp"
998!$omp declare target (m)
999# 189 "/home/runner/work/MFC/MFC/build/include/simulation/generated_decls.fpp"
1000#endif
1001
1002# 190 "/home/runner/work/MFC/MFC/build/include/simulation/generated_decls.fpp"
1003#if defined(MFC_OpenACC)
1004# 190 "/home/runner/work/MFC/MFC/build/include/simulation/generated_decls.fpp"
1005!$acc declare create(mixture_err)
1006# 190 "/home/runner/work/MFC/MFC/build/include/simulation/generated_decls.fpp"
1007#elif defined(MFC_OpenMP)
1008# 190 "/home/runner/work/MFC/MFC/build/include/simulation/generated_decls.fpp"
1009!$omp declare target (mixture_err)
1010# 190 "/home/runner/work/MFC/MFC/build/include/simulation/generated_decls.fpp"
1011#endif
1012
1013# 191 "/home/runner/work/MFC/MFC/build/include/simulation/generated_decls.fpp"
1014#if defined(MFC_OpenACC)
1015# 191 "/home/runner/work/MFC/MFC/build/include/simulation/generated_decls.fpp"
1016!$acc declare create(model_eqns)
1017# 191 "/home/runner/work/MFC/MFC/build/include/simulation/generated_decls.fpp"
1018#elif defined(MFC_OpenMP)
1019# 191 "/home/runner/work/MFC/MFC/build/include/simulation/generated_decls.fpp"
1020!$omp declare target (model_eqns)
1021# 191 "/home/runner/work/MFC/MFC/build/include/simulation/generated_decls.fpp"
1022#endif
1023
1024# 192 "/home/runner/work/MFC/MFC/build/include/simulation/generated_decls.fpp"
1025#if defined(MFC_OpenACC)
1026# 192 "/home/runner/work/MFC/MFC/build/include/simulation/generated_decls.fpp"
1027!$acc declare create(mp_weno)
1028# 192 "/home/runner/work/MFC/MFC/build/include/simulation/generated_decls.fpp"
1029#elif defined(MFC_OpenMP)
1030# 192 "/home/runner/work/MFC/MFC/build/include/simulation/generated_decls.fpp"
1031!$omp declare target (mp_weno)
1032# 192 "/home/runner/work/MFC/MFC/build/include/simulation/generated_decls.fpp"
1033#endif
1034
1035# 193 "/home/runner/work/MFC/MFC/build/include/simulation/generated_decls.fpp"
1036#if defined(MFC_OpenACC)
1037# 193 "/home/runner/work/MFC/MFC/build/include/simulation/generated_decls.fpp"
1038!$acc declare create(mpp_lim)
1039# 193 "/home/runner/work/MFC/MFC/build/include/simulation/generated_decls.fpp"
1040#elif defined(MFC_OpenMP)
1041# 193 "/home/runner/work/MFC/MFC/build/include/simulation/generated_decls.fpp"
1042!$omp declare target (mpp_lim)
1043# 193 "/home/runner/work/MFC/MFC/build/include/simulation/generated_decls.fpp"
1044#endif
1045
1046# 194 "/home/runner/work/MFC/MFC/build/include/simulation/generated_decls.fpp"
1047#if defined(MFC_OpenACC)
1048# 194 "/home/runner/work/MFC/MFC/build/include/simulation/generated_decls.fpp"
1049!$acc declare create(muscl_eps)
1050# 194 "/home/runner/work/MFC/MFC/build/include/simulation/generated_decls.fpp"
1051#elif defined(MFC_OpenMP)
1052# 194 "/home/runner/work/MFC/MFC/build/include/simulation/generated_decls.fpp"
1053!$omp declare target (muscl_eps)
1054# 194 "/home/runner/work/MFC/MFC/build/include/simulation/generated_decls.fpp"
1055#endif
1056
1057# 195 "/home/runner/work/MFC/MFC/build/include/simulation/generated_decls.fpp"
1058#if defined(MFC_OpenACC)
1059# 195 "/home/runner/work/MFC/MFC/build/include/simulation/generated_decls.fpp"
1060!$acc declare create(n)
1061# 195 "/home/runner/work/MFC/MFC/build/include/simulation/generated_decls.fpp"
1062#elif defined(MFC_OpenMP)
1063# 195 "/home/runner/work/MFC/MFC/build/include/simulation/generated_decls.fpp"
1064!$omp declare target (n)
1065# 195 "/home/runner/work/MFC/MFC/build/include/simulation/generated_decls.fpp"
1066#endif
1067
1068# 196 "/home/runner/work/MFC/MFC/build/include/simulation/generated_decls.fpp"
1069#if defined(MFC_OpenACC)
1070# 196 "/home/runner/work/MFC/MFC/build/include/simulation/generated_decls.fpp"
1071!$acc declare create(num_ibs)
1072# 196 "/home/runner/work/MFC/MFC/build/include/simulation/generated_decls.fpp"
1073#elif defined(MFC_OpenMP)
1074# 196 "/home/runner/work/MFC/MFC/build/include/simulation/generated_decls.fpp"
1075!$omp declare target (num_ibs)
1076# 196 "/home/runner/work/MFC/MFC/build/include/simulation/generated_decls.fpp"
1077#endif
1078
1079# 197 "/home/runner/work/MFC/MFC/build/include/simulation/generated_decls.fpp"
1080#if defined(MFC_OpenACC)
1081# 197 "/home/runner/work/MFC/MFC/build/include/simulation/generated_decls.fpp"
1082!$acc declare create(num_source)
1083# 197 "/home/runner/work/MFC/MFC/build/include/simulation/generated_decls.fpp"
1084#elif defined(MFC_OpenMP)
1085# 197 "/home/runner/work/MFC/MFC/build/include/simulation/generated_decls.fpp"
1086!$omp declare target (num_source)
1087# 197 "/home/runner/work/MFC/MFC/build/include/simulation/generated_decls.fpp"
1088#endif
1089
1090# 198 "/home/runner/work/MFC/MFC/build/include/simulation/generated_decls.fpp"
1091#if defined(MFC_OpenACC)
1092# 198 "/home/runner/work/MFC/MFC/build/include/simulation/generated_decls.fpp"
1093!$acc declare create(num_turbulent_sources)
1094# 198 "/home/runner/work/MFC/MFC/build/include/simulation/generated_decls.fpp"
1095#elif defined(MFC_OpenMP)
1096# 198 "/home/runner/work/MFC/MFC/build/include/simulation/generated_decls.fpp"
1097!$omp declare target (num_turbulent_sources)
1098# 198 "/home/runner/work/MFC/MFC/build/include/simulation/generated_decls.fpp"
1099#endif
1100
1101# 199 "/home/runner/work/MFC/MFC/build/include/simulation/generated_decls.fpp"
1102#if defined(MFC_OpenACC)
1103# 199 "/home/runner/work/MFC/MFC/build/include/simulation/generated_decls.fpp"
1104!$acc declare create(p)
1105# 199 "/home/runner/work/MFC/MFC/build/include/simulation/generated_decls.fpp"
1106#elif defined(MFC_OpenMP)
1107# 199 "/home/runner/work/MFC/MFC/build/include/simulation/generated_decls.fpp"
1108!$omp declare target (p)
1109# 199 "/home/runner/work/MFC/MFC/build/include/simulation/generated_decls.fpp"
1110#endif
1111
1112# 200 "/home/runner/work/MFC/MFC/build/include/simulation/generated_decls.fpp"
1113#if defined(MFC_OpenACC)
1114# 200 "/home/runner/work/MFC/MFC/build/include/simulation/generated_decls.fpp"
1115!$acc declare create(palpha_eps)
1116# 200 "/home/runner/work/MFC/MFC/build/include/simulation/generated_decls.fpp"
1117#elif defined(MFC_OpenMP)
1118# 200 "/home/runner/work/MFC/MFC/build/include/simulation/generated_decls.fpp"
1119!$omp declare target (palpha_eps)
1120# 200 "/home/runner/work/MFC/MFC/build/include/simulation/generated_decls.fpp"
1121#endif
1122
1123# 201 "/home/runner/work/MFC/MFC/build/include/simulation/generated_decls.fpp"
1124#if defined(MFC_OpenACC)
1125# 201 "/home/runner/work/MFC/MFC/build/include/simulation/generated_decls.fpp"
1126!$acc declare create(pi_fac)
1127# 201 "/home/runner/work/MFC/MFC/build/include/simulation/generated_decls.fpp"
1128#elif defined(MFC_OpenMP)
1129# 201 "/home/runner/work/MFC/MFC/build/include/simulation/generated_decls.fpp"
1130!$omp declare target (pi_fac)
1131# 201 "/home/runner/work/MFC/MFC/build/include/simulation/generated_decls.fpp"
1132#endif
1133
1134# 202 "/home/runner/work/MFC/MFC/build/include/simulation/generated_decls.fpp"
1135#if defined(MFC_OpenACC)
1136# 202 "/home/runner/work/MFC/MFC/build/include/simulation/generated_decls.fpp"
1137!$acc declare create(poly_sigma)
1138# 202 "/home/runner/work/MFC/MFC/build/include/simulation/generated_decls.fpp"
1139#elif defined(MFC_OpenMP)
1140# 202 "/home/runner/work/MFC/MFC/build/include/simulation/generated_decls.fpp"
1141!$omp declare target (poly_sigma)
1142# 202 "/home/runner/work/MFC/MFC/build/include/simulation/generated_decls.fpp"
1143#endif
1144
1145# 203 "/home/runner/work/MFC/MFC/build/include/simulation/generated_decls.fpp"
1146#if defined(MFC_OpenACC)
1147# 203 "/home/runner/work/MFC/MFC/build/include/simulation/generated_decls.fpp"
1148!$acc declare create(polydisperse)
1149# 203 "/home/runner/work/MFC/MFC/build/include/simulation/generated_decls.fpp"
1150#elif defined(MFC_OpenMP)
1151# 203 "/home/runner/work/MFC/MFC/build/include/simulation/generated_decls.fpp"
1152!$omp declare target (polydisperse)
1153# 203 "/home/runner/work/MFC/MFC/build/include/simulation/generated_decls.fpp"
1154#endif
1155
1156# 204 "/home/runner/work/MFC/MFC/build/include/simulation/generated_decls.fpp"
1157#if defined(MFC_OpenACC)
1158# 204 "/home/runner/work/MFC/MFC/build/include/simulation/generated_decls.fpp"
1159!$acc declare create(polytropic)
1160# 204 "/home/runner/work/MFC/MFC/build/include/simulation/generated_decls.fpp"
1161#elif defined(MFC_OpenMP)
1162# 204 "/home/runner/work/MFC/MFC/build/include/simulation/generated_decls.fpp"
1163!$omp declare target (polytropic)
1164# 204 "/home/runner/work/MFC/MFC/build/include/simulation/generated_decls.fpp"
1165#endif
1166
1167# 205 "/home/runner/work/MFC/MFC/build/include/simulation/generated_decls.fpp"
1168#if defined(MFC_OpenACC)
1169# 205 "/home/runner/work/MFC/MFC/build/include/simulation/generated_decls.fpp"
1170!$acc declare create(ptgalpha_eps)
1171# 205 "/home/runner/work/MFC/MFC/build/include/simulation/generated_decls.fpp"
1172#elif defined(MFC_OpenMP)
1173# 205 "/home/runner/work/MFC/MFC/build/include/simulation/generated_decls.fpp"
1174!$omp declare target (ptgalpha_eps)
1175# 205 "/home/runner/work/MFC/MFC/build/include/simulation/generated_decls.fpp"
1176#endif
1177
1178# 206 "/home/runner/work/MFC/MFC/build/include/simulation/generated_decls.fpp"
1179#if defined(MFC_OpenACC)
1180# 206 "/home/runner/work/MFC/MFC/build/include/simulation/generated_decls.fpp"
1181!$acc declare create(qbmm)
1182# 206 "/home/runner/work/MFC/MFC/build/include/simulation/generated_decls.fpp"
1183#elif defined(MFC_OpenMP)
1184# 206 "/home/runner/work/MFC/MFC/build/include/simulation/generated_decls.fpp"
1185!$omp declare target (qbmm)
1186# 206 "/home/runner/work/MFC/MFC/build/include/simulation/generated_decls.fpp"
1187#endif
1188
1189# 207 "/home/runner/work/MFC/MFC/build/include/simulation/generated_decls.fpp"
1190#if defined(MFC_OpenACC)
1191# 207 "/home/runner/work/MFC/MFC/build/include/simulation/generated_decls.fpp"
1192!$acc declare create(relax)
1193# 207 "/home/runner/work/MFC/MFC/build/include/simulation/generated_decls.fpp"
1194#elif defined(MFC_OpenMP)
1195# 207 "/home/runner/work/MFC/MFC/build/include/simulation/generated_decls.fpp"
1196!$omp declare target (relax)
1197# 207 "/home/runner/work/MFC/MFC/build/include/simulation/generated_decls.fpp"
1198#endif
1199
1200# 208 "/home/runner/work/MFC/MFC/build/include/simulation/generated_decls.fpp"
1201#if defined(MFC_OpenACC)
1202# 208 "/home/runner/work/MFC/MFC/build/include/simulation/generated_decls.fpp"
1203!$acc declare create(relax_model)
1204# 208 "/home/runner/work/MFC/MFC/build/include/simulation/generated_decls.fpp"
1205#elif defined(MFC_OpenMP)
1206# 208 "/home/runner/work/MFC/MFC/build/include/simulation/generated_decls.fpp"
1207!$omp declare target (relax_model)
1208# 208 "/home/runner/work/MFC/MFC/build/include/simulation/generated_decls.fpp"
1209#endif
1210
1211# 209 "/home/runner/work/MFC/MFC/build/include/simulation/generated_decls.fpp"
1212#if defined(MFC_OpenACC)
1213# 209 "/home/runner/work/MFC/MFC/build/include/simulation/generated_decls.fpp"
1214!$acc declare create(riemann_hypo_ADC)
1215# 209 "/home/runner/work/MFC/MFC/build/include/simulation/generated_decls.fpp"
1216#elif defined(MFC_OpenMP)
1217# 209 "/home/runner/work/MFC/MFC/build/include/simulation/generated_decls.fpp"
1218!$omp declare target (riemann_hypo_ADC)
1219# 209 "/home/runner/work/MFC/MFC/build/include/simulation/generated_decls.fpp"
1220#endif
1221
1222# 210 "/home/runner/work/MFC/MFC/build/include/simulation/generated_decls.fpp"
1223#if defined(MFC_OpenACC)
1224# 210 "/home/runner/work/MFC/MFC/build/include/simulation/generated_decls.fpp"
1225!$acc declare create(sigma)
1226# 210 "/home/runner/work/MFC/MFC/build/include/simulation/generated_decls.fpp"
1227#elif defined(MFC_OpenMP)
1228# 210 "/home/runner/work/MFC/MFC/build/include/simulation/generated_decls.fpp"
1229!$omp declare target (sigma)
1230# 210 "/home/runner/work/MFC/MFC/build/include/simulation/generated_decls.fpp"
1231#endif
1232
1233# 211 "/home/runner/work/MFC/MFC/build/include/simulation/generated_decls.fpp"
1234#if defined(MFC_OpenACC)
1235# 211 "/home/runner/work/MFC/MFC/build/include/simulation/generated_decls.fpp"
1236!$acc declare create(surface_tension)
1237# 211 "/home/runner/work/MFC/MFC/build/include/simulation/generated_decls.fpp"
1238#elif defined(MFC_OpenMP)
1239# 211 "/home/runner/work/MFC/MFC/build/include/simulation/generated_decls.fpp"
1240!$omp declare target (surface_tension)
1241# 211 "/home/runner/work/MFC/MFC/build/include/simulation/generated_decls.fpp"
1242#endif
1243
1244# 212 "/home/runner/work/MFC/MFC/build/include/simulation/generated_decls.fpp"
1245#if defined(MFC_OpenACC)
1246# 212 "/home/runner/work/MFC/MFC/build/include/simulation/generated_decls.fpp"
1247!$acc declare create(synth_U_inf)
1248# 212 "/home/runner/work/MFC/MFC/build/include/simulation/generated_decls.fpp"
1249#elif defined(MFC_OpenMP)
1250# 212 "/home/runner/work/MFC/MFC/build/include/simulation/generated_decls.fpp"
1251!$omp declare target (synth_U_inf)
1252# 212 "/home/runner/work/MFC/MFC/build/include/simulation/generated_decls.fpp"
1253#endif
1254
1255# 213 "/home/runner/work/MFC/MFC/build/include/simulation/generated_decls.fpp"
1256#if defined(MFC_OpenACC)
1257# 213 "/home/runner/work/MFC/MFC/build/include/simulation/generated_decls.fpp"
1258!$acc declare create(synthetic_turbulence)
1259# 213 "/home/runner/work/MFC/MFC/build/include/simulation/generated_decls.fpp"
1260#elif defined(MFC_OpenMP)
1261# 213 "/home/runner/work/MFC/MFC/build/include/simulation/generated_decls.fpp"
1262!$omp declare target (synthetic_turbulence)
1263# 213 "/home/runner/work/MFC/MFC/build/include/simulation/generated_decls.fpp"
1264#endif
1265
1266# 214 "/home/runner/work/MFC/MFC/build/include/simulation/generated_decls.fpp"
1267#if defined(MFC_OpenACC)
1268# 214 "/home/runner/work/MFC/MFC/build/include/simulation/generated_decls.fpp"
1269!$acc declare create(tau_star)
1270# 214 "/home/runner/work/MFC/MFC/build/include/simulation/generated_decls.fpp"
1271#elif defined(MFC_OpenMP)
1272# 214 "/home/runner/work/MFC/MFC/build/include/simulation/generated_decls.fpp"
1273!$omp declare target (tau_star)
1274# 214 "/home/runner/work/MFC/MFC/build/include/simulation/generated_decls.fpp"
1275#endif
1276
1277# 215 "/home/runner/work/MFC/MFC/build/include/simulation/generated_decls.fpp"
1278#if defined(MFC_OpenACC)
1279# 215 "/home/runner/work/MFC/MFC/build/include/simulation/generated_decls.fpp"
1280!$acc declare create(teno_CT)
1281# 215 "/home/runner/work/MFC/MFC/build/include/simulation/generated_decls.fpp"
1282#elif defined(MFC_OpenMP)
1283# 215 "/home/runner/work/MFC/MFC/build/include/simulation/generated_decls.fpp"
1284!$omp declare target (teno_CT)
1285# 215 "/home/runner/work/MFC/MFC/build/include/simulation/generated_decls.fpp"
1286#endif
1287
1288# 216 "/home/runner/work/MFC/MFC/build/include/simulation/generated_decls.fpp"
1289#if defined(MFC_OpenACC)
1290# 216 "/home/runner/work/MFC/MFC/build/include/simulation/generated_decls.fpp"
1291!$acc declare create(thermal)
1292# 216 "/home/runner/work/MFC/MFC/build/include/simulation/generated_decls.fpp"
1293#elif defined(MFC_OpenMP)
1294# 216 "/home/runner/work/MFC/MFC/build/include/simulation/generated_decls.fpp"
1295!$omp declare target (thermal)
1296# 216 "/home/runner/work/MFC/MFC/build/include/simulation/generated_decls.fpp"
1297#endif
1298
1299# 217 "/home/runner/work/MFC/MFC/build/include/simulation/generated_decls.fpp"
1300#if defined(MFC_OpenACC)
1301# 217 "/home/runner/work/MFC/MFC/build/include/simulation/generated_decls.fpp"
1302!$acc declare create(weno_eps)
1303# 217 "/home/runner/work/MFC/MFC/build/include/simulation/generated_decls.fpp"
1304#elif defined(MFC_OpenMP)
1305# 217 "/home/runner/work/MFC/MFC/build/include/simulation/generated_decls.fpp"
1306!$omp declare target (weno_eps)
1307# 217 "/home/runner/work/MFC/MFC/build/include/simulation/generated_decls.fpp"
1308#endif
1309# 25 "/home/runner/work/MFC/MFC/src/common/m_global_parameters_common.fpp" 2
1310
1311 ! Case-optimization declarations: parameters (under MFC_CASE_OPTIMIZATION) or plain variables for
1312 ! num_dims, num_vels, weno_polyn, muscl_polyn, weno_num_stencils, wenojs, igr, etc.
1313# 1 "/home/runner/work/MFC/MFC/build/include/simulation/generated_case_opt_decls.fpp" 1
1314! AUTO-GENERATED - do not edit directly. Regenerate: cmake reconfigure
1315!
1316# 28 "/home/runner/work/MFC/MFC/build/include/simulation/generated_case_opt_decls.fpp"
1317 integer :: num_dims
1318 integer :: num_vels
1319 integer :: weno_polyn
1320 integer :: muscl_polyn
1321 integer :: weno_num_stencils
1322 logical :: wenojs
1323 logical :: any_state_dependent_eos
1324 logical :: igr
1325 integer :: igr_iter_solver
1326 integer :: igr_order
1327 logical :: igr_pres_lim
1328 logical :: mapped_weno
1329 logical :: mhd
1330 integer :: muscl_lim
1331 integer :: muscl_order
1332 integer :: num_fluids
1333 integer :: recon_type
1334 logical :: relativity
1335 logical :: teno
1336 logical :: viscous
1337 integer :: weno_order
1338 logical :: wenoz
1339 real(wp) :: wenoz_q
1340
1341# 51 "/home/runner/work/MFC/MFC/build/include/simulation/generated_case_opt_decls.fpp"
1342#if defined(MFC_OpenACC)
1343# 51 "/home/runner/work/MFC/MFC/build/include/simulation/generated_case_opt_decls.fpp"
1344!$acc declare create(igr)
1345# 51 "/home/runner/work/MFC/MFC/build/include/simulation/generated_case_opt_decls.fpp"
1346#elif defined(MFC_OpenMP)
1347# 51 "/home/runner/work/MFC/MFC/build/include/simulation/generated_case_opt_decls.fpp"
1348!$omp declare target (igr)
1349# 51 "/home/runner/work/MFC/MFC/build/include/simulation/generated_case_opt_decls.fpp"
1350#endif
1351
1352# 52 "/home/runner/work/MFC/MFC/build/include/simulation/generated_case_opt_decls.fpp"
1353#if defined(MFC_OpenACC)
1354# 52 "/home/runner/work/MFC/MFC/build/include/simulation/generated_case_opt_decls.fpp"
1355!$acc declare create(igr_iter_solver)
1356# 52 "/home/runner/work/MFC/MFC/build/include/simulation/generated_case_opt_decls.fpp"
1357#elif defined(MFC_OpenMP)
1358# 52 "/home/runner/work/MFC/MFC/build/include/simulation/generated_case_opt_decls.fpp"
1359!$omp declare target (igr_iter_solver)
1360# 52 "/home/runner/work/MFC/MFC/build/include/simulation/generated_case_opt_decls.fpp"
1361#endif
1362
1363# 53 "/home/runner/work/MFC/MFC/build/include/simulation/generated_case_opt_decls.fpp"
1364#if defined(MFC_OpenACC)
1365# 53 "/home/runner/work/MFC/MFC/build/include/simulation/generated_case_opt_decls.fpp"
1366!$acc declare create(igr_order)
1367# 53 "/home/runner/work/MFC/MFC/build/include/simulation/generated_case_opt_decls.fpp"
1368#elif defined(MFC_OpenMP)
1369# 53 "/home/runner/work/MFC/MFC/build/include/simulation/generated_case_opt_decls.fpp"
1370!$omp declare target (igr_order)
1371# 53 "/home/runner/work/MFC/MFC/build/include/simulation/generated_case_opt_decls.fpp"
1372#endif
1373
1374# 54 "/home/runner/work/MFC/MFC/build/include/simulation/generated_case_opt_decls.fpp"
1375#if defined(MFC_OpenACC)
1376# 54 "/home/runner/work/MFC/MFC/build/include/simulation/generated_case_opt_decls.fpp"
1377!$acc declare create(igr_pres_lim)
1378# 54 "/home/runner/work/MFC/MFC/build/include/simulation/generated_case_opt_decls.fpp"
1379#elif defined(MFC_OpenMP)
1380# 54 "/home/runner/work/MFC/MFC/build/include/simulation/generated_case_opt_decls.fpp"
1381!$omp declare target (igr_pres_lim)
1382# 54 "/home/runner/work/MFC/MFC/build/include/simulation/generated_case_opt_decls.fpp"
1383#endif
1384
1385# 55 "/home/runner/work/MFC/MFC/build/include/simulation/generated_case_opt_decls.fpp"
1386#if defined(MFC_OpenACC)
1387# 55 "/home/runner/work/MFC/MFC/build/include/simulation/generated_case_opt_decls.fpp"
1388!$acc declare create(mapped_weno)
1389# 55 "/home/runner/work/MFC/MFC/build/include/simulation/generated_case_opt_decls.fpp"
1390#elif defined(MFC_OpenMP)
1391# 55 "/home/runner/work/MFC/MFC/build/include/simulation/generated_case_opt_decls.fpp"
1392!$omp declare target (mapped_weno)
1393# 55 "/home/runner/work/MFC/MFC/build/include/simulation/generated_case_opt_decls.fpp"
1394#endif
1395
1396# 56 "/home/runner/work/MFC/MFC/build/include/simulation/generated_case_opt_decls.fpp"
1397#if defined(MFC_OpenACC)
1398# 56 "/home/runner/work/MFC/MFC/build/include/simulation/generated_case_opt_decls.fpp"
1399!$acc declare create(mhd)
1400# 56 "/home/runner/work/MFC/MFC/build/include/simulation/generated_case_opt_decls.fpp"
1401#elif defined(MFC_OpenMP)
1402# 56 "/home/runner/work/MFC/MFC/build/include/simulation/generated_case_opt_decls.fpp"
1403!$omp declare target (mhd)
1404# 56 "/home/runner/work/MFC/MFC/build/include/simulation/generated_case_opt_decls.fpp"
1405#endif
1406
1407# 57 "/home/runner/work/MFC/MFC/build/include/simulation/generated_case_opt_decls.fpp"
1408#if defined(MFC_OpenACC)
1409# 57 "/home/runner/work/MFC/MFC/build/include/simulation/generated_case_opt_decls.fpp"
1410!$acc declare create(muscl_lim)
1411# 57 "/home/runner/work/MFC/MFC/build/include/simulation/generated_case_opt_decls.fpp"
1412#elif defined(MFC_OpenMP)
1413# 57 "/home/runner/work/MFC/MFC/build/include/simulation/generated_case_opt_decls.fpp"
1414!$omp declare target (muscl_lim)
1415# 57 "/home/runner/work/MFC/MFC/build/include/simulation/generated_case_opt_decls.fpp"
1416#endif
1417
1418# 58 "/home/runner/work/MFC/MFC/build/include/simulation/generated_case_opt_decls.fpp"
1419#if defined(MFC_OpenACC)
1420# 58 "/home/runner/work/MFC/MFC/build/include/simulation/generated_case_opt_decls.fpp"
1421!$acc declare create(muscl_order)
1422# 58 "/home/runner/work/MFC/MFC/build/include/simulation/generated_case_opt_decls.fpp"
1423#elif defined(MFC_OpenMP)
1424# 58 "/home/runner/work/MFC/MFC/build/include/simulation/generated_case_opt_decls.fpp"
1425!$omp declare target (muscl_order)
1426# 58 "/home/runner/work/MFC/MFC/build/include/simulation/generated_case_opt_decls.fpp"
1427#endif
1428
1429# 59 "/home/runner/work/MFC/MFC/build/include/simulation/generated_case_opt_decls.fpp"
1430#if defined(MFC_OpenACC)
1431# 59 "/home/runner/work/MFC/MFC/build/include/simulation/generated_case_opt_decls.fpp"
1432!$acc declare create(muscl_polyn)
1433# 59 "/home/runner/work/MFC/MFC/build/include/simulation/generated_case_opt_decls.fpp"
1434#elif defined(MFC_OpenMP)
1435# 59 "/home/runner/work/MFC/MFC/build/include/simulation/generated_case_opt_decls.fpp"
1436!$omp declare target (muscl_polyn)
1437# 59 "/home/runner/work/MFC/MFC/build/include/simulation/generated_case_opt_decls.fpp"
1438#endif
1439
1440# 60 "/home/runner/work/MFC/MFC/build/include/simulation/generated_case_opt_decls.fpp"
1441#if defined(MFC_OpenACC)
1442# 60 "/home/runner/work/MFC/MFC/build/include/simulation/generated_case_opt_decls.fpp"
1443!$acc declare create(num_dims)
1444# 60 "/home/runner/work/MFC/MFC/build/include/simulation/generated_case_opt_decls.fpp"
1445#elif defined(MFC_OpenMP)
1446# 60 "/home/runner/work/MFC/MFC/build/include/simulation/generated_case_opt_decls.fpp"
1447!$omp declare target (num_dims)
1448# 60 "/home/runner/work/MFC/MFC/build/include/simulation/generated_case_opt_decls.fpp"
1449#endif
1450
1451# 61 "/home/runner/work/MFC/MFC/build/include/simulation/generated_case_opt_decls.fpp"
1452#if defined(MFC_OpenACC)
1453# 61 "/home/runner/work/MFC/MFC/build/include/simulation/generated_case_opt_decls.fpp"
1454!$acc declare create(num_fluids)
1455# 61 "/home/runner/work/MFC/MFC/build/include/simulation/generated_case_opt_decls.fpp"
1456#elif defined(MFC_OpenMP)
1457# 61 "/home/runner/work/MFC/MFC/build/include/simulation/generated_case_opt_decls.fpp"
1458!$omp declare target (num_fluids)
1459# 61 "/home/runner/work/MFC/MFC/build/include/simulation/generated_case_opt_decls.fpp"
1460#endif
1461
1462# 62 "/home/runner/work/MFC/MFC/build/include/simulation/generated_case_opt_decls.fpp"
1463#if defined(MFC_OpenACC)
1464# 62 "/home/runner/work/MFC/MFC/build/include/simulation/generated_case_opt_decls.fpp"
1465!$acc declare create(num_vels)
1466# 62 "/home/runner/work/MFC/MFC/build/include/simulation/generated_case_opt_decls.fpp"
1467#elif defined(MFC_OpenMP)
1468# 62 "/home/runner/work/MFC/MFC/build/include/simulation/generated_case_opt_decls.fpp"
1469!$omp declare target (num_vels)
1470# 62 "/home/runner/work/MFC/MFC/build/include/simulation/generated_case_opt_decls.fpp"
1471#endif
1472
1473# 63 "/home/runner/work/MFC/MFC/build/include/simulation/generated_case_opt_decls.fpp"
1474#if defined(MFC_OpenACC)
1475# 63 "/home/runner/work/MFC/MFC/build/include/simulation/generated_case_opt_decls.fpp"
1476!$acc declare create(recon_type)
1477# 63 "/home/runner/work/MFC/MFC/build/include/simulation/generated_case_opt_decls.fpp"
1478#elif defined(MFC_OpenMP)
1479# 63 "/home/runner/work/MFC/MFC/build/include/simulation/generated_case_opt_decls.fpp"
1480!$omp declare target (recon_type)
1481# 63 "/home/runner/work/MFC/MFC/build/include/simulation/generated_case_opt_decls.fpp"
1482#endif
1483
1484# 64 "/home/runner/work/MFC/MFC/build/include/simulation/generated_case_opt_decls.fpp"
1485#if defined(MFC_OpenACC)
1486# 64 "/home/runner/work/MFC/MFC/build/include/simulation/generated_case_opt_decls.fpp"
1487!$acc declare create(relativity)
1488# 64 "/home/runner/work/MFC/MFC/build/include/simulation/generated_case_opt_decls.fpp"
1489#elif defined(MFC_OpenMP)
1490# 64 "/home/runner/work/MFC/MFC/build/include/simulation/generated_case_opt_decls.fpp"
1491!$omp declare target (relativity)
1492# 64 "/home/runner/work/MFC/MFC/build/include/simulation/generated_case_opt_decls.fpp"
1493#endif
1494
1495# 65 "/home/runner/work/MFC/MFC/build/include/simulation/generated_case_opt_decls.fpp"
1496#if defined(MFC_OpenACC)
1497# 65 "/home/runner/work/MFC/MFC/build/include/simulation/generated_case_opt_decls.fpp"
1498!$acc declare create(teno)
1499# 65 "/home/runner/work/MFC/MFC/build/include/simulation/generated_case_opt_decls.fpp"
1500#elif defined(MFC_OpenMP)
1501# 65 "/home/runner/work/MFC/MFC/build/include/simulation/generated_case_opt_decls.fpp"
1502!$omp declare target (teno)
1503# 65 "/home/runner/work/MFC/MFC/build/include/simulation/generated_case_opt_decls.fpp"
1504#endif
1505
1506# 66 "/home/runner/work/MFC/MFC/build/include/simulation/generated_case_opt_decls.fpp"
1507#if defined(MFC_OpenACC)
1508# 66 "/home/runner/work/MFC/MFC/build/include/simulation/generated_case_opt_decls.fpp"
1509!$acc declare create(viscous)
1510# 66 "/home/runner/work/MFC/MFC/build/include/simulation/generated_case_opt_decls.fpp"
1511#elif defined(MFC_OpenMP)
1512# 66 "/home/runner/work/MFC/MFC/build/include/simulation/generated_case_opt_decls.fpp"
1513!$omp declare target (viscous)
1514# 66 "/home/runner/work/MFC/MFC/build/include/simulation/generated_case_opt_decls.fpp"
1515#endif
1516
1517# 67 "/home/runner/work/MFC/MFC/build/include/simulation/generated_case_opt_decls.fpp"
1518#if defined(MFC_OpenACC)
1519# 67 "/home/runner/work/MFC/MFC/build/include/simulation/generated_case_opt_decls.fpp"
1520!$acc declare create(weno_num_stencils)
1521# 67 "/home/runner/work/MFC/MFC/build/include/simulation/generated_case_opt_decls.fpp"
1522#elif defined(MFC_OpenMP)
1523# 67 "/home/runner/work/MFC/MFC/build/include/simulation/generated_case_opt_decls.fpp"
1524!$omp declare target (weno_num_stencils)
1525# 67 "/home/runner/work/MFC/MFC/build/include/simulation/generated_case_opt_decls.fpp"
1526#endif
1527
1528# 68 "/home/runner/work/MFC/MFC/build/include/simulation/generated_case_opt_decls.fpp"
1529#if defined(MFC_OpenACC)
1530# 68 "/home/runner/work/MFC/MFC/build/include/simulation/generated_case_opt_decls.fpp"
1531!$acc declare create(weno_order)
1532# 68 "/home/runner/work/MFC/MFC/build/include/simulation/generated_case_opt_decls.fpp"
1533#elif defined(MFC_OpenMP)
1534# 68 "/home/runner/work/MFC/MFC/build/include/simulation/generated_case_opt_decls.fpp"
1535!$omp declare target (weno_order)
1536# 68 "/home/runner/work/MFC/MFC/build/include/simulation/generated_case_opt_decls.fpp"
1537#endif
1538
1539# 69 "/home/runner/work/MFC/MFC/build/include/simulation/generated_case_opt_decls.fpp"
1540#if defined(MFC_OpenACC)
1541# 69 "/home/runner/work/MFC/MFC/build/include/simulation/generated_case_opt_decls.fpp"
1542!$acc declare create(weno_polyn)
1543# 69 "/home/runner/work/MFC/MFC/build/include/simulation/generated_case_opt_decls.fpp"
1544#elif defined(MFC_OpenMP)
1545# 69 "/home/runner/work/MFC/MFC/build/include/simulation/generated_case_opt_decls.fpp"
1546!$omp declare target (weno_polyn)
1547# 69 "/home/runner/work/MFC/MFC/build/include/simulation/generated_case_opt_decls.fpp"
1548#endif
1549
1550# 70 "/home/runner/work/MFC/MFC/build/include/simulation/generated_case_opt_decls.fpp"
1551#if defined(MFC_OpenACC)
1552# 70 "/home/runner/work/MFC/MFC/build/include/simulation/generated_case_opt_decls.fpp"
1553!$acc declare create(wenojs)
1554# 70 "/home/runner/work/MFC/MFC/build/include/simulation/generated_case_opt_decls.fpp"
1555#elif defined(MFC_OpenMP)
1556# 70 "/home/runner/work/MFC/MFC/build/include/simulation/generated_case_opt_decls.fpp"
1557!$omp declare target (wenojs)
1558# 70 "/home/runner/work/MFC/MFC/build/include/simulation/generated_case_opt_decls.fpp"
1559#endif
1560
1561# 71 "/home/runner/work/MFC/MFC/build/include/simulation/generated_case_opt_decls.fpp"
1562#if defined(MFC_OpenACC)
1563# 71 "/home/runner/work/MFC/MFC/build/include/simulation/generated_case_opt_decls.fpp"
1564!$acc declare create(wenoz)
1565# 71 "/home/runner/work/MFC/MFC/build/include/simulation/generated_case_opt_decls.fpp"
1566#elif defined(MFC_OpenMP)
1567# 71 "/home/runner/work/MFC/MFC/build/include/simulation/generated_case_opt_decls.fpp"
1568!$omp declare target (wenoz)
1569# 71 "/home/runner/work/MFC/MFC/build/include/simulation/generated_case_opt_decls.fpp"
1570#endif
1571
1572# 72 "/home/runner/work/MFC/MFC/build/include/simulation/generated_case_opt_decls.fpp"
1573#if defined(MFC_OpenACC)
1574# 72 "/home/runner/work/MFC/MFC/build/include/simulation/generated_case_opt_decls.fpp"
1575!$acc declare create(wenoz_q)
1576# 72 "/home/runner/work/MFC/MFC/build/include/simulation/generated_case_opt_decls.fpp"
1577#elif defined(MFC_OpenMP)
1578# 72 "/home/runner/work/MFC/MFC/build/include/simulation/generated_case_opt_decls.fpp"
1579!$omp declare target (wenoz_q)
1580# 72 "/home/runner/work/MFC/MFC/build/include/simulation/generated_case_opt_decls.fpp"
1581#endif
1582# 74 "/home/runner/work/MFC/MFC/build/include/simulation/generated_case_opt_decls.fpp"
1583# 29 "/home/runner/work/MFC/MFC/src/common/m_global_parameters_common.fpp" 2
1584
1585 !> @name Annotations of the structure of the state and flux vectors in terms of the size and configuration of the system of
1586 !! equations
1587 !> @{
1588 integer :: sys_size !< Number of unknowns in system of equations
1589 type(eqn_idx_info) :: eqn_idx !< All conserved-variable equation index ranges and scalars
1590 !> @}
1591
1592 !> @name Chemistry modeling (Fypp compile-time constant; same value in all targets)
1593 !> @{
1594 logical, parameter :: chemistry = .false.
1595 !> @}
1596
1597 !> @name Hypoelastic shear stress state (identical across all three executables)
1598 !> @{
1599 integer :: shear_num !< Number of shear stress components
1600 integer, dimension(3) :: shear_indices !< Indices of the stress components that represent shear stress
1601 integer :: shear_bc_flip_num !< Number of shear stress components to reflect for boundary conditions
1602 integer, dimension(3, 2) :: shear_bc_flip_indices !< Shear stress BC reflection indices (1:3, 1:shear_BC_flip_num)
1603 !> @}
1604
1605 !> @name Material properties derived from fluid_pp
1606 !> @{ One declaration is shared by all executables and initialized by m_eos after the case parameters have been read.
1607 !> gammas is the stored form 1/(gamma - 1), not the ratio of specific heats; isentrope_n and isentrope_B are the same EOS
1608 !! written as p + B = const*rho**n.
1609 real(wp), allocatable, dimension(:) :: gammas, isentrope_n, pi_infs, isentrope_b, cvs, qvs, qvps
1610
1611# 55 "/home/runner/work/MFC/MFC/src/common/m_global_parameters_common.fpp"
1612#if defined(MFC_OpenACC)
1613# 55 "/home/runner/work/MFC/MFC/src/common/m_global_parameters_common.fpp"
1614!$acc declare create(gammas, isentrope_n, pi_infs, isentrope_B, cvs, qvs, qvps)
1615# 55 "/home/runner/work/MFC/MFC/src/common/m_global_parameters_common.fpp"
1616#elif defined(MFC_OpenMP)
1617# 55 "/home/runner/work/MFC/MFC/src/common/m_global_parameters_common.fpp"
1618!$omp declare target (gammas, isentrope_n, pi_infs, isentrope_B, cvs, qvs, qvps)
1619# 55 "/home/runner/work/MFC/MFC/src/common/m_global_parameters_common.fpp"
1620#endif
1621 !> Per-fluid EOS selector and Mie-Gruneisen reference curve, resolved once at init like the arrays above
1622 integer, allocatable, dimension(:) :: eoss
1623 !> Per-fluid EOS coefficients, whatever the family; see type eos_coefficients.
1624 type(eos_coefficients), dimension(num_fluids_max) :: eos_coeffs
1625 !> any_state_dependent_eos is declared with the case-optimization block above: a parameter when the case is baked in, so the
1626 !! compiler drops the whole state-dependent chain from kernels that never need it.
1627
1628# 62 "/home/runner/work/MFC/MFC/src/common/m_global_parameters_common.fpp"
1629#if defined(MFC_OpenACC)
1630# 62 "/home/runner/work/MFC/MFC/src/common/m_global_parameters_common.fpp"
1631!$acc declare create(eoss, eos_coeffs)
1632# 62 "/home/runner/work/MFC/MFC/src/common/m_global_parameters_common.fpp"
1633#elif defined(MFC_OpenMP)
1634# 62 "/home/runner/work/MFC/MFC/src/common/m_global_parameters_common.fpp"
1635!$omp declare target (eoss, eos_coeffs)
1636# 62 "/home/runner/work/MFC/MFC/src/common/m_global_parameters_common.fpp"
1637#endif
1638 !> Fourier heat conduction: true when any fluid sets k_therm > 0. Derived, never read from the namelist.
1639 logical :: heat_conduction
1640 real(wp), allocatable, dimension(:) :: fluid_k_therm
1641
1642# 66 "/home/runner/work/MFC/MFC/src/common/m_global_parameters_common.fpp"
1643#if defined(MFC_OpenACC)
1644# 66 "/home/runner/work/MFC/MFC/src/common/m_global_parameters_common.fpp"
1645!$acc declare create(heat_conduction, fluid_k_therm)
1646# 66 "/home/runner/work/MFC/MFC/src/common/m_global_parameters_common.fpp"
1647#elif defined(MFC_OpenMP)
1648# 66 "/home/runner/work/MFC/MFC/src/common/m_global_parameters_common.fpp"
1649!$omp declare target (heat_conduction, fluid_k_therm)
1650# 66 "/home/runner/work/MFC/MFC/src/common/m_global_parameters_common.fpp"
1651#endif
1652# 68 "/home/runner/work/MFC/MFC/src/common/m_global_parameters_common.fpp"
1653
1654# 68 "/home/runner/work/MFC/MFC/src/common/m_global_parameters_common.fpp"
1655#if defined(MFC_OpenACC)
1656# 68 "/home/runner/work/MFC/MFC/src/common/m_global_parameters_common.fpp"
1657!$acc declare create(any_state_dependent_eos)
1658# 68 "/home/runner/work/MFC/MFC/src/common/m_global_parameters_common.fpp"
1659#elif defined(MFC_OpenMP)
1660# 68 "/home/runner/work/MFC/MFC/src/common/m_global_parameters_common.fpp"
1661!$omp declare target (any_state_dependent_eos)
1662# 68 "/home/runner/work/MFC/MFC/src/common/m_global_parameters_common.fpp"
1663#endif
1664# 70 "/home/runner/work/MFC/MFC/src/common/m_global_parameters_common.fpp"
1665 !> @}
1666
1667 !> @name Fluids participating in shear and bulk viscosity
1668 !> @{
1669 integer, dimension(2) :: re_size = 0
1670 integer :: re_size_max = 0
1671 integer, allocatable, dimension(:,:) :: re_idx
1672
1673# 77 "/home/runner/work/MFC/MFC/src/common/m_global_parameters_common.fpp"
1674#if defined(MFC_OpenACC)
1675# 77 "/home/runner/work/MFC/MFC/src/common/m_global_parameters_common.fpp"
1676!$acc declare create(Re_size, Re_size_max, Re_idx)
1677# 77 "/home/runner/work/MFC/MFC/src/common/m_global_parameters_common.fpp"
1678#elif defined(MFC_OpenMP)
1679# 77 "/home/runner/work/MFC/MFC/src/common/m_global_parameters_common.fpp"
1680!$omp declare target (Re_size, Re_size_max, Re_idx)
1681# 77 "/home/runner/work/MFC/MFC/src/common/m_global_parameters_common.fpp"
1682#endif
1683 !> @}
1684
1685 !> Minimum cell widths. These are distinct from the per-cell width arrays named dx, dy, and dz in simulation and post-process.
1686 real(wp) :: dx_min, dy_min, dz_min
1687
1688
1689# 83 "/home/runner/work/MFC/MFC/src/common/m_global_parameters_common.fpp"
1690#if defined(MFC_OpenACC)
1691# 83 "/home/runner/work/MFC/MFC/src/common/m_global_parameters_common.fpp"
1692!$acc declare create(sys_size, eqn_idx)
1693# 83 "/home/runner/work/MFC/MFC/src/common/m_global_parameters_common.fpp"
1694#elif defined(MFC_OpenMP)
1695# 83 "/home/runner/work/MFC/MFC/src/common/m_global_parameters_common.fpp"
1696!$omp declare target (sys_size, eqn_idx)
1697# 83 "/home/runner/work/MFC/MFC/src/common/m_global_parameters_common.fpp"
1698#endif
1699
1700# 84 "/home/runner/work/MFC/MFC/src/common/m_global_parameters_common.fpp"
1701#if defined(MFC_OpenACC)
1702# 84 "/home/runner/work/MFC/MFC/src/common/m_global_parameters_common.fpp"
1703!$acc declare create(shear_num, shear_indices, shear_BC_flip_num, shear_BC_flip_indices)
1704# 84 "/home/runner/work/MFC/MFC/src/common/m_global_parameters_common.fpp"
1705#elif defined(MFC_OpenMP)
1706# 84 "/home/runner/work/MFC/MFC/src/common/m_global_parameters_common.fpp"
1707!$omp declare target (shear_num, shear_indices, shear_BC_flip_num, shear_BC_flip_indices)
1708# 84 "/home/runner/work/MFC/MFC/src/common/m_global_parameters_common.fpp"
1709#endif
1710
1711 !> @name Processor coordinates and parallel-IO addressing (identical declaration across all three targets)
1712 !> @{
1713 integer, allocatable, dimension(:) :: proc_coords !< Processor coordinates in MPI_CART_COMM
1714 integer, allocatable, dimension(:) :: start_idx !< Starting cell-center index of local processor in global grid
1715 integer :: num_procs_x = 1 !< Number of MPI ranks in x-direction
1716 integer :: num_procs_y = 1 !< Number of MPI ranks in y-direction
1717 integer :: num_procs_z = 1 !< Number of MPI ranks in z-direction
1718 !> @}
1719
1720 !> @name MPI info for parallel IO with Lustre file systems (identical across all three targets)
1721 !> @{
1722 character(len=name_len) :: mpiiofs
1723 integer :: mpi_info_int
1724 !> @}
1725
1726contains
1727
1728 !> Initialize equation-index state (eqn_idx and sys_size) from the namelist parameters. This is the shared skeleton: it covers
1729 !! the model_eqns dispatch, all eqn_idx field assignments, and the hypoelastic/surface-tension/chemistry extensions.
1730 !!
1731 !! @param nmom_in Number of carried moments per R0 location (per-target: pre/post pass an
1732 !! integer variable; sim passes its integer parameter nmom = 6). Used only in the 5eq
1733 !! qbmm bubble-index calculation (eqn_idx%bub%end = eqn_idx%adv%end + nb_in*nmom_in).
1734 !!
1735 !! Per-target callers are responsible for the following after this call:
1736 !! - qbmm_idx allocations and fills (diverge between pre vs sim/post)
1737 !! - sim-only: gam = bub_pp%gam_g, nmomsp/nmomtot, Re_idx allocation, GPU_UPDATE calls
1738 !! - post-only: beta_idx increment (bubbles_lagrange path), offset/grid allocations
1739 impure subroutine s_initialize_eqn_idx(nmom_in, nb_in, six_eqn_alf_is_advected)
1740
1741 integer, intent(in) :: nmom_in
1742 integer, intent(in) :: nb_in
1743 logical, intent(in) :: six_eqn_alf_is_advected
1744
1745 ! Gamma/Pi_inf Model
1746
1747 if (model_eqns == model_eqns_gamma_law) then
1748 ! Annotating structure of the state and flux vectors belonging to the system of
1749 ! equations defined by the selected number of spatial dimensions and the gamma/pi_inf model
1750 eqn_idx%cont%beg = 1
1751 eqn_idx%cont%end = eqn_idx%cont%beg
1752 eqn_idx%mom%beg = eqn_idx%cont%end + 1
1753 eqn_idx%mom%end = eqn_idx%cont%end + num_vels
1754 eqn_idx%E = eqn_idx%mom%end + 1
1755 eqn_idx%adv%beg = eqn_idx%E + 1
1756 eqn_idx%adv%end = eqn_idx%adv%beg + 1
1757 eqn_idx%gamma = eqn_idx%adv%beg
1758 eqn_idx%pi_inf = eqn_idx%adv%end
1759 sys_size = eqn_idx%adv%end
1760
1761 ! Volume Fraction Model (5-equation model)
1762 else if (model_eqns == model_eqns_5eq) then
1763 ! Annotating structure of the state and flux vectors belonging to the system of
1764 ! equations defined by the selected number of spatial dimensions and the volume fraction model
1765 eqn_idx%cont%beg = 1
1766 eqn_idx%cont%end = num_fluids
1767 eqn_idx%mom%beg = eqn_idx%cont%end + 1
1768 eqn_idx%mom%end = eqn_idx%cont%end + num_vels
1769 eqn_idx%E = eqn_idx%mom%end + 1
1770
1771 if (igr) then
1772 ! IGR: volume fractions after energy (N-1 for N fluids; skipped when num_fluids=1)
1773 eqn_idx%adv%beg = eqn_idx%E + 1
1774 eqn_idx%adv%end = eqn_idx%E + num_fluids - 1
1775 else
1776 ! WENO/MUSCL + Riemann tracks a total of (N) volume fractions for N fluids
1777 eqn_idx%adv%beg = eqn_idx%E + 1
1778 eqn_idx%adv%end = eqn_idx%E + num_fluids
1779 end if
1780
1781 sys_size = eqn_idx%adv%end
1782
1783 if (bubbles_euler) then
1784 eqn_idx%alf = eqn_idx%adv%end
1785 else
1786 eqn_idx%alf = 1
1787 end if
1788
1789 if (bubbles_euler) then
1790 eqn_idx%bub%beg = sys_size + 1
1791 if (qbmm) then
1792 eqn_idx%bub%end = eqn_idx%adv%end + nb_in*nmom_in
1793 else
1794 if (.not. polytropic) then
1795 eqn_idx%bub%end = sys_size + 4*nb_in
1796 else
1797 eqn_idx%bub%end = sys_size + 2*nb_in
1798 end if
1799 end if
1800 sys_size = eqn_idx%bub%end
1801
1802 if (adv_n) then
1803 eqn_idx%n = eqn_idx%bub%end + 1
1804 sys_size = eqn_idx%n
1805 end if
1806 end if
1807
1808 if (mhd) then
1809 eqn_idx%B%beg = sys_size + 1
1810 if (n == 0) then
1811 eqn_idx%B%end = sys_size + 2 ! 1D: By, Bz
1812 else
1813 eqn_idx%B%end = sys_size + 3 ! 2D/3D: Bx, By, Bz
1814 end if
1815 sys_size = eqn_idx%B%end
1816 end if
1817
1818 ! Volume Fraction Model (6-equation model)
1819 else if (model_eqns == model_eqns_6eq) then
1820 ! Annotating structure of the state and flux vectors belonging to the system of
1821 ! equations defined by the selected number of spatial dimensions and the volume fraction model
1822 eqn_idx%cont%beg = 1
1823 eqn_idx%cont%end = num_fluids
1824 eqn_idx%mom%beg = eqn_idx%cont%end + 1
1825 eqn_idx%mom%end = eqn_idx%cont%end + num_vels
1826 eqn_idx%E = eqn_idx%mom%end + 1
1827 eqn_idx%adv%beg = eqn_idx%E + 1
1828 eqn_idx%adv%end = eqn_idx%E + num_fluids
1829 if (six_eqn_alf_is_advected) eqn_idx%alf = eqn_idx%adv%end
1830 eqn_idx%int_en%beg = eqn_idx%adv%end + 1
1831 eqn_idx%int_en%end = eqn_idx%adv%end + num_fluids
1832 sys_size = eqn_idx%int_en%end
1833 end if
1834
1835 if (model_eqns == model_eqns_5eq .or. model_eqns == model_eqns_6eq) then
1836 if (hypoelasticity) then
1837 eqn_idx%stress%beg = sys_size + 1
1838 eqn_idx%stress%end = sys_size + (num_dims*(num_dims + 1))/2
1839 if (cyl_coord) eqn_idx%stress%end = eqn_idx%stress%end + 1
1840 ! number of stresses is 1 in 1D, 3 in 2D, 4 in 2D-Axisym, 6 in 3D
1841 sys_size = eqn_idx%stress%end
1842
1843 ! shear stress index is 2 for 2D and 2,4,5 for 3D. Readers test the whole array
1844 ! rather than the first shear_num entries, so unused slots must not be garbage.
1845 shear_indices = 0
1846 if (num_dims == 1) then
1847 shear_num = 0
1848 else if (num_dims == 2) then
1849 shear_num = 1
1850 shear_indices(1) = eqn_idx%stress%beg - 1 + 2
1851 shear_bc_flip_num = 1
1852 shear_bc_flip_indices(1:2,1) = shear_indices(1)
1853 ! Both x-dir and y-dir: flip tau_xy only
1854 else if (num_dims == 3) then
1855 shear_num = 3
1856 shear_indices(1:3) = eqn_idx%stress%beg - 1 + (/2, 4, 5/)
1857 shear_bc_flip_num = 2
1858 shear_bc_flip_indices(1,1:2) = shear_indices((/1, 2/))
1859 shear_bc_flip_indices(2,1:2) = shear_indices((/1, 3/))
1860 shear_bc_flip_indices(3,1:2) = shear_indices((/2, 3/))
1861 ! x-dir: flip tau_xy and tau_xz; y-dir: flip tau_xy and tau_yz; z-dir: flip tau_xz and tau_yz
1862 end if
1863 end if
1864
1865 if (surface_tension) then
1866 eqn_idx%c = sys_size + 1
1867 sys_size = eqn_idx%c
1868 end if
1869
1870 if (cont_damage) then
1871 eqn_idx%damage = sys_size + 1
1872 sys_size = eqn_idx%damage
1873 end if
1874
1875 if (hyper_cleaning) then
1876 eqn_idx%psi = sys_size + 1
1877 sys_size = eqn_idx%psi
1878 end if
1879 end if
1880
1881 if (chemistry) then
1882 eqn_idx%species%beg = sys_size + 1
1883 eqn_idx%species%end = sys_size + num_species
1884 sys_size = eqn_idx%species%end
1885 end if
1886
1887 ! Resolved here, not with the other fluid properties, because the MPI halo buffers are sized before
1888 ! m_variables_conversion runs and conduction adds temperature to the exchange.
1889 heat_conduction = any(fluid_pp(:)%k_therm > 0._wp)
1890
1891 end subroutine s_initialize_eqn_idx
1892
1893 !> Configure MPI parallel I/O settings and allocate processor coordinate arrays. Shared across all three executables;
1894 !! num_dims/num_vels are computed here for pre/post unconditionally and for sim only when not case-optimized (in which case they
1895 !! are compile-time parameters). Callers must have already populated n and p (grid dimensions).
1896 impure subroutine s_initialize_parallel_io_common
1897
1898#ifdef MFC_MPI
1899 integer :: ierr !< Generic flag used to identify and report MPI errors
1900#endif
1901
1902 ! Under case-optimization, num_dims and num_vels are compile-time parameters; skip assignment.
1903# 279 "/home/runner/work/MFC/MFC/src/common/m_global_parameters_common.fpp"
1904 num_dims = 1 + min(1, n) + min(1, p)
1905
1906 if (mhd) then
1907 num_vels = 3
1908 else
1909 num_vels = num_dims
1910 end if
1911# 287 "/home/runner/work/MFC/MFC/src/common/m_global_parameters_common.fpp"
1912
1913 allocate (proc_coords(1:num_dims))
1914
1915 if (parallel_io .neqv. .true.) return
1916
1917#ifdef MFC_MPI
1918 ! Option for Lustre file system (Darter/Comet/Stampede)
1919 write (mpiiofs, '(A)') '/lustre_'
1920 mpiiofs = trim(mpiiofs)
1921 call mpi_info_create(mpi_info_int, ierr)
1922 call mpi_info_set(mpi_info_int, 'romio_ds_write', 'disable', ierr)
1923
1924 ! Option for UNIX file system (Hooke/Thomson) WRITE(mpiiofs, '(A)') '/ufs_' mpiiofs = TRIM(mpiiofs) mpi_info_int =
1925 ! MPI_INFO_NULL
1926
1927 allocate (start_idx(1:num_dims))
1928#endif
1929
1930 end subroutine s_initialize_parallel_io_common
1931
1932 !> Shared finalize core: deallocate proc_coords and start_idx. Per-target finalize routines call this first, then handle their
1933 !! own extras (qbmm_idx, grid arrays, MPI_IO_DATA null/dealloc - those reference per-target typed variables and stay
1934 !! per-target).
1935 impure subroutine s_finalize_global_parameters_common
1936
1937 deallocate (proc_coords)
1938
1939#ifdef MFC_MPI
1940 if (parallel_io) then
1941 deallocate (start_idx)
1942 end if
1943#endif
1944
1945 end subroutine s_finalize_global_parameters_common
1946
1947 !> Assign default values to the user-input parameters that are shared across all three executables (pre_process, simulation,
1948 !! post_process). Per-target defaults (bc_io, cfl_dt, precision, nb, chem_params, bub_pp scalar companions, fluid_pp loop, patch
1949 !! arrays, output flags) remain in the per-target s_assign_default_values_to_user_inputs routines, which call this subroutine
1950 !! first, then call s_update_cell_bounds(cells_bounds, m, n, p) (cells_bounds is per-target), then apply their own assignments.
1951 impure subroutine s_assign_common_defaults
1952
1953 ! Logistics
1954 case_dir = '.'
1955
1956 ! Computational domain parameters (m/n/p set here; caller must call s_update_cell_bounds after)
1957 m = dflt_int; n = 0; p = 0
1958
1959 cyl_coord = .false.
1960
1961 ! CFL adaptive time-stepping flags
1962 cfl_adap_dt = .false.
1963 cfl_const_dt = .false.
1964
1965 ! Time-stepping bookkeeping
1966 n_start = dflt_int
1967 t_step_start = dflt_int
1968
1969 ! Simulation algorithm
1970 model_eqns = dflt_int
1971 relax = .false.
1972 relax_model = dflt_int
1973 hypoelasticity = .false.
1974 cont_damage = .false.
1975 hyper_cleaning = .false.
1976
1977 ! Condensed-phase reactive burn
1978 reactive_burn = .false.
1979 rburn%k = dflt_real
1980 rburn%pign = dflt_real
1981 rburn%pref = dflt_real
1982 rburn%n = dflt_real
1983 rburn%ta = 0._wp
1984 rburn%substeps = 0
1985
1986 ! Case-optimization params: under case-opt these are compile-time constants in sim (skip assignment); in pre/post
1987 ! MFC_CASE_OPTIMIZATION is always False so the block always executes there.
1988# 364 "/home/runner/work/MFC/MFC/src/common/m_global_parameters_common.fpp"
1989 recon_type = recon_type_weno
1990 weno_order = dflt_int
1991 muscl_order = dflt_int
1992 num_fluids = dflt_int
1993 igr = .false.
1994 igr_order = dflt_int
1995 mhd = .false.
1996 relativity = .false.
1997 viscous = .false.
1998# 374 "/home/runner/work/MFC/MFC/src/common/m_global_parameters_common.fpp"
1999
2000 ! Not a case-optimization parameter, so it stays a runtime variable in every build.
2001 riemann_solver = dflt_int
2002
2003 ! Tait EOS
2004
2005 ! Bubble modeling flags and parameters
2006 r0ref = dflt_real
2007 bubbles_euler = .false.
2008 polydisperse = .false.
2009 poly_sigma = dflt_real
2010 qbmm = .false.
2011 surface_tension = .false.
2012 adv_n = .false.
2013 sigma = dflt_real
2014 bubbles_lagrange = .false.
2015
2016 ! Immersed boundaries
2017 ib = .false.
2018 num_ibs = dflt_int
2019
2020 ! MHD (background field)
2021 bx0 = dflt_real
2022
2023 ! Output and I/O options
2024 parallel_io = .false.
2025 file_per_process = .false.
2026 down_sample = .false.
2027 fft_wrt = .false.
2028
2029 ! Mixture conversion and sound-speed behavior
2030 avg_state = dflt_int
2031 alt_soundspeed = .false.
2032 mixture_err = .false.
2033 sigr = dflt_real
2034 dx_min = dflt_real
2035 dy_min = dflt_real
2036 dz_min = dflt_real
2037
2038 end subroutine s_assign_common_defaults
2039
2040end module m_global_parameters_common
m_constants
Compile-time constant parameters: default values, tolerances, and physical constants.
Definition m_constants.fpp.f90:7
m_constants::model_eqns_5eq
integer, parameter model_eqns_5eq
Definition m_constants.fpp.f90:148
m_constants::name_len
integer, parameter name_len
Maximum name length.
Definition m_constants.fpp.f90:22
m_constants::dflt_int
integer, parameter dflt_int
Default integer value.
Definition m_constants.fpp.f90:23
m_constants::dflt_real
real(wp), parameter dflt_real
Default real value.
Definition m_constants.fpp.f90:12
m_constants::recon_type_muscl
integer, parameter recon_type_muscl
Definition m_constants.fpp.f90:161
m_constants::eos_ideal_gas
integer, parameter eos_ideal_gas
Definition m_constants.fpp.f90:138
m_constants::num_fluids_max
integer, parameter num_fluids_max
Maximum number of fluids in the simulation.
Definition m_constants.fpp.f90:25
m_constants::eos_stiffened_gas
integer, parameter eos_stiffened_gas
Definition m_constants.fpp.f90:137
m_constants::recon_type_weno
integer, parameter recon_type_weno
Definition m_constants.fpp.f90:160
m_constants::model_eqns_6eq
integer, parameter model_eqns_6eq
Definition m_constants.fpp.f90:149
m_constants::model_eqns_gamma_law
integer, parameter model_eqns_gamma_law
Definition m_constants.fpp.f90:147
m_derived_types
Shared derived types for field data, patch geometry, bubble dynamics, and MPI I/O structures.
Definition m_derived_types.fpp.f90:335
m_global_parameters_common
Shared global parameters and equation-index setup for all three executables. Each per-target m_global...
Definition m_global_parameters_common.fpp.f90:347
m_global_parameters_common::dy_min
real(wp) dy_min
Definition m_global_parameters_common.fpp.f90:1686
m_global_parameters_common::muscl_polyn
integer muscl_polyn
Definition m_global_parameters_common.fpp.f90:1320
m_global_parameters_common::num_stl_models
integer num_stl_models
Definition m_global_parameters_common.fpp.f90:441
m_global_parameters_common::ib
logical ib
Definition m_global_parameters_common.fpp.f90:411
m_global_parameters_common::surface_tension
logical surface_tension
Definition m_global_parameters_common.fpp.f90:471
m_global_parameters_common::t_step_save
integer t_step_save
Definition m_global_parameters_common.fpp.f90:479
m_global_parameters_common::acoustic_source
logical acoustic_source
Definition m_global_parameters_common.fpp.f90:370
m_global_parameters_common::viscous
logical viscous
Definition m_global_parameters_common.fpp.f90:1336
m_global_parameters_common::fd_order
integer fd_order
Definition m_global_parameters_common.fpp.f90:399
m_global_parameters_common::bf_x
logical bf_x
Definition m_global_parameters_common.fpp.f90:380
m_global_parameters_common::stl_models
type(ib_stl_parameters), dimension(num_stl_models_max) stl_models
Per-STL model parameters.
Definition m_global_parameters_common.fpp.f90:520
m_global_parameters_common::bx0
real(wp) bx0
Definition m_global_parameters_common.fpp.f90:365
m_global_parameters_common::mpp_lim
logical mpp_lim
Definition m_global_parameters_common.fpp.f90:429
m_global_parameters_common::start_idx
integer, dimension(:), allocatable start_idx
Starting cell-center index of local processor in global grid.
Definition m_global_parameters_common.fpp.f90:1714
m_global_parameters_common::s_finalize_global_parameters_common
impure subroutine s_finalize_global_parameters_common
Shared finalize core: deallocate proc_coords and start_idx. Per-target finalize routines call this fi...
Definition m_global_parameters_common.fpp.f90:1936
m_global_parameters_common::cyl_coord
logical cyl_coord
Definition m_global_parameters_common.fpp.f90:396
m_global_parameters_common::web
real(wp) web
Definition m_global_parameters_common.fpp.f90:369
m_global_parameters_common::muscl_order
integer muscl_order
Definition m_global_parameters_common.fpp.f90:1331
m_global_parameters_common::ib_state_wrt
logical ib_state_wrt
Definition m_global_parameters_common.fpp.f90:416
m_global_parameters_common::mpi_info_int
integer mpi_info_int
Definition m_global_parameters_common.fpp.f90:1723
m_global_parameters_common::nv_uvm_igr_temps_on_gpu
integer nv_uvm_igr_temps_on_gpu
Definition m_global_parameters_common.fpp.f90:443
m_global_parameters_common::bub_pp
type(subgrid_bubble_physical_parameters) bub_pp
Subgrid bubble physical parameters.
Definition m_global_parameters_common.fpp.f90:495
m_global_parameters_common::file_per_process
logical file_per_process
Definition m_global_parameters_common.fpp.f90:401
m_global_parameters_common::mapped_weno
logical mapped_weno
Definition m_global_parameters_common.fpp.f90:1328
m_global_parameters_common::parallel_io
logical parallel_io
Definition m_global_parameters_common.fpp.f90:451
m_global_parameters_common::t_step_stop
integer t_step_stop
Definition m_global_parameters_common.fpp.f90:481
m_global_parameters_common::qbmm
logical qbmm
Definition m_global_parameters_common.fpp.f90:460
m_global_parameters_common::weno_num_stencils
integer weno_num_stencils
Definition m_global_parameters_common.fpp.f90:1321
m_global_parameters_common::shear_num
integer shear_num
Number of shear stress components.
Definition m_global_parameters_common.fpp.f90:1599
m_global_parameters_common::probe
type(vec3_dt), dimension(num_probes_max) probe
Definition m_global_parameters_common.fpp.f90:532
m_global_parameters_common::qvs
real(wp), dimension(:), allocatable qvs
Definition m_global_parameters_common.fpp.f90:1609
m_global_parameters_common::wenojs
logical wenojs
Definition m_global_parameters_common.fpp.f90:1322
m_global_parameters_common::re_size
integer, dimension(2) re_size
Definition m_global_parameters_common.fpp.f90:1669
m_global_parameters_common::igr
logical igr
Definition m_global_parameters_common.fpp.f90:1324
m_global_parameters_common::poly_sigma
real(wp) poly_sigma
Definition m_global_parameters_common.fpp.f90:453
m_global_parameters_common::gammas
real(wp), dimension(:), allocatable gammas
Definition m_global_parameters_common.fpp.f90:1609
m_global_parameters_common::bubbles_lagrange
logical bubbles_lagrange
Definition m_global_parameters_common.fpp.f90:385
m_global_parameters_common::riemann_solver
integer riemann_solver
Definition m_global_parameters_common.fpp.f90:467
m_global_parameters_common::bubbles_euler
logical bubbles_euler
Definition m_global_parameters_common.fpp.f90:384
m_global_parameters_common::sys_size
integer sys_size
Number of unknowns in system of equations.
Definition m_global_parameters_common.fpp.f90:1588
m_global_parameters_common::ic_beta
real(wp) ic_beta
Definition m_global_parameters_common.fpp.f90:417
m_global_parameters_common::p_x
real(wp) p_x
Definition m_global_parameters_common.fpp.f90:447
m_global_parameters_common::num_source
integer num_source
Definition m_global_parameters_common.fpp.f90:440
m_global_parameters_common::cont_damage
logical cont_damage
Definition m_global_parameters_common.fpp.f90:394
m_global_parameters_common::relativity
logical relativity
Definition m_global_parameters_common.fpp.f90:1334
m_global_parameters_common::m
integer m
Definition m_global_parameters_common.fpp.f90:424
m_global_parameters_common::synth_seed
integer synth_seed
Definition m_global_parameters_common.fpp.f90:474
m_global_parameters_common::collision_model
integer collision_model
Definition m_global_parameters_common.fpp.f90:391
m_global_parameters_common::t_step_old
integer t_step_old
Definition m_global_parameters_common.fpp.f90:477
m_global_parameters_common::collision_time
real(wp) collision_time
Definition m_global_parameters_common.fpp.f90:393
m_global_parameters_common::eoss
integer, dimension(:), allocatable eoss
Per-fluid EOS selector and Mie-Gruneisen reference curve, resolved once at init like the arrays above...
Definition m_global_parameters_common.fpp.f90:1622
m_global_parameters_common::bf_spatial_support
logical bf_spatial_support
Definition m_global_parameters_common.fpp.f90:379
m_global_parameters_common::nv_uvm_pref_gpu
logical nv_uvm_pref_gpu
Definition m_global_parameters_common.fpp.f90:445
m_global_parameters_common::synth_n_shells
integer synth_n_shells
Definition m_global_parameters_common.fpp.f90:473
m_global_parameters_common::hll_u_interface
logical hll_u_interface
Definition m_global_parameters_common.fpp.f90:405
m_global_parameters_common::dx_min
real(wp) dx_min
Minimum cell widths. These are distinct from the per-cell width arrays named dx, dy,...
Definition m_global_parameters_common.fpp.f90:1686
m_global_parameters_common::muscl_lim
integer muscl_lim
Definition m_global_parameters_common.fpp.f90:1330
m_global_parameters_common::prim_vars_wrt
logical prim_vars_wrt
Definition m_global_parameters_common.fpp.f90:457
m_global_parameters_common::t_stop
real(wp) t_stop
Definition m_global_parameters_common.fpp.f90:482
m_global_parameters_common::cont_damage_s
real(wp) cont_damage_s
Definition m_global_parameters_common.fpp.f90:395
m_global_parameters_common::w_y
real(wp) w_y
Definition m_global_parameters_common.fpp.f90:488
m_global_parameters_common::p_y
real(wp) p_y
Definition m_global_parameters_common.fpp.f90:448
m_global_parameters_common::t_step_start
integer t_step_start
Definition m_global_parameters_common.fpp.f90:480
m_global_parameters_common::p
integer p
Definition m_global_parameters_common.fpp.f90:446
m_global_parameters_common::hyper_cleaning
logical hyper_cleaning
Definition m_global_parameters_common.fpp.f90:406
m_global_parameters_common::num_procs_y
integer num_procs_y
Number of MPI ranks in y-direction.
Definition m_global_parameters_common.fpp.f90:1716
m_global_parameters_common::re_idx
integer, dimension(:,:), allocatable re_idx
Definition m_global_parameters_common.fpp.f90:1671
m_global_parameters_common::ib_force_stride
integer ib_force_stride
Definition m_global_parameters_common.fpp.f90:413
m_global_parameters_common::isentrope_n
real(wp), dimension(:), allocatable isentrope_n
Definition m_global_parameters_common.fpp.f90:1609
m_global_parameters_common::fluid_pp
type(physical_parameters), dimension(num_fluids_max) fluid_pp
Per-fluid stiffened-gas EOS parameters, Reynolds numbers, and shear modulus.
Definition m_global_parameters_common.fpp.f90:494
m_global_parameters_common::shear_bc_flip_num
integer shear_bc_flip_num
Number of shear stress components to reflect for boundary conditions.
Definition m_global_parameters_common.fpp.f90:1601
m_global_parameters_common::relax_model
integer relax_model
Definition m_global_parameters_common.fpp.f90:465
m_global_parameters_common::t_save
real(wp) t_save
Definition m_global_parameters_common.fpp.f90:476
m_global_parameters_common::hypoelasticity
logical hypoelasticity
Definition m_global_parameters_common.fpp.f90:410
m_global_parameters_common::recon_type
integer recon_type
Definition m_global_parameters_common.fpp.f90:1333
m_global_parameters_common::pi_fac
real(wp) pi_fac
Definition m_global_parameters_common.fpp.f90:452
m_global_parameters_common::cvs
real(wp), dimension(:), allocatable cvs
Definition m_global_parameters_common.fpp.f90:1609
m_global_parameters_common::proc_coords
integer, dimension(:), allocatable proc_coords
Processor coordinates in MPI_CART_COMM.
Definition m_global_parameters_common.fpp.f90:1713
m_global_parameters_common::num_probes
integer num_probes
Definition m_global_parameters_common.fpp.f90:439
m_global_parameters_common::hyper_cleaning_speed
real(wp) hyper_cleaning_speed
Definition m_global_parameters_common.fpp.f90:407
m_global_parameters_common::hyper_cleaning_tau
real(wp) hyper_cleaning_tau
Definition m_global_parameters_common.fpp.f90:408
m_global_parameters_common::low_mach
integer low_mach
Definition m_global_parameters_common.fpp.f90:423
m_global_parameters_common::num_procs_x
integer num_procs_x
Number of MPI ranks in x-direction.
Definition m_global_parameters_common.fpp.f90:1715
m_global_parameters_common::alf_factor
real(wp) alf_factor
Definition m_global_parameters_common.fpp.f90:375
m_global_parameters_common::model_eqns
integer model_eqns
Definition m_global_parameters_common.fpp.f90:427
m_global_parameters_common::num_dims
integer num_dims
Definition m_global_parameters_common.fpp.f90:1317
m_global_parameters_common::sigr
real(wp) sigr
Definition m_global_parameters_common.fpp.f90:469
m_global_parameters_common::coefficient_of_restitution
real(wp) coefficient_of_restitution
Definition m_global_parameters_common.fpp.f90:390
m_global_parameters_common::heat_conduction
logical heat_conduction
any_state_dependent_eos is declared with the case-optimization block above: a parameter when the case...
Definition m_global_parameters_common.fpp.f90:1639
m_global_parameters_common::k_x
real(wp) k_x
Definition m_global_parameters_common.fpp.f90:420
m_global_parameters_common::k_y
real(wp) k_y
Definition m_global_parameters_common.fpp.f90:421
m_global_parameters_common::weno_eps
real(wp) weno_eps
Definition m_global_parameters_common.fpp.f90:493
m_global_parameters_common::probe_wrt
logical probe_wrt
Definition m_global_parameters_common.fpp.f90:458
m_global_parameters_common::w_z
real(wp) w_z
Definition m_global_parameters_common.fpp.f90:489
m_global_parameters_common::nv_uvm_out_of_core
logical nv_uvm_out_of_core
Definition m_global_parameters_common.fpp.f90:444
m_global_parameters_common::fft_wrt
logical fft_wrt
Definition m_global_parameters_common.fpp.f90:400
m_global_parameters_common::case_dir
character(len=path_len) case_dir
Definition m_global_parameters_common.fpp.f90:386
m_global_parameters_common::time_stepper
integer time_stepper
Definition m_global_parameters_common.fpp.f90:486
m_global_parameters_common::int_comp
integer int_comp
Definition m_global_parameters_common.fpp.f90:419
m_global_parameters_common::cfl_const_dt
logical cfl_const_dt
Definition m_global_parameters_common.fpp.f90:388
m_global_parameters_common::weno_re_flux
logical weno_re_flux
Definition m_global_parameters_common.fpp.f90:491
m_global_parameters_common::num_vels
integer num_vels
Definition m_global_parameters_common.fpp.f90:1318
m_global_parameters_common::polytropic
logical polytropic
Definition m_global_parameters_common.fpp.f90:455
m_global_parameters_common::ic_eps
real(wp) ic_eps
Definition m_global_parameters_common.fpp.f90:418
m_global_parameters_common::eqn_idx
type(eqn_idx_info) eqn_idx
All conserved-variable equation index ranges and scalars.
Definition m_global_parameters_common.fpp.f90:1589
m_global_parameters_common::cfl_adap_dt
logical cfl_adap_dt
Definition m_global_parameters_common.fpp.f90:387
m_global_parameters_common::many_ib_patch_parallelism
logical many_ib_patch_parallelism
Definition m_global_parameters_common.fpp.f90:425
m_global_parameters_common::acoustic
type(acoustic_parameters), dimension(num_probes_max) acoustic
Acoustic source parameters.
Definition m_global_parameters_common.fpp.f90:533
m_global_parameters_common::spatial_bf
type(spbf_parameters) spatial_bf
Parameters for spatially supported body force (Wei & Freund, JFM 2005).
Definition m_global_parameters_common.fpp.f90:582
m_global_parameters_common::num_procs_z
integer num_procs_z
Number of MPI ranks in z-direction.
Definition m_global_parameters_common.fpp.f90:1717
m_global_parameters_common::adap_dt
logical adap_dt
Definition m_global_parameters_common.fpp.f90:371
m_global_parameters_common::down_sample
logical down_sample
Definition m_global_parameters_common.fpp.f90:397
m_global_parameters_common::alt_soundspeed
logical alt_soundspeed
Definition m_global_parameters_common.fpp.f90:377
m_global_parameters_common::igr_order
integer igr_order
Definition m_global_parameters_common.fpp.f90:1326
m_global_parameters_common::igr_pres_lim
logical igr_pres_lim
Definition m_global_parameters_common.fpp.f90:1327
m_global_parameters_common::synthetic_turbulence
logical synthetic_turbulence
Definition m_global_parameters_common.fpp.f90:475
m_global_parameters_common::tau_star
real(wp) tau_star
Definition m_global_parameters_common.fpp.f90:483
m_global_parameters_common::shear_bc_flip_indices
integer, dimension(3, 2) shear_bc_flip_indices
Shear stress BC reflection indices (1:3, 1:shear_BC_flip_num).
Definition m_global_parameters_common.fpp.f90:1602
m_global_parameters_common::adap_dt_tol
real(wp) adap_dt_tol
Definition m_global_parameters_common.fpp.f90:373
m_global_parameters_common::riemann_hypo_adc
logical riemann_hypo_adc
Definition m_global_parameters_common.fpp.f90:466
m_global_parameters_common::chemistry
logical, parameter chemistry
Definition m_global_parameters_common.fpp.f90:1594
m_global_parameters_common::teno
logical teno
Definition m_global_parameters_common.fpp.f90:1335
m_global_parameters_common::g_x
real(wp) g_x
Definition m_global_parameters_common.fpp.f90:402
m_global_parameters_common::dt
real(wp) dt
Definition m_global_parameters_common.fpp.f90:398
m_global_parameters_common::polydisperse
logical polydisperse
Definition m_global_parameters_common.fpp.f90:454
m_global_parameters_common::num_igr_warm_start_iters
integer num_igr_warm_start_iters
Definition m_global_parameters_common.fpp.f90:437
m_global_parameters_common::num_fluids
integer num_fluids
Definition m_global_parameters_common.fpp.f90:1332
m_global_parameters_common::alpha_bar
real(wp) alpha_bar
Definition m_global_parameters_common.fpp.f90:376
m_global_parameters_common::bubble_model
integer bubble_model
Definition m_global_parameters_common.fpp.f90:383
m_global_parameters_common::fluid_k_therm
real(wp), dimension(:), allocatable fluid_k_therm
Definition m_global_parameters_common.fpp.f90:1640
m_global_parameters_common::chem_params
type(chemistry_parameters) chem_params
Definition m_global_parameters_common.fpp.f90:545
m_global_parameters_common::ramp_ratio
real(wp) ramp_ratio
Definition m_global_parameters_common.fpp.f90:461
m_global_parameters_common::synth_u_inf
real(wp) synth_u_inf
Definition m_global_parameters_common.fpp.f90:472
m_global_parameters_common::mpiiofs
character(len=name_len) mpiiofs
Definition m_global_parameters_common.fpp.f90:1722
m_global_parameters_common::palpha_eps
real(wp) palpha_eps
Definition m_global_parameters_common.fpp.f90:450
m_global_parameters_common::num_igr_iters
integer num_igr_iters
Definition m_global_parameters_common.fpp.f90:436
m_global_parameters_common::patch_ib
type(ib_patch_parameters), dimension(num_ib_patches_max_namelist) patch_ib
Immersed boundary patch parameters.
Definition m_global_parameters_common.fpp.f90:496
m_global_parameters_common::hypo_hll_interface_rhs
logical hypo_hll_interface_rhs
Definition m_global_parameters_common.fpp.f90:409
m_global_parameters_common::reactive_burn
logical reactive_burn
Definition m_global_parameters_common.fpp.f90:463
m_global_parameters_common::isentrope_b
real(wp), dimension(:), allocatable isentrope_b
Definition m_global_parameters_common.fpp.f90:1609
m_global_parameters_common::s_initialize_parallel_io_common
impure subroutine s_initialize_parallel_io_common
Configure MPI parallel I/O settings and allocate processor coordinate arrays. Shared across all three...
Definition m_global_parameters_common.fpp.f90:1897
m_global_parameters_common::eos_coeffs
type(eos_coefficients), dimension(num_fluids_max) eos_coeffs
Per-fluid EOS coefficients, whatever the family; see type eos_coefficients.
Definition m_global_parameters_common.fpp.f90:1624
m_global_parameters_common::ca
real(wp) ca
Definition m_global_parameters_common.fpp.f90:366
m_global_parameters_common::ptgalpha_eps
real(wp) ptgalpha_eps
Definition m_global_parameters_common.fpp.f90:459
m_global_parameters_common::collision_temporal_resolution
integer collision_temporal_resolution
Definition m_global_parameters_common.fpp.f90:392
m_global_parameters_common::qvps
real(wp), dimension(:), allocatable qvps
Definition m_global_parameters_common.fpp.f90:1609
m_global_parameters_common::rdma_mpi
logical rdma_mpi
Definition m_global_parameters_common.fpp.f90:462
m_global_parameters_common::cfl_target
real(wp) cfl_target
Definition m_global_parameters_common.fpp.f90:389
m_global_parameters_common::num_ibs
integer num_ibs
Definition m_global_parameters_common.fpp.f90:435
m_global_parameters_common::avg_state
integer avg_state
Definition m_global_parameters_common.fpp.f90:378
m_global_parameters_common::run_time_info
logical run_time_info
Definition m_global_parameters_common.fpp.f90:468
m_global_parameters_common::bf_z
logical bf_z
Definition m_global_parameters_common.fpp.f90:382
m_global_parameters_common::null_weights
logical null_weights
Definition m_global_parameters_common.fpp.f90:433
m_global_parameters_common::mixture_err
logical mixture_err
Definition m_global_parameters_common.fpp.f90:426
m_global_parameters_common::w_x
real(wp) w_x
Definition m_global_parameters_common.fpp.f90:487
m_global_parameters_common::particle_cloud
type(particle_cloud_parameters), dimension(num_particle_clouds_max) particle_cloud
Particle bed specifications.
Definition m_global_parameters_common.fpp.f90:581
m_global_parameters_common::mp_weno
logical mp_weno
Definition m_global_parameters_common.fpp.f90:428
m_global_parameters_common::weno_polyn
integer weno_polyn
Definition m_global_parameters_common.fpp.f90:1319
m_global_parameters_common::adap_dt_max_iters
integer adap_dt_max_iters
Definition m_global_parameters_common.fpp.f90:372
m_global_parameters_common::ib_neighborhood_radius
integer ib_neighborhood_radius
Definition m_global_parameters_common.fpp.f90:415
m_global_parameters_common::bf_y
logical bf_y
Definition m_global_parameters_common.fpp.f90:381
m_global_parameters_common::pi_infs
real(wp), dimension(:), allocatable pi_infs
Definition m_global_parameters_common.fpp.f90:1609
m_global_parameters_common::ib_airfoil
type(ib_airfoil_parameters), dimension(num_ib_airfoils_max) ib_airfoil
Per-airfoil NACA user inputs.
Definition m_global_parameters_common.fpp.f90:508
m_global_parameters_common::n_start
integer n_start
Definition m_global_parameters_common.fpp.f90:432
m_global_parameters_common::wenoz
logical wenoz
Definition m_global_parameters_common.fpp.f90:1338
m_global_parameters_common::adv_n
logical adv_n
Definition m_global_parameters_common.fpp.f90:374
m_global_parameters_common::wenoz_q
real(wp) wenoz_q
Definition m_global_parameters_common.fpp.f90:1339
m_global_parameters_common::r0ref
real(wp) r0ref
Definition m_global_parameters_common.fpp.f90:367
m_global_parameters_common::muscl_eps
real(wp) muscl_eps
Definition m_global_parameters_common.fpp.f90:430
m_global_parameters_common::mhd
logical mhd
Definition m_global_parameters_common.fpp.f90:1329
m_global_parameters_common::s_assign_common_defaults
impure subroutine s_assign_common_defaults
Assign default values to the user-input parameters that are shared across all three executables (pre_...
Definition m_global_parameters_common.fpp.f90:1952
m_global_parameters_common::any_state_dependent_eos
logical any_state_dependent_eos
Definition m_global_parameters_common.fpp.f90:1323
m_global_parameters_common::dz_min
real(wp) dz_min
Definition m_global_parameters_common.fpp.f90:1686
m_global_parameters_common::p_z
real(wp) p_z
Definition m_global_parameters_common.fpp.f90:449
m_global_parameters_common::re_inv
real(wp) re_inv
Definition m_global_parameters_common.fpp.f90:368
m_global_parameters_common::relax
logical relax
Definition m_global_parameters_common.fpp.f90:464
m_global_parameters_common::teno_ct
real(wp) teno_ct
Definition m_global_parameters_common.fpp.f90:484
m_global_parameters_common::lag_params
type(bubbles_lagrange_parameters) lag_params
Lagrange bubbles' parameters.
Definition m_global_parameters_common.fpp.f90:569
m_global_parameters_common::sigma
real(wp) sigma
Definition m_global_parameters_common.fpp.f90:470
m_global_parameters_common::weno_avg
logical weno_avg
Definition m_global_parameters_common.fpp.f90:492
m_global_parameters_common::n
integer n
Definition m_global_parameters_common.fpp.f90:431
m_global_parameters_common::wave_speeds
integer wave_speeds
Definition m_global_parameters_common.fpp.f90:490
m_global_parameters_common::ib_force_wrt
logical ib_force_wrt
Definition m_global_parameters_common.fpp.f90:414
m_global_parameters_common::weno_order
integer weno_order
Definition m_global_parameters_common.fpp.f90:1337
m_global_parameters_common::shear_indices
integer, dimension(3) shear_indices
Indices of the stress components that represent shear stress.
Definition m_global_parameters_common.fpp.f90:1600
m_global_parameters_common::thermal
integer thermal
Definition m_global_parameters_common.fpp.f90:485
m_global_parameters_common::ib_coefficient_of_friction
real(wp) ib_coefficient_of_friction
Definition m_global_parameters_common.fpp.f90:412
m_global_parameters_common::g_z
real(wp) g_z
Definition m_global_parameters_common.fpp.f90:404
m_global_parameters_common::num_bc_patches
integer num_bc_patches
Definition m_global_parameters_common.fpp.f90:434
m_global_parameters_common::rburn
type(reactive_burn_parameters) rburn
Condensed-phase reactive-burn (programmed detonation) parameters.
Definition m_global_parameters_common.fpp.f90:557
m_global_parameters_common::igr_iter_solver
integer igr_iter_solver
Definition m_global_parameters_common.fpp.f90:1325
m_global_parameters_common::g_y
real(wp) g_y
Definition m_global_parameters_common.fpp.f90:403
m_global_parameters_common::precision
integer precision
Definition m_global_parameters_common.fpp.f90:456
m_global_parameters_common::adc_kappa
real(wp) adc_kappa
Definition m_global_parameters_common.fpp.f90:364
m_global_parameters_common::t_step_print
integer t_step_print
Definition m_global_parameters_common.fpp.f90:478
m_global_parameters_common::re_size_max
integer re_size_max
Definition m_global_parameters_common.fpp.f90:1670
m_global_parameters_common::k_z
real(wp) k_z
Definition m_global_parameters_common.fpp.f90:422
m_global_parameters_common::num_particle_clouds
integer num_particle_clouds
Definition m_global_parameters_common.fpp.f90:438
m_global_parameters_common::s_initialize_eqn_idx
impure subroutine s_initialize_eqn_idx(nmom_in, nb_in, six_eqn_alf_is_advected)
Initialize equation-index state (eqn_idx and sys_size) from the namelist parameters....
Definition m_global_parameters_common.fpp.f90:1740
m_global_parameters_common::num_turbulent_sources
integer num_turbulent_sources
Definition m_global_parameters_common.fpp.f90:442
m_derived_types::acoustic_parameters
Acoustic source parameters.
Definition m_derived_types.fpp.f90:808
m_derived_types::bubbles_lagrange_parameters
Lagrangian bubble parameters.
Definition m_derived_types.fpp.f90:910
m_derived_types::chemistry_parameters
Chemistry parameters.
Definition m_derived_types.fpp.f90:864
m_derived_types::eos_coefficients
Coefficients of one fluid's equation of state, resolved once at init. Held as a record per fluid rath...
Definition m_derived_types.fpp.f90:900
m_derived_types::eqn_idx_info
All conserved-variable equation indices, computed at startup from model_eqns and enabled features....
Definition m_derived_types.fpp.f90:468
m_derived_types::ib_airfoil_parameters
User-input parameters for a NACA 4-digit airfoil (namelist-safe: scalars only).
Definition m_derived_types.fpp.f90:647
m_derived_types::ib_patch_parameters
Definition m_derived_types.fpp.f90:669
m_derived_types::ib_stl_parameters
User-input parameters for an STL/OBJ immersed boundary model (namelist-safe: scalars + fixed arrays).
Definition m_derived_types.fpp.f90:662
m_derived_types::particle_cloud_parameters
Definition m_derived_types.fpp.f90:709
m_derived_types::physical_parameters
Derived type annexing the physical parameters (PP) of the fluids. These include the specific heat rat...
Definition m_derived_types.fpp.f90:727
m_derived_types::reactive_burn_parameters
Condensed-phase reactive-burn (programmed pressure detonation) parameters. The rate is dlambda/dt = k...
Definition m_derived_types.fpp.f90:888
m_derived_types::spbf_parameters
Parameters for body force with spatial support.
Definition m_derived_types.fpp.f90:797
m_derived_types::subgrid_bubble_physical_parameters
Derived type annexing the physical parameters required for sub-grid bubble models.
Definition m_derived_types.fpp.f90:768
m_derived_types::vec3_dt
Generic 3-component vector (e.g., spatial coordinates or field components) Named _dt (derived types: ...
Definition m_derived_types.fpp.f90:404