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