MFC
Exascale flow solver
Loading...
Searching...
No Matches
m_checker.fpp.f90
Go to the documentation of this file.
1# 1 "/home/runner/work/MFC/MFC/src/simulation/m_checker.fpp"
2!>
3!!@file
4!!@brief Contains module m_checker
5
6# 1 "/home/runner/work/MFC/MFC/src/common/include/macros.fpp" 1
7# 1 "/home/runner/work/MFC/MFC/src/common/include/parallel_macros.fpp" 1
8# 1 "/home/runner/work/MFC/MFC/src/common/include/shared_parallel_macros.fpp" 1
9# 2 "/home/runner/work/MFC/MFC/src/common/include/shared_parallel_macros.fpp"
10# 3 "/home/runner/work/MFC/MFC/src/common/include/shared_parallel_macros.fpp"
11# 4 "/home/runner/work/MFC/MFC/src/common/include/shared_parallel_macros.fpp"
12# 5 "/home/runner/work/MFC/MFC/src/common/include/shared_parallel_macros.fpp"
13# 6 "/home/runner/work/MFC/MFC/src/common/include/shared_parallel_macros.fpp"
14
15# 8 "/home/runner/work/MFC/MFC/src/common/include/shared_parallel_macros.fpp"
16# 9 "/home/runner/work/MFC/MFC/src/common/include/shared_parallel_macros.fpp"
17# 10 "/home/runner/work/MFC/MFC/src/common/include/shared_parallel_macros.fpp"
18
19# 17 "/home/runner/work/MFC/MFC/src/common/include/shared_parallel_macros.fpp"
20
21# 46 "/home/runner/work/MFC/MFC/src/common/include/shared_parallel_macros.fpp"
22
23# 58 "/home/runner/work/MFC/MFC/src/common/include/shared_parallel_macros.fpp"
24
25# 68 "/home/runner/work/MFC/MFC/src/common/include/shared_parallel_macros.fpp"
26
27# 98 "/home/runner/work/MFC/MFC/src/common/include/shared_parallel_macros.fpp"
28
29# 110 "/home/runner/work/MFC/MFC/src/common/include/shared_parallel_macros.fpp"
30
31# 120 "/home/runner/work/MFC/MFC/src/common/include/shared_parallel_macros.fpp"
32! New line at end of file is required for FYPP
33# 2 "/home/runner/work/MFC/MFC/src/common/include/parallel_macros.fpp" 2
34# 1 "/home/runner/work/MFC/MFC/src/common/include/omp_macros.fpp" 1
35# 1 "/home/runner/work/MFC/MFC/src/common/include/shared_parallel_macros.fpp" 1
36# 2 "/home/runner/work/MFC/MFC/src/common/include/shared_parallel_macros.fpp"
37# 3 "/home/runner/work/MFC/MFC/src/common/include/shared_parallel_macros.fpp"
38# 4 "/home/runner/work/MFC/MFC/src/common/include/shared_parallel_macros.fpp"
39# 5 "/home/runner/work/MFC/MFC/src/common/include/shared_parallel_macros.fpp"
40# 6 "/home/runner/work/MFC/MFC/src/common/include/shared_parallel_macros.fpp"
41
42# 8 "/home/runner/work/MFC/MFC/src/common/include/shared_parallel_macros.fpp"
43# 9 "/home/runner/work/MFC/MFC/src/common/include/shared_parallel_macros.fpp"
44# 10 "/home/runner/work/MFC/MFC/src/common/include/shared_parallel_macros.fpp"
45
46# 17 "/home/runner/work/MFC/MFC/src/common/include/shared_parallel_macros.fpp"
47
48# 46 "/home/runner/work/MFC/MFC/src/common/include/shared_parallel_macros.fpp"
49
50# 58 "/home/runner/work/MFC/MFC/src/common/include/shared_parallel_macros.fpp"
51
52# 68 "/home/runner/work/MFC/MFC/src/common/include/shared_parallel_macros.fpp"
53
54# 98 "/home/runner/work/MFC/MFC/src/common/include/shared_parallel_macros.fpp"
55
56# 110 "/home/runner/work/MFC/MFC/src/common/include/shared_parallel_macros.fpp"
57
58# 120 "/home/runner/work/MFC/MFC/src/common/include/shared_parallel_macros.fpp"
59! New line at end of file is required for FYPP
60# 2 "/home/runner/work/MFC/MFC/src/common/include/omp_macros.fpp" 2
61
62# 4 "/home/runner/work/MFC/MFC/src/common/include/omp_macros.fpp"
63# 5 "/home/runner/work/MFC/MFC/src/common/include/omp_macros.fpp"
64# 6 "/home/runner/work/MFC/MFC/src/common/include/omp_macros.fpp"
65# 7 "/home/runner/work/MFC/MFC/src/common/include/omp_macros.fpp"
66# 8 "/home/runner/work/MFC/MFC/src/common/include/omp_macros.fpp"
67
68# 20 "/home/runner/work/MFC/MFC/src/common/include/omp_macros.fpp"
69
70# 43 "/home/runner/work/MFC/MFC/src/common/include/omp_macros.fpp"
71
72# 48 "/home/runner/work/MFC/MFC/src/common/include/omp_macros.fpp"
73
74# 53 "/home/runner/work/MFC/MFC/src/common/include/omp_macros.fpp"
75
76# 58 "/home/runner/work/MFC/MFC/src/common/include/omp_macros.fpp"
77
78# 63 "/home/runner/work/MFC/MFC/src/common/include/omp_macros.fpp"
79
80# 68 "/home/runner/work/MFC/MFC/src/common/include/omp_macros.fpp"
81
82# 76 "/home/runner/work/MFC/MFC/src/common/include/omp_macros.fpp"
83
84# 81 "/home/runner/work/MFC/MFC/src/common/include/omp_macros.fpp"
85
86# 86 "/home/runner/work/MFC/MFC/src/common/include/omp_macros.fpp"
87
88# 91 "/home/runner/work/MFC/MFC/src/common/include/omp_macros.fpp"
89
90# 96 "/home/runner/work/MFC/MFC/src/common/include/omp_macros.fpp"
91
92# 101 "/home/runner/work/MFC/MFC/src/common/include/omp_macros.fpp"
93
94# 106 "/home/runner/work/MFC/MFC/src/common/include/omp_macros.fpp"
95
96# 111 "/home/runner/work/MFC/MFC/src/common/include/omp_macros.fpp"
97
98# 116 "/home/runner/work/MFC/MFC/src/common/include/omp_macros.fpp"
99
100# 121 "/home/runner/work/MFC/MFC/src/common/include/omp_macros.fpp"
101
102# 151 "/home/runner/work/MFC/MFC/src/common/include/omp_macros.fpp"
103
104# 192 "/home/runner/work/MFC/MFC/src/common/include/omp_macros.fpp"
105
106# 206 "/home/runner/work/MFC/MFC/src/common/include/omp_macros.fpp"
107
108# 231 "/home/runner/work/MFC/MFC/src/common/include/omp_macros.fpp"
109
110# 242 "/home/runner/work/MFC/MFC/src/common/include/omp_macros.fpp"
111
112# 244 "/home/runner/work/MFC/MFC/src/common/include/omp_macros.fpp"
113# 255 "/home/runner/work/MFC/MFC/src/common/include/omp_macros.fpp"
114
115# 284 "/home/runner/work/MFC/MFC/src/common/include/omp_macros.fpp"
116
117# 294 "/home/runner/work/MFC/MFC/src/common/include/omp_macros.fpp"
118
119# 304 "/home/runner/work/MFC/MFC/src/common/include/omp_macros.fpp"
120
121# 313 "/home/runner/work/MFC/MFC/src/common/include/omp_macros.fpp"
122
123# 330 "/home/runner/work/MFC/MFC/src/common/include/omp_macros.fpp"
124
125# 340 "/home/runner/work/MFC/MFC/src/common/include/omp_macros.fpp"
126
127# 347 "/home/runner/work/MFC/MFC/src/common/include/omp_macros.fpp"
128
129# 353 "/home/runner/work/MFC/MFC/src/common/include/omp_macros.fpp"
130
131# 359 "/home/runner/work/MFC/MFC/src/common/include/omp_macros.fpp"
132
133# 365 "/home/runner/work/MFC/MFC/src/common/include/omp_macros.fpp"
134
135# 371 "/home/runner/work/MFC/MFC/src/common/include/omp_macros.fpp"
136
137# 377 "/home/runner/work/MFC/MFC/src/common/include/omp_macros.fpp"
138! New line at end of file is required for FYPP
139# 3 "/home/runner/work/MFC/MFC/src/common/include/parallel_macros.fpp" 2
140# 1 "/home/runner/work/MFC/MFC/src/common/include/acc_macros.fpp" 1
141# 1 "/home/runner/work/MFC/MFC/src/common/include/shared_parallel_macros.fpp" 1
142# 2 "/home/runner/work/MFC/MFC/src/common/include/shared_parallel_macros.fpp"
143# 3 "/home/runner/work/MFC/MFC/src/common/include/shared_parallel_macros.fpp"
144# 4 "/home/runner/work/MFC/MFC/src/common/include/shared_parallel_macros.fpp"
145# 5 "/home/runner/work/MFC/MFC/src/common/include/shared_parallel_macros.fpp"
146# 6 "/home/runner/work/MFC/MFC/src/common/include/shared_parallel_macros.fpp"
147
148# 8 "/home/runner/work/MFC/MFC/src/common/include/shared_parallel_macros.fpp"
149# 9 "/home/runner/work/MFC/MFC/src/common/include/shared_parallel_macros.fpp"
150# 10 "/home/runner/work/MFC/MFC/src/common/include/shared_parallel_macros.fpp"
151
152# 17 "/home/runner/work/MFC/MFC/src/common/include/shared_parallel_macros.fpp"
153
154# 46 "/home/runner/work/MFC/MFC/src/common/include/shared_parallel_macros.fpp"
155
156# 58 "/home/runner/work/MFC/MFC/src/common/include/shared_parallel_macros.fpp"
157
158# 68 "/home/runner/work/MFC/MFC/src/common/include/shared_parallel_macros.fpp"
159
160# 98 "/home/runner/work/MFC/MFC/src/common/include/shared_parallel_macros.fpp"
161
162# 110 "/home/runner/work/MFC/MFC/src/common/include/shared_parallel_macros.fpp"
163
164# 120 "/home/runner/work/MFC/MFC/src/common/include/shared_parallel_macros.fpp"
165! New line at end of file is required for FYPP
166# 2 "/home/runner/work/MFC/MFC/src/common/include/acc_macros.fpp" 2
167
168# 7 "/home/runner/work/MFC/MFC/src/common/include/acc_macros.fpp"
169
170# 17 "/home/runner/work/MFC/MFC/src/common/include/acc_macros.fpp"
171
172# 22 "/home/runner/work/MFC/MFC/src/common/include/acc_macros.fpp"
173
174# 27 "/home/runner/work/MFC/MFC/src/common/include/acc_macros.fpp"
175
176# 32 "/home/runner/work/MFC/MFC/src/common/include/acc_macros.fpp"
177
178# 37 "/home/runner/work/MFC/MFC/src/common/include/acc_macros.fpp"
179
180# 42 "/home/runner/work/MFC/MFC/src/common/include/acc_macros.fpp"
181
182# 47 "/home/runner/work/MFC/MFC/src/common/include/acc_macros.fpp"
183
184# 52 "/home/runner/work/MFC/MFC/src/common/include/acc_macros.fpp"
185
186# 57 "/home/runner/work/MFC/MFC/src/common/include/acc_macros.fpp"
187
188# 62 "/home/runner/work/MFC/MFC/src/common/include/acc_macros.fpp"
189
190# 73 "/home/runner/work/MFC/MFC/src/common/include/acc_macros.fpp"
191
192# 78 "/home/runner/work/MFC/MFC/src/common/include/acc_macros.fpp"
193
194# 83 "/home/runner/work/MFC/MFC/src/common/include/acc_macros.fpp"
195
196# 88 "/home/runner/work/MFC/MFC/src/common/include/acc_macros.fpp"
197
198# 103 "/home/runner/work/MFC/MFC/src/common/include/acc_macros.fpp"
199
200# 131 "/home/runner/work/MFC/MFC/src/common/include/acc_macros.fpp"
201
202# 160 "/home/runner/work/MFC/MFC/src/common/include/acc_macros.fpp"
203
204# 175 "/home/runner/work/MFC/MFC/src/common/include/acc_macros.fpp"
205
206# 193 "/home/runner/work/MFC/MFC/src/common/include/acc_macros.fpp"
207
208# 215 "/home/runner/work/MFC/MFC/src/common/include/acc_macros.fpp"
209
210# 244 "/home/runner/work/MFC/MFC/src/common/include/acc_macros.fpp"
211
212# 259 "/home/runner/work/MFC/MFC/src/common/include/acc_macros.fpp"
213
214# 269 "/home/runner/work/MFC/MFC/src/common/include/acc_macros.fpp"
215
216# 278 "/home/runner/work/MFC/MFC/src/common/include/acc_macros.fpp"
217
218# 294 "/home/runner/work/MFC/MFC/src/common/include/acc_macros.fpp"
219
220# 304 "/home/runner/work/MFC/MFC/src/common/include/acc_macros.fpp"
221
222# 311 "/home/runner/work/MFC/MFC/src/common/include/acc_macros.fpp"
223! New line at end of file is required for FYPP
224# 4 "/home/runner/work/MFC/MFC/src/common/include/parallel_macros.fpp" 2
225
226! GPU parallel region (scalar reductions, maxval/minval)
227# 23 "/home/runner/work/MFC/MFC/src/common/include/parallel_macros.fpp"
228
229! GPU parallel loop over threads (most common GPU macro)
230# 43 "/home/runner/work/MFC/MFC/src/common/include/parallel_macros.fpp"
231
232! Required closing for GPU_PARALLEL_LOOP
233# 55 "/home/runner/work/MFC/MFC/src/common/include/parallel_macros.fpp"
234
235! Mark routine for device compilation
236# 112 "/home/runner/work/MFC/MFC/src/common/include/parallel_macros.fpp"
237
238! Declare device-resident data
239# 130 "/home/runner/work/MFC/MFC/src/common/include/parallel_macros.fpp"
240
241! Inner loop within a GPU parallel region
242# 145 "/home/runner/work/MFC/MFC/src/common/include/parallel_macros.fpp"
243
244! Scoped GPU data region
245# 164 "/home/runner/work/MFC/MFC/src/common/include/parallel_macros.fpp"
246
247! Host code with device pointers (for MPI with GPU buffers)
248# 193 "/home/runner/work/MFC/MFC/src/common/include/parallel_macros.fpp"
249
250! Allocate device memory (unscoped)
251# 207 "/home/runner/work/MFC/MFC/src/common/include/parallel_macros.fpp"
252
253! Free device memory
254# 219 "/home/runner/work/MFC/MFC/src/common/include/parallel_macros.fpp"
255
256! Atomic operation on device
257# 231 "/home/runner/work/MFC/MFC/src/common/include/parallel_macros.fpp"
258
259! End atomic capture block
260# 242 "/home/runner/work/MFC/MFC/src/common/include/parallel_macros.fpp"
261
262! Copy data between host and device
263# 254 "/home/runner/work/MFC/MFC/src/common/include/parallel_macros.fpp"
264
265! Synchronization barrier
266# 266 "/home/runner/work/MFC/MFC/src/common/include/parallel_macros.fpp"
267
268! Import GPU library module (openacc or omp_lib)
269# 275 "/home/runner/work/MFC/MFC/src/common/include/parallel_macros.fpp"
270
271! Emit code only for AMD compiler
272# 282 "/home/runner/work/MFC/MFC/src/common/include/parallel_macros.fpp"
273
274! Emit code for non-Cray compilers
275# 289 "/home/runner/work/MFC/MFC/src/common/include/parallel_macros.fpp"
276
277! Emit code only for Cray compiler
278# 296 "/home/runner/work/MFC/MFC/src/common/include/parallel_macros.fpp"
279
280! Emit code for non-NVIDIA compilers
281# 303 "/home/runner/work/MFC/MFC/src/common/include/parallel_macros.fpp"
282
283# 305 "/home/runner/work/MFC/MFC/src/common/include/parallel_macros.fpp"
284# 306 "/home/runner/work/MFC/MFC/src/common/include/parallel_macros.fpp"
285! New line at end of file is required for FYPP
286# 2 "/home/runner/work/MFC/MFC/src/common/include/macros.fpp" 2
287
288# 14 "/home/runner/work/MFC/MFC/src/common/include/macros.fpp"
289
290! Caution: This macro requires the use of a binding script to set CUDA_VISIBLE_DEVICES, such that we have one GPU device per MPI
291! rank. That's because for both cudaMemAdvise (preferred location) and cudaMemPrefetchAsync we use location = device_id = 0. For an
292! example see misc/nvidia_uvm/bind.sh. NVIDIA unified memory page placement hint
293# 57 "/home/runner/work/MFC/MFC/src/common/include/macros.fpp"
294
295! Allocate and create GPU device memory
296# 77 "/home/runner/work/MFC/MFC/src/common/include/macros.fpp"
297
298! Free GPU device memory and deallocate
299# 85 "/home/runner/work/MFC/MFC/src/common/include/macros.fpp"
300
301! Cray-specific GPU pointer setup for vector fields
302# 109 "/home/runner/work/MFC/MFC/src/common/include/macros.fpp"
303
304! Cray-specific GPU pointer setup for scalar fields
305# 125 "/home/runner/work/MFC/MFC/src/common/include/macros.fpp"
306
307! Cray-specific GPU pointer setup for acoustic source spatials
308# 150 "/home/runner/work/MFC/MFC/src/common/include/macros.fpp"
309
310# 156 "/home/runner/work/MFC/MFC/src/common/include/macros.fpp"
311
312# 163 "/home/runner/work/MFC/MFC/src/common/include/macros.fpp"
313! New line at end of file is required for FYPP
314# 6 "/home/runner/work/MFC/MFC/src/simulation/m_checker.fpp" 2
315# 1 "/home/runner/work/MFC/MFC/src/common/include/case.fpp" 1
316! This file exists so that Fypp can be run without generating case.fpp files for
317! each target. This is useful when generating documentation, for example. This
318! should also let MFC be built with CMake directly, without invoking mfc.sh.
319
320! For pre-process.
321# 8 "/home/runner/work/MFC/MFC/src/common/include/case.fpp"
322
323! For moving immersed boundaries in simulation
324# 12 "/home/runner/work/MFC/MFC/src/common/include/case.fpp"
325# 7 "/home/runner/work/MFC/MFC/src/simulation/m_checker.fpp" 2
326
327!> @brief Validates simulation input parameters for consistency and supported configurations
328module m_checker
329
330 use m_global_parameters
331 use m_mpi_proxy
332 use m_helper
333 use m_helper_basic
334
335 implicit none
336
337 private; public :: s_check_inputs
338
339contains
340
341 !> Checks compatibility of parameters in the input file. Used by the simulation stage
342 impure subroutine s_check_inputs
343
344 call s_check_inputs_compilers
345
346 if (igr) then
347 call s_check_inputs_nvidia_uvm
348 else
349 if (recon_type == weno_type) then
350 call s_check_inputs_weno
351 else if (recon_type == muscl_type) then
352 call s_check_inputs_muscl
353 end if
354 end if
355
356 call s_check_inputs_time_stepping
357
358 if (ib_state_wrt .and. .not. ib) then
359# 39 "/home/runner/work/MFC/MFC/src/simulation/m_checker.fpp"
360 call s_prohibit_abort(.and..not."ib_state_wrt ib", "ib_state_wrt requires ib to be enabled")
361# 39 "/home/runner/work/MFC/MFC/src/simulation/m_checker.fpp"
362 end if
363
364 if (num_particle_clouds > 0) then
365 call s_check_inputs_particle_clouds
366 end if
367
368 end subroutine s_check_inputs
369
370 !> Checks constraints on compiler options
371 impure subroutine s_check_inputs_compilers
372
373#if !defined(MFC_OpenACC) && !(defined(__PGI) || defined(_CRAYFTN))
374 if (rdma_mpi) then
375# 51 "/home/runner/work/MFC/MFC/src/simulation/m_checker.fpp"
376 call s_prohibit_abort("rdma_mpi", "Unsupported value of rdma_mpi for the current compiler")
377# 51 "/home/runner/work/MFC/MFC/src/simulation/m_checker.fpp"
378 end if
379#endif
380
381 end subroutine s_check_inputs_compilers
382
383 !> Checks constraints on WENO scheme parameters
384 impure subroutine s_check_inputs_weno
385
386 character(len=5) :: numstr !< for int to string conversion
387
388 call s_int_to_str(num_stcls_min*weno_order, numstr)
389 if (m + 1 < num_stcls_min*weno_order) then
390# 62 "/home/runner/work/MFC/MFC/src/simulation/m_checker.fpp"
391 call s_prohibit_abort("m + 1 < num_stcls_min*weno_order", "m must be greater than or equal to (num_stcls_min*weno_order - 1), whose value is " // trim(numstr))
392# 62 "/home/runner/work/MFC/MFC/src/simulation/m_checker.fpp"
393 end if
394# 64 "/home/runner/work/MFC/MFC/src/simulation/m_checker.fpp"
395 if (n + 1 < min(1, n)*num_stcls_min*weno_order) then
396# 64 "/home/runner/work/MFC/MFC/src/simulation/m_checker.fpp"
397 call s_prohibit_abort("n + 1 < min(1, n)*num_stcls_min*weno_order", "For 2D simulation, n must be greater than or equal to (num_stcls_min*weno_order - 1), whose value is " // trim(numstr))
398# 64 "/home/runner/work/MFC/MFC/src/simulation/m_checker.fpp"
399 end if
400# 67 "/home/runner/work/MFC/MFC/src/simulation/m_checker.fpp"
401 if (p + 1 < min(1, p)*num_stcls_min*weno_order) then
402# 67 "/home/runner/work/MFC/MFC/src/simulation/m_checker.fpp"
403 call s_prohibit_abort("p + 1 < min(1, p)*num_stcls_min*weno_order", "For 3D simulation, p must be greater than or equal to (num_stcls_min*weno_order - 1), whose value is " // trim(numstr))
404# 67 "/home/runner/work/MFC/MFC/src/simulation/m_checker.fpp"
405 end if
406# 70 "/home/runner/work/MFC/MFC/src/simulation/m_checker.fpp"
407
408 end subroutine s_check_inputs_weno
409
410 !> Validate that the grid resolution is sufficient for the MUSCL reconstruction order
411 impure subroutine s_check_inputs_muscl
412
413 character(len=5) :: numstr !< for int to string conversion
414
415 call s_int_to_str(num_stcls_min*muscl_order, numstr)
416 if (m + 1 < num_stcls_min*muscl_order) then
417# 79 "/home/runner/work/MFC/MFC/src/simulation/m_checker.fpp"
418 call s_prohibit_abort("m + 1 < num_stcls_min*muscl_order", "m must be greater than or equal to (num_stcls_min*muscl_order - 1), whose value is " // trim(numstr))
419# 79 "/home/runner/work/MFC/MFC/src/simulation/m_checker.fpp"
420 end if
421# 81 "/home/runner/work/MFC/MFC/src/simulation/m_checker.fpp"
422 if (n + 1 < min(1, n)*num_stcls_min*muscl_order) then
423# 81 "/home/runner/work/MFC/MFC/src/simulation/m_checker.fpp"
424 call s_prohibit_abort("n + 1 < min(1, n)*num_stcls_min*muscl_order", "For 2D simulation, n must be greater than or equal to (num_stcls_min*muscl_order - 1), whose value is " // trim(numstr))
425# 81 "/home/runner/work/MFC/MFC/src/simulation/m_checker.fpp"
426 end if
427# 84 "/home/runner/work/MFC/MFC/src/simulation/m_checker.fpp"
428 if (p + 1 < min(1, p)*num_stcls_min*muscl_order) then
429# 84 "/home/runner/work/MFC/MFC/src/simulation/m_checker.fpp"
430 call s_prohibit_abort("p + 1 < min(1, p)*num_stcls_min*muscl_order", "For 3D simulation, p must be greater than or equal to (num_stcls_min*muscl_order - 1), whose value is " // trim(numstr))
431# 84 "/home/runner/work/MFC/MFC/src/simulation/m_checker.fpp"
432 end if
433# 87 "/home/runner/work/MFC/MFC/src/simulation/m_checker.fpp"
434 if (muscl_order == 1 .and. int_comp > 0) then
435# 87 "/home/runner/work/MFC/MFC/src/simulation/m_checker.fpp"
436 call s_prohibit_abort(.and."muscl_order == 1 int_comp > 0", "int_comp requires muscl_order >= 2 (muscl_order=1 leaves the reconstruction workspace uninitialised)")
437# 87 "/home/runner/work/MFC/MFC/src/simulation/m_checker.fpp"
438 end if
439# 89 "/home/runner/work/MFC/MFC/src/simulation/m_checker.fpp"
440
441 end subroutine s_check_inputs_muscl
442
443 !> Checks constraints on time stepping parameters
444 impure subroutine s_check_inputs_time_stepping
445
446 if (.not. cfl_dt) then
447 if (dt <= 0) then
448# 96 "/home/runner/work/MFC/MFC/src/simulation/m_checker.fpp"
449 call s_prohibit_abort("dt <= 0", "")
450# 96 "/home/runner/work/MFC/MFC/src/simulation/m_checker.fpp"
451 end if
452 end if
453
454 end subroutine s_check_inputs_time_stepping
455
456 !> Validate NVIDIA unified virtual memory configuration parameters
457 impure subroutine s_check_inputs_nvidia_uvm
458
459#ifdef __NVCOMPILER_GPU_UNIFIED_MEM
460 if (nv_uvm_igr_temps_on_gpu > 3 .or. nv_uvm_igr_temps_on_gpu < 0) then
461# 105 "/home/runner/work/MFC/MFC/src/simulation/m_checker.fpp"
462 call s_prohibit_abort(.or."nv_uvm_igr_temps_on_gpu > 3 nv_uvm_igr_temps_on_gpu < 0", "nv_uvm_igr_temps_on_gpu must be in the range [0, 3]")
463# 105 "/home/runner/work/MFC/MFC/src/simulation/m_checker.fpp"
464 end if
465# 107 "/home/runner/work/MFC/MFC/src/simulation/m_checker.fpp"
466 if (nv_uvm_igr_temps_on_gpu == 3 .and. igr_iter_solver == 2) then
467# 107 "/home/runner/work/MFC/MFC/src/simulation/m_checker.fpp"
468 call s_prohibit_abort(.and."nv_uvm_igr_temps_on_gpu == 3 igr_iter_solver == 2", "nv_uvm_igr_temps_on_gpu must be in the range [0, 2] for igr_iter_solver == 2")
469# 107 "/home/runner/work/MFC/MFC/src/simulation/m_checker.fpp"
470 end if
471# 109 "/home/runner/work/MFC/MFC/src/simulation/m_checker.fpp"
472#endif
473
474 end subroutine s_check_inputs_nvidia_uvm
475
476 !> Checks that each active particle cloud has a valid packing_method specified
477 impure subroutine s_check_inputs_particle_clouds
478
479 integer :: i
480 character(len=5) :: idxstr
481
482 do i = 1, num_particle_clouds
483 call s_int_to_str(i, idxstr)
484 if (particle_cloud(i)%packing_method == dflt_int) then
485# 121 "/home/runner/work/MFC/MFC/src/simulation/m_checker.fpp"
486 call s_prohibit_abort("particle_cloud(i)%packing_method == dflt_int", "particle_cloud("//trim(idxstr)//")%packing_method must be specified (1 = rejection sampling)")
487# 121 "/home/runner/work/MFC/MFC/src/simulation/m_checker.fpp"
488 end if
489# 123 "/home/runner/work/MFC/MFC/src/simulation/m_checker.fpp"
490 if (particle_cloud(i)%packing_method /= 1) then
491# 123 "/home/runner/work/MFC/MFC/src/simulation/m_checker.fpp"
492 call s_prohibit_abort("particle_cloud(i)%packing_method /= 1", "particle_cloud("//trim(idxstr) //")%packing_method must be 1 (rejection sampling is the only supported method)")
493# 123 "/home/runner/work/MFC/MFC/src/simulation/m_checker.fpp"
494 end if
495# 126 "/home/runner/work/MFC/MFC/src/simulation/m_checker.fpp"
496 end do
497
498 end subroutine s_check_inputs_particle_clouds
499
500end module m_checker
m_checker
Validates simulation input parameters for consistency and supported configurations.
Definition m_checker.fpp.f90:328
m_checker::s_check_inputs
impure subroutine, public s_check_inputs
Checks compatibility of parameters in the input file. Used by the simulation stage.
Definition m_checker.fpp.f90:343
m_checker::s_check_inputs_time_stepping
impure subroutine s_check_inputs_time_stepping
Checks constraints on time stepping parameters.
Definition m_checker.fpp.f90:445
m_checker::s_check_inputs_particle_clouds
impure subroutine s_check_inputs_particle_clouds
Checks that each active particle cloud has a valid packing_method specified.
Definition m_checker.fpp.f90:478
m_checker::s_check_inputs_weno
impure subroutine s_check_inputs_weno
Checks constraints on WENO scheme parameters.
Definition m_checker.fpp.f90:385
m_checker::s_check_inputs_muscl
impure subroutine s_check_inputs_muscl
Validate that the grid resolution is sufficient for the MUSCL reconstruction order.
Definition m_checker.fpp.f90:412
m_checker::s_check_inputs_compilers
impure subroutine s_check_inputs_compilers
Checks constraints on compiler options.
Definition m_checker.fpp.f90:372
m_checker::s_check_inputs_nvidia_uvm
impure subroutine s_check_inputs_nvidia_uvm
Validate NVIDIA unified virtual memory configuration parameters.
Definition m_checker.fpp.f90:458
m_global_parameters
Global parameters for the computational domain, fluid properties, and simulation algorithm configurat...
Definition m_global_parameters.fpp.f90:328
m_global_parameters::igr
logical igr
Definition m_global_parameters.fpp.f90:575
m_global_parameters::num_particle_clouds
integer num_particle_clouds
Definition m_global_parameters.fpp.f90:412
m_global_parameters::recon_type
integer recon_type
Definition m_global_parameters.fpp.f90:558
m_global_parameters::muscl_order
integer muscl_order
Definition m_global_parameters.fpp.f90:562
m_global_parameters::int_comp
integer int_comp
Definition m_global_parameters.fpp.f90:392
m_global_parameters::ib
logical ib
Definition m_global_parameters.fpp.f90:386
m_global_parameters::particle_cloud
type(particle_cloud_parameters), dimension(num_particle_clouds_max) particle_cloud
Particle bed specifications.
Definition m_global_parameters.fpp.f90:1037
m_global_parameters::ib_state_wrt
logical ib_state_wrt
Definition m_global_parameters.fpp.f90:389
m_global_parameters::rdma_mpi
logical rdma_mpi
Definition m_global_parameters.fpp.f90:435
m_global_parameters::weno_order
integer weno_order
Definition m_global_parameters.fpp.f90:561
m_global_parameters::p
integer p
Definition m_global_parameters.fpp.f90:419
m_global_parameters::n
integer n
Definition m_global_parameters.fpp.f90:404
m_global_parameters::nv_uvm_igr_temps_on_gpu
integer nv_uvm_igr_temps_on_gpu
Definition m_global_parameters.fpp.f90:416
m_global_parameters::dt
real(wp) dt
Definition m_global_parameters.fpp.f90:374
m_global_parameters::m
integer m
Definition m_global_parameters.fpp.f90:398
m_global_parameters::igr_iter_solver
integer igr_iter_solver
Definition m_global_parameters.fpp.f90:573
m_global_parameters::cfl_dt
logical cfl_dt
Definition m_global_parameters.fpp.f90:551
m_helper_basic
Basic floating-point utilities: approximate equality, default detection, and coordinate bounds.
Definition m_helper_basic.fpp.f90:317
m_helper
Utility routines for bubble model setup, coordinate transforms, array sampling, and special functions...
Definition m_helper.fpp.f90:328
m_helper::s_int_to_str
elemental subroutine, public s_int_to_str(i, res)
Convert an integer to its trimmed string representation.
Definition m_helper.fpp.f90:730
m_mpi_proxy
MPI halo exchange, domain decomposition, and buffer packing/unpacking for the simulation solver.
Definition m_mpi_proxy.fpp.f90:328